cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add list->json-array

Browse source
This commit is contained in:
Christopher Baines 2025-07-04 10:29:59 +01:00
parent df79bc198e
commit 62cf3ff7cb
1 changed files with 12 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

13
guix-data-service/web/render.scm
View file

@ -39,6 +39,7 @@
render-static-asset
render-html
scm-alist->streaming-json
list->json-array
render-json
render-text
not-found
@ -160,7 +161,7 @@
(lambda (port)
(sxml->html sxml port)))))))
(define* (scm-alist->streaming-json alist port #:key unicode)
(define* (scm-alist->streaming-json alist port #:key (unicode #t))
(put-string port "{")
(pair-for-each
(lambda (pair)
@ -179,6 +180,16 @@
alist)
(put-string port "}"))
(define* (list->json-array proc list port #:key (unicode #t))
(put-string port "[")
(pair-for-each
(lambda (pair)
(scm->json (proc (car pair)) port #:unicode unicode)
(unless (null? (cdr pair))
(put-string port ",")))
list)
(put-string port "]"))
(define* (render-json json #:key (extra-headers '())
(code 200)
stream?)