dbo/.emacs.d
dbo
/
.emacs.d
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

[Org] Capture template for past interruptions

This commit is contained in:
Daniel - 2017-07-18 18:14:53 +02:00
parent 14e8af5b2c
commit 75f15b29fb
Signed by: dbo
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 40 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
site-lisp/db-org.el
View File

@ -595,11 +595,20 @@ _y_: ?y? year _q_: quit _L__l__c_: ?l?
(file db/org-default-refile-file) (file db/org-default-refile-file)
"* GOTO %^{What} :DATE:\n%^{When}t\n%a" "* GOTO %^{What} :DATE:\n%^{When}t\n%a"
:immediate-finish t) :immediate-finish t)
("i" "interruption" ("i" "Interruptions")
entry ("in" "Interruption now"
(file db/org-default-refile-file) entry
"* DONE %^{What}\n\n%a\n%?" (file db/org-default-refile-file)
:clock-in t :clock-resume t) "* DONE %^{What}\n\n%a\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\n"
"%?"))
("j" "journal entry" ("j" "journal entry"
plain plain
(file+datetree db/org-default-pensieve-file) (file+datetree db/org-default-pensieve-file)
@ -648,6 +657,32 @@ _y_: ?y? year _q_: quit _L__l__c_: ?l?
"* Weekly Review\n\n%?"))) "* Weekly Review\n\n%?")))
(setq org-capture-use-agenda-date nil) (setq org-capture-use-agenda-date nil)
(defun db/org-timestamp-difference (stamp-1 stamp-2)
"Returns time difference between two given org-mode timestamps."
;; Things copied from `org-clock-update-time-maybe’
(let* ((s (-
(float-time
(apply #'encode-time (org-parse-time-string stamp-2 nil t)))
(float-time
(apply #'encode-time (org-parse-time-string stamp-1 nil t)))))
(neg (< s 0))
(s (abs s))
(h (floor (/ s 3600)))
(m (floor (/ (- s (* 3600 h)) 60))))
(format (if neg "-%d:%02d" "%2d:%02d") h m)))
(defun db/read-clockline ()
"Read starting and ending time from user and return org mode
clock line."
(let* ((now (format-time-string "%H:%M"))
(starting (format "[%s]" (org-read-date t nil nil "Started: "
(current-time)
now)))
(ending (format "[%s]" (org-read-date t nil nil "Ended: "
(current-time)
now)))
(difference (db/org-timestamp-difference starting ending)))
(format "CLOCK: %s--%s => %s" starting ending difference)))
;; (add-to-list 'display-buffer-alist ;; (add-to-list 'display-buffer-alist
;; `(,(rx bos "*Capture*" eos) ;; `(,(rx bos "*Capture*" eos)