Revert appt-check advice due to slowdowns
This commit is contained in:
parent
d7f92879b3
commit
abeccc7102
6
init.el
6
init.el
|
@ -703,6 +703,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-finalize . org-agenda-to-appt))
|
||||||
:custom
|
:custom
|
||||||
(org-agenda-span 'day)
|
(org-agenda-span 'day)
|
||||||
(org-agenda-start-on-weekday 1)
|
(org-agenda-start-on-weekday 1)
|
||||||
|
@ -738,10 +739,7 @@
|
||||||
(require 'appt)
|
(require 'appt)
|
||||||
(require 'khalel)
|
(require 'khalel)
|
||||||
(khalel-import-events)
|
(khalel-import-events)
|
||||||
(advice-add 'appt-check
|
(org-agenda-to-appt t)
|
||||||
:before
|
|
||||||
(lambda (&rest _)
|
|
||||||
(org-agenda-to-appt t)))
|
|
||||||
(appt-activate +1)
|
(appt-activate +1)
|
||||||
(setq org-agenda-custom-commands
|
(setq org-agenda-custom-commands
|
||||||
'(("p" "Personal Agenda" tags "+personal")
|
'(("p" "Personal Agenda" tags "+personal")
|
||||||
|
|
Loading…
Reference in a new issue