added super agenda
This commit is contained in:
ndwarshuis
parent
13d955ceb4
commit
93c63de503
427
conf.org
427
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
|
||||||
("i"
|
;; skip over held/canc projects
|
||||||
"Incubator View"
|
((and (member keyword org-x-project-skip-todostates)
|
||||||
((agenda "" ((org-agenda-skip-function '(org-x-skip-headings-with-tags nil '("%inc")))
|
(org-x-is-project-p))
|
||||||
(org-agenda-span 7)
|
(org-x-skip-subtree))
|
||||||
(org-agenda-time-grid nil)
|
;; skip iterators
|
||||||
(org-agenda-entry-types '(:deadline :timestamp :scheduled))))
|
((org-x-is-iterator-heading-p)
|
||||||
,(org-x-agenda-base-heading-cmd "-NA-REFILE+%inc"
|
(org-x-skip-heading))
|
||||||
"Stale Incubated Timestamps"
|
;; skip project headings
|
||||||
''org-x-skip-non-stale-headings)
|
((org-x-is-project-p)
|
||||||
,(org-x-agenda-base-task-cmd "-NA-REFILE+%inc/!"
|
(org-x-skip-heading))
|
||||||
"Incubated Tasks"
|
;; skip canceled tasks
|
||||||
''org-x-skip-non-atomic-tasks)
|
((and (equal keyword "CANC")
|
||||||
,(org-x-agenda-base-project-cmd
|
(org-x-is-task-p))
|
||||||
"-NA-REFILE+%inc/!"
|
(org-x-skip-heading))
|
||||||
'(concat (and org-x-agenda-limit-project-toplevel "Toplevel ") "Incubated Projects")
|
;; skip habits
|
||||||
''org-x-skip-non-projects
|
((org-x-is-habit-heading-p)
|
||||||
''(:scheduled-project :invalid-todostate :undone-complete :done-incomplete
|
(org-x-skip-heading))))))
|
||||||
:stck :wait :held :actv)
|
(org-agenda-todo-ignore-with-date t)
|
||||||
''org-x-get-project-status
|
(org-agenda-sorting-strategy '(user-defined-up category-keep))
|
||||||
t t)))
|
(org-super-agenda-groups
|
||||||
|
`((:auto-map
|
||||||
("P"
|
,(nd/org-x-mk-super-agenda-pred
|
||||||
"Periodical View"
|
(let ((prefix (cl-case (org-x-task-status)
|
||||||
(,(org-x-agenda-base-project-cmd
|
(:undone-closed "0. Undone Closed")
|
||||||
(concat actionable "-" iterator "+" periodical "-" habit)
|
(:done-unclosed "0. Done Closed")
|
||||||
"Periodical Status"
|
(:actv "1. Active")
|
||||||
''org-x-skip-non-periodical-parent-headings
|
(:inrt "2. Inert")
|
||||||
'org-clone-peri-statuscodes ''org-clone-get-periodical-status nil t)))
|
(t "3. Other")))
|
||||||
|
(sufix (if (org-x-is-atomic-task-p)
|
||||||
|
" 2-(α)" " 1-(σ)")))
|
||||||
|
(concat prefix sufix))))))))))
|
||||||
|
|
||||||
("I"
|
("p"
|
||||||
"Iterator View"
|
"Project View"
|
||||||
(,(org-x-agenda-base-project-cmd
|
((tags-todo
|
||||||
"-NA-REFILE+PARENT_TYPE=\"iterator\""
|
"-NA-REFILE-%inc/!"
|
||||||
"Iterator Status"
|
((org-agenda-overriding-header
|
||||||
''org-x-skip-non-iterator-parent-headings
|
(concat (and org-x-agenda-limit-project-toplevel "Toplevel ") "Projects"))
|
||||||
'org-clone-iter-statuscodes ''org-clone-get-iterator-status nil t)))
|
(org-agenda-skip-function
|
||||||
|
,(nd/org-x-mk-skip-function
|
||||||
|
(let ((keyword (org-x-is-project-p)))
|
||||||
|
(cond
|
||||||
|
((not keyword)
|
||||||
|
(org-x-skip-heading))
|
||||||
|
((and org-x-agenda-limit-project-toplevel
|
||||||
|
(org-x-headline-has-parent 'org-x-is-todoitem-p))
|
||||||
|
(org-x-skip-subtree))))))
|
||||||
|
(org-agenda-sorting-strategy '(category-keep))
|
||||||
|
(org-super-agenda-groups
|
||||||
|
`((:auto-map
|
||||||
|
,(nd/org-x-mk-super-agenda-pred
|
||||||
|
(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"))))))))))
|
||||||
|
|
||||||
|
("i"
|
||||||
|
"Incubator View"
|
||||||
|
((tags
|
||||||
|
"-NA-REFILE+%inc"
|
||||||
|
((org-agenda-overriding-header "Incubator")
|
||||||
|
(org-agenda-skip-function
|
||||||
|
,(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))))))))
|
||||||
|
|
||||||
|
("P"
|
||||||
|
"Periodical 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-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
|
||||||
("f" "Flagged" ((tags "%flag" ((org-agenda-overriding-header "Flagged Tasks")))))
|
"-NA-REFILE"
|
||||||
|
((org-agenda-overriding-header "Iterator Status")
|
||||||
("e"
|
(org-agenda-skip-function
|
||||||
"Critical Errors"
|
,(nd/org-x-mk-skip-function
|
||||||
(,(org-x-agenda-base-task-cmd task-match
|
(cond
|
||||||
"Discontinous Project"
|
((not (org-x-is-iterator-heading-p))
|
||||||
''org-x-skip-non-discontinuous-project-tasks)
|
(org-x-skip-heading))
|
||||||
,(org-x-agenda-base-heading-cmd task-match
|
((org-x-headline-has-parent 'org-x-is-iterator-heading-p)
|
||||||
"Undone Closed"
|
(org-x-skip-heading)))))
|
||||||
''org-x-skip-non-undone-closed-todoitems)
|
(org-agenda-sorting-strategy '(category-keep))
|
||||||
,(org-x-agenda-base-heading-cmd (concat actionable "-" periodical)
|
(org-super-agenda-groups
|
||||||
"Done Unclosed"
|
`((:auto-map
|
||||||
''org-x-skip-non-done-unclosed-todoitems)
|
,(nd/org-x-mk-super-agenda-pred
|
||||||
,(org-x-agenda-base-task-cmd (concat task-match)
|
(cl-case (org-clone-get-iterator-status)
|
||||||
"Missing Creation Timestamp"
|
(:uninit "0. Uninitiatlized")
|
||||||
''org-x-skip-non-created-tasks)))
|
(:project-error "0. Project Error")
|
||||||
|
(:unscheduled "0. Unscheduled")
|
||||||
|
(:empt "1. Empty")
|
||||||
|
(:actv "2. Active")
|
||||||
|
(t "3. Other"))))))))))
|
||||||
|
|
||||||
("A"
|
("r" "Refile"
|
||||||
"Archivable Tasks and Projects"
|
((tags "REFILE" ((org-agenda-overriding-header "Tasks to Refile"))
|
||||||
((tags-todo ,(concat actionable "-" periodical "-" habit "/DONE|CANC")
|
(org-tags-match-list-sublevels nil))))
|
||||||
((org-agenda-overriding-header "Archivable Atomic Tasks and Iterators")
|
|
||||||
(org-agenda-sorting-strategy '(category-keep))
|
("f" "Flagged"
|
||||||
(org-agenda-skip-function 'org-x-skip-non-archivable-atomic-tasks)))
|
((tags "%flag" ((org-agenda-overriding-header "Flagged Tasks")))))
|
||||||
,(org-x-agenda-base-heading-cmd (concat actionable "-" habit)
|
|
||||||
"Stale Tasks and Periodicals"
|
("e"
|
||||||
''org-x-skip-non-stale-headings)
|
"Critical Errors"
|
||||||
,(org-x-agenda-base-project-cmd
|
((tags
|
||||||
(concat actionable "-" periodical "-" iterator "-" habit)
|
"-NA-REFILE-%inc"
|
||||||
'(concat (and org-x-agenda-limit-project-toplevel "Toplevel ") "Archivable Projects")
|
((org-agenda-overriding-header "Critical Errors")
|
||||||
''org-x-skip-non-projects ''(:arch) ''org-x-get-project-status))))))
|
(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"
|
||||||
|
"Archivable Tasks and Projects"
|
||||||
|
((tags
|
||||||
|
"-NA-REFILE"
|
||||||
|
((org-agenda-overriding-header "Archive")
|
||||||
|
(org-agenda-skip-function
|
||||||
|
,(nd/org-x-mk-skip-function
|
||||||
|
(let ((keyword (org-x-is-todoitem-p)))
|
||||||
|
(cond
|
||||||
|
;; skip all non-archivable projects
|
||||||
|
((and keyword
|
||||||
|
(org-x-headline-has-children 'org-x-is-todoitem-p)
|
||||||
|
(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