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

REF use sane indenting

This commit is contained in:
Nathan Dwarshuis 2021-04-20 00:42:42 -04:00
parent e1e27a470f
commit ffdbbb5ee0
1 changed files with 9 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1070,6 +1070,7 @@ Specifically, navigate to the original header, execute BODY, then
update the agenda buffer. If GET-HEAD is true, get the headline update the agenda buffer. If GET-HEAD is true, get the headline
string and use it to update the agenda (this is only needed when string and use it to update the agenda (this is only needed when
the headline changes obviously)." the headline changes obviously)."
(declare (indent 1))
`(progn `(progn
(org-agenda-check-no-diary) (org-agenda-check-no-diary)
(let* ((hdmarker (or (org-get-at-bol 'org-hd-marker) (let* ((hdmarker (or (org-get-at-bol 'org-hd-marker)
@ -1093,31 +1094,27 @@ the headline changes obviously)."
(defun org-x-agenda-toggle-checkbox () (defun org-x-agenda-toggle-checkbox ()
"Toggle checkboxes in org agenda view using `org-toggle-checkbox'." "Toggle checkboxes in org agenda view using `org-toggle-checkbox'."
(interactive) (interactive)
(org-x-agenda-cmd-wrapper (org-x-agenda-cmd-wrapper t
t (call-interactively #'org-toggle-checkbox)))
(call-interactively #'org-toggle-checkbox)))
(defun org-x-agenda-clone-subtree-with-time-shift () (defun org-x-agenda-clone-subtree-with-time-shift ()
"Apply `org-x-clone-subtree-with-time-shift' to an agenda entry. "Apply `org-x-clone-subtree-with-time-shift' to an agenda entry.
It will clone the last entry in the selected subtree." It will clone the last entry in the selected subtree."
(interactive) (interactive)
(org-x-agenda-cmd-wrapper (org-x-agenda-cmd-wrapper nil
nil (call-interactively #'org-x-clone-subtree-with-time-shift-toplevel)))
(call-interactively #'org-x-clone-subtree-with-time-shift-toplevel)))
(defun org-x-agenda-delete-subtree () (defun org-x-agenda-delete-subtree ()
"Apply `org-x-delete-subtree' to an agenda entry." "Apply `org-x-delete-subtree' to an agenda entry."
(interactive) (interactive)
(org-x-agenda-cmd-wrapper (org-x-agenda-cmd-wrapper nil
nil (call-interactively #'org-x-delete-subtree)))
(call-interactively #'org-x-delete-subtree)))
(defun org-x-agenda-clock-range () (defun org-x-agenda-clock-range ()
"Apply `org-x-clock-range' to an agenda entry." "Apply `org-x-clock-range' to an agenda entry."
(interactive) (interactive)
(org-x-agenda-cmd-wrapper (org-x-agenda-cmd-wrapper nil
nil (call-interactively #'org-x-clock-range)))
(call-interactively #'org-x-clock-range)))
;; agenda heading navigation functions ;; agenda heading navigation functions