contrapunctus
/
chronometrist
Archived
1
3
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

feat(chronometrist): create menu

This commit is contained in:
contrapunctus 2021-06-15 22:05:24 +05:30
parent dc3692270d
commit 50b2b03036
2 changed files with 23 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
elisp/chronometrist.el
View File

@ -1182,17 +1182,17 @@ If FIRSTONLY is non-nil, return only the first keybinding found."
(chronometrist-format-keybinds command chronometrist-mode-map firstonly)
(if description description ""))))
(defvar chronometrist-commands-to-print-alist
'((chronometrist-add-new-task . "start a new task")
(chronometrist-toggle-task . "toggle task at point")
(chronometrist-toggle-task "toggle <N>th task" :prepend "<numeric argument N>")
(chronometrist-toggle-task-no-hooks . "toggle without running hooks")
(chronometrist-restart-task . "discard and restart active task")
(chronometrist-extend-task . "extend time for last completed task")
(chronometrist-report . "see weekly report")
(chronometrist-open-log . "view/edit log file")
(chronometrist-reset . "reset state"))
"List of commands to be printed in the `chronometrist' buffer.")
(easy-menu-define chronometrist-menu chronometrist-mode-map
"Chronometrist mode menu."
'("Chronometrist"
["Start a new task" chronometrist-add-new-task]
["Toggle task at point" chronometrist-toggle-task]
["Toggle task without running hooks" chronometrist-toggle-task-no-hooks]
["Discard and restart active task" chronometrist-restart-task]
["Extend time for last completed task" chronometrist-extend-task]
["See weekly report" chronometrist-report]
["View/edit log file" chronometrist-open-log]
["Reset state" chronometrist-reset]))
(defun chronometrist-print-non-tabular ()
"Print the non-tabular part of the buffer in `chronometrist'."

24
elisp/chronometrist.org
View File

@ -2220,17 +2220,17 @@ The plan is to loop over this list, emitting text to be inserted into the buffer
Extensions may add to this list.
#+BEGIN_SRC emacs-lisp
(defvar chronometrist-commands-to-print-alist
'((chronometrist-add-new-task . "start a new task")
(chronometrist-toggle-task . "toggle task at point")
(chronometrist-toggle-task "toggle <N>th task" :prepend "<numeric argument N>")
(chronometrist-toggle-task-no-hooks . "toggle without running hooks")
(chronometrist-restart-task . "discard and restart active task")
(chronometrist-extend-task . "extend time for last completed task")
(chronometrist-report . "see weekly report")
(chronometrist-open-log . "view/edit log file")
(chronometrist-reset . "reset state"))
"List of commands to be printed in the `chronometrist' buffer.")
(easy-menu-define chronometrist-menu chronometrist-mode-map
"Chronometrist mode menu."
'("Chronometrist"
["Start a new task" chronometrist-add-new-task]
["Toggle task at point" chronometrist-toggle-task]
["Toggle task without running hooks" chronometrist-toggle-task-no-hooks]
["Discard and restart active task" chronometrist-restart-task]
["Extend time for last completed task" chronometrist-extend-task]
["See weekly report" chronometrist-report]
["View/edit log file" chronometrist-open-log]
["Reset state" chronometrist-reset]))
#+END_SRC
**** CLEANUP print-non-tabular :procedure:
@ -2405,7 +2405,7 @@ PREFIX is ignored."
map)
"Keymap used by `chronometrist-mode'.")
#+END_SRC
**** chronometrist-mode :major:mode:
**** chronometrist-mode :major:mode:
#+BEGIN_SRC emacs-lisp
(define-derived-mode chronometrist-mode tabulated-list-mode "Chronometrist"
"Major mode for `chronometrist'."