fix org async export

This commit is contained in:
2022-12-12 21:39:34 +01:00
parent 1eadf8f6ff
commit 7168c8204a
5 changed files with 94 additions and 94 deletions

View File

@@ -574,6 +574,7 @@ Version 2016-07-13"
;; https://stackoverflow.com/questions/26638015/elisp-easy-menu-positioning#29396939
;; add menus to the global menu bar: map nil
(use-package easymenu
:after (org) ;; org export async needs org loaded before
:config
(easy-menu-add-item nil '("File") ["Kill Emacs" kill-emacs :help "Run function `kill-emacs'"] "Quit")
@@ -723,10 +724,6 @@ Version 2016-07-13"
;; ["--" 'ignore :visible (featurep 'bookmark+-lit)] ;; conditional separator
;; ["How Many..." how-many]
))
;; add menus explicitly (required by XEmacs), after easy-menu-define
(easy-menu-add my-major-menu nil)
(easy-menu-add my-lang-menu nil)
(easy-menu-add my-minor-menu nil)
(easy-menu-add-item nil () my-menu ;; add empty my menu to menu-bar
;; "Edit" ;; before Edit
@@ -744,25 +741,22 @@ Version 2016-07-13"
["Python" my-view-python :help "my-view-python"]
["Shell" my-view-shell :help "my-view-shell"]
))
(easy-menu-add my-view-menu nil)
(easy-menu-add-item nil '("My") my-view-menu)
(easy-menu-add-item nil '("My") '["Transparency" toggle-transparency :style toggle :selected (transparency-p) :help "toggle-transparency"])
(with-eval-after-load 'org
(with-eval-after-load 'org ;; org-mode, org-toggle-pretty-entities
(easy-menu-define my-org-export-menu nil "My Org Export Menu"
'("Org Export" :visible (eq major-mode 'org-mode)
["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"]
["Article HTML" my-org-article-html-export-to-html :help "my-org-article-html-export-to-html"]
["Article HTML async" my-org-article-html-export-to-html-notify-async :help "my-org-article-html-export-to-html-notify-async"]
["Article PDF" my-org-article-latex-export-to-pdf :help "my-org-article-latex-export-to-pdf"]
["Article PDF async" my-org-article-latex-export-to-pdf-notify-async :help "my-org-article-latex-export-to-pdf-notify-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"]
:style toggle :selected org-fancy-priorities-mode :help "org-sticky-header-mode"]
["Org Latex Remove Logfiles" (setq org-latex-remove-logfiles (not org-latex-remove-logfiles))
:style toggle :selected org-latex-remove-logfiles :help "org-latex-remove-logfiles"]
["Org Link Descriptive" org-toggle-link-display
@@ -778,7 +772,6 @@ Version 2016-07-13"
["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") ["---" 'ignore :visible (eq major-mode 'org-mode)])
(easy-menu-add-item nil '("My") my-org-export-menu)
(easy-menu-add-item nil '("My") my-org-minor-mode-menu)