diff options
| -rw-r--r-- | init.el | 5 | ||||
| -rw-r--r-- | lisp/km-org.el | 9 |
2 files changed, 13 insertions, 1 deletions
@@ -316,7 +316,10 @@ (add-hook 'org-agenda-finalize-hook #'km/org-agenda-store-current-span) (add-to-list 'org-agenda-bulk-custom-functions - '(?D km/org-agenda-delete-subtree))) + '(?D km/org-agenda-delete-subtree)) + + (define-key org-mode-map [remap org-agenda-set-restriction-lock] + #'km/org-agenda-set-restriction-lock)) (after 'ox-md (advice-add 'org-md-paragraph :filter-return #'km/org-md-fill-string)) :config diff --git a/lisp/km-org.el b/lisp/km-org.el index 74f7eb7..7f4d5da 100644 --- a/lisp/km-org.el +++ b/lisp/km-org.el @@ -370,6 +370,15 @@ displayed in the agenda." (interactive) (org-agenda-archive-with #'km/org-delete-subtree)) +;;;###autoload +(defun km/org-agenda-set-restriction-lock (&optional type) + "Call `org-agenda-set-restriction-lock' with flipped C-u meaning." + (interactive "P") + (org-agenda-set-restriction-lock + (cond ((equal type '(4)) nil) + (type) + (t '(4))))) + ;;; Refiling |