From 603d65387a7a6fc458c13b1f656f86798a4b32d8 Mon Sep 17 00:00:00 2001
From: Hilton Chain <hako@ultrarare.space>
Date: Fri, 10 Apr 2026 12:45:25 +0800
Subject: [PATCH] utils: file: Make computed-file non-substitutable.

* modules/rosenthal/utils/file.scm (computed-substitution-with-inputs)
(hidden-desktop-entry, ini-file, json-file, toml-file, yaml-file): Disable substitutable?.
---
 modules/rosenthal/utils/file.scm | 18 ++++++++++++------
 1 file changed, 12 insertions(+), 6 deletions(-)

diff --git a/modules/rosenthal/utils/file.scm b/modules/rosenthal/utils/file.scm
index 53cd238..9723a1c 100644
--- a/modules/rosenthal/utils/file.scm
+++ b/modules/rosenthal/utils/file.scm
@@ -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)))