Fix Org tag hierarchy generation
This commit is contained in:
parent
e5fad6e73c
commit
98f6339300
|
@ -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)
|
||||
|
|
Loading…
Reference in a new issue