From 2fabe47a52ee71692648eb22218c696e1e213673 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Fri, 18 Mar 2022 16:12:36 +0530
Subject: tissue: Introduce aliases in configuration.

* tissue/tissue.scm (<tissue-configuration>)[aliases]: New field.
* tissue/tissue.scm (tissue-configuration): Accept aliases as an
argument.
---
 tissue/tissue.scm | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/tissue/tissue.scm b/tissue/tissue.scm
index a90414f..c1add7a 100644
--- a/tissue/tissue.scm
+++ b/tissue/tissue.scm
@@ -21,20 +21,26 @@
   #:export (tissue-configuration
             tissue-configuration?
             tissue-configuration-project
+            tissue-configuration-aliases
             tissue-configuration-web-css
             tissue-configuration-web-tags-path))
 
 (define-record-type <tissue-configuration>
-  (make-tissue-configuration project web-css web-tags-path)
+  (make-tissue-configuration project aliases web-css web-tags-path)
   tissue-configuration?
   (project tissue-configuration-project)
+  (aliases tissue-configuration-aliases)
   (web-css tissue-configuration-web-css)
   (web-tags-path tissue-configuration-web-tags-path))
 
-(define* (tissue-configuration #:key project web-css (web-tags-path "/tags"))
+(define* (tissue-configuration #:key project (aliases '()) web-css (web-tags-path "/tags"))
   "PROJECT is the name of the project. It is used in the title of the
 generated web pages, among other places.
 
+ALIASES is a list of aliases used to refer to authors in the
+repository. Each element is in turn a list of aliases an author goes
+by, the first of which is the canonical name of that author.
+
 WEB-CSS is the path to a CSS stylesheet. It is relative to the
 document root and must begin with a /. If it is #f, no stylesheet is
 used in the generated web pages.
@@ -42,4 +48,4 @@ used in the generated web pages.
 WEB-TAGS-PATH is the path relative to the document root where the
 per-tag issue listings are put. It must begin with a /. If it is #f,
 per-tag issue listings are not generated."
-  (make-tissue-configuration project web-css web-tags-path))
+  (make-tissue-configuration project aliases web-css web-tags-path))
-- 
cgit v1.2.3