summaryrefslogtreecommitdiff
path: root/emacs/.emacs.d/org-mode.el
diff options
context:
space:
mode:
Diffstat (limited to 'emacs/.emacs.d/org-mode.el')
-rw-r--r--emacs/.emacs.d/org-mode.el118
1 files changed, 0 insertions, 118 deletions
diff --git a/emacs/.emacs.d/org-mode.el b/emacs/.emacs.d/org-mode.el
deleted file mode 100644
index db8e5db..0000000
--- a/emacs/.emacs.d/org-mode.el
+++ /dev/null
@@ -1,118 +0,0 @@
-;; --- CUSTOM DEFINITIONS AND FUNCTIONS ---
-(defun bab/org-get-todo (entry)
- (org-entry-get (get-text-property 0 'org-marker entry) "TODO" nil))
-
-(defun bab/todo-column-display-filter (title value)
- (when (and value (not (string= value ""))
- (or (string= title "SCHEDULED")
- (string= title "DEADLINE")))
- (format-time-string "%Y-%m-%d" (org-time-string-to-time value))))
-
-(setq org-agenda-custom-commands
- '(("w" "Work Agenda"
- ((org-ql-block '(clocked :on today)
- ((org-ql-block-header "Clocked Today")))
- (agenda ""
- ((org-agenda-span 1)
- (org-agenda-sorting-strategy '(time-up scheduled-down priority-down deadline-up))
- (org-super-agenda-groups
- '((:todo "WAIT" :order 9)
- (:anything t)))))
- (alltodo ""
- ((org-super-agenda-groups
- '((:discard (:deadline t))
- (:discard (:scheduled t))
- (:name "Time Logging" :todo "TLG")
- (:name "Some Day" :anything t)))
- (org-agenda-overriding-header ""))))
- ((org-agenda-files '("~/org/work/tasks"))))
- ("h" "Home Agenda"
- ((agenda "" ((org-agenda-span 1)))
- (org-ql-block '(and (todo)
- (not (deadline))
- (not (scheduled)))
- ((org-ql-block-header "Some Day"))))
- ((org-agenda-files '("~/org/home/tasks"))))
- ))
-
-(setq org-capture-templates
- '(("d" "Development" entry (file "~/org/work/tasks/dev.org") "
-* %^{Description}
- :PROPERTIES:
- :ORDERED:
- :MERGE_REQUEST: ???%?
- :END:
-** TODO [#C] DEV: %\\1
-** TODO [#B] PQA1: %\\1
-" :empty-lines 1)
- ("D" "DLG Development" entry (file "~/org/work/tasks/dev.org") "
-* %^{Description}
- :PROPERTIES:
- :ORDERED:
- :DLG: ???%?
- :END:
-** TODO [#C] DEV: %\\1
-** TODO [#B] PQA1: %\\1
-** TODO [#B] QA1: %\\1
-** TODO [#A] PQA2: %\\1
-** TODO [#A] QA2: %\\1
-" :empty-lines 1)
- ("p" "PQA" entry (file "~/org/work/tasks/pqa.org") "
-* TODO %^{Description}
- :PROPERTIES:
- :DLG: ???%?
- :MERGE_REQUEST: ???%?
- :END:
-" :empty-lines 1)
- ("w" "Work task" entry (file "~/org/work/tasks/misc.org") "
-* TODO %^{Description}
-" :empty-lines 1)
- ("m" "Meeting" entry (file "~/org/work/tasks/meetings.org") "
-* MEETING %^{Description}
-" :empty-lines 1)))
-
-;; --- CONFIGURATION ---
-(define-key global-map "\C-cc" 'org-capture)
-
-(setq
- ;; Use priorities A-E, default priority is C
- org-highest-priority ?A
- org-lowest-priority ?E
- org-default-priority ?C
-
- ;; TODO states and sequences
- org-todo-keywords
- '((sequence "TODO(t)" "STARTED(s!)" "WAIT(w!)" "|" "DONE(d!)")
- (sequence "|" "CANCELED(x@)"))
- org-todo-keyword-faces
- '(("WAIT" . (:foreground "SteelBlue1" :background "DodgerBlue4"))
- ("STARTED" . (:foreground "plum1" :background "orchid4"))
- ("MEETING" . (:foreground "DarkSlateGray1" :background "aquamarine4"))
- ("CANCELED" . (:foreground "snow4"))
- ("READ" . (:foreground "PaleGreen1" :background "dark green"))
- ("CHORE" . (:foreground "goldenrod1" :background "gray25")))
-
- ;; Agenda
- org-agenda-files '("~/org/home/tasks" "~/org/work/tasks" "~/org/tasks")
- org-agenda-dim-blocked-tasks 'invisible
- org-agenda-span 7
- org-agenda-show-all-dates t
- org-agenda-skip-deadline-if-done t
- org-agenda-skip-deadline-prewarning-if-scheduled t
- org-agenda-skip-scheduled-if-done t
- org-agenda-start-on-weekday nil
-
- ;; Column view
- org-overriding-columns-format "%1PRIORITY %DEADLINE %TODO %CLOCKSUM_T(TODAY) %ESTIMATE{est+} %TLP %ITEM"
- org-columns-modify-value-for-display-function #'bab/todo-column-display-filter
-
- ;; Misc configuration
- org-deadline-warning-days 7
- org-default-notes-file "~/org/notes"
- org-enforce-todo-dependencies t
- org-fast-tag-selection-single-key (quote expert)
- org-log-into-drawer "LOGBOOK"
- org-return-follows-link t
- org-reverse-note-order t
- org-use-property-inheritance t
- )