pixelifytica/emacs
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Add advice to appt-check to call org-agenda-to-appt before

Browse source
This commit is contained in:
Evie Litherland-Smith 2025-02-03 10:56:48 +00:00
parent 7b7c4ce263
commit 1cbd3d6ccd
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
init.el
View file

@ -174,7 +174,9 @@
(use-package appt (use-package appt
:custom :custom
(appt-display-diary nil) (appt-display-diary nil)
(appt-display-format 'echo)) (appt-display-format 'echo)
(appt-display-interval 10)
(appt-message-warning-time 20))
(use-package calendar (use-package calendar
:bind (("C-c >" . calendar)) :bind (("C-c >" . calendar))
@ -692,8 +694,7 @@
(use-package org-agenda (use-package org-agenda
:after org :after org
:bind (("C-c a" . org-agenda)) :bind (("C-c a" . org-agenda))
:hook ((org-agenda-mode . (lambda () (visual-line-mode -1))) :hook ((org-agenda-mode . (lambda () (visual-line-mode -1))))
(org-agenda-finalize . org-agenda-to-appt))
:custom :custom
(org-agenda-span 'week) (org-agenda-span 'week)
(org-agenda-start-on-weekday 1) (org-agenda-start-on-weekday 1)
@ -721,8 +722,11 @@
(require 'org-journal) (require 'org-journal)
(add-to-list 'org-agenda-files (expand-file-name org-journal-dir)) (add-to-list 'org-agenda-files (expand-file-name org-journal-dir))
(khalel-import-events) (khalel-import-events)
(advice-add 'appt-check
:before
(lambda (&rest args)
(org-agenda-to-appt t)))
(appt-activate +1) (appt-activate +1)
(org-agenda-to-appt)
(setq org-agenda-custom-commands (setq org-agenda-custom-commands
'(("p" "Personal Agenda" tags "+personal") '(("p" "Personal Agenda" tags "+personal")
("w" "Work Agenda" tags "+work")))) ("w" "Work Agenda" tags "+work"))))