daniel/emacs
1
2
Fork 0
Code Issues 7 Pull Requests Projects Releases Wiki Activity

update my menu; rearrange, rename and add article help entry

Browse Source
This commit is contained in:
Daniel Weschke
2022-11-27 00:10:52 +01:00
parent 2ee21ada28
commit 64835396e2
1 changed files with 26 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
settings/general-settings.el
View File

@@ -703,18 +703,6 @@ Version 2016-07-13"
["Visual Line (Word Wrap) [↩]" visual-line-mode
:style toggle :selected visual-line-mode :help "visual-line-mode"]
)
("Org"
["Org Fancy Priorities [Ⓟ]" org-fancy-priorities-mode
:style toggle :selected org-sticky-header-mode :help "org-sticky-header-mode"]
["Org Num [＃]" org-num-mode
:style toggle :selected org-num-mode :help "org-num-mode"]
["Org Sticky Header" org-sticky-header-mode
:style toggle :selected org-sticky-header-mode :help "org-sticky-header-mode"]
["Org Superstar" org-superstar-mode
:style toggle :selected org-superstar-mode :help "org-superstar-mode"]
["Org Table Sticky Header [Ⓣ]" org-table-sticky-header-mode
:style toggle :selected org-table-sticky-header-mode :help "org-table-sticky-header-mode"]
)
["Pixel Scroll" pixel-scroll-mode
:style toggle :selected pixel-scroll-mode :help "pixel-scroll-mode"]
["Rainbow" rainbow-mode
@@ -761,20 +749,39 @@ Version 2016-07-13"
(easy-menu-add-item nil '("My") '["Transparency" toggle-transparency :style toggle :selected (transparency-p) :help "toggle-transparency"])
(easy-menu-add-item nil '("My") '("--"))
(with-eval-after-load 'org
(easy-menu-define my-org-export-menu nil "My Org Export Menu"
'("Org Export" :visible (eq major-mode 'org-mode)
["HTML" my-org-export-html :help "my-org-export-html"]
["HTML async" my-org-export-html-async :help "my-org-export-html-async"]
["PDF (LaTeX)" my-org-export-pdf :help "my-org-export-pdf"]
["PDF (LaTeX) async" my-org-export-pdf-async :help "my-org-export-pdf-async"]
["Article HTML" my-org-article-html-export-to-html :help "my-org-article-html-export-to-html"]
["Article PDF" my-org-article-latex-export-to-pdf :help "my-org-article-latex-export-to-pdf"]
["HTML" my-org-export-html :help "my-org-export-html"]
["HTML async" my-org-export-html-async :help "my-org-export-html-async"]
["PDF (LaTeX)" my-org-export-pdf :help "my-org-export-pdf"]
["PDF (LaTeX) async" my-org-export-pdf-async :help "my-org-export-pdf-async"]
))
(easy-menu-define my-org-minor-mode-menu nil "My Org Minor Mode Menu"
'("Org Minor Mode / Toggles" :visible (eq major-mode 'org-mode)
["Org Fancy Priorities [Ⓟ]" org-fancy-priorities-mode
:style toggle :selected org-sticky-header-mode :help "org-sticky-header-mode"]
["Org Link Descriptive" org-toggle-link-display
:style toggle :selected org-link-descriptive :help "org-toggle-link-display"]
["Org Num [＃]" org-num-mode
:style toggle :selected org-num-mode :help "org-num-mode"]
["Org Pretty Entities \\xyz to UTF8 char" org-toggle-pretty-entities
:style toggle :selected org-pretty-entities :help "org-toggle-pretty-entities"]
["Org Sticky Header" org-sticky-header-mode
:style toggle :selected org-sticky-header-mode :help "org-sticky-header-mode"]
["Org Superstar" org-superstar-mode
:style toggle :selected org-superstar-mode :help "org-superstar-mode"]
["Org Table Sticky Header [Ⓣ]" org-table-sticky-header-mode
:style toggle :selected org-table-sticky-header-mode :help "org-table-sticky-header-mode"]
))
(easy-menu-add my-org-export-menu nil)
(easy-menu-add-item nil '("My") '["---" t :visible (eq major-mode 'org-mode)])
(easy-menu-add-item nil '("My") my-org-export-menu)
(easy-menu-add-item nil '("My") '["org-toggle-pretty-entities" org-toggle-pretty-entities :visible (eq major-mode 'org-mode)])
(easy-menu-add-item nil '("My") '["org-toggle-link-display" org-toggle-link-display :visible (eq major-mode 'org-mode)])
(easy-menu-add-item nil '("My") my-org-minor-mode-menu)
(easy-menu-add-item nil '("My") '["Org Link Description Update" my-org-link-description-update :visible (eq major-mode 'org-mode) :help "my-org-link-description-update"])
(easy-menu-add-item nil '("My") '["Org Article Help" my-org-article-help :visible (eq major-mode 'org-mode)])
)
(with-eval-after-load 'notmuch