Skip to content

Instantly share code, notes, and snippets.

@shapr
Created May 16, 2022 20:12
Show Gist options
  • Save shapr/089bd7aacf73f132cc0a7dbb4f03c7bd to your computer and use it in GitHub Desktop.
Save shapr/089bd7aacf73f132cc0a7dbb4f03c7bd to your computer and use it in GitHub Desktop.
org idle timer popup agenda
;; timer variable
(defvar idle-timer-show-org-agenda-timer nil)
;; start function
(defun se/idle-timer-show-org-agenda-start ()
(interactive)
(when (timerp idle-timer-show-org-agenda-timer)
(cancel-timer idle-timer-show-org-agenda-timer))
(setq idle-timer-show-org-agenda-timer
(run-with-idle-timer (* 30 60) 1 #'org-agenda-list)))
;; stop function
(defun se/idle-timer-show-org-agenda-stop ()
(interactive)
(when (timerp idle-timer-show-org-agenda-timer)
(cancel-timer idle-timer-show-org-agenda-timer))
(setq idle-timer-show-org-agenda-timer nil))
(se/idle-timer-show-org-agenda-start) ;; this works?
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment