ndwarshuis
/
emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

REF put logbook deleter in terms of org-ml

This commit is contained in:
Nathan Dwarshuis 2021-04-18 21:44:44 -04:00
parent 261cfa4fb9
commit 2226c6371b
1 changed files with 4 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
local/lib/org-x/org-x.el
View File

@ -966,18 +966,10 @@ don't log changes in the logbook."
(defun org-x-log-delete ()
"Delete logbook drawer of subtree."
(interactive)
(save-excursion
;; TODO redefine in terms of org-ml
(goto-char (org-log-beginning))
(when (save-excursion
(save-match-data
(beginning-of-line 0)
(search-forward-regexp org-drawer-regexp)
(goto-char (match-beginning 1))
(looking-at "LOGBOOK")))
(org-mark-element)
(delete-region (region-beginning) (region-end))
(org-remove-empty-drawer-at (point)))))
(let ((config (org-x-logbook-config)))
(org-ml-update-this-headline*
(->> (org-ml-headline-set-logbook-clocks config nil it)
(org-ml-headline-set-logbook-items config nil)))))
(defun org-x-clock-range (&optional arg)
"Add a completed clock entry to the current heading.