diff --git a/emacs/.config/emacs/post-init.el b/emacs/.config/emacs/post-init.el index 83a656a..22c6647 100644 --- a/emacs/.config/emacs/post-init.el +++ b/emacs/.config/emacs/post-init.el @@ -187,7 +187,7 @@ are defining or executing a macro." (set-fontset-font t nil emoji-font) (set-face-attribute 'default nil :family "SauceCode Pro Nerd Font";emacs-font - :height 120 + :height 100 :weight 'normal :width 'normal) @@ -1238,6 +1238,36 @@ methods the save hook cannot detect, like file synchronization." ("S-" #'org-agenda) ("" #'org-capture)) +;; ***** ox-odt +(use-package ox-odt + :ensure nil + :config + (defun org-odt-verse-block (_verse-block contents _info) + "Transcode a VERSE-BLOCK element from Org to ODT. +CONTENTS is verse block contents. INFO is a plist holding +contextual information." + (format "\n%s" + (replace-regexp-in-string + ;; Replace leading tabs and spaces. + "^[ \t]+" #'org-odt--encode-tabs-and-spaces + ;; Add line breaks to each line of verse. + (replace-regexp-in-string + "^\\(\n\\)" "" + (replace-regexp-in-string + "\\(\\)?[ \t]*$" "" contents)))))) + +;; ***** ox-latex +(use-package ox-latex + :ensure nil + :config + (add-to-list 'org-latex-classes + '("memoir" "\\documentclass[11pt]{memoir}" + ("\\part{%s}" . "\\part*{%s}") + ("\\chapter{%s}" . "\\chapter*{%s}") + ("\\section{%s}" . "\\section*{%s}") + ("\\subsection{%s}" . "\\subsection*{%s}") + ("\\subsubsection{%s}" . "\\subsubsection*{%s}")))) + ;; ***** doct (use-package doct :defer t)