seasharp/Rosenthal
1
0
Fork 0
mirror of https://codeberg.org/hako/Rosenthal.git synced 2026-04-14 22:04:33 +00:00
Code Issues Packages Projects Releases Wiki Activity

utils: file: Make computed-file non-substitutable.

Browse Source 
* modules/rosenthal/utils/file.scm (computed-substitution-with-inputs)
(hidden-desktop-entry, ini-file, json-file, toml-file, yaml-file): Disable substitutable?.
This commit is contained in:
Hilton Chain 2026-04-10 12:45:25 +08:00
parent 800092379e
commit 603d65387a
No known key found for this signature in database
GPG Key ID: ACC66D09CA528292
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
modules/rosenthal/utils/file.scm
View File

@ -40,7 +40,8 @@
(let ((full-path (in-vicinity candidate path)))
(if (file-exists? full-path)
full-path
(loop rest)))))))))))))
(loop rest))))))))))
#:options '(#:substitutable? #f))))
(define (file-content file)
(call-with-input-file (canonicalize-path file) get-string-all))
@ -53,7 +54,8 @@
(copy-file #$file #$output)
(substitute* #$output
(("^\\[Desktop Entry\\].*" all)
(string-append all "NoDisplay=true\n")))))))
(string-append all "NoDisplay=true\n")))))
#:options '(#:substitutable? #f)))
;;;
@ -69,7 +71,8 @@ format."
#~(begin
(use-modules (srfi srfi-26) (ini))
(call-with-output-file #$output
(cut scm->ini #$exp #:port <>))))))
(cut scm->ini #$exp #:port <>))))
#:options '(#:substitutable? #f)))
;; https://github.com/aconchillo/guile-json
(define (json-file name exp)
@ -80,7 +83,8 @@ format."
#~(begin
(use-modules (srfi srfi-26) (json))
(call-with-output-file #$output
(cut scm->json #$exp <> #:pretty #t))))))
(cut scm->json #$exp <> #:pretty #t))))
#:options '(#:substitutable? #f)))
;; https://github.com/hylophile/guile-toml
;; TODO: TOML writing support is incomplete.
@ -93,7 +97,8 @@ format."
#~(begin
(use-modules (srfi srfi-26) (toml))
(call-with-output-file #$output
(cut scm->toml #$exp <>))))))
(cut scm->toml #$exp <>))))
#:options '(#:substitutable? #f)))
;; https://gitlab.com/yorgath/guile-yamlpp
(define (yaml-file name exp)
@ -107,4 +112,5 @@ format."
(lambda (port)
(let ((emitter (make-yaml-emitter)))
(yaml-emit! emitter #$exp)
(display (yaml-emitter-string emitter) port))))))))
(display (yaml-emitter-string emitter) port))))))
#:options '(#:substitutable? #f)))