;;; -*- lexical-binding: t -*- ;; ;; this file: ;; https://dataswamp.org/~incal/emacs-init/counter.el (require 'cl-lib) (let*((base 0) (count base) ) (defun counter-reset () (setq count base) ) (defun counter-echo () (interactive) (message "count: %d" count) ) (defun counter-add () (interactive) (cl-incf count) ) (declare-function counter-echo nil) (declare-function counter-reset nil) (declare-function counter-add nil) ) ;; (counter-reset) ;; (counter-echo) ;; (counter-add) ;; (cancel-timer (nth 2 timer-list)) ;; (run-at-time nil 60 #'counter-add) (provide 'counter)