;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312\313%\207" [custom-declare-group pandoc nil "Pandoc" :group text custom-declare-variable pandoc-markdown-default-dialect 'commonmark "" :type (choice (const :tag "Commonmark" 'commonmark) (const :tag "Pandoc's Markdown" 'markdown) (const :tag "PHP Markdown Extra" 'markdown_phpextra) (const :tag "GitHub-Flavored Markdown" 'markdown-github) (const :tag "MultiMarkdown" 'markdown_mmd) (const :tag "Markdown.pl" 'markdown-strict) string)] 6) #@42 Return path to temp file by `FILE-PATH'. (defalias 'pandoc--tmp-file #[(file-path) "\302\303 !\304R\207" [temporary-file-directory file-path "emacs-pandoc_" file-name-nondirectory ".html"] 4 (#$ . 588)]) #@47 Return markdown dialect/variable name string. (defalias 'pandoc-markdown-dialect #[nil "9\203 \301!\207\207" [pandoc-markdown-default-dialect symbol-name] 2 (#$ . 799)]) #@59 Convert `FILE-PATH' as `INPUT-FORMAT' to `OUTPUT-FORMAT'. (defalias 'pandoc-convert-file #[(file-path input-format output-format) "\305\306 F \203\307\310 D\n\"\311\312\313\"r\fq\210\314\216\315\316ed\317\313\211\320\n&\210\321ed\",\207" [output-format file-path args input-format #1=#:temp-buffer "-t" "--" append "-f" generate-new-buffer " *temp*" t #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] apply call-process-region "pandoc" nil buffer-substring-no-properties] 9 (#$ . 979)]) #@54 Convert `BODY' as `INPUT-FORMAT' to `OUTPUT-FORMAT'. (defalias 'pandoc-convert-stdio #[(body input-format output-format) "\305\306 F\307\310\311\"r q\210\312\216\fc\210\313\314ed\315\311\211\316\n&\210\317ed\",\207" [input-format output-format args #1=#:temp-buffer body "-f" "-t" generate-new-buffer " *temp*" t #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] apply call-process-region "pandoc" nil buffer-substring-no-properties] 9 (#$ . 1494)]) #@37 Render `FILE' using EWW and Pandoc. (defalias 'pandoc-open-eww #[(file) "\304!\305!r q\210\306 \205\307\306 !?)r\304\n!q\210 \205'\310\311\312#c\210\313 \210)\314\n!+\207" [file buf tmp-file is-localfile find-file-noselect pandoc--tmp-file buffer-file-name file-remote-p pandoc-convert-file nil "html" save-buffer eww-open-file] 4 (#$ . 1968) "F"]) (provide 'pandoc)