From 434ea9c8ea897b0c89dfd904ab34dff9d9d0bc50 Mon Sep 17 00:00:00 2001 From: Benson Chu Date: Sun, 2 Feb 2020 16:50:07 -0600 Subject: [PATCH] Moved this, added aux function to specify time --- lisp/{ringer.el => system-clock.el} | 17 +++++++++++++---- 1 file changed, 13 insertions(+), 4 deletions(-) rename lisp/{ringer.el => system-clock.el} (74%) diff --git a/lisp/ringer.el b/lisp/system-clock.el similarity index 74% rename from lisp/ringer.el rename to lisp/system-clock.el index a3cd51a..7a0ff0a 100644 --- a/lisp/ringer.el +++ b/lisp/system-clock.el @@ -1,4 +1,4 @@ -;;; ringer.el --- This is my system interrupt -*- lexical-binding: t -*- +;;; system-clock.el --- This is my system interrupt -*- lexical-binding: t -*- ;; Copyright (C) 2020 Benson Chu @@ -26,7 +26,7 @@ (defvar current-system-clock nil) -(defvar system-clock-time 60) +(defvar system-clock-time 5) (define-minor-mode system-clock-mode nil nil nil nil @@ -36,5 +36,14 @@ (t (cancel-timer current-system-clock)))) -(provide 'ringer) -;;; ringer.el ends here +(defun activate-system-clock (seconds) + (interactive "p") + (when system-clock-mode + (system-clock-mode nil)) + (setq system-clock-time seconds) + (system-clock-mode)) + +(define-key *root-map* (kbd "S") #'activate-system-clock) + +(provide 'system-clock) +;;; system-clock.el ends here