;;; pause-break.el
;; Copyright (C) 2014-2015 Davin Pearson
;; Emacs Lisp Archive Entry
;; Filename: pause-break.el
;; Author/Maintainer: Davin Pearson http://davin.50webs.com
;; Keywords: Pause break functionality
;; Version: 1.0
;;; Commentary:
;; This file is not part of GNU Emacs.
;;; Limitation of Warranty
;; This program is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or (at
;; your option) any later version.
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; General Public License for more detail.
;;
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs, see the file COPYING. If not, see:
;;
;; <http://www.gnu.org/licenses/gpl-3.0.txt>.
;;; Install Instructions:
;; See the following URL for the latest info and a tarball:
;;
;; <http://davin.50webs.com/research/2010/mopa2e2.html#pause-break>
;;
;; Then untar the tarball to a folder pointed to by the Emacs variable
;; load-path and add the following line to your ~/.emacs file.
;;
;; (require 'pause-break)
;;; Known Bugs:
;; None so far!
;;; Code:
(setq pause-timer (run-with-timer (* 60 25) (* 60 25) 'pause-break))
;;(cancel-timer pause-timer)
(defun pause-break ()
(play-sound (list 'sound :file "c:/sound-samples/emacs/appt-pause-break.wav" :volume 1.0))
)
(provide 'pause-break)
| Back |