Only automatically fetch from org-gcal on startup

This commit is contained in:
Jeremy Dormitzer 2020-03-10 10:43:18 -04:00
parent e82059cd67
commit b4f131e6ad

View File

@ -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