add org-toggle-checkbox to agenda (because it isn't there by default?)
This commit is contained in:
parent
2ea1fb3ea2
commit
81ab4bb71d
24
conf.org
24
conf.org
|
@ -704,6 +704,27 @@ and reverts all todo keywords to TODO."
|
||||||
(org-mark-element)
|
(org-mark-element)
|
||||||
(delete-region (region-beginning) (region-end))
|
(delete-region (region-beginning) (region-end))
|
||||||
(org-remove-empty-drawer-at (point)))))
|
(org-remove-empty-drawer-at (point)))))
|
||||||
|
|
||||||
|
(defun nd/org-agenda-toggle-checkbox ()
|
||||||
|
"Toggle checkboxes in org agenda view using `org-toggle-checkbox'."
|
||||||
|
(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)
|
||||||
|
(call-interactively #'org-toggle-checkbox)
|
||||||
|
(end-of-line 1)
|
||||||
|
(setq newhead (org-get-heading)))
|
||||||
|
(org-agenda-change-all-lines newhead hdmarker)
|
||||||
|
(beginning-of-line 1))))
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
** column view
|
** column view
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
|
@ -2951,7 +2972,8 @@ These are for mode-specific bindings that can/should be outside of the evil maps
|
||||||
|
|
||||||
(add-hook 'org-agenda-mode-hook
|
(add-hook 'org-agenda-mode-hook
|
||||||
(lambda ()
|
(lambda ()
|
||||||
(local-set-key (kbd "C-c C-c") 'org-agenda-set-tags)))
|
(local-set-key (kbd "C-c C-c") 'org-agenda-set-tags)
|
||||||
|
(local-set-key (kbd "C-c C-x C-b") 'nd/org-agenda-toggle-checkbox)))
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
*** dired
|
*** dired
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
|
|
Loading…
Reference in New Issue