maint: Replace property ‘rosenthal-update?’ with ‘disable-updater?’.

* modules/rosenthal/packages.scm (rosenthal-disable-updater?): New procedure.

etc/manifests/auto-update.scm

@@ -2,15 +2,9 @@
 ;;
 ;; SPDX-License-Identifier: CC0-1.0
 
-(use-modules (guix packages)
+(use-modules (guix profiles)
-             (guix profiles)
              (rosenthal packages))
 
-(define (disable-updater? p)
-  (let ((properties (package-properties p)))
-    (and (assq 'rosenthal-update? properties)
-         (not (assq-ref properties 'rosenthal-update?)))))
-
 (manifest (map package->manifest-entry
-               (filter (negate disable-updater?)
+               (filter (negate rosenthal-disable-updater?)
                        (all-rosenthal-packages))))

etc/manifests/manual-update.scm

@@ -2,15 +2,9 @@
 ;;
 ;; SPDX-License-Identifier: CC0-1.0
 
-(use-modules (guix packages)
+(use-modules (guix profiles)
-             (guix profiles)
              (rosenthal packages))
 
-(define (disable-updater? p)
-  (let ((properties (package-properties p)))
-    (and (assq 'rosenthal-update? properties)
-         (not (assq-ref properties 'rosenthal-update?)))))
-
 (manifest (map package->manifest-entry
-               (filter disable-updater?
+               (filter rosenthal-disable-updater?
                        (all-rosenthal-packages))))

modules/rosenthal/packages.scm

@@ -16,7 +16,8 @@
              search-patch)
   #:export (rosenthal-patches
             %rosenthal-package-module-path
-            all-rosenthal-packages))
+            all-rosenthal-packages
+            rosenthal-disable-updater?))
 
 ;;; Commentary:
 ;;;
@@ -99,3 +100,6 @@ packages, excluding superseded packages."
                    (all-modules %rosenthal-package-module-path #:warn warn-about-load-error)
                    ;; Dismiss deprecated packages but keep hidden packages.
                    #:select? (negate package-superseded))))
+
+(define (rosenthal-disable-updater? p)
+  (assq-ref (package-properties p) 'disable-updater?))

modules/rosenthal/packages/bootloaders.scm

@@ -50,4 +50,4 @@
          (append autoconf automake python-minimal-wrapper)))
       (properties
        `(,@(package-properties base)
-         (rosenthal-update? . #f))))))
+         (disable-updater? . #t))))))

modules/rosenthal/packages/browser-extensions.scm

@@ -36,7 +36,7 @@
     (properties
      '((addon-id . "{446900e4-71c2-419f-a6a7-df9c091e268b}")
        (hidden? . #t)
-       (rosenthal-update? . #f)))))
+       (disable-updater? . #t)))))
 
 (define-public bitwarden/icecat
   (let ((base (make-icecat-extension bitwarden)))
@@ -44,7 +44,7 @@
       (inherit base)
       (properties
        `(,@(alist-delete 'hidden? (package-properties base))
-         (rosenthal-update? . #f))))))
+         (disable-updater? . #t))))))
 
 (define-public miniflux-injector
   (package
@@ -53,7 +53,7 @@
     (properties
      '((addon-id . "{528ec801-2e29-4cb9-ae71-5a90503138d1}")
        (hidden? . #t)
-       (rosenthal-update? . #f)))
+       (disable-updater? . #t)))
     (source
      (origin
        (method url-fetch/zipbomb)
@@ -93,7 +93,7 @@ results are added in a sidebar next to search engine results.")
       (inherit base)
       (properties
        `(,@(alist-delete 'hidden? (package-properties base))
-         (rosenthal-update? . #f))))))
+         (disable-updater? . #t))))))
 
 (define-public ohmyech
   (package
@@ -102,7 +102,7 @@ results are added in a sidebar next to search engine results.")
     (properties
      '((addon-id . "{46b8ab0b-8adf-4e43-ad67-acef5a8d45c9}")
        (hidden? . #t)
-       (rosenthal-update? . #f)))
+       (disable-updater? . #t)))
     (source (origin
               (method git-fetch)
               (uri (git-reference
@@ -143,4 +143,4 @@ during the @acronym{TLS, Transport Layer Security} handshake process.")
       (inherit base)
       (properties
        `(,@(alist-delete 'hidden? (package-properties base))
-         (rosenthal-update? . #f))))))
+         (disable-updater? . #t))))))

modules/rosenthal/packages/busybox.scm

@@ -28,4 +28,4 @@
                   (delete-file "testsuite/mdev.tests")))))))
       (properties
        `(,@(package-properties base)
-         (rosenthal-update? . #f))))))
+         (disable-updater? . #t))))))

modules/rosenthal/packages/dns.scm

@@ -60,4 +60,4 @@ time.
 @end itemize")
       (license license:wtfpl2)
       (properties
-       '((rosenthal-update? . #f))))))
+       '((disable-updater? . #t))))))

modules/rosenthal/packages/emacs-xyz.scm

@@ -35,7 +35,7 @@
 editing Caddyfiles, configuration files for @code{caddy}.")
       (license license:gpl3+)
       (properties
-       '((rosenthal-update? . #f))))))
+       '((disable-updater? . #t))))))
 
 (define-public emacs-nftables-mode
   (package
@@ -79,7 +79,7 @@ It currently only offers basic highlighting and primitive indentation.")
 and it's subcommands.")
       (license license:gpl3+)
       (properties
-       '((rosenthal-update? . #f))))))
+       '((disable-updater? . #t))))))
 
 (define-public emacs-treesit-auto
   (package
@@ -104,7 +104,7 @@ major modes and falling back to the original major mode when its tree-sitter
 counterpart is unavailable.")
     (license license:gpl3+)
     (properties
-     '((rosenthal-update? . #f)))))
+     '((disable-updater? . #t)))))
 
 ;; https://issues.guix.gnu.org/59552
 (define-public emacs-wakatime-mode
@@ -137,4 +137,4 @@ counterpart is unavailable.")
 metrics generated from your programming activity.")
       (license license:gpl3+)
       (properties
-       '((rosenthal-update? . #f))))))
+       '((disable-updater? . #t))))))

modules/rosenthal/packages/golang.scm

@@ -27,7 +27,7 @@
      (alist-replace "go" (list go-1.22) (package-native-inputs go-1.23)))
     (properties
      `(,@(package-properties go-1.23)
-       (rosenthal-update? . #f)))))
+       (disable-updater? . #t)))))
 
 (define-public go-cloudflare
   (let ((commit "37bc41c6ff79507200a315b72834fce6ca427a7e")
@@ -49,4 +49,4 @@
       (synopsis "Go with Cloudflare experimental patches")
       (properties
        `(,@(package-properties go-1.22)
-         (rosenthal-update? . #f))))))
+         (disable-updater? . #t))))))

modules/rosenthal/packages/networking.scm

@@ -248,7 +248,7 @@ can be used to create network proxy servers, clients and transparent proxies.")
 a SOCKS5 proxy.")
     (license license:expat)
     (properties
-     '((rosenthal-update? . #f)))))
+     '((disable-updater? . #t)))))
 
 (define-public tailscale
   (package

modules/rosenthal/packages/rust-apps.scm

@@ -76,4 +76,4 @@ additional context for commands.  Additionally, it provides optional and fully
 encrypted synchronisation of history between machines, via an Atuin server.")
     (license license:expat)
     (properties
-     '((rosenthal-update? . #f)))))
+     '((disable-updater? . #t)))))

modules/rosenthal/packages/ssh.scm

@@ -26,4 +26,4 @@
          (replace "libtommath" `(,libtommath "static"))))
       (properties
        `(,@(package-properties base)
-         (rosenthal-update? . #f))))))
+         (disable-updater? . #t))))))

modules/rosenthal/packages/tree-sitter.scm

@@ -37,4 +37,4 @@
        (append '(#:tests? #f)           ;FIXME
                (package-arguments base)))
       (properties
-       '((rosenthal-update? . #f))))))
+       '((disable-updater? . #t))))))

modules/rosenthal/packages/video.scm

@@ -23,4 +23,4 @@
          (delete "libx11" "libxext" "libxfixes")))
       (properties
        `(,@(package-properties base)
-         (rosenthal-update? . #f))))))
+         (disable-updater? . #t))))))

modules/rosenthal/packages/web.scm

@@ -163,7 +163,8 @@ from serving static websites to running dynamic web applications.")
            (sha256
             (base32
              "0m01p9y96m1krjg1rf53kndxklql8i4hfv09rc3xnxbmqh5ahm43"))))))
-    (home-page "https://git.boiledscript.com/hako/caddy")))
+    (home-page "https://git.boiledscript.com/hako/caddy")
+    (properties '((disable-updater? . #t)))))
 
 (define-public hugo
   (package
@@ -323,4 +324,4 @@ install and maintain, making it an ideal choice for teams and organizations
 looking for a reliable platform to manage their software projects.")
     (license license:gpl3+)
     (properties
-     '((rosenthal-update? . #f)))))
+     '((disable-updater? . #t)))))

modules/rosenthal/packages/wm.scm

@@ -69,7 +69,7 @@
       (license license:expat)
       (properties
        '((hidden? . #t)
-         (rosenthal-update? . #f))))))
+         (disable-updater? . #t))))))
 
 (define-public rust-smithay
   (let ((commit "0cd3345c59f7cb139521f267956a1a4e33248393")
@@ -122,7 +122,7 @@ extensions, such as @code{wlr-protocols} and @code{plasma-wayland-protocols}.")
       (license license:expat)
       (properties
        '((hidden? . #t)
-         (rosenthal-update? . #f))))))
+         (disable-updater? . #t))))))
 
 (define-public niri
   (package
@@ -194,4 +194,4 @@ scrollable format.  It is considered stable for daily use and performs most
 functions expected of a Wayland compositor.")
    (license license:gpl3)
    (properties
-    '((rosenthal-update? . #f)))))
+    '((disable-updater? . #t)))))