mirror of
https://codeberg.org/hako/Rosenthal.git
synced 2025-07-11 10:46:31 +00:00
rosenthal: Add all-rosenthal-packages.
* modules/rosenthal/packages.scm (%rosenthal-package-module-path): New variable. (all-rosenthal-packages): New procedure.
This commit is contained in:
parent
89ae340329
commit
f97d5858e9
@ -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))))
|
||||||
|
Loading…
Reference in New Issue
Block a user