diff options
Diffstat (limited to 'src/guix/system.scm')
| -rw-r--r-- | src/guix/system.scm | 27 |
1 files changed, 11 insertions, 16 deletions
diff --git a/src/guix/system.scm b/src/guix/system.scm index 3a78ddc..a1f72f8 100644 --- a/src/guix/system.scm +++ b/src/guix/system.scm @@ -19,28 +19,23 @@ -(define (path s) +(define +working-dir+ ;; src/guix/system.scm + ../../../ = ./ - (pkg:str (dirname (dirname (dirname (current-filename)))) "/" s)) + (dirname (dirname (dirname (current-filename))))) + +(define (path s) + (pkg:str +working-dir+ "/" s)) (define +users+ `(("andreh" "EuAndreh" ("wheel") ,(path "src/keys/SSH/andreh.pub.txt")))) -(define +ipv4+ "216.238.68.100") -(define +ipv6+ "2001:19f0:b400:1f0c:5400:04ff:fe35:8c89") -(define +tld+ - ((compose string-trim-right - pkg:slurp - path) - "src/config/tld.txt")) - -(define +known-hosts+ - ((compose pkg:slurp path) - "src/config/known-hosts.txt")) +(define file (compose string-trim-right pkg:slurp path)) -(define +offsite-ssh+ - ((compose pkg:slurp path) - "src/config/offsite-ssh.txt")) +(define +ipv4+ (file "src/config/ipv4.txt")) +(define +ipv6+ (file "src/config/ipv6.txt")) +(define +tld+ (file "src/config/tld.txt")) +(define +known-hosts+ (file "src/config/known-hosts.txt")) +(define +offsite-ssh+ (file "src/config/offsite-ssh.txt")) |