;;; -*- 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)