fix(agenda): guard pdf-view advice on interactive calls; restructure super-agenda groups
This commit is contained in:
19
config.el
19
config.el
@@ -1127,7 +1127,8 @@ Otherwise: runs interactive ement-connect, then opens rooms after sync."
|
|||||||
;; with org-agenda which triggers window-selection-change-functions internally.
|
;; with org-agenda which triggers window-selection-change-functions internally.
|
||||||
(defun my/pdf-view-ensure-normal-state (&rest _)
|
(defun my/pdf-view-ensure-normal-state (&rest _)
|
||||||
"Activate evil-normal-state when landing on a pdf-view-mode buffer."
|
"Activate evil-normal-state when landing on a pdf-view-mode buffer."
|
||||||
(when (derived-mode-p 'pdf-view-mode)
|
(when (and (derived-mode-p 'pdf-view-mode)
|
||||||
|
(called-interactively-p 'any))
|
||||||
(evil-normal-state)))
|
(evil-normal-state)))
|
||||||
|
|
||||||
(advice-add 'evil-window-next :after #'my/pdf-view-ensure-normal-state)
|
(advice-add 'evil-window-next :after #'my/pdf-view-ensure-normal-state)
|
||||||
@@ -1223,15 +1224,21 @@ Otherwise: runs interactive ement-connect, then opens rooms after sync."
|
|||||||
:after org-agenda
|
:after org-agenda
|
||||||
:config
|
:config
|
||||||
(setq org-super-agenda-groups
|
(setq org-super-agenda-groups
|
||||||
'((:name "Dnes"
|
'((:name "Kyndryl — dnes"
|
||||||
|
:and (:tag ("kyndryl" "work") :scheduled today))
|
||||||
|
(:name "Kyndryl — deadline"
|
||||||
|
:and (:tag ("kyndryl" "work") :deadline t))
|
||||||
|
(:name "Kyndryl"
|
||||||
|
:tag ("kyndryl" "work"))
|
||||||
|
(:name "ZTJ — dnes"
|
||||||
|
:and (:tag "ztj" :scheduled today))
|
||||||
|
(:name "ZTJ"
|
||||||
|
:tag "ztj")
|
||||||
|
(:name "Dnes"
|
||||||
:scheduled today
|
:scheduled today
|
||||||
:deadline today)
|
:deadline today)
|
||||||
(:name "Cekam"
|
(:name "Cekam"
|
||||||
:todo "WAIT")
|
:todo "WAIT")
|
||||||
(:name "Kyndryl"
|
|
||||||
:tag ("kyndryl" "work"))
|
|
||||||
(:name "ZTJ"
|
|
||||||
:tag "ztj")
|
|
||||||
(:name "Ostatni"
|
(:name "Ostatni"
|
||||||
:anything t))))
|
:anything t))))
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user