Skip to content

Instantly share code, notes, and snippets.

@shapr
Created September 20, 2019 20:04
Show Gist options
  • Save shapr/dd54034f8ae1425cc1a58fa5d1bdd407 to your computer and use it in GitHub Desktop.
Save shapr/dd54034f8ae1425cc1a58fa5d1bdd407 to your computer and use it in GitHub Desktop.
;;; orgtimer.el --- show org-agenda when emacs is idle for five minutes
;;; stolen directly from https://www.emacswiki.org/emacs/IdleTimers
;; variable for the timer object
(defvar idle-timer-org nil)
;; callback function
(defun idle-timer-org-callback ()
(org-agenda-list))
;; start functions
(defun idle-timer-org-start ()
(interactive)
(when (timerp idle-timer-org-list)
(cancel-timer idle-timer-org-list))
(setq idle-timer-org-list ; five minutes seems reasonable?
(run-with-idle-timer (* 5 60) t #'idle-timer-org-callback)))
;; stop function
(defun idle-timer-org-stop ()
(interactive)
(when (timerp idle-timer-org-list)
(cancel-timer idle-timer-org-list))
(setq idle-timer-org nil))
(provide 'idle-org)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment