[Org] Move org-capture configuration to init.el
This commit is contained in:
parent
ec35b0edae
commit
f8c2d0b441
104
init.el
104
init.el
|
@ -659,11 +659,13 @@ _h_ _l_ _o_k _y_ank
|
||||||
db/org-agenda-skip-tag
|
db/org-agenda-skip-tag
|
||||||
db/cmp-date-property
|
db/cmp-date-property
|
||||||
hydra-org-agenda-view/body
|
hydra-org-agenda-view/body
|
||||||
org-babel-execute:hy))
|
org-babel-execute:hy
|
||||||
|
db/org-timestamp-difference
|
||||||
|
db/read-clockline
|
||||||
|
db/org-capture-code-snippet))
|
||||||
|
|
||||||
(use-package org
|
(use-package org
|
||||||
:commands (org-capture
|
:commands (org-store-link
|
||||||
org-store-link
|
|
||||||
hydra-org-clock/body)
|
hydra-org-clock/body)
|
||||||
:bind (:map org-mode-map
|
:bind (:map org-mode-map
|
||||||
([remap org-return] . org-return-indent))
|
([remap org-return] . org-return-indent))
|
||||||
|
@ -1030,6 +1032,102 @@ _h_ _l_ _o_k _y_ank
|
||||||
|
|
||||||
(add-hook 'org-agenda-mode-hook #'hl-line-mode 'append)))
|
(add-hook 'org-agenda-mode-hook #'hl-line-mode 'append)))
|
||||||
|
|
||||||
|
;; Capturing
|
||||||
|
|
||||||
|
(use-package org-capture
|
||||||
|
:commands (org-capture)
|
||||||
|
:init (setq org-capture-use-agenda-date nil
|
||||||
|
org-capture-templates
|
||||||
|
`(("t" "Todo"
|
||||||
|
entry
|
||||||
|
(file db/org-default-refile-file)
|
||||||
|
,(concat "* TODO %^{What}\n"
|
||||||
|
"SCHEDULED: %(org-insert-time-stamp (org-read-date nil t \"+0d\"))\n"
|
||||||
|
":PROPERTIES:\n:CREATED: %U\n:END:\n"
|
||||||
|
"%?"))
|
||||||
|
("n" "Note"
|
||||||
|
entry
|
||||||
|
(file db/org-default-refile-file)
|
||||||
|
"* %^{About} :NOTE:\n:PROPERTIES:\n:CREATED: %U\n:END:\n\n%?"
|
||||||
|
:clock-in t :clock-resume t)
|
||||||
|
("d" "Date"
|
||||||
|
entry
|
||||||
|
(file db/org-default-refile-file)
|
||||||
|
"* GOTO %^{What} :DATE:\n%^{When}t\n%a%?")
|
||||||
|
("i" "Interruptions")
|
||||||
|
("in" "Interruption now"
|
||||||
|
entry
|
||||||
|
(file db/org-default-refile-file)
|
||||||
|
"* DONE %^{What}\n\n%?"
|
||||||
|
:clock-in t :clock-resume t)
|
||||||
|
("ip" "Interruption previously" ; bad English vs mnemonics
|
||||||
|
entry
|
||||||
|
(file db/org-default-refile-file)
|
||||||
|
,(concat "* DONE %^{What}\n"
|
||||||
|
":LOGBOOK:\n"
|
||||||
|
"%(db/read-clockline)\n" ; evaluated before above prompt?
|
||||||
|
":END:\n"
|
||||||
|
"%?"))
|
||||||
|
("j" "journal entry"
|
||||||
|
plain
|
||||||
|
(file+datetree db/org-default-pensieve-file)
|
||||||
|
"\n%i%U\n\n%?\n")
|
||||||
|
("r" "respond"
|
||||||
|
entry
|
||||||
|
(file db/org-default-refile-file)
|
||||||
|
,(concat "* TODO E-Mail: %:subject (%:from) :EMAIL:\n"
|
||||||
|
"SCHEDULED: %^{Reply when?}t\n"
|
||||||
|
":PROPERTIES:\n:CREATED: %U\n:END:\n"
|
||||||
|
"\n%a")
|
||||||
|
:immediate-finish t)
|
||||||
|
("R" "read"
|
||||||
|
entry
|
||||||
|
(file db/org-default-refile-file)
|
||||||
|
,(concat "* READ %:subject :READ:\n"
|
||||||
|
;; "DEADLINE: <%(org-read-date nil nil \"+1m\")>\n"
|
||||||
|
":PROPERTIES:\n:CREATED: %U\n:END:\n"
|
||||||
|
"\n%a"))
|
||||||
|
("U" "Read current content of clipboard"
|
||||||
|
entry
|
||||||
|
(file db/org-default-refile-file)
|
||||||
|
,(concat "* READ %^{Description} :READ:\n"
|
||||||
|
":PROPERTIES:\n:CREATED: %U\n:END:\n"
|
||||||
|
"\n%(current-kill 0)"))
|
||||||
|
("m" "Meeting"
|
||||||
|
entry
|
||||||
|
(file db/org-default-refile-file)
|
||||||
|
,(concat "* MEETING %^{What} :MEETING:\n"
|
||||||
|
":PROPERTIES:\n:CREATED: %U\n:END:\n"
|
||||||
|
"\n%?")
|
||||||
|
:clock-in t :clock-resume t)
|
||||||
|
("p" "Phone call"
|
||||||
|
entry
|
||||||
|
(file db/org-default-refile-file)
|
||||||
|
,(concat "* PHONE %^{Calling} :PHONE:\n"
|
||||||
|
":PROPERTIES:\n:CREATED: %U\n:END:\n"
|
||||||
|
"\n%?")
|
||||||
|
:clock-in t :clock-resume t)
|
||||||
|
("w" "Weekly Summary"
|
||||||
|
entry
|
||||||
|
(file+datetree db/org-default-pensieve-file)
|
||||||
|
"* Weekly Review\n\n%?")
|
||||||
|
("b" "Bookmark"
|
||||||
|
entry
|
||||||
|
(file+headline db/org-default-notes-file "Bookmarks")
|
||||||
|
,(concat "* [[%^{Link}][%^{Caption}]]\n"
|
||||||
|
":PROPERTIES:\n:CREATED: %U\n:END:\n\n")
|
||||||
|
:immediate-finish t)
|
||||||
|
("s" "Code Snippet"
|
||||||
|
entry
|
||||||
|
(file db/org-default-refile-file)
|
||||||
|
"* %?\n%(db/org-capture-code-snippet \"%F\")")))
|
||||||
|
:config (progn
|
||||||
|
;; disable usage of helm for `org-capture'
|
||||||
|
(with-eval-after-load 'helm-mode
|
||||||
|
(defvar helm-completing-read-handlers-alist) ; for the byte compiler
|
||||||
|
(add-to-list 'helm-completing-read-handlers-alist
|
||||||
|
'(org-capture . nil)))))
|
||||||
|
|
||||||
;; Babel
|
;; Babel
|
||||||
|
|
||||||
(use-package ob-core
|
(use-package ob-core
|
||||||
|
|
|
@ -181,95 +181,6 @@ _y_: ?y? year _q_: quit _L__l__c_: ?l?
|
||||||
|
|
||||||
;;; Capturing
|
;;; Capturing
|
||||||
|
|
||||||
;; disable usage of helm for `org-capture'
|
|
||||||
(with-eval-after-load 'helm-mode
|
|
||||||
(defvar helm-completing-read-handlers-alist) ; for the byte compiler
|
|
||||||
(add-to-list 'helm-completing-read-handlers-alist
|
|
||||||
'(org-capture . nil)))
|
|
||||||
|
|
||||||
(setq org-capture-use-agenda-date nil)
|
|
||||||
|
|
||||||
(setq org-capture-templates
|
|
||||||
`(("t" "Todo"
|
|
||||||
entry
|
|
||||||
(file db/org-default-refile-file)
|
|
||||||
,(concat "* TODO %^{What}\n"
|
|
||||||
"SCHEDULED: %(org-insert-time-stamp (org-read-date nil t \"+0d\"))\n"
|
|
||||||
":PROPERTIES:\n:CREATED: %U\n:END:\n"
|
|
||||||
"%?"))
|
|
||||||
("n" "Note"
|
|
||||||
entry
|
|
||||||
(file db/org-default-refile-file)
|
|
||||||
"* %^{About} :NOTE:\n:PROPERTIES:\n:CREATED: %U\n:END:\n\n%?"
|
|
||||||
:clock-in t :clock-resume t)
|
|
||||||
("d" "Date"
|
|
||||||
entry
|
|
||||||
(file db/org-default-refile-file)
|
|
||||||
"* GOTO %^{What} :DATE:\n%^{When}t\n%a%?")
|
|
||||||
("i" "Interruptions")
|
|
||||||
("in" "Interruption now"
|
|
||||||
entry
|
|
||||||
(file db/org-default-refile-file)
|
|
||||||
"* DONE %^{What}\n\n%?"
|
|
||||||
:clock-in t :clock-resume t)
|
|
||||||
("ip" "Interruption previously" ; bad English vs mnemonics
|
|
||||||
entry
|
|
||||||
(file db/org-default-refile-file)
|
|
||||||
,(concat "* DONE %^{What}\n"
|
|
||||||
":LOGBOOK:\n"
|
|
||||||
"%(db/read-clockline)\n" ; evaluated before above prompt?
|
|
||||||
":END:\n"
|
|
||||||
"%?"))
|
|
||||||
("j" "journal entry"
|
|
||||||
plain
|
|
||||||
(file+datetree db/org-default-pensieve-file)
|
|
||||||
"\n%i%U\n\n%?\n")
|
|
||||||
("r" "respond"
|
|
||||||
entry
|
|
||||||
(file db/org-default-refile-file)
|
|
||||||
,(concat "* TODO E-Mail: %:subject (%:from) :EMAIL:\n"
|
|
||||||
"SCHEDULED: %^{Reply when?}t\n"
|
|
||||||
":PROPERTIES:\n:CREATED: %U\n:END:\n"
|
|
||||||
"\n%a")
|
|
||||||
:immediate-finish t)
|
|
||||||
("R" "read"
|
|
||||||
entry
|
|
||||||
(file db/org-default-refile-file)
|
|
||||||
,(concat "* READ %:subject :READ:\n"
|
|
||||||
;; "DEADLINE: <%(org-read-date nil nil \"+1m\")>\n"
|
|
||||||
":PROPERTIES:\n:CREATED: %U\n:END:\n"
|
|
||||||
"\n%a"))
|
|
||||||
("U" "Read current content of clipboard"
|
|
||||||
entry
|
|
||||||
(file db/org-default-refile-file)
|
|
||||||
,(concat "* READ %^{Description} :READ:\n"
|
|
||||||
":PROPERTIES:\n:CREATED: %U\n:END:\n"
|
|
||||||
"\n%(current-kill 0)"))
|
|
||||||
("m" "Meeting"
|
|
||||||
entry
|
|
||||||
(file db/org-default-refile-file)
|
|
||||||
,(concat "* MEETING %^{What} :MEETING:\n"
|
|
||||||
":PROPERTIES:\n:CREATED: %U\n:END:\n"
|
|
||||||
"\n%?")
|
|
||||||
:clock-in t :clock-resume t)
|
|
||||||
("p" "Phone call"
|
|
||||||
entry
|
|
||||||
(file db/org-default-refile-file)
|
|
||||||
,(concat "* PHONE %^{Calling} :PHONE:\n"
|
|
||||||
":PROPERTIES:\n:CREATED: %U\n:END:\n"
|
|
||||||
"\n%?")
|
|
||||||
:clock-in t :clock-resume t)
|
|
||||||
("w" "Weekly Summary"
|
|
||||||
entry
|
|
||||||
(file+datetree db/org-default-pensieve-file)
|
|
||||||
"* Weekly Review\n\n%?")
|
|
||||||
("b" "Bookmark"
|
|
||||||
entry
|
|
||||||
(file+headline db/org-default-notes-file "Bookmarks")
|
|
||||||
,(concat "* [[%^{Link}][%^{Caption}]]\n"
|
|
||||||
":PROPERTIES:\n:CREATED: %U\n:END:\n\n")
|
|
||||||
:immediate-finish t)))
|
|
||||||
|
|
||||||
(defun db/org-timestamp-difference (stamp-1 stamp-2)
|
(defun db/org-timestamp-difference (stamp-1 stamp-2)
|
||||||
"Returns time difference between two given org-mode timestamps."
|
"Returns time difference between two given org-mode timestamps."
|
||||||
;; Things copied from `org-clock-update-time-maybe’
|
;; Things copied from `org-clock-update-time-maybe’
|
||||||
|
@ -324,11 +235,6 @@ In ~%s~:
|
||||||
org-src-mode
|
org-src-mode
|
||||||
code-snippet))))
|
code-snippet))))
|
||||||
|
|
||||||
(add-to-list 'org-capture-templates
|
|
||||||
'("s" "Code Snippet" entry (file db/org-default-refile-file)
|
|
||||||
"* %?\n%(db/org-capture-code-snippet \"%F\")")
|
|
||||||
t)
|
|
||||||
|
|
||||||
|
|
||||||
;;; Refiling
|
;;; Refiling
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue