From 787be5e7794ef5bc7197c4e385f05708d2dca340 Mon Sep 17 00:00:00 2001 From: Guangxiong Lin Date: Sun, 13 Mar 2022 14:53:16 +0800 Subject: Override org-agenda-quit (emacs) --- .emacs.d/lisp/init-org.el | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/.emacs.d/lisp/init-org.el b/.emacs.d/lisp/init-org.el index 2cb2407..d5f7720 100644 --- a/.emacs.d/lisp/init-org.el +++ b/.emacs.d/lisp/init-org.el @@ -21,6 +21,11 @@ ((org-ql-block-header "Stuck Projects"))) "A block showing stuck projects.") +(defun gx/org-agenda-quit (fn) + (org-save-all-org-buffers) + (funcall fn)) +(advice-add 'org-agenda-quit :around 'gx/org-agenda-quit) + (add-to-list 'auto-mode-alist '("\\.org\\'" . org-mode)) (add-hook 'org-after-refile-insert-hook 'org-save-all-org-buffers) @@ -168,12 +173,6 @@ ;; (add-hook 'evil-org-mode-hook ;; (lambda () ;; (setq evil-want-C-i-jump nil))) -(with-eval-after-load 'evil - (evil-define-key 'motion org-agenda-mode-map - (kbd "q") (lambda () - (interactive) - (org-save-all-org-buffers) - (org-agenda-quit)))) (with-eval-after-load 'evil-org (evil-org-set-key-theme '(navigation insert textobjects additional calendar todo)) (evil-org-agenda-set-keys) -- cgit v1.2.3