From 470b491888fdb67d50f317c3499791277680768b Mon Sep 17 00:00:00 2001
From: ndwarshuis <natedwarshuis@gmail.com>
Date: Thu, 6 Dec 2018 22:54:48 -0500
Subject: [PATCH] added bulk delete and org agenda execution macro

---
 conf.org | 84 +++++++++++++++++++++++++++++++++++---------------------
 1 file changed, 53 insertions(+), 31 deletions(-)

diff --git a/conf.org b/conf.org
index 5bddaaa..5bdadaf 100644
--- a/conf.org
+++ b/conf.org
@@ -733,11 +733,33 @@ and reverts all todo keywords to TODO."
       (delete-region (region-beginning) (region-end))
       (org-remove-empty-drawer-at (point)))))
 
-(defun nd/org-agenda-toggle-checkbox ()
-  "Toggle checkboxes in org agenda view using `org-toggle-checkbox'."
+(defun nd/org-insert-todo-heading-inactive-timestamp ()
+  "Insert a todo heading but also insert inactive timestamp set to now."
   (interactive)
-  (org-agenda-check-no-diary)
-  (let* ((hdmarker (or (org-get-at-bol 'org-hd-marker)
+  ;; a bit redundant and hacky, with the advantage of being effective
+  (when (not (org-insert-item 'checkbox))
+    (call-interactively 'org-insert-todo-heading)
+    (insert "\n")
+    (funcall-interactively 'org-time-stamp-inactive '(16))
+    (previous-line)))
+
+(defun nd/org-delete-subtree ()
+  "Delete the entire subtree under the current heading without sending to kill ring."
+  (interactive)
+  (org-back-to-heading t)
+  (delete-region (point) (+ 1 (save-excursion (org-end-of-subtree)))))
+
+#+END_SRC
+*** interactive agenda commands
+These are executed directly from agenda views and affect their source org buffers. The trick is that all of them must somehow go back to the heading to which they alude, execute, then update the agenda view with whatever changes have been made.
+#+BEGIN_SRC emacs-lisp
+(defmacro nd/org-agenda-cmd-wrapper (get-head &rest body)
+  "Wraps commands in BODY in necessary code to allow commands to be
+called from the agenda buffer. Particularly, this wrapper will
+navigate to the original header, execute BODY, then update the agenda
+buffer."
+  '(org-agenda-check-no-diary)
+  `(let* ((hdmarker (or (org-get-at-bol 'org-hd-marker)
 			           (org-agenda-error)))
 	     (buffer (marker-buffer hdmarker))
 	     (pos (marker-position hdmarker))
@@ -748,41 +770,35 @@ and reverts all todo keywords to TODO."
 	    (widen)
 	    (goto-char pos)
 	    (org-show-context 'agenda)
-        (call-interactively #'org-toggle-checkbox)
-	    (end-of-line 1)
-	    (setq newhead (org-get-heading)))
-	  (org-agenda-change-all-lines newhead hdmarker)
+        ,@body
+	    (when ,get-head (setq newhead (org-get-heading))))
+	  (if ,get-head
+          (org-agenda-change-all-lines newhead hdmarker)
+        (org-agenda-redo))
 	  (beginning-of-line 1))))
+  
+(defun nd/org-agenda-toggle-checkbox ()
+  "Toggle checkboxes in org agenda view using `org-toggle-checkbox'."
+  (interactive)
+  (nd/org-agenda-cmd-wrapper
+   t
+   (call-interactively #'org-toggle-checkbox)))
 
-;; TODO, use a macro here...this is a common idiom
 (defun nd/org-agenda-clone-subtree-with-time-shift ()
   "Apply `nd/org-clone-subtree-with-time-shift' to an agenda entry.
 It will clone the last entry in the selected subtree."
   (interactive)
-  (org-agenda-check-no-diary)
-  (let* ((hdmarker (or (org-get-at-bol 'org-hd-marker)
-			           (org-agenda-error)))
-	     (buffer (marker-buffer hdmarker))
-	     (pos (marker-position hdmarker))
-	     (inhibit-read-only t)
-	     newhead)
-    (org-with-remote-undo buffer
-	  (with-current-buffer buffer
-        (widen)
-	    (goto-char pos)
-        (org-show-context 'agenda)
-        (org-end-of-subtree)
-        (call-interactively #'nd/org-clone-subtree-with-time-shift))
-      (beginning-of-line 1)
-      (org-agenda-redo))))
+  (nd/org-agenda-cmd-wrapper
+   nil
+   (org-end-of-subtree)
+   (call-interactively #'nd/org-clone-subtree-with-time-shift)))
 
-(defun nd/org-insert-todo-heading-inactive-timestamp ()
-  "Insert a todo heading but also insert inactive timestamp set to now."
+(defun nd/org-agenda-delete-subtree ()
+  "Apply `nd/org-delete-subtree' to an agenda entry."
   (interactive)
-  (call-interactively 'org-insert-todo-heading)
-  (insert "\n")
-  (funcall-interactively 'org-time-stamp-inactive '(16))
-  (previous-line))
+  (nd/org-agenda-cmd-wrapper
+   nil
+   (call-interactively #'nd/org-delete-subtree)))
 #+END_SRC
 ** column view
 #+BEGIN_SRC emacs-lisp
@@ -1533,6 +1549,12 @@ H is a string like +prop or -prop"
             (lambda () (when org-agenda-hasprop-filter
                     (nd/org-agenda-filter-show-all-hasprop))))
 #+END_SRC
+**** bulk actions
+These add to the existing bulk actions in the agenda view.
+#+BEGIN_SRC emacs-lisp
+(setq org-agenda-bulk-custom-functions
+      '((?D nd/org-agenda-delete-subtree)))
+#+END_SRC
 **** holidays and birthdays
 If I don't include this, I actually forget about major holidays.
 #+BEGIN_SRC emacs-lisp