diff options
author | Timo Wilken | 2024-07-12 22:04:09 +0200 |
---|---|---|
committer | Timo Wilken | 2024-07-12 22:04:09 +0200 |
commit | f4d47c96946775c9cbcd93e21565ccf01d85c6a3 (patch) | |
tree | 623706bdd043e65a7426ed28a0fd60049d7a282f /tw/gexp.scm | |
parent | e6f26581bf22e266c5056eddfb264eca2efb6ef4 (diff) |
Make waybar more similar to previous polybar config
Diffstat (limited to 'tw/gexp.scm')
-rw-r--r-- | tw/gexp.scm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/tw/gexp.scm b/tw/gexp.scm index 0770f250..49021ebd 100644 --- a/tw/gexp.scm +++ b/tw/gexp.scm @@ -22,9 +22,10 @@ '#$files))))))) (define-public (json-file name value) + "A file called NAME containing the JSON-serialised VALUE." (computed-file name (with-extensions (list guile-json-4) - #~(begin - (use-modules (json) (srfi srfi-26)) - (call-with-output-file #$output - (cut scm->json '#$value <> #:unicode #t)))))) + #~(call-with-output-file #$output + (lambda (port) + (set-port-encoding! port "UTF-8") + ((@ (json) scm->json) '#$value port #:unicode #t)))))) |