From 9888d4e8beffa2ef4d7418d0f32bb761f238f81b Mon Sep 17 00:00:00 2001 From: Kjetil Orbekk Date: Thu, 1 Feb 2024 21:58:19 -0500 Subject: update --- emacs/.config/emacs/lisp/kj-timer.el | 8 ++++---- 1 file 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 () -- cgit v1.2.3