Make smaller source blocks
This commit is contained in:
parent
0087086b74
commit
6ff55da56b
10
README.org
10
README.org
@ -858,8 +858,11 @@ Stolen from [[https://git.sr.ht/~bzg/org-contrib/tree/master/item/lisp/ox-extra.
|
||||
(cl-mapcan (lambda (s) (org-element-contents s))
|
||||
(cdr sections)))
|
||||
(mapc #'org-element-extract-element (cdr sections)))))
|
||||
info))
|
||||
info)))
|
||||
#+end_src
|
||||
|
||||
#+begin_src emacs-lisp
|
||||
(with-eval-after-load 'ox
|
||||
(defun org-latex-header-blocks-filter (backend)
|
||||
"Convert marked LaTeX export blocks to \"#+latex_header: \" lines.
|
||||
The marker is a line \"#+header: :header yes\" preceding the block.
|
||||
@ -898,8 +901,11 @@ Stolen from [[https://git.sr.ht/~bzg/org-contrib/tree/master/item/lisp/ox-extra.
|
||||
;; Reverse to go upwards to avoid wrecking the list of
|
||||
;; block positions in the file that would occur in case
|
||||
;; of going downwards.
|
||||
(reverse blocks)))))
|
||||
(reverse blocks))))))
|
||||
#+end_src
|
||||
|
||||
#+begin_src emacs-lisp
|
||||
(with-eval-after-load 'ox
|
||||
(defun my-activate-buffer-local-org-export-filters ()
|
||||
"Activate my export filters locally in the current buffer."
|
||||
(interactive)
|
||||
|
Loading…
Reference in New Issue
Block a user