RazmjenaVjestina
EmacsWorkTimeCounter: Revision 4
{{{
(setq work-time-start 8) ;(setq work-day-dow-table nil (9 . (17 30)) (9 . (17 30)) (9 . (17 30)) (9 . (17 30)) (9 . (14 30)) nil)
(defun wt-dow-update-start-end nil (setq work-time-statuslen 16)
(defmacro def-extract-if-list (name fun &optional ret)
(def-extract-if-list wt-hour first)
(defun work-time-update nil (push #'work-time-update display-time-hook) ;
(defun wt-status-displayed nil
(defun wt-add-status nil
(defun wt-remove-status nil
(defun work-time-status-toggle nil ; (setq wt-status-string (work-time-update)) }}} |