zilti/guixchannel
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

.

Browse source
This commit is contained in:
Daniel Ziltener 2023-12-30 01:10:57 +01:00
parent 8b0b6de856
commit 890ec20be6
Signed by: zilti
GPG key ID: B38976E82C9DAE42
2 changed files with 15 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
zilti/packages/chicken.scm
View file

@ -7206,7 +7206,6 @@
(specifications->packages (specifications->packages
(list "chicken-test" (list "chicken-test"
"chicken-simple-sha1" "chicken-simple-sha1"
"chicken-srfi-4"
"chicken-srfi-13" "chicken-srfi-13"
"chicken-srfi-69"))) "chicken-srfi-69")))
(build-system chicken-build-system) (build-system chicken-build-system)

19
zilti/packages/egg-generator.cscm
View file

@ -5,7 +5,8 @@
(chicken port) (chicken port)
(chicken pretty-print) (chicken pretty-print)
(chicken process) (chicken process)
(chicken string)) (chicken string)
(srfi 1))
(define licenses (define licenses
'((AGPL . license:agpl3+) '((AGPL . license:agpl3+)
@ -49,6 +50,13 @@
(alist-ref (egg-name eggrec) egg-blacklist (alist-ref (egg-name eggrec) egg-blacklist
string=? #t)) string=? #t))
(define dependency-blacklist
'(("srfi-4" . #f)))
(define (keep-dependency? str)
(alist-ref str dependency-blacklist
string=? #t))
(define (rss-feed-item->title+version+desc feed-item) (define (rss-feed-item->title+version+desc feed-item)
(let ((chunks (string-split (rss:item-title feed-item))) (let ((chunks (string-split (rss:item-title feed-item)))
(desc (rss:item-description feed-item))) (desc (rss:item-description feed-item)))
@ -115,11 +123,14 @@
,(egg-checksum eggrec))))) ,(egg-checksum eggrec)))))
(propagated-inputs (propagated-inputs
(specifications->packages (specifications->packages
(list ,@(map prepend-chicken-to-dependency (egg-dependencies eggrec))))) (list ,@(map prepend-chicken-to-dependency
(filter keep-dependency? (egg-dependencies eggrec))))))
(native-inputs (native-inputs
(specifications->packages (specifications->packages
(list ,@(map prepend-chicken-to-dependency (egg-test-dependencies eggrec)) (list ,@(map prepend-chicken-to-dependency
,@(map prepend-chicken-to-dependency (egg-build-dependencies eggrec))))) (filter keep-dependency? (egg-test-dependencies eggrec)))
,@(map prepend-chicken-to-dependency
(filter keep-dependency? (egg-build-dependencies eggrec))))))
(build-system chicken-build-system) (build-system chicken-build-system)
(arguments '(#:egg-name ,(egg-name eggrec))) (arguments '(#:egg-name ,(egg-name eggrec)))
(synopsis ,(egg-description eggrec)) (synopsis ,(egg-description eggrec))