Skip to content

Instantly share code, notes, and snippets.

@nfedyashev
Created May 18, 2020 07:46
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save nfedyashev/10f2bfdf40b45a54a40d091e8a6b3094 to your computer and use it in GitHub Desktop.
Save nfedyashev/10f2bfdf40b45a54a40d091e8a6b3094 to your computer and use it in GitHub Desktop.
(defun show-msg-after-timer ()
"Show a message after timer expires. Based on run-at-time and can understand time like it can."
(interactive)
(let* ((msg-to-show (read-string "Enter msg to show: "))
(time-duration (read-string "Time? ")))
(message time-duration)
(run-at-time time-duration nil #'message-box msg-to-show)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment