From f7fe6f27ea67901ee51ec91c9fdd40fcd13e8d4b Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Fri, 18 Mar 2022 16:14:45 +0530
Subject: issue: Resolve authors and assignees using aliases.

* bin/tissue (main): Load config and parameterize %aliases.
* tissue/issue.scm (%aliases): New public parameter.
(resolve-alias): New function.
(file-details): Resolve authors and assignees using aliases.
---
 bin/tissue | 25 +++++++++++++------------
 1 file changed, 13 insertions(+), 12 deletions(-)

(limited to 'bin')

diff --git a/bin/tissue b/bin/tissue
index 93612e3..3e249c9 100755
--- a/bin/tissue
+++ b/bin/tissue
@@ -402,18 +402,19 @@ To get usage information for one of these sub-commands, run
                          (current-error-port))
                 (newline (current-error-port))
                 (exit #f)))
-       (apply (match command
-                ("news" tissue-news)
-                ("list" tissue-list)
-                ("edit" tissue-edit)
-                ("show" tissue-show)
-                ("web" tissue-web)
-                (invalid-command
-                 (format (current-error-port) "Invalid command `~a'~%~%"
-                         invalid-command)
-                 (print-usage)
-                 (exit #f)))
-              args)))
+       (parameterize ((%aliases (tissue-configuration-aliases (load-config))))
+         (apply (match command
+                  ("news" tissue-news)
+                  ("list" tissue-list)
+                  ("edit" tissue-edit)
+                  ("show" tissue-show)
+                  ("web" tissue-web)
+                  (invalid-command
+                   (format (current-error-port) "Invalid command `~a'~%~%"
+                           invalid-command)
+                   (print-usage)
+                   (exit #f)))
+                args))))
     ;; tissue is an alias for `tissue list'
     ((_)
      (tissue-list))))
-- 
cgit v1.2.3