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

made subtree cloner no longer log unecessarily

This commit is contained in:
ndwarshuis 2019-03-02 11:31:07 -05:00
parent 12e95dc2b1
commit a554fc965b
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
conf.org
View File

@ -920,10 +920,11 @@ Since I use org mode as my config file, makes sense to have a table of contents
*** org buffer *** org buffer
Some useful additional commands for org buffers. Some useful additional commands for org buffers.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defun nd/mark-subtree-keyword (new-keyword &optional exclude) (defun nd/mark-subtree-keyword (new-keyword &optional exclude no-log)
"Mark all tasks in a subtree with NEW-KEYWORD unless original "Mark all tasks in a subtree with NEW-KEYWORD unless original
keyword is in the optional argument EXCLUDE." keyword is in the optional argument EXCLUDE."
(let ((subtree-end (save-excursion (org-end-of-subtree t)))) (let ((subtree-end (save-excursion (org-end-of-subtree t)))
(org-todo-log-states (unless no-log org-todo-log-states)))
(if (not (listp exclude)) (if (not (listp exclude))
(error "exlude must be a list if provided")) (error "exlude must be a list if provided"))
(save-excursion (save-excursion
@ -947,13 +948,12 @@ and reverts all todo keywords to TODO."
(read-from-minibuffer (read-from-minibuffer
"Date shift per clone (e.g. +1w, empty to copy unchanged): ")))) "Date shift per clone (e.g. +1w, empty to copy unchanged): "))))
(condition-case err (condition-case err
(progn
(save-excursion (save-excursion
;; clone once and reset ;; clone once and reset
(org-clone-subtree-with-time-shift 1 shift) (org-clone-subtree-with-time-shift 1 shift)
(org-forward-heading-same-level 1 t) (org-forward-heading-same-level 1 t)
(org-reset-checkbox-state-subtree) (org-reset-checkbox-state-subtree)
(nd/mark-subtree-keyword "TODO") (nd/mark-subtree-keyword "TODO" nil t)
(call-interactively 'nd/org-log-delete) (call-interactively 'nd/org-log-delete)
(org-cycle) (org-cycle)
;; clone reset tree again if we need more than one clone ;; clone reset tree again if we need more than one clone
@ -962,7 +962,7 @@ and reverts all todo keywords to TODO."
(org-clone-subtree-with-time-shift additional-trees shift) (org-clone-subtree-with-time-shift additional-trees shift)
(dotimes (i additional-trees) (dotimes (i additional-trees)
(org-forward-heading-same-level 1 t) (org-forward-heading-same-level 1 t)
(org-cycle)))))) (org-cycle)))))
(error (message "%s" (error-message-string err)))))) (error (message "%s" (error-message-string err))))))
(defun nd/org-log-delete () (defun nd/org-log-delete ()