Added pptx to .emacs and a template to Templates/
This commit is contained in:
@@ -102,7 +102,7 @@
|
|||||||
(defun pandoc ()
|
(defun pandoc ()
|
||||||
(interactive)
|
(interactive)
|
||||||
(let (file-type file-ext tmp-out-file tmp-out-file out-file current-dir)
|
(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)
|
(setq file-ext file-type)
|
||||||
;; set default as html
|
;; set default as html
|
||||||
(when (string-equal file-type "")
|
(when (string-equal file-type "")
|
||||||
@@ -112,12 +112,16 @@
|
|||||||
(when (string-equal file-type "pdf")
|
(when (string-equal file-type "pdf")
|
||||||
(setq file-type "latex --variable fontsize='11pt'"))
|
(setq file-type "latex --variable fontsize='11pt'"))
|
||||||
;; set up slides revealjs routine
|
;; set up slides revealjs routine
|
||||||
(when (string-equal file-type "slides")
|
(when (string-equal file-type "reveal")
|
||||||
(setq file-ext "html")
|
(setq file-ext "html")
|
||||||
;; Light approach, which requires web access and readable code (but speaker notes and relative paths don't work):
|
;; 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"))
|
;; (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/):
|
;; 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"))
|
(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
|
;; proceed
|
||||||
(setq tmp-in-file "/tmp/pandoc-in.tmp")
|
(setq tmp-in-file "/tmp/pandoc-in.tmp")
|
||||||
(setq tmp-out-file (concat "/tmp/pandoc-out." file-ext))
|
(setq tmp-out-file (concat "/tmp/pandoc-out." file-ext))
|
||||||
|
|||||||
Binary file not shown.
Reference in New Issue
Block a user