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

* modules/rosenthal/packages.scm (rosenthal-disable-updater?): New procedure.
This commit is contained in:
Hilton Chain 2025-05-24 16:54:56 +08:00
parent 144a913149
commit 8ab6e64fe4
No known key found for this signature in database
GPG Key ID: ACC66D09CA528292
16 changed files with 35 additions and 42 deletions

View File

@ -2,15 +2,9 @@
;;
;; SPDX-License-Identifier: CC0-1.0
(use-modules (guix packages)
(guix profiles)
(use-modules (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))))

View File

@ -2,15 +2,9 @@
;;
;; SPDX-License-Identifier: CC0-1.0
(use-modules (guix packages)
(guix profiles)
(use-modules (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))))

View File

@ -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?))

View File

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

View File

@ -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))))))

View File

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

View File

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

View File

@ -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))))))

View File

@ -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))))))

View File

@ -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

View File

@ -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)))))

View File

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

View File

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

View File

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

View File

@ -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)))))

View File

@ -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)))))