seasharp/Rosenthal
1
0
Fork 0
mirror of https://codeberg.org/hako/Rosenthal.git synced 2025-07-11 10:46:31 +00:00
Code Issues Packages Projects Releases Wiki Activity

rosenthal: Add all-rosenthal-packages.

Browse Source 
* modules/rosenthal/packages.scm (%rosenthal-package-module-path): New
variable.
(all-rosenthal-packages): New procedure.
This commit is contained in:
Hilton Chain 2025-05-15 15:25:35 +08:00
parent 89ae340329
commit f97d5858e9
No known key found for this signature in database
GPG Key ID: ACC66D09CA528292
1 changed files with 36 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
modules/rosenthal/packages.scm
View File

@ -5,12 +5,18 @@
(define-module (rosenthal packages) (define-module (rosenthal packages)
#:use-module (gnu packages) #:use-module (gnu packages)
#:use-module (guix diagnostics) #:use-module (guix diagnostics)
#:use-module (guix discovery)
#:use-module (guix i18n) #:use-module (guix i18n)
#:use-module (guix memoization)
#:use-module (guix packages)
#:use-module (guix ui)
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:use-module (srfi srfi-34) #:use-module (srfi srfi-34)
#:replace (%patch-path #:replace (%patch-path
search-patch) search-patch)
#:export (rosenthal-patches)) #:export (rosenthal-patches
%rosenthal-package-module-path
all-rosenthal-packages))
;;; Commentary: ;;; Commentary:
;;; ;;;
@ -40,6 +46,9 @@
(try ("rosenthal/packages/binaries.scm" rosenthal/ packages/) (try ("rosenthal/packages/binaries.scm" rosenthal/ packages/)
("rosenthal/packages.scm" rosenthal/)))) ("rosenthal/packages.scm" rosenthal/))))
(define %rosenthal-package-module-path
`((,%rosenthal-root-directory . "rosenthal/packages")))
(define %patch-path (define %patch-path
;; Define it after '%package-module-path' so that '%load-path' contains user ;; Define it after '%package-module-path' so that '%load-path' contains user
;; directories, allowing patches in $GUIX_PACKAGE_PATH to be found. ;; directories, allowing patches in $GUIX_PACKAGE_PATH to be found.
@ -64,3 +73,29 @@
"Return the list of absolute file names corresponding to each "Return the list of absolute file names corresponding to each
FILE-NAME found in %PATCH-PATH." FILE-NAME found in %PATCH-PATH."
(list (search-patch file-name) ...)) (list (search-patch file-name) ...))
;; Adapted from (@ (gnu packages) all-packages).
(define all-rosenthal-packages
(mlambda ()
"Return the list of all public packages, including replacements and hidden
packages, excluding superseded packages."
;; Note: 'fold-packages' never traverses the same package twice but
;; replacements break that (they may or may not be visible to
;; 'fold-packages'), hence this hash table to track visited packages.
(define visited (make-hash-table))
(fold-packages (lambda (package result)
(if (hashq-ref visited package)
result
(begin
(hashq-set! visited package #t)
(match (package-replacement package)
((? package? replacement)
(hashq-set! visited replacement #t)
(cons* replacement package result))
(#f
(cons package result))))))
'()
(all-modules %rosenthal-package-module-path #:warn warn-about-load-error)
;; Dismiss deprecated packages but keep hidden packages.
#:select? (negate package-superseded))))