Skip to content

Instantly share code, notes, and snippets.

@aufrank
Created February 1, 2010 02:23
Show Gist options
  • Save aufrank/291405 to your computer and use it in GitHub Desktop.
Save aufrank/291405 to your computer and use it in GitHub Desktop.
(defun epom-insinuate-todochiku ()
"Use the notification functions from todochiku.el."
(mapc (lambda (args)
(let ((hook (car args))
(message (nth 1 args))
(icon (nth 2 args))
(old-function (nth 3 args)))
(epom-add-todochiku-hook hook message icon)
(epom-remove-hook hook old-function)))
'((epom-start-pom-hook
epom-start-pom-message
'alarm
epom-display-start-pom-message)
(epom-start-work-hook
epom-start-work-message
'alarm
epom-display-start-work-message)
(epom-start-break-hook
epom-start-break-message
'alarm
epom-display-start-break-message)
(epom-stop-pom-hook
epom-stop-pom-message
'check
epom-display-stop-pom-message)
(epom-stop-work-hook
epom-stop-work-message
'check
epom-display-stop-work-message)
(epom-stop-break-hook
epom-stop-break-message
'check
epom-display-stop-break-message))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment