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

.

Browse Source
This commit is contained in:
Daniel Ziltener 2024-01-18 22:54:16 +01:00
parent 7861f188f6
commit dc1eef8245
Signed by: zilti
GPG Key ID: B38976E82C9DAE42
2 changed files with 581 additions and 576 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1142
zilti/packages/chicken.scm
View File

File diff suppressed because it is too large Load Diff

15
zilti/packages/egg-generator.cscm
View File

@ -53,7 +53,8 @@
'(("procedural-macros" . #f)))
(define egg-replacement-procs
`(("")))
`(("fmt" . ,(lambda (egg)
(egg-version-set! egg "0.8.11")))))
(define (process-egg? eggrec)
(alist-ref (egg-name eggrec) egg-blacklist
@ -68,7 +69,7 @@
(define (rss-feed-item->title+version+desc feed-item)
(let ((chunks (string-split (rss:item-title feed-item)))
(desc (rss:item-description feed-item)))
(make-egg (car chunks) (cadr chunks) desc #f #f #f #f #f #f )))
(make-egg (car chunks) (cadr chunks) (cadr chunks) desc #f #f #f #f #f #f )))
(define (symbolify in)
(if (string? in)
@ -95,14 +96,15 @@
(egg-foreign-dependencies-set! eggrec (alist-ref 'foreign-dependencies egg-alist eqv? '()))
(egg-license-set! eggrec (alist-ref (symbolify (car (alist-ref 'license egg-alist))) licenses)))))))
(define-record egg name version description checksum dependencies test-dependencies build-dependencies foreign-dependencies license)
(define-record egg name version fetch-version description checksum dependencies test-dependencies build-dependencies foreign-dependencies license)
(set-record-printer!
egg
(lambda (x out)
(fprintf out "#,(egg ~S ~S ~S ~S ~S ~S ~S ~S ~S)"
(fprintf out "#,(egg ~S ~S ~S ~S ~S ~S ~S ~S ~S ~S)"
(egg-name x)
(egg-version x)
(egg-fetch-version x)
(egg-description x)
(egg-checksum x)
(egg-dependencies x)
@ -131,6 +133,9 @@
(print "Generating " (egg-name eggrec) " version " (egg-version eggrec))
(print eggrec)
(print " ")
(let ((replacement-proc (alist-ref (egg-name eggrec) egg-replacement-procs string=?)))
(when replacement-proc
(replacement-proc eggrec)))
(with-output-to-file "chicken.scm"
(lambda ()
(pretty-print
@ -141,7 +146,7 @@
(source
(origin
(method url-fetch)
(uri (egg-uri ,(egg-name eggrec) version))
(uri (egg-uri ,(egg-name eggrec) ,(egg-fetch-version eggrec)))
(sha256
(base32
,(egg-checksum eggrec)))))