Clean up "lst:setup-org-src" and hide the "Deprecated ..." section

This commit is contained in:
Gerard Vermeulen 2024-06-14 22:29:19 +02:00
parent 30f444a4a1
commit 5dafaa31e2

View File

@ -2285,19 +2285,19 @@ region becomes the block BODY. Otherwise, insert an empty block."
#+caption: Setup =org-src=.
#+name: lst:setup-org-src
#+begin_src emacs-lisp -n :results silent
(with-eval-after-load 'emacs
(with-eval-after-load 'org-src
;; https://list.orgmode.org/c3cc4ff1fcfb3bc741df89a3f45be30e@posteo.net/
(setopt org-src-preserve-indentation nil
org-edit-src-content-indentation 0)
(with-eval-after-load 'org-src
;; https://list.orgmode.org/c3cc4ff1fcfb3bc741df89a3f45be30e@posteo.net/
(setopt org-edit-src-content-indentation 0
org-src-preserve-indentation nil
org-src-window-setup 'current-window)
(defun org-left-shift-block ()
"Left-shift the block at point using `org-indent-block'."
(interactive)
(let ((org-adapt-indentation nil)
(org-edit-src-content-indentation 0)
(org-src-preserve-indentation nil))
(org-indent-block))))
(defun org-left-shift-block ()
"Left-shift the block at point using `org-indent-block'."
(interactive)
(let ((org-adapt-indentation nil)
(org-edit-src-content-indentation 0)
(org-src-preserve-indentation nil))
(org-indent-block)))
(defun org-right-shift-block (&optional arg)
"Right-shift the block at point 4 spaces.
@ -2314,9 +2314,6 @@ With prefix argument ARG, prompt for the number of spaces."
(string-insert-rectangle
(match-beginning 5) (point) (make-string spaces ?\s)))))
(declare-function org-babel-map-src-blocks "ext:ob-core" (file &rest body))
(declare-function org-do-remove-indentation "ext:org-macs" (n skip-fl))
(defun zero-all-org-src-blocks-indentation ()
"Remove the indentation of all `org-src-mode' blocks without `-i' switch."
(interactive)
@ -3525,7 +3522,7 @@ handled by [[info:org#Noweb Reference Syntax][noweb (info)]].
<<latex-header-5>>
#+end_src
*** [[info:org#LaTeX header and sectioning][Deprecated LaTeX preamble editing methods]]
*** [[info:org#LaTeX header and sectioning][Deprecated LaTeX preamble editing methods]] :noexport:
:PROPERTIES:
:CUSTOM_ID: sec:easy-latex-preamble-editing
:END:
@ -3563,7 +3560,7 @@ in [[info:org#Export Settings][#+INCLUDE: <FILE>]] files.
#+caption: LaTeX preamble =latex_header= and =latex_extra_header= export options
#+caption: easily.
#+name: lst:org-babel-latex-header-blocks
#+begin_src emacs-lisp -n :exports code :results silent
#+begin_src emacs-lisp -n :exports code :results silent :tangle no
(with-eval-after-load 'emacs
(defun prefix-all-lines (prefix body)
(with-temp-buffer
@ -3590,8 +3587,6 @@ prefixes all lines with \"#+latex_header: \"."
'((:exports . "results") (:results . "raw")))
(with-eval-after-load 'org-src
(setopt org-src-window-setup 'current-window)
(add-to-list 'org-src-lang-modes '("latex-header" . latex))
(add-to-list 'org-src-lang-modes '("latex-extra-header" . latex))))
#+end_src
@ -3599,7 +3594,7 @@ prefixes all lines with \"#+latex_header: \"."
#+caption[Convert marked LaTeX export blocks to LaTeX header lines]:
#+caption: Convert marked LaTeX export blocks to LaTeX header lines.
#+name: lst:org-latex-header-blocks-filter
#+begin_src emacs-lisp -n :results silent
#+begin_src emacs-lisp -n :results silent :tangle no
(with-eval-after-load 'ox
(defun org-latex-header-blocks-filter (backend)
"Convert marked LaTeX export blocks to \"#+latex_header: \" lines.