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

personal: update classes

Browse source
This commit is contained in:
Kiana Sheibani 2025-10-22 13:57:08 -04:00
parent 1129350e7d
commit 13ea50913e
Signed by: toki
GPG key ID: 6CB106C25E86A9F7
1 changed files with 16 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

33
config.org
View file

@ -2838,19 +2838,21 @@ Org mode offers a useful tag hierarchy system, configured via ~org-tag-alist~. W
"An alist where the car is the name of a class subject (typically
four capitalized letters), and the cdr is a list of sub-tags.")
(defvar classes-mwf '()
"Classes that belong under the :MWF: tag.")
(defvar classes-tr '()
"Classes that belong under the :TR: tag.")
(defvar classes-inperson '()
"Classes that have at least one in-person lecture, and thus
belong under the :inperson: tag.")
(defvar classes-online '()
"Classes that belong under the :Online: tag.")
"Classes that are entirely online, and thus belong under
the :online: tag.")
(after! org
(setq classes-mwf '(("PHIL2010" . ?1) ("CSE1322" . ?2))
classes-tr '(("MATH2345" . ?3) ("CSE1322L" . ?4))
classes-online '()
subject-alist '(("MATH" ("calculus") ("algebra"))
("HIST") ("POLS") ("ECON") ("PHIL")))
(setq classes-inperson '(("CS3502" . ?1) ("STAT2332" . ?2)
("CS4306" . ?3) ("ENGL1102" . ?4))
classes-online '()
subject-alist '(("MATH" ("calculus") ("algebra"))
("HIST") ("POLS") ("ECON") ("PHIL")
("CS" ("programming"))
("CSE") ("ART") ("AMST")))
(setq org-tag-persistent-alist
`(("area" . ?A) ("goal" . ?G) ("project" . ?P) ("meta" . ?M)
@ -2868,15 +2870,12 @@ four capitalized letters), and the cdr is a list of sub-tags.")
subject-alist)
(:startgroup) ("college")
(:grouptags) ("TR") ("MWF") ("Online") (:endgroup)
(:grouptags) ("inperson") ("online") (:endgroup)
(:startgroup) ("MWF")
(:grouptags) ,@classes-mwf (:endgroup)
(:startgroup) ("inperson")
(:grouptags) ,@classes-inperson (:endgroup)
(:startgroup) ("TR")
(:grouptags) ,@classes-tr (:endgroup)
(:startgroup) ("Online")
(:startgroup) ("online")
(:grouptags) ,@classes-online (:endgroup))))
#+end_src