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

update my-org-toggle-elements

Browse Source
This commit is contained in:
Daniel Weschke
2025-12-04 20:19:48 +01:00
parent 293ca3fe5e
commit 794b70fdaa
1 changed files with 24 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
lisp/my/my.el
View File

@@ -313,29 +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)
(setq my-org-latex-preview nil)
(defun my-org-toggle-elements ()
"Toggle hiding/showing of org emphasize markers."
(setq my-org-hide-elements nil)
(defun my-org-hide-elements ()
"Hide org elements."
(interactive)
(if org-hide-emphasis-markers
(set-variable 'org-hide-emphasis-markers nil)
(set-variable 'org-hide-emphasis-markers t))
(setq org-link-descriptive (not org-link-descriptive))
(setq org-hide-emphasis-markers t)
(setq org-link-descriptive t)
(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-latex-preview '(16))
(setq my-org-hide-elements t)
)
(defun my-org-show-elements ()
"Show org elements."
(interactive)
(setq org-hide-emphasis-markers nil)
(setq org-link-descriptive nil)
(org-restart-font-lock)
(org-toggle-inline-images)
(org-latex-preview '(64))
(setq my-org-hide-elements nil)
)
(defun my-org-toggle-elements ()
"Toggle hiding/showing org elements."
(interactive)
(if my-org-hide-elements (my-org-hide-elements) (my-org-show-elements))
(setq my-org-hide-elements (not my-org-hide-elements))
;; (org-mode-restart)
)
(define-key org-mode-map (kbd "C-c C-x C-e") 'my-org-toggle-elements)
@@ -410,7 +413,7 @@ Used in `my-org-table-list-of-range-to-list'"
(setq from-column (string-to-number (match-string 2 desc))) ;; 2nd parentheses match from string-match
(setq to-row (string-to-number (match-string 3 desc))) ;; 3rd parentheses match from string-match
(setq to-column (string-to-number (match-string 4 desc))) ;; 4th parentheses match from string-match
(loop for i upfrom to-row downto from-row ;; push prepends
(cl-loop for i upfrom to-row downto from-row ;; push prepends
do
(cl-loop for j upfrom to-column downto from-column
do