exot/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Compare commits

base: exot:aa0a7e9791eba53fb71f5a7bc257a00a6f19b005
Branches Tags
exot:master
..
compare: exot:2407f4196f361efe20c4af90114e54da0b95b343
Branches Tags
exot:master

No commits in common. "aa0a7e9791eba53fb71f5a7bc257a00a6f19b005" and "2407f4196f361efe20c4af90114e54da0b95b343" have entirely different histories.
aa0a7e9791 ... 2407f4196f

1 changed files with 7 additions and 11 deletions
Show Stats Expand all files Collapse all files

18
init.el
View File

@ -897,8 +897,7 @@
:bind (:map org-agenda-mode-map :bind (:map org-agenda-mode-map
("i" . org-agenda-clock-in) ("i" . org-agenda-clock-in)
("v" . hydra-org-agenda-view/body) ("v" . hydra-org-agenda-view/body)
([remap org-clock-goto] . db/org-clock-goto-first-open-checkbox) ([remap org-clock-goto] . db/org-clock-goto-first-open-checkbox))
([remap org-agenda-redo-all] . org-agenda-redo))
:init (setq org-agenda-include-diary t :init (setq org-agenda-include-diary t
org-agenda-span 1 org-agenda-span 1
org-agenda-insert-diary-strategy 'top-level org-agenda-insert-diary-strategy 'top-level
@ -1072,15 +1071,12 @@
(add-hook 'org-agenda-finalize-hook #'db/org-agenda-insert-active-filters) (add-hook 'org-agenda-finalize-hook #'db/org-agenda-insert-active-filters)
(add-hook 'org-agenda-filter-hook #'org-agenda-redo-all) (add-hook 'org-agenda-filter-hook #'org-agenda-redo-all)
(define-advice org-agenda-redo (:around (define-advice org-agenda-redo-all (:around (old-func &rest r) goto-top-and-execute)
(actual-agenda-redo &rest r) "Avoid recentering the Org agenda buffer after redo by moving
inhibit-recentering) point to the beginning of buffer first."
"Try to avoid recentering the window when redoing the Org agenda buffer." (save-mark-and-excursion
(let ((old-recenter (symbol-function 'recenter))) (goto-char (point-min))
(fset 'recenter 'identity) (apply old-func r)))))
(unwind-protect
(apply actual-agenda-redo r)
(fset 'recenter old-recenter))))))
;; Capturing ;; Capturing