From dce99ded75994d9aca90746563d3da1857af809c Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Wed, 2 Mar 2016 18:08:06 -0800
Subject: Use variable instead of /etc/aliases.

---
 aliases.txr | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/aliases.txr b/aliases.txr
index 38a52d6..43aa715 100644
--- a/aliases.txr
+++ b/aliases.txr
@@ -19,9 +19,9 @@
               @(html-encode [mem -27..t])</span>`)))))
 @(define load-aliases (user aliases))
 @  (local time memo)
-@  (bind lock @(acquire-lock "/etc/aliases"))
+@  (bind lock @(acquire-lock aliases-file))
 @  (try)
-@    (next "/etc/aliases")
+@    (next aliases-file)
 @    (maybe)
 @      (skip)
 # aliases for @user
@@ -43,9 +43,9 @@
 @;
 @(define store-aliases (user aliases))
 @  (local before oldaliases after)
-@  (bind lock @(acquire-lock "/etc/aliases"))
+@  (bind lock @(acquire-lock aliases-file))
 @  (try)
-@    (next "/etc/aliases")
+@    (next aliases-file)
 @    (collect)
 @before
 @    (last)
@@ -59,7 +59,7 @@
 @    (collect)
 @after
 @    (end)
-@    (output "/etc/aliases.tmp" :named out)
+@    (output `@{aliases-file}.tmp` :named out)
 @      (repeat)
 @before
 @      (end)
@@ -78,10 +78,10 @@
        (let ((backup-stamp (time-string-local (time) "%Y%m%d-%H%M")))
          (each* ((j (range 30 0))
                  (i (rest j)))
-           (if (path-file-p `/etc/aliases.@i`)
-             (rename-path `/etc/aliases.@i` `/etc/aliases.@j`)))
-         (rename-path "/etc/aliases" "/etc/aliases.0")
-         (rename-path "/etc/aliases.tmp" "/etc/aliases")))
+           (if (path-file-p `@{aliases-file}.@i`)
+             (rename-path `@{aliases-file}.@i` `@{aliases-file}.@j`)))
+         (rename-path aliases-file `@{aliases-file}.0`)
+         (rename-path `@{aliases-file}.tmp` aliases-file)))
 @  (finally)
 @    (do (release-lock lock))
 @  (end)
-- 
cgit v1.2.3