Howdy!
The inconsistent capitalization and wording of Org menus has bothered me
for a while, so I decided to fix it as a form of procrastination. :)
Please see the attached patch.
I think we could also improve the wording of the following:
* Refresh Setup Current Buffer -- not grammatical, somewhat unclear
* Do Children Sequentially -- inappropriate
* Do Children Parallel -- inappropriate, not grammatical ("in Parallel")
Any ideas?
Rudy
>From 7b8caac83748a7da9c310908f7bc93dc27de6c7a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Rudolf=20Adamkovi=C4=8D?= <[email protected]>
Date: Tue, 4 Nov 2025 09:42:11 +0100
Subject: [PATCH] Harmonize wording and capitalization of menus
* lisp/org.el (org-org-menu):
(org-tbl-menu): Re-capitalize menu items to match other Emacs menus,
and improve wording a bit.
---
lisp/org.el | 135 ++++++++++++++++++++++++++--------------------------
1 file changed, 68 insertions(+), 67 deletions(-)
diff --git a/lisp/org.el b/lisp/org.el
index 6b8d02b87..3c73fd742 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -18556,7 +18556,7 @@ (easy-menu-define org-org-menu org-mode-map "Org menu."
["Reveal Context" org-fold-reveal t]
["Show All" org-fold-show-all t]
"--"
- ["Subtree to indirect buffer" org-tree-to-indirect-buffer t])
+ ["Subtree to Indirect Buffer" org-tree-to-indirect-buffer t])
"--"
["New Heading" org-insert-heading t]
("Navigate Headings"
@@ -18571,45 +18571,45 @@ (easy-menu-define org-org-menu org-mode-map "Org menu."
["Move Subtree Up" org-metaup (org-at-heading-p)]
["Move Subtree Down" org-metadown (org-at-heading-p)]
"--"
- ["Copy Subtree" org-copy-special (org-in-subtree-not-table-p)]
- ["Cut Subtree" org-cut-special (org-in-subtree-not-table-p)]
+ ["Copy Subtree" org-copy-special (org-in-subtree-not-table-p)]
+ ["Cut Subtree" org-cut-special (org-in-subtree-not-table-p)]
["Paste Subtree" org-paste-special (not (org-at-table-p))]
"--"
- ["Clone subtree, shift time" org-clone-subtree-with-time-shift t]
+ ["Clone Subtree, Shift Time" org-clone-subtree-with-time-shift t]
"--"
- ["Copy visible text" org-copy-visible t]
+ ["Copy Visible Text" org-copy-visible t]
"--"
["Promote Heading" org-metaleft (org-in-subtree-not-table-p)]
["Promote Subtree" org-shiftmetaleft (org-in-subtree-not-table-p)]
- ["Demote Heading" org-metaright (org-in-subtree-not-table-p)]
- ["Demote Subtree" org-shiftmetaright (org-in-subtree-not-table-p)]
+ ["Demote Heading" org-metaright (org-in-subtree-not-table-p)]
+ ["Demote Subtree" org-shiftmetaright (org-in-subtree-not-table-p)]
"--"
["Sort Region/Children" org-sort t]
"--"
- ["Convert to odd levels" org-convert-to-odd-levels t]
- ["Convert to odd/even levels" org-convert-to-oddeven-levels t])
+ ["Convert to Odd Levels" org-convert-to-odd-levels t]
+ ["Convert to Odd/Even Levels" org-convert-to-oddeven-levels t])
("Editing"
["Emphasis..." org-emphasize t]
- ["Add block structure" org-insert-structure-template t]
+ ["Add Block Structure" org-insert-structure-template t]
["Edit Source Example" org-edit-special t]
"--"
- ["Footnote new/jump" org-footnote-action t]
- ["Footnote extra" (org-footnote-action t) :active t :keys "C-u C-c C-x f"])
+ ["Footnote New/Jump" org-footnote-action t]
+ ["Footnote Extra" (org-footnote-action t) :active t :keys "C-u C-c C-x f"])
("Archive"
- ["Archive (default method)" org-archive-subtree-default (org-in-subtree-not-table-p)]
+ ["Archive (Default Method)" org-archive-subtree-default (org-in-subtree-not-table-p)]
"--"
- ["Move Subtree to Archive file" org-archive-subtree (org-in-subtree-not-table-p)]
- ["Toggle ARCHIVE tag" org-toggle-archive-tag (org-in-subtree-not-table-p)]
- ["Move subtree to Archive sibling" org-archive-to-archive-sibling (org-in-subtree-not-table-p)])
+ ["Move Subtree to Archive File" org-archive-subtree (org-in-subtree-not-table-p)]
+ ["Toggle ARCHIVE Tag" org-toggle-archive-tag (org-in-subtree-not-table-p)]
+ ["Move Subtree to Archive Sibling" org-archive-to-archive-sibling (org-in-subtree-not-table-p)])
"--"
("Hyperlinks"
["Store Link (Global)" org-store-link t]
- ["Find existing link to here" org-occur-link-in-agenda-files t]
+ ["Find Existing Link to Here" org-occur-link-in-agenda-files t]
["Insert Link" org-insert-link t]
["Follow Link" org-open-at-point t]
"--"
- ["Next link" org-next-link t]
- ["Previous link" org-previous-link t]
+ ["Next Link" org-next-link t]
+ ["Previous Link" org-previous-link t]
"--"
["Descriptive Links"
org-toggle-link-display
@@ -18623,22 +18623,23 @@ (easy-menu-define org-org-menu org-mode-map "Org menu."
"--"
("TODO Lists"
["TODO/DONE/-" org-todo t]
- ("Select keyword"
- ["Next keyword" org-shiftright (org-at-heading-p)]
- ["Previous keyword" org-shiftleft (org-at-heading-p)]
+ ("Select Keyword"
+ ["Next Keyword" org-shiftright (org-at-heading-p)]
+ ["Previous Keyword" org-shiftleft (org-at-heading-p)]
["Complete Keyword" pcomplete (assq :todo-keyword (org-context))]
- ["Next keyword set" org-shiftcontrolright (and (> (length org-todo-sets) 1) (org-at-heading-p))]
- ["Previous keyword set" org-shiftcontrolright (and (> (length org-todo-sets) 1) (org-at-heading-p))])
+ ["Next Keyword Set" org-shiftcontrolright (and (> (length org-todo-sets) 1) (org-at-heading-p))]
+ ["Previous Keyword Set" org-shiftcontrolright (and (> (length org-todo-sets) 1) (org-at-heading-p))])
["Show TODO Tree" org-show-todo-tree :active t :keys "C-c / t"]
- ["Global TODO list" org-todo-list :active t :keys "\\[org-agenda] t"]
+ ["Global TODO List" org-todo-list :active t :keys "\\[org-agenda] t"]
"--"
- ["Enforce dependencies" (customize-variable 'org-enforce-todo-dependencies)
+ ["Enforce Dependencies" (customize-variable 'org-enforce-todo-dependencies)
:selected org-enforce-todo-dependencies :style toggle :active t]
- "Settings for tree at point"
- ["Do Children sequentially" org-toggle-ordered-property :style radio
+ "Settings for Tree at Point"
+ "--"
+ ["Do Children Sequentially" org-toggle-ordered-property :style radio
:selected (org-entry-get nil "ORDERED")
:active org-enforce-todo-dependencies :keys "C-c C-x o"]
- ["Do Children parallel" org-toggle-ordered-property :style radio
+ ["Do Children Parallel" org-toggle-ordered-property :style radio
:selected (not (org-entry-get nil "ORDERED"))
:active org-enforce-todo-dependencies :keys "C-c C-x o"]
"--"
@@ -18646,19 +18647,19 @@ (easy-menu-define org-org-menu org-mode-map "Org menu."
["Priority Up" org-shiftup t]
["Priority Down" org-shiftdown t]
"--"
- ["Get news from all feeds" org-feed-update-all t]
- ["Go to the inbox of a feed..." org-feed-goto-inbox t]
- ["Customize feeds" (customize-variable 'org-feed-alist) t])
- ("TAGS and Properties"
+ ["Get News From All Feeds" org-feed-update-all t]
+ ["Go to Inbox of Feed..." org-feed-goto-inbox t]
+ ["Customize Feeds" (customize-variable 'org-feed-alist) t])
+ ("Tags and Properties"
["Set Tags" org-set-tags-command (not (org-before-first-heading-p))]
- ["Change tag in region" org-change-tag-in-region (org-region-active-p)]
+ ["Change Tag in Region" org-change-tag-in-region (org-region-active-p)]
"--"
- ["Set property" org-set-property (not (org-before-first-heading-p))]
- ["Column view of properties" org-columns t]
+ ["Set Property" org-set-property (not (org-before-first-heading-p))]
+ ["Column View of Properties" org-columns t]
["Insert Column View DBlock" org-columns-insert-dblock t])
("Dates and Scheduling"
["Timestamp" org-timestamp (not (org-before-first-heading-p))]
- ["Timestamp (inactive)" org-timestamp-inactive (not (org-before-first-heading-p))]
+ ["Timestamp (Inactive)" org-timestamp-inactive (not (org-before-first-heading-p))]
("Change Date"
["1 Day Later" org-shiftright (org-at-timestamp-p 'lax)]
["1 Day Earlier" org-shiftleft (org-at-timestamp-p 'lax)]
@@ -18668,10 +18669,10 @@ (easy-menu-define org-org-menu org-mode-map "Org menu."
["Schedule Item" org-schedule (not (org-before-first-heading-p))]
["Deadline" org-deadline (not (org-before-first-heading-p))]
"--"
- ["Custom time format" org-toggle-timestamp-overlays
+ ["Custom Time Format" org-toggle-timestamp-overlays
:style radio :selected org-display-custom-times]
"--"
- ["Goto Calendar" org-goto-calendar t]
+ ["Go to Calendar" org-goto-calendar t]
["Date from Calendar" org-date-from-calendar t]
"--"
["Start/Restart Timer" org-timer-start t]
@@ -18680,19 +18681,19 @@ (easy-menu-define org-org-menu org-mode-map "Org menu."
["Insert Timer String" org-timer t]
["Insert Timer Item" org-timer-item t])
("Logging work"
- ["Clock in" org-clock-in :active t :keys "C-c C-x C-i"]
- ["Switch task" (lambda () (interactive) (org-clock-in '(4))) :active t :keys "C-u C-c C-x C-i"]
- ["Clock out" org-clock-out t]
- ["Clock cancel" org-clock-cancel t]
+ ["Clock In" org-clock-in :active t :keys "C-c C-x C-i"]
+ ["Switch Task" (lambda () (interactive) (org-clock-in '(4))) :active t :keys "C-u C-c C-x C-i"]
+ ["Clock Out" org-clock-out t]
+ ["Clock Cancel" org-clock-cancel t]
"--"
- ["Mark as default task" org-clock-mark-default-task t]
- ["Clock in, mark as default" (lambda () (interactive) (org-clock-in '(16))) :active t :keys "C-u C-u C-c C-x C-i"]
- ["Goto running clock" org-clock-goto t]
+ ["Mark as Default Task" org-clock-mark-default-task t]
+ ["Clock In, Mark as Default" (lambda () (interactive) (org-clock-in '(16))) :active t :keys "C-u C-u C-c C-x C-i"]
+ ["Go to Running Clock" org-clock-goto t]
"--"
- ["Display times" org-clock-display t]
- ["Create clock table" org-clock-report t]
+ ["Display Times" org-clock-display t]
+ ["Create Clock Table" org-clock-report t]
"--"
- ["Record DONE time"
+ ["Record DONE Time"
(progn (setq org-log-done (not org-log-done))
(message "Switching to %s will %s record a timestamp"
(car org-done-keywords)
@@ -18702,20 +18703,20 @@ (easy-menu-define org-org-menu org-mode-map "Org menu."
["Agenda Command..." org-agenda t]
["Set Restriction Lock" org-agenda-set-restriction-lock t]
("File List for Agenda")
- ("Special views current file"
+ ("Special Views Current File"
["TODO Tree" org-show-todo-tree t]
["Check Deadlines" org-check-deadlines t]
- ["Tags/Property tree" org-match-sparse-tree t])
+ ["Tags/Property Tree" org-match-sparse-tree t])
"--"
["Export/Publish..." org-export-dispatch t]
("LaTeX"
["Org CDLaTeX mode" org-cdlatex-mode :active (require 'cdlatex nil t)
:style toggle :selected org-cdlatex-mode]
["Insert Environment" cdlatex-environment (fboundp 'cdlatex-environment)]
- ["Insert math symbol" cdlatex-math-symbol (fboundp 'cdlatex-math-symbol)]
- ["Modify math symbol" org-cdlatex-math-modify
+ ["Insert Math Symbol" cdlatex-math-symbol (fboundp 'cdlatex-math-symbol)]
+ ["Modify Math Symbol" org-cdlatex-math-modify
(org-inside-LaTeX-fragment-p)]
- ["Insert citation" org-reftex-citation t])
+ ["Insert Citation" org-reftex-citation t])
"--"
("Documentation"
["Show Version" org-version t]
@@ -18725,12 +18726,12 @@ (easy-menu-define org-org-menu org-mode-map "Org menu."
["Browse Org Group" org-customize t]
"--"
["Expand This Menu" org-create-customize-menu t])
- ["Send bug report" org-submit-bug-report t]
+ ["Send Bug Report" org-submit-bug-report t]
"--"
("Refresh/Reload"
- ["Refresh setup current buffer" org-mode-restart t]
- ["Reload Org (after update)" org-reload t]
- ["Reload Org uncompiled" (org-reload t) :active t :keys "C-u C-c C-x !"])))
+ ["Refresh Setup Current Buffer" org-mode-restart t]
+ ["Reload Org" org-reload t]
+ ["Reload Org Uncompiled" (org-reload t) :active t :keys "C-u C-c C-x !"])))
(easy-menu-define org-tbl-menu org-mode-map "Org Table menu."
'("Table"
@@ -18754,9 +18755,9 @@ (easy-menu-define org-tbl-menu org-mode-map "Org Table menu."
["Move Row Down" org-metadown (org-at-table-p)]
["Delete Row" org-shiftmetaup (org-at-table-p)]
["Insert Row" org-shiftmetadown (org-at-table-p)]
- ["Sort lines in region" org-table-sort-lines (org-at-table-p)]
+ ["Sort Lines in Region" org-table-sort-lines (org-at-table-p)]
"--"
- ["Insert Hline" org-ctrl-c-minus (org-at-table-p)])
+ ["Insert Horizontal Line" org-ctrl-c-minus (org-at-table-p)])
("Rectangle"
["Copy Rectangle" org-copy-special (org-at-table-p)]
["Cut Rectangle" org-cut-special (org-at-table-p)]
@@ -18768,9 +18769,9 @@ (easy-menu-define org-tbl-menu org-mode-map "Org Table menu."
["Set Field Formula" (org-table-eval-formula '(4)) :active (org-at-table-p) :keys "C-u C-c ="]
["Edit Formulas" org-edit-special (org-at-table-p)]
"--"
- ["Recalculate line" org-table-recalculate (org-at-table-p)]
- ["Recalculate all" (lambda () (interactive) (org-table-recalculate '(4))) :active (org-at-table-p) :keys "C-u C-c *"]
- ["Iterate all" (lambda () (interactive) (org-table-recalculate '(16))) :active (org-at-table-p) :keys "C-u C-u C-c *"]
+ ["Recalculate Line" org-table-recalculate (org-at-table-p)]
+ ["Recalculate All" (lambda () (interactive) (org-table-recalculate '(4))) :active (org-at-table-p) :keys "C-u C-c *"]
+ ["Iterate All" (lambda () (interactive) (org-table-recalculate '(16))) :active (org-at-table-p) :keys "C-u C-u C-c *"]
"--"
["Toggle Recalculate Mark" org-table-rotate-recalc-marks (org-at-table-p)]
"--"
@@ -18780,7 +18781,7 @@ (easy-menu-define org-tbl-menu org-mode-map "Org Table menu."
["Debug Formulas"
org-table-toggle-formula-debugger
:style toggle :selected (bound-and-true-p org-table-formula-debug)]
- ["Show Col/Row Numbers"
+ ["Show Column/Row Numbers"
org-table-toggle-coordinate-overlays
:style toggle
:selected (bound-and-true-p org-table-overlay-coordinates)]
@@ -18790,11 +18791,11 @@ (easy-menu-define org-tbl-menu org-mode-map "Org Table menu."
["Import from File" org-table-import (not (org-at-table-p))]
["Export to File" org-table-export (org-at-table-p)]
"--"
- ["Create/Convert from/to table.el" org-table-create-with-table.el t]
+ ["Create/Convert 'table.el' Table" org-table-create-with-table.el t]
"--"
("Plot"
- ["Ascii plot" orgtbl-ascii-plot :active (org-at-table-p) :keys "C-c \" a"]
- ["Gnuplot" org-plot/gnuplot :active (org-at-table-p) :keys "C-c \" g"])))
+ ["ASCII Plot" orgtbl-ascii-plot :active (org-at-table-p) :keys "C-c \" a"]
+ ["Gnuplot Plot" org-plot/gnuplot :active (org-at-table-p) :keys "C-c \" g"])))
(defun org-info (&optional node)
"Read documentation for Org in the info system.
--
2.39.5 (Apple Git-154)
--
"If you're thinking without writing, you only think you're thinking."
--- Leslie Lamport
Rudolf Adamkovič <[email protected]> [he/him]
http://adamkovic.org
