32 lines
3.9 KiB
Plaintext
32 lines
3.9 KiB
Plaintext
|
;ELC
|
|||
|
|
;;; Compiled
|
|||
|
|
;;; in Emacs version 26.3
|
|||
|
|
;;; with all optimizations.
|
|||
|
|
|
|||
|
|
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
|
|||
|
|
|
|||
|
|
;;; This file does not contain utf-8 non-ASCII characters,
|
|||
|
|
;;; and so can be loaded in Emacs versions earlier than 23.
|
|||
|
|
|
|||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|||
|
|
|
|||
|
|
|
|||
|
|
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\307&\210\300\313\314\315\304\305\306\307&\210\300\316\317\315\304\305\306\307&\207" [custom-declare-variable markdown-rtf-command "pandoc -s -t rtf" "Command to generate RTF from Markdown" :group markdown :type string markdown-copy-command "pbcopy" "Command to copy directory to the clipboard and interpret MIME type." markdown-latex-command "pandoc -s --mathjax -t latex" "Command to output LaTeX from Markdown." markdown-pandoc-pdf-command "pandoc -s --mathjax"] 8)
|
|||
|
|
#@36 Output the Markdown file as LaTeX.
|
|||
|
|
(defalias 'markdown-export-latex #[nil "\304\305!\211\205$ \306\307\310\311#! \312 !\210r q\210\313 \210\314 !\210)*)\207" [output-file markdown-latex-command markdown-command output-buffer-name markdown-export-file-name ".tex" buffer-name find-file-noselect nil t markdown save-buffer kill-buffer] 6 (#$ . 958) nil])
|
|||
|
|
#@36 Output the Markdown file as LaTeX.
|
|||
|
|
(defalias 'markdown-export-pdf #[nil "\302 \303\216\304 \210\305\306\307!\305Q\310\311\312\313\306\314!!Q \"+\207" [#1=#:wconfig output-buffer-name current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] markdown-export-latex "*" markdown-export-file-name "" shell-command "pdflatex" " --synctex=1 -interaction=nonstopmode " shell-quote-argument ".tex"] 6 (#$ . 1322) nil])
|
|||
|
|
#@36 Output the Markdown file as LaTeX.
|
|||
|
|
(defalias 'markdown-export-pandoc-pdf #[nil "\304\305!\211\205 \306\307\310\311#! \312Q\313 !\210*)\207" [output-file markdown-pandoc-pdf-command markdown-command output-buffer-name markdown-export-file-name ".pdf" buffer-name find-file-noselect nil t " -o " markdown] 6 (#$ . 1765) nil])
|
|||
|
|
#@226 Copy region from BEGIN to END to the clipboard with four spaces indenteded on each line.
|
|||
|
|
|
|||
|
|
Taken from
|
|||
|
|
http://stackoverflow.com/questions/3519244/emacs-command-to-indent-code-by-4-spaces-to-format-for-paste-into-stackoverflow.
|
|||
|
|
(defalias 'markdown-code-copy #[(begin end) "p\304\305!r q\210\306\216\307\n #\210\310ed\311#\210\312ed\",\207" [buffer #1=#:temp-buffer begin end generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] insert-buffer-substring-no-properties indent-rigidly 4 clipboard-kill-ring-save] 4 (#$ . 2103) "r"])
|
|||
|
|
#@34 Render markdown and copy as RTF.
|
|||
|
|
(defalias 'markdown-copy-rtf #[nil "\305 \306\216 \307 \210r q\210\310ed\f#,\207" [#1=#:wconfig markdown-rtf-command markdown-command markdown-output-buffer-name markdown-copy-command current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] markdown shell-command-on-region] 4 (#$ . 2679) nil])
|
|||
|
|
#@101 Process file with multimarkdown, copy it to the clipboard, and paste in safari's selected textarea.
|
|||
|
|
(defalias 'markdown-copy-paste-html #[nil "\302 \210\303\304 \305P\304 \2037 \306!\2037 \307 \210\310\311!r q\210\312\216\313!\210eb\210\303\314\315\316 \317 \"\320Q!+\2028 \321)\322P!\207" [metafn #1=#:temp-buffer markdown-copy-html do-applescript buffer-file-name ".meta" file-exists-p save-buffer generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] insert-file-contents-literally "tell application \"" buffer-substring-no-properties point-at-bol point-at-eol "\" to activate" "\ntell application \"System Events\" to keystroke tab using {command down}\ndelay 0.2" "\ntell application \"System Events\" to keystroke \"a\" using {command down}\ntell application \"System Events\" to keystroke \"v\" using {command down}"] 6 (#$ . 3041) nil])
|
|||
|
|
(provide 'markdown-mode+)
|