diff --git a/.emacs b/.emacs index 9569ec5..bae80e9 100644 --- a/.emacs +++ b/.emacs @@ -102,7 +102,7 @@ (defun pandoc () (interactive) (let (file-type file-ext tmp-out-file tmp-out-file out-file current-dir) - (setq file-type (read-string "File type (epub, [html], odt, pdf, slides, etc.): ")) + (setq file-type (read-string "File type (epub, [html], odt, pdf, pptx, reveal, etc.): ")) (setq file-ext file-type) ;; set default as html (when (string-equal file-type "") @@ -112,12 +112,16 @@ (when (string-equal file-type "pdf") (setq file-type "latex --variable fontsize='11pt'")) ;; set up slides revealjs routine - (when (string-equal file-type "slides") + (when (string-equal file-type "reveal") (setq file-ext "html") ;; Light approach, which requires web access and readable code (but speaker notes and relative paths don't work): ;; (setq file-type "revealjs -V revealjs-url='http://lab.hakim.se/reveal-js' --standalone")) ;; Heavy embedded binary approach (relies on reveal.js/ being in ~/.revealjs/): (setq file-type "revealjs --self-contained -V revealjs-url='/home/ntnsndr/.revealjs/reveal.js' -V theme=ntn -V controls=false --slide-level=2")) + ;; set up slides pptx routine + (when (string-equal file-type "pptx") + (setq file-ext "pptx") + (setq file-type "pptx --reference-doc='/home/ntnsndr/Templates/Slideshow.pptx'")) ;; proceed (setq tmp-in-file "/tmp/pandoc-in.tmp") (setq tmp-out-file (concat "/tmp/pandoc-out." file-ext)) diff --git a/Templates/Slideshow.pptx b/Templates/Slideshow.pptx new file mode 100644 index 0000000..636c81b Binary files /dev/null and b/Templates/Slideshow.pptx differ