Fix Org tag hierarchy generation

This commit is contained in:
Kiana Sheibani 2024-04-09 14:05:27 -04:00
parent e5fad6e73c
commit 98f6339300
Signed by: toki
GPG key ID: 6CB106C25E86A9F7

View file

@ -2583,7 +2583,7 @@ 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"))
subject-alist '(("MATH" ("calculus") ("algebra"))
("HIST")
("POLS")
("ECON")))
@ -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)