diff options
author | Kjetil Orbekk <kj@orbekk.com> | 2024-02-01 21:58:19 -0500 |
---|---|---|
committer | Kjetil Orbekk <kj@orbekk.com> | 2024-02-01 21:58:19 -0500 |
commit | 9888d4e8beffa2ef4d7418d0f32bb761f238f81b (patch) | |
tree | ed12f34f1cb4b3652a8fabfd5896523d44fb82fe /emacs/.config | |
parent | e1e3e5ea4896e9582428ab4194bf9051e536360f (diff) |
update
Diffstat (limited to 'emacs/.config')
-rw-r--r-- | emacs/.config/emacs/lisp/kj-timer.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/emacs/.config/emacs/lisp/kj-timer.el b/emacs/.config/emacs/lisp/kj-timer.el index 6e200a7..204116e 100644 --- a/emacs/.config/emacs/lisp/kj-timer.el +++ b/emacs/.config/emacs/lisp/kj-timer.el @@ -1,5 +1,9 @@ ;;; kj-timer.el -- countdown timer -*- lexical-binding: t -*- +(defvar kj/current-timer nil) +(defvar kj/roster nil) +(defvar kj/timer-seconds) + (defun kj/display-timer (seconds current &optional next) (with-current-buffer (get-buffer-create "*timer*") (let* ((stopped (< seconds 0)) @@ -16,10 +20,6 @@ 'face '(:foreground "gray" :height 500))) (set-left-margin (point-min) (point-max) 10)))) -(defvar kj/current-timer nil) -(defvar kj/roster nil) -(defvar kj/timer-seconds) - (defun kj/run-single-timer (seconds current next) (let* ((stop-time (+ (float-time) seconds)) (display-fn (lambda () |