diff options
Diffstat (limited to '.config/emacs/modules/bd--org.el')
| -rw-r--r-- | .config/emacs/modules/bd--org.el | 34 |
1 files changed, 13 insertions, 21 deletions
diff --git a/.config/emacs/modules/bd--org.el b/.config/emacs/modules/bd--org.el index e2a251c..08a7652 100644 --- a/.config/emacs/modules/bd--org.el +++ b/.config/emacs/modules/bd--org.el @@ -21,6 +21,7 @@ each org file open." (plist-put org-format-latex-options :scale 1.2) (push '("\\.pdf\\'" . "zathura %s") org-file-apps) + (add-hook 'org-babel-after-execute-hook #'org-redisplay-inline-images) (org-babel-do-load-languages 'org-babel-load-languages '((emacs-lisp . t) @@ -78,6 +79,8 @@ representing all the tags ORd or ANDed together." org-log-into-drawer "history" org-agenda-restore-windows-after-quit t org-agenda-show-future-repeats nil + org-agenda-block-separator nil + org-deadline-warning-days 0 org-todo-keywords '((sequence "TODO(t)" "NEXT(n!)" "HOLD(h!)" "|" "DONE(d)" "CANC(c)")) org-tag-alist @@ -113,55 +116,44 @@ representing all the tags ORd or ANDed together." "* TODO %?\n %u"))) (let ((orphan-view '(tags-todo "-{.*}" - ((org-agenda-block-separator nil) - (org-agenda-overriding-header "\nOrphaned Items\n"))))) + ((org-agenda-overriding-header "\nOrphaned Items\n"))))) (setopt org-agenda-custom-commands `(("c" "Chores" - ((agenda "" ((org-agenda-block-separator nil) - (org-agenda-entry-types '(:deadline)) + ((agenda "" ((org-agenda-entry-types '(:deadline)) (org-agenda-show-all-dates nil) (org-agenda-span 21) - (org-deadline-warning-days 0) (org-agenda-skip-function '(org-agenda-skip-entry-if 'notregexp (regexp-opt (cons "chore" (mapcar #'car bd/device-list))))) - (org-agenda-overriding-header "\nPriority Deadlines (+21d)\n"))) + (org-agenda-overriding-header "Priority Deadlines (+21d)\n"))) (tags-todo (concat "chore" (bd/combine-tags bd/device-list nil nil)) - ((org-agenda-block-separator nil) - (org-agenda-overriding-header "Mundane\n"))) + ((org-agenda-overriding-header "\nMundane\n"))) ,@(mapcar (lambda (e) `(tags-todo ,(car e) - ((org-agenda-block-separator nil) - (org-agenda-overriding-header + ((org-agenda-overriding-header (concat "\nDevice: " ,(capitalize (car e)) "\n"))))) bd/device-list) ,orphan-view)) ("r" "Recreational" ((tags-todo "+idea" - ((org-agenda-block-separator nil) - (org-agenda-skip-function + ((org-agenda-skip-function '(org-agenda-skip-entry-if 'regexp "chore")) (org-agenda-overriding-header "Ideas\n"))) (tags-todo "+reading|+writing" - ((org-agenda-block-separator nil) - (org-agenda-skip-function + ((org-agenda-skip-function '(org-agenda-skip-entry-if 'regexp "chore")) (org-agenda-overriding-header "\nReading/Writing\n"))) (tags-todo "+programming|+web" - ((org-agenda-block-separator nil) - (org-agenda-skip-function + ((org-agenda-skip-function '(org-agenda-skip-entry-if 'regexp "chore")) (org-agenda-overriding-header "\nProgramming\n"))) ,orphan-view)) ("s" "College" ((tags-todo (bd/combine-tags bd/course-list t t) - ((org-agenda-block-separator nil) - (org-agenda-overriding-header "\nAll Courses\n"))) - (agenda "" ((org-agenda-block-separator nil) - (org-agenda-entry-types '(:deadline :scheduled)) + ((org-agenda-overriding-header "\nAll Courses\n"))) + (agenda "" ((org-agenda-entry-types '(:deadline :scheduled)) (org-agenda-show-all-dates nil) (org-agenda-span 15) - (org-deadline-warning-days 0) (org-scheduled-past-days 7) (org-agenda-skip-function '(org-agenda-skip-entry-if 'notregexp |