modules/rosenthal/packages/package-management.scm

@@ -8,14 +8,7 @@
   #:use-module (guix packages)
   #:use-module (guix utils)
   #:use-module (rosenthal utils packages)
-  ;; Guix origin methods
-  #:use-module (guix git-download)
-  ;; Guix build systems
-  #:use-module (guix build-system guile)
   ;; Guix packages
-  #:use-module (gnu packages base)
-  #:use-module (gnu packages bash)
-  #:use-module (gnu packages guile)
   #:use-module (gnu packages package-management))
 
 (define-public guix/dolly
@@ -30,64 +23,3 @@
      (substitute-keyword-arguments arguments
        ((#:parallel-build? _ #f) #t)))
     (properties '((disable-updater? . #t)))))
-
-(define-public mirror-substitutes
-  (let ((commit "e4001938bdec86e16da3b9c455f8d6fb40c1ab06")
-        (revision "0"))
-    (package
-      (name "mirror-substitutes")
-      (version (git-version "0.0.0" revision commit))
-      (source (origin
-                (method git-fetch)
-                (uri (git-reference
-                       (url "https://codeberg.org/hako/mirror-substitutes.git")
-                       (commit commit)))
-                (file-name (git-file-name name version))
-                (sha256
-                 (base32
-                  "1xbz63akkxz3b0bpqfz2q7sz90raf6nn65cmwa9mzz3alm9avzfj"))))
-      (build-system guile-build-system)
-      (arguments
-       (list
-        #:source-directory "modules"
-        #:phases
-        #~(modify-phases %standard-phases
-            (add-after 'build 'install
-              (lambda* (#:key inputs #:allow-other-keys)
-                (define-values (module-dir object-dir)
-                  (target-guile-scm+go #$output))
-                (define bindir
-                  (in-vicinity #$output "bin"))
-                (with-directory-excursion "scripts"
-                  (for-each
-                   (lambda (script)
-                     (substitute* script
-                       (("/usr/(bin/env) -S guix" _ env)
-                        (format #f "~a -S ~a"
-                                (search-input-file inputs env)
-                                (if (string-suffix? "query-substitutes" script)
-                                    "guix"
-                                    (search-input-file inputs "bin/guix")))))
-                     (install-file script bindir)
-                     (with-directory-excursion bindir
-                       (wrap-program script
-                         `("GUILE_LOAD_PATH" prefix
-                           (,module-dir))
-                         `("GUILE_LOAD_COMPILED_PATH" prefix
-                           (,object-dir)))))
-                   (find-files "."))))))))
-      (native-inputs
-       (list bash-minimal
-             guile-3.0-latest
-             guix))
-      (inputs
-       (list bash-minimal
-             coreutils-minimal
-             guix))
-      (home-page "https://codeberg.org/hako/mirror-substitutes")
-      (synopsis
-       "Mirror Guix substitutes without relying on remote server implementation")
-      (description
-       "This package provides commands to mirror substitutes for Guix and Nix
-without relying on the implementation of remote server.")
-      (license license:gpl3+))))

modules/rosenthal/packages/wm.scm

@@ -40,7 +40,7 @@
 (define-public noctalia-shell
   (package
     (name "noctalia-shell")
-    (version "4.7.5")
+    (version "4.7.1")
     (source (origin
               (method git-fetch)
               (uri (git-reference
@@ -49,7 +49,7 @@
               (file-name (git-file-name name version))
               (sha256
                (base32
-                "164r2jd7d76kw69bmblfgdp8n6hblp6xz5v0w8knfjcijjw046nk"))))
+                "0q9p9jl0iixf20bgwlray59rywgw4c1xq1pkp57zbbg0d1acr647"))))
     (build-system copy-build-system)
     (arguments
      (list
@@ -156,7 +156,7 @@ supporting various Wayland compositors like @code{niri}, @code{hyprland}, and
   (package
     (inherit quickshell)
     (name "noctalia-qs")
-    (version "0.0.12")
+    (version "0.0.10")
     (source
      (origin
        (method git-fetch)
@@ -165,7 +165,7 @@ supporting various Wayland compositors like @code{niri}, @code{hyprland}, and
               (commit (string-append "v" version))))
        (file-name (git-file-name name version))
        (sha256
-        (base32 "0zbqq9qgdsk5r2y4hag5p6276f67pq2w9imihdirvgnx0kclzlpg"))))
+        (base32 "1zly09mdpsqv220q5bi6vg70a6h2bpmd3f0badv2wzn1v1h19ixn"))))
     (inputs
      (modify-inputs inputs
        (prepend glib polkit)))