added super agenda
This commit is contained in:
ndwarshuis
parent
13d955ceb4
commit
93c63de503
417
conf.org
417
conf.org
|
|
@ -2157,43 +2157,18 @@ earlier ones."
|
||||||
(org-forward-heading-same-level 1 t)))
|
(org-forward-heading-same-level 1 t)))
|
||||||
cur-status))
|
cur-status))
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
***** skip functions
|
**** super agenda
|
||||||
These are the primary means used to sort through tasks and build agenda block views
|
:PROPERTIES:
|
||||||
****** repeaters
|
:CREATED: [2019-04-06 Sat 18:50]
|
||||||
These are headings marked with PARENT_TYPE property that have timestamped headings as children. They are to be refilled when all children are stale. Note that I only care about the parent headings as the children should always show up in the agenda simply because they have timestamps. Parents can be either fresh (at least one child in the future) or stale (all children in the past).
|
:END:
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
(defun org-x-skip-non-iterator-parent-headings ()
|
(use-package org-super-agenda
|
||||||
"Skip headings that are not toplevel iterator headings."
|
:ensure t
|
||||||
(save-restriction
|
:config (org-super-agenda-mode))
|
||||||
(widen)
|
|
||||||
(if (not (and (org-x-is-iterator-heading-p)
|
|
||||||
(not (org-x-headline-has-parent 'org-x-is-iterator-heading-p))))
|
|
||||||
(org-x-skip-heading))))
|
|
||||||
|
|
||||||
;; (defun org-x-skip-non-iterator-unscheduled ()
|
(use-package origami
|
||||||
;; "Skip all headings that are not unscheduled iterator children."
|
:ensure t
|
||||||
;; (org-x-skip-heading-without
|
:hook (org-agenda-mode . origami-mode))
|
||||||
;; org-x-is-atomic-task-p
|
|
||||||
;; (not (or (org-x-is-scheduled-heading-p)
|
|
||||||
;; (org-x-is-deadlined-heading-p)))))
|
|
||||||
|
|
||||||
(defun org-x-skip-non-periodical-parent-headings ()
|
|
||||||
"Skip headings that are not toplevel periodical headings."
|
|
||||||
(save-restriction
|
|
||||||
(widen)
|
|
||||||
(unless (and
|
|
||||||
(org-x-is-periodical-heading-p)
|
|
||||||
(not (org-x-headline-has-parent 'org-x-is-periodical-heading-p)))
|
|
||||||
(org-x-skip-heading))))
|
|
||||||
|
|
||||||
;; (defun org-x-skip-non-periodical-untimestamped ()
|
|
||||||
;; "Skip all headings that are not periodical children without a timestamp."
|
|
||||||
;; (save-restriction
|
|
||||||
;; (widen)
|
|
||||||
;; (if (not (and (org-x-is-periodical-heading-p)
|
|
||||||
;; (not (org-x-is-timestamped-heading-p))
|
|
||||||
;; (not (org-x-headline-has-children 'org-x-is-periodical-heading-p))))
|
|
||||||
;; (org-x-skip-heading))))
|
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
**** block agenda views
|
**** block agenda views
|
||||||
***** default sorting
|
***** default sorting
|
||||||
|
|
@ -2220,116 +2195,281 @@ By default I want block agendas to sort based on the todo keyword (with NEXT bei
|
||||||
***** custom commands
|
***** custom commands
|
||||||
These agenda commands are the center of the gtd workflow. Some are slower than dirt but that's ok becuase the load times are far less than the that I would waste rifling through each org file trying to find a task.
|
These agenda commands are the center of the gtd workflow. Some are slower than dirt but that's ok becuase the load times are far less than the that I would waste rifling through each org file trying to find a task.
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
(let* ((actionable "-NA-REFILE-%inc")
|
(defmacro nd/org-x-mk-skip-function (&rest body)
|
||||||
(periodical "PARENT_TYPE=\"periodical\"")
|
"Return a skip function with BODY.
|
||||||
(iterator "PARENT_TYPE=\"iterator\"")
|
The only thing this function does is `save-excursion' and `widen'."
|
||||||
(habit "STYLE=\"habit\"")
|
`(lambda () (save-excursion (widen) ,@body)))
|
||||||
(task-match (concat actionable "-" periodical "-" habit "/!"))
|
|
||||||
(act-no-rep-match (concat actionable "-" periodical "-" iterator "-" habit "/!"))
|
|
||||||
(peri-match (concat actionable "+" periodical "-" iterator "-" habit))
|
|
||||||
(iter-match (concat actionable "-" periodical "+" iterator "-" habit "/!")))
|
|
||||||
|
|
||||||
(setq
|
(defmacro nd/org-x-mk-super-agenda-pred (&rest body)
|
||||||
org-agenda-custom-commands
|
"Return a predicate function with BODY.
|
||||||
`(("a"
|
This is meant to be used in `org-super-agenda-groups'. For each item,
|
||||||
"Calendar View"
|
the returned function will navigate from the agenda buffer to the
|
||||||
((agenda "" ((org-agenda-skip-function '(org-x-skip-headings-with-tags '("%inc" "REFILE")))
|
original org entry before executing BODY."
|
||||||
(org-agenda-include-diary t)))))
|
`(lambda (item)
|
||||||
|
(let ((marker (get-text-property 1 'org-marker item)))
|
||||||
|
(with-current-buffer (marker-buffer marker)
|
||||||
|
(goto-char marker)
|
||||||
|
,@body))))
|
||||||
|
|
||||||
("t"
|
(setq
|
||||||
"Task View"
|
org-agenda-custom-commands
|
||||||
(,(org-x-agenda-base-task-cmd*
|
`(("a"
|
||||||
;; TODO, this can be better optimized if this view is split,
|
"Calendar View"
|
||||||
;; right now need to include DONE because may have
|
((agenda "" ((org-agenda-skip-function
|
||||||
;; done-unclosed
|
'(org-x-skip-headings-with-tags '("%inc" "REFILE")))
|
||||||
(concat actionable "-" periodical "-" habit "-" iterator)
|
(org-agenda-include-diary t)))))
|
||||||
;; act-no-rep-match
|
|
||||||
"Tasks"
|
|
||||||
''org-x-skip-non-tasks
|
|
||||||
''(:undone-closed :done-unclosed :actv :inrt)
|
|
||||||
''org-x-task-status t)))
|
|
||||||
|
|
||||||
("p"
|
("t"
|
||||||
"Project View"
|
"Task View"
|
||||||
(,(org-x-agenda-base-project-cmd
|
((tags-todo
|
||||||
act-no-rep-match
|
"-NA-REFILE-%inc/TODO|NEXT|WAIT|HOLD|CANC"
|
||||||
'(concat (and org-x-agenda-limit-project-toplevel "Toplevel ") "Projects")
|
((org-agenda-overriding-header "Tasks")
|
||||||
''org-x-skip-non-projects
|
(org-agenda-skip-function
|
||||||
''(:scheduled-project :invalid-todostate :undone-complete :done-incomplete
|
,(nd/org-x-mk-skip-function
|
||||||
:stck :wait :held :actv :inrt)
|
(let ((keyword (org-x-is-todoitem-p)))
|
||||||
''org-x-get-project-status t t)))
|
;; currently we assume that periodicals have no TODOs
|
||||||
|
(cond
|
||||||
|
;; skip over held/canc projects
|
||||||
|
((and (member keyword org-x-project-skip-todostates)
|
||||||
|
(org-x-is-project-p))
|
||||||
|
(org-x-skip-subtree))
|
||||||
|
;; skip iterators
|
||||||
|
((org-x-is-iterator-heading-p)
|
||||||
|
(org-x-skip-heading))
|
||||||
|
;; skip project headings
|
||||||
|
((org-x-is-project-p)
|
||||||
|
(org-x-skip-heading))
|
||||||
|
;; skip canceled tasks
|
||||||
|
((and (equal keyword "CANC")
|
||||||
|
(org-x-is-task-p))
|
||||||
|
(org-x-skip-heading))
|
||||||
|
;; skip habits
|
||||||
|
((org-x-is-habit-heading-p)
|
||||||
|
(org-x-skip-heading))))))
|
||||||
|
(org-agenda-todo-ignore-with-date t)
|
||||||
|
(org-agenda-sorting-strategy '(user-defined-up category-keep))
|
||||||
|
(org-super-agenda-groups
|
||||||
|
`((:auto-map
|
||||||
|
,(nd/org-x-mk-super-agenda-pred
|
||||||
|
(let ((prefix (cl-case (org-x-task-status)
|
||||||
|
(:undone-closed "0. Undone Closed")
|
||||||
|
(:done-unclosed "0. Done Closed")
|
||||||
|
(:actv "1. Active")
|
||||||
|
(:inrt "2. Inert")
|
||||||
|
(t "3. Other")))
|
||||||
|
(sufix (if (org-x-is-atomic-task-p)
|
||||||
|
" 2-(α)" " 1-(σ)")))
|
||||||
|
(concat prefix sufix))))))))))
|
||||||
|
|
||||||
("i"
|
("p"
|
||||||
"Incubator View"
|
"Project View"
|
||||||
((agenda "" ((org-agenda-skip-function '(org-x-skip-headings-with-tags nil '("%inc")))
|
((tags-todo
|
||||||
(org-agenda-span 7)
|
"-NA-REFILE-%inc/!"
|
||||||
(org-agenda-time-grid nil)
|
((org-agenda-overriding-header
|
||||||
(org-agenda-entry-types '(:deadline :timestamp :scheduled))))
|
(concat (and org-x-agenda-limit-project-toplevel "Toplevel ") "Projects"))
|
||||||
,(org-x-agenda-base-heading-cmd "-NA-REFILE+%inc"
|
(org-agenda-skip-function
|
||||||
"Stale Incubated Timestamps"
|
,(nd/org-x-mk-skip-function
|
||||||
''org-x-skip-non-stale-headings)
|
(let ((keyword (org-x-is-project-p)))
|
||||||
,(org-x-agenda-base-task-cmd "-NA-REFILE+%inc/!"
|
(cond
|
||||||
"Incubated Tasks"
|
((not keyword)
|
||||||
''org-x-skip-non-atomic-tasks)
|
(org-x-skip-heading))
|
||||||
,(org-x-agenda-base-project-cmd
|
((and org-x-agenda-limit-project-toplevel
|
||||||
"-NA-REFILE+%inc/!"
|
(org-x-headline-has-parent 'org-x-is-todoitem-p))
|
||||||
'(concat (and org-x-agenda-limit-project-toplevel "Toplevel ") "Incubated Projects")
|
(org-x-skip-subtree))))))
|
||||||
''org-x-skip-non-projects
|
(org-agenda-sorting-strategy '(category-keep))
|
||||||
''(:scheduled-project :invalid-todostate :undone-complete :done-incomplete
|
(org-super-agenda-groups
|
||||||
:stck :wait :held :actv)
|
`((:auto-map
|
||||||
''org-x-get-project-status
|
,(nd/org-x-mk-super-agenda-pred
|
||||||
t t)))
|
(cl-case (org-x-get-project-status)
|
||||||
|
(:scheduled-project "0. Scheduled Project")
|
||||||
|
(:invalid-todostate "0. Invalid TODO State")
|
||||||
|
(:undone-complete "0. Undone Complete")
|
||||||
|
(:done-incomplete "0. Done Incomplete")
|
||||||
|
(:stck "0. Stuck")
|
||||||
|
(:wait "1. Wait")
|
||||||
|
(:held "2. Held")
|
||||||
|
(:actv "3. Active")
|
||||||
|
(:inrt "4. Inert")
|
||||||
|
(t "5. Other"))))))))))
|
||||||
|
|
||||||
("P"
|
("i"
|
||||||
"Periodical View"
|
"Incubator View"
|
||||||
(,(org-x-agenda-base-project-cmd
|
((tags
|
||||||
(concat actionable "-" iterator "+" periodical "-" habit)
|
"-NA-REFILE+%inc"
|
||||||
"Periodical Status"
|
((org-agenda-overriding-header "Incubator")
|
||||||
''org-x-skip-non-periodical-parent-headings
|
(org-agenda-skip-function
|
||||||
'org-clone-peri-statuscodes ''org-clone-get-periodical-status nil t)))
|
,(nd/org-x-mk-skip-function
|
||||||
|
(let ((keyword (org-x-is-todoitem-p)))
|
||||||
|
(cond
|
||||||
|
;; skip done/canc projects
|
||||||
|
((and (member keyword org-done-keywords)
|
||||||
|
(org-x-is-project-p))
|
||||||
|
(org-x-skip-subtree))
|
||||||
|
;; skip project tasks
|
||||||
|
((and keyword (org-x-is-project-task-p))
|
||||||
|
(org-x-skip-heading))
|
||||||
|
;; skip done/canc tasks
|
||||||
|
((member keyword org-done-keywords)
|
||||||
|
(org-x-skip-heading))
|
||||||
|
;; skip non-tasks if they don't have a timestamp
|
||||||
|
((and (not keyword)
|
||||||
|
(not (org-x-is-timestamped-heading-p)))
|
||||||
|
(org-x-skip-heading))))))
|
||||||
|
(org-agenda-sorting-strategy '(category-keep))
|
||||||
|
(org-super-agenda-groups
|
||||||
|
`((:name "Past Deadlines" :deadline past)
|
||||||
|
(:name "Future Deadlines" :deadline future)
|
||||||
|
(:name "Stale Appointments" :pred
|
||||||
|
,(nd/org-x-mk-super-agenda-pred
|
||||||
|
(org-x-is-stale-heading-p)))
|
||||||
|
(:name "Future Appointments" :pred
|
||||||
|
,(nd/org-x-mk-super-agenda-pred
|
||||||
|
(and (not (org-x-is-todoitem-p)))))
|
||||||
|
(:name "Tasks" :pred
|
||||||
|
,(nd/org-x-mk-super-agenda-pred
|
||||||
|
(org-x-is-task-p)))
|
||||||
|
(:name "Toplevel Projects" :pred
|
||||||
|
,(nd/org-x-mk-super-agenda-pred
|
||||||
|
(and (not (org-x-headline-has-parent #'org-x-is-todoitem-p))
|
||||||
|
(org-x-is-project-p))))
|
||||||
|
(:name "Projects" :pred
|
||||||
|
,(nd/org-x-mk-super-agenda-pred
|
||||||
|
(and (org-x-headline-has-parent #'org-x-is-todoitem-p)
|
||||||
|
(org-x-is-project-p))))
|
||||||
|
(:discard (:anything t))))))))
|
||||||
|
|
||||||
("I"
|
("P"
|
||||||
"Iterator View"
|
"Periodical View"
|
||||||
(,(org-x-agenda-base-project-cmd
|
((tags
|
||||||
"-NA-REFILE+PARENT_TYPE=\"iterator\""
|
"-NA-REFILE"
|
||||||
"Iterator Status"
|
((org-agenda-overriding-header "Iterator Status")
|
||||||
''org-x-skip-non-iterator-parent-headings
|
(org-agenda-skip-function
|
||||||
'org-clone-iter-statuscodes ''org-clone-get-iterator-status nil t)))
|
,(nd/org-x-mk-skip-function
|
||||||
|
(cond
|
||||||
|
((not (org-x-is-periodical-heading-p))
|
||||||
|
(org-x-skip-heading))
|
||||||
|
((org-x-headline-has-parent 'org-x-is-periodical-heading-p)
|
||||||
|
(org-x-skip-heading)))))
|
||||||
|
(org-agenda-sorting-strategy '(category-keep))
|
||||||
|
(org-super-agenda-groups
|
||||||
|
`((:auto-map
|
||||||
|
,(nd/org-x-mk-super-agenda-pred
|
||||||
|
(cl-case (org-clone-get-periodical-status)
|
||||||
|
(:uninit "0. Uninitiatlized")
|
||||||
|
(:unscheduled "0. Unscheduled")
|
||||||
|
(:empt "1. Empty")
|
||||||
|
(:actv "2. Active")
|
||||||
|
(t "3. Other"))))))))))
|
||||||
|
|
||||||
("r" "Refile" ((tags "REFILE" ((org-agenda-overriding-header "Tasks to Refile"))
|
("I"
|
||||||
(org-tags-match-list-sublevels nil))))
|
"Iterator View"
|
||||||
|
((tags
|
||||||
|
"-NA-REFILE"
|
||||||
|
((org-agenda-overriding-header "Iterator Status")
|
||||||
|
(org-agenda-skip-function
|
||||||
|
,(nd/org-x-mk-skip-function
|
||||||
|
(cond
|
||||||
|
((not (org-x-is-iterator-heading-p))
|
||||||
|
(org-x-skip-heading))
|
||||||
|
((org-x-headline-has-parent 'org-x-is-iterator-heading-p)
|
||||||
|
(org-x-skip-heading)))))
|
||||||
|
(org-agenda-sorting-strategy '(category-keep))
|
||||||
|
(org-super-agenda-groups
|
||||||
|
`((:auto-map
|
||||||
|
,(nd/org-x-mk-super-agenda-pred
|
||||||
|
(cl-case (org-clone-get-iterator-status)
|
||||||
|
(:uninit "0. Uninitiatlized")
|
||||||
|
(:project-error "0. Project Error")
|
||||||
|
(:unscheduled "0. Unscheduled")
|
||||||
|
(:empt "1. Empty")
|
||||||
|
(:actv "2. Active")
|
||||||
|
(t "3. Other"))))))))))
|
||||||
|
|
||||||
("f" "Flagged" ((tags "%flag" ((org-agenda-overriding-header "Flagged Tasks")))))
|
("r" "Refile"
|
||||||
|
((tags "REFILE" ((org-agenda-overriding-header "Tasks to Refile"))
|
||||||
|
(org-tags-match-list-sublevels nil))))
|
||||||
|
|
||||||
("e"
|
("f" "Flagged"
|
||||||
"Critical Errors"
|
((tags "%flag" ((org-agenda-overriding-header "Flagged Tasks")))))
|
||||||
(,(org-x-agenda-base-task-cmd task-match
|
|
||||||
"Discontinous Project"
|
|
||||||
''org-x-skip-non-discontinuous-project-tasks)
|
|
||||||
,(org-x-agenda-base-heading-cmd task-match
|
|
||||||
"Undone Closed"
|
|
||||||
''org-x-skip-non-undone-closed-todoitems)
|
|
||||||
,(org-x-agenda-base-heading-cmd (concat actionable "-" periodical)
|
|
||||||
"Done Unclosed"
|
|
||||||
''org-x-skip-non-done-unclosed-todoitems)
|
|
||||||
,(org-x-agenda-base-task-cmd (concat task-match)
|
|
||||||
"Missing Creation Timestamp"
|
|
||||||
''org-x-skip-non-created-tasks)))
|
|
||||||
|
|
||||||
|
("e"
|
||||||
|
"Critical Errors"
|
||||||
|
((tags
|
||||||
|
"-NA-REFILE-%inc"
|
||||||
|
((org-agenda-overriding-header "Critical Errors")
|
||||||
|
(org-agenda-skip-function
|
||||||
|
,(nd/org-x-mk-skip-function
|
||||||
|
(let ((keyword (org-x-is-todoitem-p)))
|
||||||
|
(cond
|
||||||
|
((org-x-is-habit-heading-p)
|
||||||
|
(org-x-skip-heading))
|
||||||
|
((org-x-is-iterator-heading-p)
|
||||||
|
(org-x-skip-subtree))
|
||||||
|
((org-x-is-periodical-heading-p)
|
||||||
|
(org-x-skip-subtree))))))
|
||||||
|
(org-super-agenda-groups
|
||||||
|
`((:name "Discontinuous Projects" :pred
|
||||||
|
,(nd/org-x-mk-super-agenda-pred
|
||||||
|
(and (org-x-is-todoitem-p)
|
||||||
|
(org-x-has-discontinuous-parent))))
|
||||||
|
(:name "Done Unclosed" :pred
|
||||||
|
,(nd/org-x-mk-super-agenda-pred
|
||||||
|
(let ((keyword (org-x-is-todoitem-p)))
|
||||||
|
(and keyword
|
||||||
|
(member keyword org-done-keywords)
|
||||||
|
(not (org-x-is-closed-heading-p))))))
|
||||||
|
(:name "Undone Closed" :pred
|
||||||
|
,(nd/org-x-mk-super-agenda-pred
|
||||||
|
(let ((keyword (org-x-is-todoitem-p)))
|
||||||
|
(and keyword
|
||||||
|
(not (member keyword org-done-keywords))
|
||||||
|
(org-x-is-closed-heading-p)))))
|
||||||
|
(:name "Missing Creation Timestamp" :pred
|
||||||
|
,(nd/org-x-mk-super-agenda-pred
|
||||||
|
;; TODO extend this to non-todoitems
|
||||||
|
(let ((keyword (org-x-is-todoitem-p)))
|
||||||
|
(and keyword
|
||||||
|
(org-x-is-task-p)
|
||||||
|
(not (member keyword org-done-keywords))
|
||||||
|
(not (org-x-is-created-heading-p))))))
|
||||||
|
(:discard (:anything t))))))))
|
||||||
|
|
||||||
("A"
|
("A"
|
||||||
"Archivable Tasks and Projects"
|
"Archivable Tasks and Projects"
|
||||||
((tags-todo ,(concat actionable "-" periodical "-" habit "/DONE|CANC")
|
((tags
|
||||||
((org-agenda-overriding-header "Archivable Atomic Tasks and Iterators")
|
"-NA-REFILE"
|
||||||
(org-agenda-sorting-strategy '(category-keep))
|
((org-agenda-overriding-header "Archive")
|
||||||
(org-agenda-skip-function 'org-x-skip-non-archivable-atomic-tasks)))
|
(org-agenda-skip-function
|
||||||
,(org-x-agenda-base-heading-cmd (concat actionable "-" habit)
|
,(nd/org-x-mk-skip-function
|
||||||
"Stale Tasks and Periodicals"
|
(let ((keyword (org-x-is-todoitem-p)))
|
||||||
''org-x-skip-non-stale-headings)
|
(cond
|
||||||
,(org-x-agenda-base-project-cmd
|
;; skip all non-archivable projects
|
||||||
(concat actionable "-" periodical "-" iterator "-" habit)
|
((and keyword
|
||||||
'(concat (and org-x-agenda-limit-project-toplevel "Toplevel ") "Archivable Projects")
|
(org-x-headline-has-children 'org-x-is-todoitem-p)
|
||||||
''org-x-skip-non-projects ''(:arch) ''org-x-get-project-status))))))
|
(not (eq :arch (org-x-get-project-status))))
|
||||||
|
(org-x-skip-subtree))
|
||||||
|
;; skip all project tasks
|
||||||
|
((and keyword
|
||||||
|
(org-x-headline-has-parent 'org-x-is-todoitem-p))
|
||||||
|
(org-x-skip-heading))
|
||||||
|
;; skip all tasks not marked done or archivable
|
||||||
|
((and keyword
|
||||||
|
(not (and (member keyword org-done-keywords)
|
||||||
|
(org-x-is-archivable-heading-p))))
|
||||||
|
(org-x-skip-heading))
|
||||||
|
;; skip all non-todoitems that are not stale
|
||||||
|
((and (not keyword)
|
||||||
|
(not (org-x-is-stale-heading-p)))
|
||||||
|
(org-x-skip-heading))))))
|
||||||
|
(org-agenda-sorting-strategy '(category-keep))
|
||||||
|
(org-super-agenda-groups
|
||||||
|
`((:name "Atomic Tasks" :pred
|
||||||
|
,(nd/org-x-mk-super-agenda-pred
|
||||||
|
(org-x-is-atomic-task-p)))
|
||||||
|
(:name "Projects" :pred
|
||||||
|
,(nd/org-x-mk-super-agenda-pred
|
||||||
|
(org-x-is-project-p)))
|
||||||
|
(:name "Appointments" :anything)))))))))
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
** gtd next generation
|
** gtd next generation
|
||||||
GTD is great but has many limitations...mostly due to the fact that it was originally made on paper. This is meant to extend the GTD workflow into a comprehensive tracking engine that can be used and analyze and project long-term plans and goals.
|
GTD is great but has many limitations...mostly due to the fact that it was originally made on paper. This is meant to extend the GTD workflow into a comprehensive tracking engine that can be used and analyze and project long-term plans and goals.
|
||||||
|
|
@ -3139,9 +3279,18 @@ These are for mode-specific bindings that can/should be outside of the evil maps
|
||||||
(local-set-key (kbd "C-x C-c C-x C-i") 'org-tomato-user-hl-agenda-clock-in)
|
(local-set-key (kbd "C-x C-c C-x C-i") 'org-tomato-user-hl-agenda-clock-in)
|
||||||
(local-set-key (kbd "C-x C-c C-x C-o") 'org-tomato-user-hl-agenda-clock-out)))
|
(local-set-key (kbd "C-x C-c C-x C-o") 'org-tomato-user-hl-agenda-clock-out)))
|
||||||
|
|
||||||
|
(setq org-super-agenda-header-map (make-sparse-keymap))
|
||||||
|
(define-key org-super-agenda-header-map (kbd "<tab>") #'origami-toggle-node)
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
*** mu4e
|
*** mu4e
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
|
;; (defun nd/mu4e-open-attachment-in-emacs (&optional msg attnum)
|
||||||
|
;; "Open attachments using pdf tools or doc view."
|
||||||
|
;; (interactive)
|
||||||
|
;; (let* ((msg (or msg (mu4e-message-at-point)))
|
||||||
|
;; (attnum (or attnum (mu4e~view-get-attach-num "Attachment to open" msg))))
|
||||||
|
;; (mu4e-view-open-attachment-emacs msg attnum)))
|
||||||
|
|
||||||
(nd/when-bin
|
(nd/when-bin
|
||||||
"mu"
|
"mu"
|
||||||
(define-key mu4e-headers-mode-map (kbd "C-c C-l") 'org-store-link)
|
(define-key mu4e-headers-mode-map (kbd "C-c C-l") 'org-store-link)
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue