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))) '(("procedural-macros" . #f)))
(define egg-replacement-procs (define egg-replacement-procs
`((""))) `(("fmt" . ,(lambda (egg)
(egg-version-set! egg "0.8.11")))))
(define (process-egg? eggrec) (define (process-egg? eggrec)
(alist-ref (egg-name eggrec) egg-blacklist (alist-ref (egg-name eggrec) egg-blacklist
@ -68,7 +69,7 @@
(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)))
(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) (define (symbolify in)
(if (string? in) (if (string? in)
@ -95,14 +96,15 @@
(egg-foreign-dependencies-set! eggrec (alist-ref 'foreign-dependencies egg-alist eqv? '())) (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))))))) (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! (set-record-printer!
egg egg
(lambda (x out) (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-name x)
(egg-version x) (egg-version x)
(egg-fetch-version x)
(egg-description x) (egg-description x)
(egg-checksum x) (egg-checksum x)
(egg-dependencies x) (egg-dependencies x)
@ -131,6 +133,9 @@
(print "Generating " (egg-name eggrec) " version " (egg-version eggrec)) (print "Generating " (egg-name eggrec) " version " (egg-version eggrec))
(print eggrec) (print eggrec)
(print " ") (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" (with-output-to-file "chicken.scm"
(lambda () (lambda ()
(pretty-print (pretty-print
@ -141,7 +146,7 @@
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (egg-uri ,(egg-name eggrec) version)) (uri (egg-uri ,(egg-name eggrec) ,(egg-fetch-version eggrec)))
(sha256 (sha256
(base32 (base32
,(egg-checksum eggrec))))) ,(egg-checksum eggrec)))))