ox-latex-lisp-macro

org-latex-classes

(eval-after-load "ox-latex"
  '(eval `(progn
   (let ((latex-div-struct 
          '(("\\book{%s}" . "\\book*{%s}")
            ("\\part{%s}" . "\\part*{%s}")
            ("\\chapter{%s}" . "\\chapter*{%s}")
            ("\\section{%s}" . "\\section*{%s}")
            ("\\subsection{%s}" . "\\subsection*{%s}")
            ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
            ("\\paragraph{%s}" . "\\paragraph*{%s}")
            ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))))
     ,@(mapcar #'(lambda (class)
        `(mapc #'(lambda (level)
           (add-to-list 'org-latex-classes
                        `(,(concat ,class "-" level) ;class-name
                          ,(concat "\\documentclass{" ,class "}\n" ;header-str
                                   "[NO-DEFAULT-PACKAGES]\n[PACKAGES]\n[EXTRA]")
                          ,@(memql
                             (assoc-string
                              (concat "\\" level "{%s}")
                              latex-div-struct)
                             latex-div-struct)))) '("part" "chapter" "section")))
               '("memoir" "oblivoir")))) t))