From 699b6fd0b4279170ed62af13af549c7ec188af12 Mon Sep 17 00:00:00 2001
From: Timo Wilken
Date: Tue, 22 Nov 2022 00:12:36 +0100
Subject: Track custom Emacs packages in guix home

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

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

diff --git a/emacs-packages/org-latex-classes.el b/emacs-packages/org-latex-classes.el
new file mode 100644
index 00000000..90d13341
--- /dev/null
+++ b/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