From 98f6339300a660d62aa4d6e0cc9831ad398be4c5 Mon Sep 17 00:00:00 2001 From: Kiana Sheibani 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)