org-gcal-hooks.lisp

  ;; org-gcal wrappers to only sync with a timeout
  (defvar org-gcal-fetch-last-run (current-time)
    "Timestamp of the last time org-gcal-fetch-store-time was run")   
  (defun org-gcal-fetch-with-timeout (timeout)
    (interactive) 
    "Runs org-gcal-fetch only if the last time this function was called is > the timeout"
    (let ((time-since-last-run
           (float-time (time-subtract (current-time) org-gcal-fetch-last-run))))
      (when (> time-since-last-run timeout)  ;; was the last run longer than our timeout
          (org-gcal-fetch)
          (set 'org-gcal-fetch-last-run (current-time)))))

  ;; in the agenda mode hook we call the sync with timeout @ 15 seconds
  (with-eval-after-load 'org (add-hook 'org-agenda-mode-hook (lambda () (org-gcal-fetch-with-timeout 15.0))))