Fine words and an insinuating appearance are seldom associated with …

…true virtue.

README.org

@@ -57,16 +57,16 @@ To run ~byggsteg~ as a shepherd daemon, you can try this:
                 #:environment-variables
                 (list
                  "LANG=en_US.UTF-8"
-                 "BYGGSTEG_LS=/run/current-system/profile/bin/ls"
-                 "BYGGSTEG_XXD=/run/current-system/profile/bin/xxd"
-                 "BYGGSTEG_MKDIR=/run/current-system/profile/bin/xxd"
-                 "BYGGSTEG_STACK=/run/current-system/profile/bin/stack"
-                 "BYGGSTEG_CD=/run/current-system/profile/bin/cd"
-                 "BYGGSTEG_GIT=/run/current-system/profile/bin/git"
-                 "BYGGSTEG_ECHO=/run/current-system/profile/bin/echo"
-                 "BYGGSTEG_MAKE=/run/current-system/profile/bin/make"
-                 "BYGGSTEG_RM=/run/current-system/profile/bin/rm"
-                 "BYGGSTEG_PYTHON=/run/current-system/profile/bin/python"
+                 "BYGGSTEG_LS_PATH=/run/current-system/profile/bin/ls"
+                 "BYGGSTEG_XXD_PATH=/run/current-system/profile/bin/xxd"
+                 "BYGGSTEG_MKDIR_PATH=/run/current-system/profile/bin/xxd"
+                 "BYGGSTEG_STACK_PATH=/run/current-system/profile/bin/stack"
+                 "BYGGSTEG_CD_PATH=/run/current-system/profile/bin/cd"
+                 "BYGGSTEG_GIT_PATH=/run/current-system/profile/bin/git"
+                 "BYGGSTEG_ECHO_PATH=/run/current-system/profile/bin/echo"
+                 "BYGGSTEG_MAKE_PATH=/run/current-system/profile/bin/make"
+                 "BYGGSTEG_RM_PATH=/run/current-system/profile/bin/rm"
+                 "BYGGSTEG_PYTHON_PATH=/run/current-system/profile/bin/python"
                  "GUILE_AUTO_COMPILE=0")))
       (stop #~(make-kill-destructor))
       (auto-start? #t)

src/html.scm

@@ -115,10 +115,10 @@
   (let* ((kv (read-url-encoded-body body))
          (log-filename (url-decode (car (assoc-ref kv "log-filename")))))
 
-    (syscall (format #f "~a -rfv ~a" byggsteg-rm-location (string-append job-log-location log-filename)))
-    (syscall (format #f "~a -rfv ~a" byggsteg-rm-location (string-append job-failure-location log-filename)))
-    (syscall (format #f "~a -rfv ~a" byggsteg-rm-location (string-append job-success-location log-filename)))
-    (syscall (format #f "~a -rfv ~a" byggsteg-rm-location (string-append job-detail-location log-filename)))
+    (syscall (format #f "~a -rfv ~a" byggsteg-rm-path (string-append job-log-location log-filename)))
+    (syscall (format #f "~a -rfv ~a" byggsteg-rm-path (string-append job-failure-location log-filename)))
+    (syscall (format #f "~a -rfv ~a" byggsteg-rm-path (string-append job-success-location log-filename)))
+    (syscall (format #f "~a -rfv ~a" byggsteg-rm-path (string-append job-detail-location log-filename)))
 
     (respond #f
              `()
@@ -129,7 +129,7 @@
   (let* ((kv (read-url-encoded-body body))
          (profile-name (url-decode (car (assoc-ref kv "profile-name")))))
 
-    (syscall (format #f "~a -rfv ~a" byggsteg-rm-location (string-append profile-location profile-name)))
+    (syscall (format #f "~a -rfv ~a" byggsteg-rm-path (string-append profile-location profile-name)))
 
     (respond #f
              `()

src/prelude.scm

@@ -11,16 +11,16 @@
   )
 
 (define-public locale (car (string-split (getenv "LANG") #\_) ))
-(define-public byggsteg-ls-path (getenv "BYGGSTEG_LS"))
-(define-public byggsteg-xxd-path (getenv "BYGGSTEG_XXD"))
-(define-public byggsteg-mkdir-path (getenv "BYGGSTEG_MKDIR"))
-(define-public byggsteg-stack-path (getenv "BYGGSTEG_STACK"))
-(define-public byggsteg-cd-path (getenv "BYGGSTEG_CD"))
-(define-public byggsteg-git-path (getenv "BYGGSTEG_GIT"))
-(define-public byggsteg-make-path (getenv "BYGGSTEG_MAKE"))
-(define-public byggsteg-echo-path (getenv "BYGGSTEG_ECHO"))
-(define-public byggsteg-python-path (getenv "BYGGSTEG_PYTHON"))
-(define-public byggsteg-rm-path (getenv "BYGGSTEG_RM"))
+(define-public byggsteg-ls-path (getenv "BYGGSTEG_LS_PATH"))
+(define-public byggsteg-xxd-path (getenv "BYGGSTEG_XXD_PATH"))
+(define-public byggsteg-mkdir-path (getenv "BYGGSTEG_MKDIR_PATH"))
+(define-public byggsteg-stack-path (getenv "BYGGSTEG_STACK_PATH"))
+(define-public byggsteg-cd-path (getenv "BYGGSTEG_CD_PATH"))
+(define-public byggsteg-git-path (getenv "BYGGSTEG_GIT_PATH"))
+(define-public byggsteg-make-path (getenv "BYGGSTEG_MAKE_PATH"))
+(define-public byggsteg-echo-path (getenv "BYGGSTEG_ECHO_PATH"))
+(define-public byggsteg-python-path (getenv "BYGGSTEG_PYTHON_PATH"))
+(define-public byggsteg-rm-path (getenv "BYGGSTEG_RM_PATH"))
 
 
 (define-public (ii sym)