From 2dfbfccf3fd6417bd21d9537a7f3d7dc4801e1ce Mon Sep 17 00:00:00 2001 From: Benson Chu Date: Mon, 20 Jan 2020 08:52:51 -0600 Subject: [PATCH] Added system clock module, let's see if this works for me --- lisp/ringer.el | 38 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 38 insertions(+) create mode 100644 lisp/ringer.el diff --git a/lisp/ringer.el b/lisp/ringer.el new file mode 100644 index 0000000..4ce00a0 --- /dev/null +++ b/lisp/ringer.el @@ -0,0 +1,38 @@ +;;; ringer.el --- This is my system interrupt -*- lexical-binding: t -*- + +;; Copyright (C) 2020 Benson Chu + +;; Author: Benson Chu +;; Created: [2020-01-17 13:53] + +;; This file is not part of GNU Emacs + +;; 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 details. + +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see . + +;;; Commentary: + +;;; Code: + +(defvar current-system-clock nil) + +(define-minor-mode system-clock-mode + nil nil nil nil + :global t + (cond (system-clock-mode + (setq current-system-clock (run-at-time nil 5 (lambda () (interactive) (let ((visible-bell t)) (ding)))))) + (t + (cancel-timer current-system-clock)))) + +(provide 'ringer) +;;; ringer.el ends here