Only automatically fetch from org-gcal on startup
This commit is contained in:
parent
e82059cd67
commit
b4f131e6ad
@ -1854,14 +1854,15 @@ Integrate Google calendar with org-mode:
|
||||
("lut2o2moohg6qkdsto1qfq7th4@group.calendar.google.com" . ,(get-calendar-file "j-n-gcal.org")))
|
||||
org-gcal-notify-p nil))
|
||||
|
||||
(add-hook 'org-agenda-mode-hook #'org-gcal-fetch)
|
||||
(add-hook 'emacs-startup-hook #'org-gcal-fetch)
|
||||
|
||||
(defun org-agenda-redo-and-fetch-gcal (&optional all)
|
||||
(interactive "P")
|
||||
(let ((cb (if all #'org-agenda-redo-all #'org-agenda-redo)))
|
||||
(deferred:nextc (org-gcal-fetch) cb)))
|
||||
|
||||
(general-def '(normal motion) org-agenda-mode-map "gr" #'org-agenda-redo-and-fetch-gcal)
|
||||
(with-eval-after-load 'org-agenda
|
||||
(general-def '(normal motion) org-agenda-mode-map "gR" #'org-agenda-redo-and-fetch-gcal))
|
||||
#+END_SRC
|
||||
|
||||
** Utilities
|
||||
|
Loading…
Reference in New Issue
Block a user