mate.el

;; Solución ELISP a http://elblogdehumitos.com.ar/posts/wordpress/no-mas-mate-frio/

(global-set-key (kbd "C-c m") 'mate-start-stop)

(defun mate-start-stop ()
  "Start or stop the current timer"
  (interactive)
  (if (eq mate-say-cancel-id nil)
      (progn
	(mate-say-start)
	(message "Mate: Timer started."))
    (progn
      (mate-say-stop)
      (setq mate-say-cancel-id nil)
      (message "Mate: Timer stopped."))))

(defun mate-say (notify)
  "Use espeak to say 'mate' and show a notification using 'notify' if NOTIFY"
  (shell-command "espeak -v es Mate")
  (if (eq notify t)
      (shell-command "notify-send -i terminal -t 3000 Mate \"Cebar un mate\"")))

(defvar mate-say-cancel-id nil
  "ID of the timer to be cancelled")

(defun mate-say-start ()
  "Start the timer to call `mate-say` function"
  (setq mate-say-cancel-id (run-with-timer nil 180 'mate-say t)))

(defun mate-say-stop ()
  "Cancel the timer to stop calling `mate-say` function"
    (cancel-timer mate-say-cancel-id))