diff options
Diffstat (limited to 'emacs-init.org')
| -rw-r--r-- | emacs-init.org | 167 |
1 files changed, 100 insertions, 67 deletions
diff --git a/emacs-init.org b/emacs-init.org index 4c978e2..5a77514 100644 --- a/emacs-init.org +++ b/emacs-init.org @@ -3311,24 +3311,6 @@ I use a org version with some custom patches. Rather than using something like = (org-use-speed-commands (lambda () (and (looking-at org-outline-regexp) (looking-back "^\**")))) (org-pretty-entities t) (org-fast-tag-selection-single-key t) - (org-tag-alist (quote ((:startgroup) - ("@errand" . ?e) - ("@office" . ?o) - ("@home" . ?H) - (:endgroup) - ("IDLE" . ?i) - ("shelf" . ?s) - ("soon" . ?t) - ("project" . ?p) - ;; ("HOLD" . ?h) - ;; ("PERSONAL" . ?P) - ("WORK" . ?W) - ;; ("ORG" . ?O) - ("crypt" . ?E) - ("NOTE" . ?n) - ;; ("CANCELLED" . ?c) - ("FLAGGED" . ??) - ))) (org-link-abbrev-alist '(("google" . "http://www.google.com/search?q=") ("ddg" . "https://duckduckgo.com/?q=") @@ -3338,7 +3320,6 @@ I use a org version with some custom patches. Rather than using something like = (org-outline-path-complete-in-steps nil) (org-log-into-drawer "NOTES") (org-clock-into-drawer "LOGBOOK") - (org-clock-in-switch-to-state 'bh/clock-in-to-inprogress) (org-tags-column 0) (org-tags-exclude-from-inheritance '( <<org-custom-no-inheritance-tags>> @@ -3348,18 +3329,8 @@ I use a org version with some custom patches. Rather than using something like = (add-hook 'org-mode-hook 'turn-on-org-cdlatex) (add-to-list 'org-structure-template-alist (cons "f" "figure")) ;; (add-to-list 'org-tags-exclude-from-inheritance "MARKED") - (defun bh/clock-in-to-inprogress (kw) - "Switch a task from NEXT to INPROGRESS when clocking in. -Skips capture tasks, projects, and subprojects. -Switch projects and subprojects from NEXT back to TODO" - (when (not (and (boundp 'org-capture-mode) org-capture-mode)) - (cond - ((and (member (org-get-todo-state) (list "NEXT")) - (bh/is-task-p)) - "INPROGRESS") - ((and (member (org-get-todo-state) (list "NEXT")) - (bh/is-project-p)) - "INPROGRESS"))))) + <<org-config>> + ) <<org-crypt>> <<tangle-hook>> @@ -3513,7 +3484,10 @@ Use imagemagick and standalone class for latex preview. :delight) #+end_src *** Task organization -**** Todo settings +Much of my current task workflow is largely inspired by [[http://doc.rix.si/cce/cce-org.html][Ryan Rix's]] and [[http://doc.norang.ca/org-mode.html][Bernt +Hansen's]] configs. +**** =[WIP]= Task Setup +***** Todos - WAITING tasks are waiting on the completion of other tasks - NEXT tasks can be picked up - INPROGRESS are current tasks with time clocked @@ -3524,35 +3498,36 @@ TODO->DONE cycle is for habits.\\ Idle states cover things to do for time in between, checking the inbox, reading news, … -Phonecalls? - #+BEGIN_SRC dot :file /tmp/todo.png -digraph hierarch{ +digraph hierarch { node [shape=box] - // Tasks, Projects - PLANNING -> NEXT, INPROGRESS, ICEBOX - WAITING -> NEXT -> INPROGRESS -> DONE, WAITING, ICEBOX - NEXT -> WAITING -> INPROGRESS, ICEBOX + // Projects + PLANNING -> READY -> ACTIVE -> DONE, ICEBOX + // Tasks + HOLD -> NEXT -> INPROGRESS -> DONE, ICEBOX NEXT -> ICEBOX, DONE + NEXT -> WAITING -> NEXT + INPROGRESS -> WAITING -> INPROGRESS - // stuff for idle time IDLE -> IDLE - //NEXT -> DONE + TODO -> DONE -> TODO - // Phonecalls, Meetings - PHONE -> DONE, CANCELED - MEETING -> DONE, CANCELED + { rank = source; PLANNING; HOLD } + { rank = same; READY; NEXT; TODO; IDLE } + { rank = same; ACTIVE; INPROGRESS } + { rank = sink; ICEBOX; DONE } } #+END_SRC #+RESULTS: [[file:/tmp/todo.png]] + #+begin_src emacs-lisp :noweb-ref org-custom :tangle no (org-todo-keywords '((sequence "HOLD(h)" "NEXT(n)" "INPROGRESS(i!)" "WAITING(w@/!)" "|" "ICEBOX(x@)" "DONE(d)") ;;todos - (sequence "PLANNING(p)" "READY(r)" "ACTIVE(a)" "|" "CANCELLED(c)" "DONE(d)") ;;projects - (sequence "PHONE(P)" "MEETING(m)" "|" "CANCELLED(c)" "DONE(d)") - (sequence "TODO(t)" "|" "DONE(d)") ;;habits + (sequence "PLANNING(p)" "READY(r)" "ACTIVE(a!)" "|" "ICEBOX(x@)" "DONE(d)") ;;projects + ;; (sequence "PHONE(P)" "MEETING(m)" "|" "CANCELED(c)" "DONE(d)") + (sequence "TODO(t)" "|" "DONE(d)") (sequence "IDLE(b)"))) (org-use-fast-todo-selection t) (org-todo-keyword-faces @@ -3563,37 +3538,69 @@ digraph hierarch{ ("DONE" :foreground "forest green" :weight bold) ("WAITING" :foreground "orange" :weight bold) ("ICEBOX" :foreground "orange" :weight normal) - ("CANCELLED" :foreground "forest green" :weight bold) - ("MEETING" :foreground "yellow3" :weight bold) - ("PHONE" :foreground "yellow3" :weight bold) + ;; ("CANCELLED" :foreground "forest green" :weight bold) + ;; ("MEETING" :foreground "yellow3" :weight bold) + ;; ("PHONE" :foreground "yellow3" :weight bold) ("IDLE" :foreground "magenta" :weight bold))) #+end_src - +****** Automatically do =NEXT→INPROGRESS= / =READY→ACTIVE= Switch a todo entry from NEXT to INPROGRESS when clocking in. -#+begin_src emacs-lisp :tangle no -(setq org-clock-in-switch-to-state 'bh/clock-in-to-inprogress) +#+begin_src emacs-lisp :tangle no :noweb-ref org-config (defun bh/clock-in-to-inprogress (kw) "Switch a task from NEXT to INPROGRESS when clocking in. -Skips capture tasks, projects, and subprojects. -Switch projects and subprojects from NEXT back to TODO" +Switch projects from READY to ACTIVE." (when (not (and (boundp 'org-capture-mode) org-capture-mode)) (cond - ((and (member (org-get-todo-state) (list "NEXT")) - (bh/is-task-p)) + ((member (org-get-todo-state) (list "NEXT")) "INPROGRESS") - ((and (member (org-get-todo-state) (list "NEXT")) - (bh/is-project-p)) - "INPROGRESS")))) + ((member (org-get-todo-state) (list "READY")) + "ACTIVE")))) #+end_src -***** State changes +#+begin_src emacs-lisp :tangle no :noweb-ref org-custom +(org-clock-in-switch-to-state 'bh/clock-in-to-inprogress) +#+end_src +****** State changes Track state changes to done & changes to schedules and deadlines. #+begin_src emacs-lisp :tangle no :noweb-ref org-custom (org-log-done 'time) (org-log-redeadline 'time) (org-log-reschedule 'time) #+end_src -**** Org agenda custom commands -***** Task-related agendas +***** Tags +Inspired by [[https://bzg.fr/en/some-emacs-org-mode-features-you-may-not-know.html/][Bastien Guerry]], [[https://github.com/jwiegley/dot-emacs][John Wiegley]]. +#+begin_src emacs-lisp :tangle no :noweb-ref org-custom +(org-tag-alist (quote (("HOT" . ?h) + (:startgroup) ;; Location + ("@errand" . ?E) ("@office" . ?O) ("@home" . ?H) + (:endgroup) + (:startgrouptag) ;; context tags + ("net" . ?n) ("call" . ?c) ("reply" . ?R) + (:endgrouptag) + (:startgroup) + ("handson" . ?o) ;; For focused/active tasks + (:grouptags) + ;; ("code" . ?c) ("design" . ?d) ("review" . ?v) + (:endgroup) + (:startgroup) + ("handsoff" . ?f) ;; For listening/passive tasks + (:grouptags) + ("read" . ?r) ("watch" . ?w) + (:endgroup) + ("crypt" . ?E) + ("FLAGGED" . ??) + ))) +#+end_src +***** INPROGRESS Custom Agendas +- John Wiegley: Different background colors for different source files +****** General +- "h": Next action for hot projects +- Project Next actions agenda +- "P": All Projects +- "r": uncategorized items (CATEGORY="Inbox"&LEVEL=2) +- "w": waiting/delegated tasks (W-TODO="DONE"|TODO={WAITING\|DELEGATED}) +- Unscheduled tasks (TODO<>""&TODO<>{DONE\|CANCELED\|NOTE\|PROJECT\|DEFERRED\|SOMEDAY}) +- "c": Appointment calendar +****** Task-related agendas Simple day agenda with =INPROGRESS= tasks #+begin_src emacs-lisp :tangle no :noweb-ref org-agenda-custom-commands ("d" "Day agenda" @@ -3617,7 +3624,7 @@ Agenda with all open tasks (todo "IDLE") (tags-todo "-habit-shelve-soon-idle"))) #+end_src -****** Fancy agenda to choose todays tasks +******* Fancy agenda to choose todays tasks Based on https://github.com/psamim/dotfiles/blob/master/doom/config.el#L73. #+begin_src emacs-lisp :tangle no :noweb-ref org-agenda-custom-commands ("o" "My Agenda" @@ -3671,7 +3678,7 @@ Based on https://github.com/psamim/dotfiles/blob/master/doom/config.el#L73. (not (= scheduled-day now)))) subtree-end))) #+end_src -***** Week agendas +****** Week agendas #+begin_src emacs-lisp :tangle no :noweb-ref org-agenda-custom-commands ("w" . "Week agendas") ("ww" "Standard week agenda" @@ -3681,7 +3688,7 @@ Based on https://github.com/psamim/dotfiles/blob/master/doom/config.el#L73. (org-agenda-start-day "mon"))) (tags-todo "+work"))) #+end_src -***** Misc agendas +****** Misc agendas #+begin_src emacs-lisp :tangle no :noweb-ref org-agenda-custom-commands ("r" "Refile entries" ((tags "+REFILE"))) ("i" "Idle Actions" @@ -3708,6 +3715,31 @@ Based on https://github.com/psamim/dotfiles/blob/master/doom/config.el#L73. (alltodo "" ((org-agenda-files (fpi/collect-org-directories-recursively default-directory)))))) #+end_src +***** Filtering +****** Auto Exclude +#+begin_src emacs-lisp +;; https://github.com/jwiegley/dot-emacs/blob/master/dot-org.el +(defun org-my-auto-exclude-function (tag) + (and (cond + ((string= tag "call") + (let ((hour (nth 2 (decode-time)))) + (or (< hour 8) (> hour 21)))) + ((string= tag "errand") + (let ((hour (nth 2 (decode-time)))) + (or (< hour 12) (> hour 17)))) + ((or (string= tag "home") (string= tag "nasim")) + (with-temp-buffer + (call-process "ifconfig" nil t nil "en0" "inet") + (call-process "ifconfig" nil t nil "en1" "inet") + (call-process "ifconfig" nil t nil "bond0" "inet") + (goto-char (point-min)) + (not (re-search-forward "inet 192\\.168\\.1\\." nil t)))) + ((string= tag "net") + (not (quickping "imap.fastmail.com"))) + ((string= tag "fun") + org-clock-current-task)) + (concat "-" tag))) +#+end_src **** Refile Use the full outline path so I can distinguish headlines with the same name & disable step-wise completion as I think from the refile target backwards, not from top-level downwards. Also include the current file's headings as a refile targets up to a deep level, all agenda files up to a small level and all open org files up to an even smaller level. @@ -4872,6 +4904,7 @@ Basic flow: 3. Do stuff. Change clocks, capture stuff, take notes, take breaks, … 4. At the end of the day clock out with ~bh/punch-out~. +**** Clocking While punched in org continues to clock your time. Each time you clock out of an entry it clocks you in on the parent entry or the default organizational task. @@ -5004,6 +5037,7 @@ Add a note to the current clock (org-clock-goto) (org-add-note))) #+END_SRC +**** General Go to any heading in an agenda file (or more specifically in any file included in 'org-refile-targets) #+begin_src emacs-lisp @@ -5017,7 +5051,6 @@ included in 'org-refile-targets) (org-show-context) (current-buffer))) #+END_SRC - **** Filter functions Various functions to determine if the current entry is a task, a project or neither. |