From 47e16a9f604f578655d86cb118b818e6e833874f Mon Sep 17 00:00:00 2001
From: Chris Cochrun <chris@cochrun.xyz>
Date: Wed, 13 Sep 2023 09:52:40 -0500
Subject: [PATCH] fixing org latex classes for lessons

---
 README.org | 20 +++++++++++++++++---
 init.el    | 14 ++++++++++++++
 2 files changed, 31 insertions(+), 3 deletions(-)

diff --git a/README.org b/README.org
index 2593172f..2a583a7e 100644
--- a/README.org
+++ b/README.org
@@ -899,6 +899,12 @@ Part of this config includes some special capture templates for my work as a you
       (org-agenda-list)))
 
   (setq org-latex-packages-alist '(("margin=2cm" "geometry" nil)))
+  (add-to-list 'org-latex-classes '("lesson" "\\documentclass[12pt]{article}"
+                                    ("\\section{%s}" . "\\section*{%s}")
+                                    ("\\subsection{%s}" . "\\subsection*{%s}")
+                                    ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
+                                    ("\\paragraph{%s}" . "\\paragraph*{%s}")
+                                    ("\\subparagraph{%s}" . "\\subparagraph*{%s}")))
 
   :general
   (chris/leader-keys
@@ -3909,6 +3915,9 @@ Using sly makes a lot better common-lisp interaction within emacs.
 #+end_src
 
 ** PDF-Tools
+:PROPERTIES:
+:ID:       20230906T144438.725878
+:END:
 Let's use pdf-tools for a lot better interaction with pdfs.
 #+begin_src emacs-lisp
 (use-package pdf-tools
@@ -3919,6 +3928,14 @@ Let's use pdf-tools for a lot better interaction with pdfs.
   (pdf-tools-install)
   :config
 
+  (defun chris/print-multi-pdf ()
+    "Print the pdf in as many copies as needed"
+    (interactive)
+    (let* ((copies (completing-read "How many copies: " '("1" "2" "3")))
+           (pdf-misc-print-program-args `("-o media=Letter" ,(format "-# %s" copies) "-o fitplot" "-o sides=two-sided-long-edge")))
+      (message "printing %s copies." copies)
+      (pdf-misc-print-document (buffer-file-name))))
+
   (custom-set-variables '(pdf-misc-print-program-executable "lpr")
                         '(pdf-misc-print-program-args (quote ("-o media=Letter" "-o fitplot" "-o sides=two-sided-long-edge"))))
   (add-hook 'pdf-view-mode 'pdf-view-fit-page-to-window))
@@ -3955,9 +3972,6 @@ Let's use pdf-tools for a lot better interaction with pdfs.
 #+end_src
 
 ** EMPV
-:PROPERTIES:
-:ID:       20230905T060329.179745
-:END:
 With empv we can perhaps control mpv much more fine grainly and even search youtube videos easier through emacs. Let's set it up.
 #+begin_src emacs-lisp
 (use-package empv
diff --git a/init.el b/init.el
index 3614b7c2..8ca0743d 100644
--- a/init.el
+++ b/init.el
@@ -629,6 +629,12 @@ much faster. The hope is to also make this a faster version of imenu."
       (org-agenda-list)))
 
   (setq org-latex-packages-alist '(("margin=2cm" "geometry" nil)))
+  (add-to-list 'org-latex-classes '("lesson" "\\documentclass[12pt]{article}"
+                                    ("\\section{%s}" . "\\section*{%s}")
+                                    ("\\subsection{%s}" . "\\subsection*{%s}")
+                                    ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
+                                    ("\\paragraph{%s}" . "\\paragraph*{%s}")
+                                    ("\\subparagraph{%s}" . "\\subparagraph*{%s}")))
 
   :general
   (chris/leader-keys
@@ -2860,6 +2866,14 @@ targets."
   (pdf-tools-install)
   :config
 
+  (defun chris/print-multi-pdf ()
+    "Print the pdf in as many copies as needed"
+    (interactive)
+    (let* ((copies (completing-read "How many copies: " '("1" "2" "3")))
+           (pdf-misc-print-program-args `("-o media=Letter" ,(format "-# %s" copies) "-o fitplot" "-o sides=two-sided-long-edge")))
+      (message "printing %s copies." copies)
+      (pdf-misc-print-document (buffer-file-name))))
+
   (custom-set-variables '(pdf-misc-print-program-executable "lpr")
                         '(pdf-misc-print-program-args (quote ("-o media=Letter" "-o fitplot" "-o sides=two-sided-long-edge"))))
   (add-hook 'pdf-view-mode 'pdf-view-fit-page-to-window))