From dcc5172c87f9f7acfc9ab3a72f7de8b363a05447 Mon Sep 17 00:00:00 2001 From: Slawomir Grochowski Date: Sun, 7 Apr 2024 01:13:27 +0200 Subject: [PATCH] lisp/org-colview.el: add help-quick sections for org-colview --- lisp/org-colview.el | 41 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 41 insertions(+) diff --git a/lisp/org-colview.el b/lisp/org-colview.el index d71c84a76..547f50df8 100644 --- a/lisp/org-colview.el +++ b/lisp/org-colview.el @@ -169,6 +169,7 @@ See `org-columns-summary-types' for details.") (org-cycle-overview) (org-cycle-content)) +(org-defkey org-columns-map "?" #'org-columns-help-quick-toggle) (org-defkey org-columns-map "c" #'org-columns-content) (org-defkey org-columns-map "o" #'org-overview) (org-defkey org-columns-map "e" #'org-columns-edit-value) @@ -231,6 +232,46 @@ See `org-columns-summary-types' for details.") "--" ["Quit" org-columns-quit t])) +(defvar org-columns-help-quick-sections + '(("Move" + (org-columns-move-up . "up") + (org-columns-move-down . "down") + (org-columns-move-cursor-left . "left") + (org-columns-move-cursor-right . "right")) + ("Move column & row" + (org-columns-move-row-up . "move row up") + (org-columns-move-row-down . "move row down") + (org-columns-move-left . "move column left") + (org-columns-move-right . "move column right")) + ("Add & delete column" + (org-columns-new . "add column") + (org-columns-delete . "delete column")) + ("Edit column" + (org-columns-narrow . "narrow") + (org-columns-widen . "widen") + (org-columns-edit-attributes . "attributes")) + ("Edit values" + (org-columns-edit-value . "edit value") + (org-columns-edit-allowed . "edit allowed value") + (org-columns-next-allowed-value . "next allowed value") + (org-columns-previous-allowed-value . "previous allowed value") + (org-columns-toggle-or-columns-quit . "toggle checkbox or quit") + (org-columns-todo . "change TODO state")) + ("View" + (org-columns-content . "show content") + (org-overview . "show overview") + (org-columns-show-value . "show value")) + ("Misc." + (org-columns-open-link . "open link") + (org-columns-redo . "redo") + (org-columns-help-quick-toggle . "toggle this help") + (org-columns-quit . "quit")))) + +(defun org-columns-help-quick-toggle () + (interactive) + (let ((help-quick-sections org-columns-help-quick-sections)) + (help-quick-toggle))) + (defun org-columns--displayed-value (spec value &optional no-star) "Return displayed value for specification SPEC in current entry. -- 2.30.2