diff --git a/config.org b/config.org index 240570c..118314f 100644 --- a/config.org +++ b/config.org @@ -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