add buttons and functions to tool-bar

This commit is contained in:
2025-11-23 14:50:02 +01:00
parent ece5eadffe
commit 14ba373378
3 changed files with 130 additions and 37 deletions

View File

@@ -313,14 +313,32 @@ print it in the message buffer."
;; https://emacs.stackexchange.com/questions/7375/can-i-format-cells-in-an-org-mode-table-differently-depending-on-a-formula
(require 'ov)
(defun my-org-toggle-emphasis ()
(setq my-org-latex-preview nil)
(defun my-org-toggle-elements ()
"Toggle hiding/showing of org emphasize markers."
(interactive)
(if org-hide-emphasis-markers
(set-variable 'org-hide-emphasis-markers nil)
(set-variable 'org-hide-emphasis-markers t))
(org-mode-restart))
(define-key org-mode-map (kbd "C-c C-x C-e") 'my-org-toggle-emphasis)
(setq org-link-descriptive (not org-link-descriptive))
(org-restart-font-lock)
(org-toggle-inline-images)
;; (org-latex-preview)
(if my-org-latex-preview
;; switch off
(let ()
(set-variable 'my-org-latex-preview nil)
(org-latex-preview '(64)))
;; switch on
(set-variable 'my-org-latex-preview t)
(org-latex-preview '(16)))
;; (org-mode-restart)
)
(define-key org-mode-map (kbd "C-c C-x C-e") 'my-org-toggle-elements)
(defun my-org-keywords ()
"Parse the buffer and return a cons list of (key . value)