From 0f308b1c90444f5f0293bf40aa1ef177bc51036c Mon Sep 17 00:00:00 2001
From: Timo Wilken
Date: Fri, 30 Dec 2022 10:54:17 +0100
Subject: Reorganise Guix home declaration into module tree

---
 tw/home/files/emacs-packages/org-latex-classes.el | 54 +++++++++++++++++++++++
 1 file changed, 54 insertions(+)
 create mode 100644 tw/home/files/emacs-packages/org-latex-classes.el

(limited to 'tw/home/files/emacs-packages/org-latex-classes.el')

diff --git a/tw/home/files/emacs-packages/org-latex-classes.el b/tw/home/files/emacs-packages/org-latex-classes.el
new file mode 100644
index 00000000..90d13341
--- /dev/null
+++ b/tw/home/files/emacs-packages/org-latex-classes.el
@@ -0,0 +1,54 @@
+;;; org-latex-classes.el --- LaTeX documentclass definitions for org-mode.
+;;; Commentary:
+;;; Code:
+(require 'ox-latex)
+
+(defun tw/latex-section-commands (name)
+  "Create a pair of section commands like (\"\\NAME{%s}\" . \"\\NAME*{%s}\")."
+  (cons (format "\\%s{%%s}" name) (format "\\%s*{%%s}" name)))
+
+(defconst tw/latex-part (tw/latex-section-commands "part"))
+(defconst tw/latex-chapter (tw/latex-section-commands "chapter"))
+(defconst tw/latex-section-and-below
+  (mapcar #'tw/latex-section-commands
+          '("section" "subsection" "subsubsection" "paragraph" "subparagraph")))
+
+(setq org-latex-classes
+      `(("paperlike" "\\documentclass{paperlike}"
+         . ,tw/latex-section-and-below)
+
+        ("examtext" "\\documentclass{examtext}"
+         . ,tw/latex-section-and-below)
+
+        ("minutes" "\\documentclass{minutes}"
+         . ,tw/latex-section-and-below)
+
+        ("mapreport" "\\documentclass{mapreport}"
+         ,tw/latex-chapter . ,tw/latex-section-and-below)
+
+        ("pt3report" "\\documentclass{pt3report}"
+         ,tw/latex-chapter . ,tw/latex-section-and-below)
+
+        ("article" "\\documentclass{article}"
+         . ,tw/latex-section-and-below)
+
+        ("scrartcl" "\\documentclass{scrartcl}"
+         . ,tw/latex-section-and-below)
+
+        ("report" "\\documentclass{report}"
+         ,tw/latex-part ,tw/latex-chapter . ,tw/latex-section-and-below)
+
+        ("report-noparts" "\\documentclass{report}"
+         ,tw/latex-chapter . ,tw/latex-section-and-below)
+
+        ("book" "\\documentclass{book}"
+         ,tw/latex-part ,tw/latex-chapter . ,tw/latex-section-and-below)
+
+        ("book-noparts" "\\documentclass{book}"
+         ,tw/latex-chapter . ,tw/latex-section-and-below)
+
+        ("checklist" "\\documentclass{checklist}"
+         . ,tw/latex-section-and-below)))
+
+(provide 'org-latex-classes)
+;;; org-latex-classes.el ends here
-- 
cgit v1.2.3