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")))
|
("lut2o2moohg6qkdsto1qfq7th4@group.calendar.google.com" . ,(get-calendar-file "j-n-gcal.org")))
|
||||||
org-gcal-notify-p nil))
|
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)
|
(defun org-agenda-redo-and-fetch-gcal (&optional all)
|
||||||
(interactive "P")
|
(interactive "P")
|
||||||
(let ((cb (if all #'org-agenda-redo-all #'org-agenda-redo)))
|
(let ((cb (if all #'org-agenda-redo-all #'org-agenda-redo)))
|
||||||
(deferred:nextc (org-gcal-fetch) cb)))
|
(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
|
#+END_SRC
|
||||||
|
|
||||||
** Utilities
|
** Utilities
|
||||||
|
Loading…
Reference in New Issue
Block a user