From 98f6339300a660d62aa4d6e0cc9831ad398be4c5 Mon Sep 17 00:00:00 2001
From: Kiana Sheibani <kiana.a.sheibani@gmail.com>
Date: Tue, 9 Apr 2024 14:05:27 -0400
Subject: [PATCH] Fix Org tag hierarchy generation

---
 config.org | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/config.org b/config.org
index 4b75ff4..54f1c69 100644
--- a/config.org
+++ b/config.org
@@ -2583,10 +2583,10 @@ four capitalized letters), and the cdr is a list of sub-tags.")
   (setq classes-mwf    '(("HIST1111" . ?1))
         classes-tr     '(("MATH2203" . ?2))
         classes-online '(("HIST2111" . ?3))
-        subjects '(("MATH" ("calculus") ("algebra"))
-                   ("HIST")
-                   ("POLS")
-                   ("ECON")))
+        subject-alist  '(("MATH" ("calculus") ("algebra"))
+                         ("HIST")
+                         ("POLS")
+                         ("ECON")))
 
   (setq org-tag-persistent-alist
         `(("area" . ?A) ("goal" . ?G) ("project" . ?P) ("meta" . ?M)
@@ -2594,14 +2594,14 @@ four capitalized letters), and the cdr is a list of sub-tags.")
           (:startgrouptag) ("college")
           (:grouptags) ("assign") ("notes") (:endgrouptag)
 
-          ,@(mapcan
+          ,@(-mapcat
              (lambda (subject)
                `((:startgrouptag) (,(car subject))
                  (:grouptags)
                  (,(format "{%s[[:digit:]]+}" (car subject)))
                  ,@(cdr subject)
                  (:endgrouptag)))
-             subjects)
+             subject-alist)
 
           (:startgroup) ("college")
           (:grouptags) ("TR") ("MWF") ("Online") (:endgroup)