toki/doom-config
1
0
Fork 0
Code Issues Pull requests Activity

Fix Org tag hierarchy generation

Browse source
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
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
config.org
View file

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