Compare commits

...

4 Commits

Author SHA1 Message Date
Hilton Chain
cc202637fd
rosenthal: ai-robots-txt: Update to 1.36.
* modules/rosenthal/packages/web.scm (ai-robots-txt): Update to 1.36.
2025-06-11 13:05:01 +08:00
Hilton Chain
8bf237c8a3
rosenthal: tailscale: Update to 1.84.2.
* modules/rosenthal/packages/networking.scm (tailscale): Update to 1.84.2.
2025-06-11 13:04:41 +08:00
Hilton Chain
5739b4de2c
maint: Add update manifest for CI.
* etc/manifests/rosenthal-auto-update.scm: New file.
2025-06-11 12:58:39 +08:00
Hilton Chain
c6228682d6
services: cuirass-worker-container: Add ‘workers’ configuration field.
* modules/rosenthal/services/cuirass.scm
(cuirass-worker-container-configuration)[workers]: New field.
(%cuirass-worker-container-script): Use it.
2025-06-11 09:13:38 +08:00
7 changed files with 81 additions and 15 deletions

View File

@ -0,0 +1,52 @@
;;; SPDX-FileCopyrightText: 2024-2025 Ludovic Courtès <ludo@gnu.org>
;;; SPDX-FileCopyrightText: 2025 Hilton Chain <hako@ultrarare.space>
;;;
;;; SPDX-License-Identifier: GPL-3.0-or-later
(use-modules (guix memoization)
(guix packages)
(guix profiles)
(guix store)
(guix transformations)
(rosenthal utils packages)
((guix import github) #:select (%github-api))
((guix scripts build) #:select (dependents)))
;; Bypass the GitHub updater: we'd need an API token or we would hit the rate
;; limit.
(%github-api "http://example.org")
(define latest-version
(mlambdaq (package)
(package-with-upstream-version package
;; Preserve patches and snippets to get
;; exactly the same as what we'd have with
;; 'guix refresh -u PACKAGE'.
#:preserve-patches? #t
;; XXX: Disable source code authentication:
;; this requires a local keyring, populated
;; from key servers, but key servers may be
;; unreliable or may lack the upstream
;; keys. Leave it up to packagers to
;; actually authenticate code and make sure
;; it matches what this manifest computed.
#:authenticate? #f)))
(define updatable-packages
(filter (negate rosenthal-disable-updater?)
(all-rosenthal-packages)))
(manifest
(with-store store
(let ((update-all (package-input-rewriting
(map (lambda (package)
`(,package . ,(latest-version package)))
updatable-packages)
#:recursive? #t)))
(map (lambda (package)
(manifest-entry
(inherit (package->manifest-entry
(update-all package)))
(name (string-append (package-name package) "-full-upgrade"))))
(dependents store updatable-packages 2)))))

View File

@ -62,7 +62,8 @@ the user to manage services with dependencies and parallel startup.")
((#:configure-flags configure-flags) ((#:configure-flags configure-flags)
#~(append #$configure-flags #~(append #$configure-flags
(list "-Dlibseat-logind=disabled"))))) (list "-Dlibseat-logind=disabled")))))
(propagated-inputs '())))) (propagated-inputs '())
(properties '((disable-updater? . #t))))))
(define-public pam-dumb-runtime-dir (define-public pam-dumb-runtime-dir
(package (package
@ -111,4 +112,5 @@ exists and is only writable by root.")
((#:configure-flags configure-flags) ((#:configure-flags configure-flags)
#~(append #$configure-flags #~(append #$configure-flags
(list "-Dlibseat-logind=disabled"))))) (list "-Dlibseat-logind=disabled")))))
(propagated-inputs '())))) (propagated-inputs '())
(properties '((disable-updater? . #t))))))

View File

@ -153,7 +153,8 @@ exec ~a -jar ~a $@~%"
"Komga is a media server for your comics, mangas, BDs, magazines and "Komga is a media server for your comics, mangas, BDs, magazines and
eBooks.") eBooks.")
(license license:expat) (license license:expat)
(properties '((upstream-name . "komga"))))) (properties '((upstream-name . "komga")
(disable-updater? . #t)))))
(define-public navidrome-bin (define-public navidrome-bin
(package (package
@ -179,7 +180,8 @@ eBooks.")
manage their music collections. It provides a web interface and is compatible manage their music collections. It provides a web interface and is compatible
with the Subsonic API.") with the Subsonic API.")
(license license:expat) (license license:expat)
(properties '((upstream-name . "navidrome"))))) (properties '((upstream-name . "navidrome")
(disable-updater? . #t)))))
(define-public shadow-tls-bin (define-public shadow-tls-bin
(package (package
@ -209,7 +211,8 @@ with the Subsonic API.")
"Shadow TLS is a proxy to expose real tls handshake to the @acronym{MITM, "Shadow TLS is a proxy to expose real tls handshake to the @acronym{MITM,
monster-in-the-middle}.") monster-in-the-middle}.")
(license license:expat) (license license:expat)
(properties '((upstream-name . "shadow-tls"))))) (properties '((upstream-name . "shadow-tls")
(disable-updater? . #t)))))
(define-public sing-box-bin (define-public sing-box-bin
(deprecated-package "sing-box-bin" sing-box)) (deprecated-package "sing-box-bin" sing-box))
@ -239,7 +242,8 @@ monster-in-the-middle}.")
"This package provides @code{wakapi}, a WakaTime-compatible backend for "This package provides @code{wakapi}, a WakaTime-compatible backend for
coding statistics.") coding statistics.")
(license license:expat) (license license:expat)
(properties '((upstream-name . "wakapi"))))) (properties '((upstream-name . "wakapi")
(disable-updater? . #t)))))
(define-public wakatime-cli-bin (define-public wakatime-cli-bin
(package (package
@ -265,4 +269,5 @@ coding statistics.")
"This package provides @command{wakatime-cli}, the command line interface "This package provides @command{wakatime-cli}, the command line interface
to WakaTime, which is used by all WakaTime text editor plugins.") to WakaTime, which is used by all WakaTime text editor plugins.")
(license license:bsd-3) (license license:bsd-3)
(properties '((upstream-name . "wakatime-cli"))))) (properties '((upstream-name . "wakatime-cli")
(disable-updater? . #t)))))

View File

@ -253,7 +253,7 @@ a SOCKS5 proxy.")
(define-public tailscale (define-public tailscale
(package (package
(name "tailscale") (name "tailscale")
(version "1.84.1") (version "1.84.2")
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
@ -262,7 +262,7 @@ a SOCKS5 proxy.")
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"0dk6207h2nhr4lq1llhfcb0cqg637br9017q67km0cwf2ahw2ixc")) "1nsf9g95c68hbsals99fqn47w75sa17ayhalk85qi8iv36k2h9km"))
(modules '((guix build utils))) (modules '((guix build utils)))
(snippet (snippet
'(begin '(begin

View File

@ -21,7 +21,7 @@
(define-public ai-robots-txt (define-public ai-robots-txt
(package (package
(name "ai-robots-txt") (name "ai-robots-txt")
(version "1.35") (version "1.36")
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
@ -30,7 +30,7 @@
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"1ay0jpdzdr345463liimwjwacraldmj3h65aw9jbwd10k81i7c9g")) "1b3yc4abd6ni43dqp352lf8bmb328y1yhq8din7hscfg694i3i2d"))
(modules '((guix build utils))) (modules '((guix build utils)))
(snippet '(delete-file-recursively "code")))) (snippet '(delete-file-recursively "code"))))
(build-system copy-build-system) (build-system copy-build-system)
@ -97,7 +97,8 @@ website owners block unwanted AI crawlers from accessing their sites.")
"Anubis checks incoming HTTP requests using one or more challenges in "Anubis checks incoming HTTP requests using one or more challenges in
order to protect upstream resources from web crawlers.") order to protect upstream resources from web crawlers.")
(license license:expat) (license license:expat)
(properties '((upstream-name . "anubis"))))) (properties '((upstream-name . "anubis")
(disable-updater? . #t)))))
(define-public caddy (define-public caddy
(package (package

View File

@ -51,4 +51,6 @@
Wayland compositor implementing @code{xdg_wm_base} interface. This is Wayland compositor implementing @code{xdg_wm_base} interface. This is
particularly useful for compositors that (understandably) do not want to go particularly useful for compositors that (understandably) do not want to go
through implementing support for rootless Xwayland themselves.") through implementing support for rootless Xwayland themselves.")
(license license:mpl2.0))) (license license:mpl2.0)
(properties
'((disable-updater? . #t)))))

View File

@ -44,6 +44,8 @@
this-cuirass-worker-container-configuration this-cuirass-worker-container-configuration
(host-name cuirass-worker-container-host-name) (host-name cuirass-worker-container-host-name)
(server cuirass-worker-container-server) (server cuirass-worker-container-server)
(workers cuirass-worker-container-workers
(default 1))
(supported-systems cuirass-worker-container-supported-systems (supported-systems cuirass-worker-container-supported-systems
(default (list (%current-system))) (default (list (%current-system)))
(thunked)) (thunked))
@ -66,7 +68,8 @@
(define %cuirass-worker-container-script (define %cuirass-worker-container-script
(match-record-lambda <cuirass-worker-container-configuration> (match-record-lambda <cuirass-worker-container-configuration>
(host-name server supported-systems substitute-urls) (host-name server workers supported-systems substitute-urls)
(define cuirass-remote-worker-for-container (define cuirass-remote-worker-for-container
(service-type (service-type
(name 'cuirass-remote-worker) (name 'cuirass-remote-worker)
@ -95,6 +98,7 @@
%cuirass-remote-worker-accounts))))) %cuirass-remote-worker-accounts)))))
(description (description
"Run the Cuirass remote build worker service."))) "Run the Cuirass remote build worker service.")))
(define os (define os
(operating-system (operating-system
(bootloader (bootloader
@ -108,12 +112,12 @@
(type "dummy")) (type "dummy"))
%base-file-systems)) %base-file-systems))
(kernel linux-libre-lts) (kernel linux-libre-lts)
(host-name host-name) (host-name host-name)
(services (services
(cons (service cuirass-remote-worker-for-container (cons (service cuirass-remote-worker-for-container
(cuirass-remote-worker-configuration (cuirass-remote-worker-configuration
(cuirass (pkg "cuirass-hako")) (cuirass (pkg "cuirass-hako"))
(workers workers)
(server server) (server server)
(systems supported-systems) (systems supported-systems)
(publish-port 5558) (publish-port 5558)