update

elpa/markdown-mode+-20170320.2104/HTML as Markdown in Emacs.applescript

@@ -0,0 +1,27 @@
+on mktemp()
+	return do shell script "mktemp -t md"
+end mktemp
+
+try
+        -- set appname to name of (info for (path to frontmost application))
+   	set tmpfile to mktemp() & ".md"
+	set mods to {control down, option down, shift down, command down}
+	tell application "System Events"
+		keystroke "a" using {command down}
+                delay 0.1
+		keystroke "c" using {command down}
+                delay 0.1
+		set txt to Unicode text of (the clipboard as record)
+	end tell
+
+	do shell script "pbpaste | ~/.cabal/bin/pandoc --from=html --to=markdown > " & quoted form of tmpfile
+
+        do shell script "echo " & (quoted form of (path to frontmost application as text)) & " > " & tmpfile & ".meta"
+
+        -- do shell script "emacsclient --eval '(setq markdown-paste-app: " & (path to frontmost application as text) & ")'"
+        delay 0.1
+	tell application "Emacs"
+		open (POSIX file tmpfile as string)
+		activate
+	end tell
+end try

elpa/markdown-mode+-20170320.2104/markdown-mode+-autoloads.el

@@ -0,0 +1,60 @@
+;;; markdown-mode+-autoloads.el --- automatically extracted autoloads
+;;
+;;; Code:
+
+(add-to-list 'load-path (directory-file-name
+                         (or (file-name-directory #$) (car load-path))))
+
+
+;;;### (autoloads nil "markdown-mode+" "markdown-mode+.el" (0 0 0
+;;;;;;  0))
+;;; Generated autoloads from markdown-mode+.el
+
+(autoload 'markdown-export-latex "markdown-mode+" "\
+Output the Markdown file as LaTeX.
+
+\(fn)" t nil)
+
+(autoload 'markdown-export-pdf "markdown-mode+" "\
+Output the Markdown file as LaTeX.
+
+\(fn)" t nil)
+
+(autoload 'markdown-export-pandoc-pdf "markdown-mode+" "\
+Output the Markdown file as LaTeX.
+
+\(fn)" t nil)
+
+(autoload 'markdown-code-copy "markdown-mode+" "\
+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.
+
+\(fn BEGIN END)" t nil)
+
+(autoload 'markdown-copy-rtf "markdown-mode+" "\
+Render markdown and copy as RTF.
+
+\(fn)" t nil)
+
+(autoload 'markdown-copy-paste-html "markdown-mode+" "\
+Process file with multimarkdown, copy it to the clipboard, and paste in safari's selected textarea.
+
+\(fn)" t nil)
+
+(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "markdown-mode+" '("markdown-")))
+
+;;;***
+
+;;;### (autoloads nil nil ("markdown-mode+-pkg.el") (0 0 0 0))
+
+;;;***
+
+;; Local Variables:
+;; version-control: never
+;; no-byte-compile: t
+;; no-update-autoloads: t
+;; coding: utf-8
+;; End:
+;;; markdown-mode+-autoloads.el ends here

elpa/markdown-mode+-20170320.2104/markdown-mode+-pkg.el

@@ -0,0 +1,12 @@
+(define-package "markdown-mode+" "20170320.2104" "extra functions for markdown-mode"
+  '((markdown-mode "20111229"))
+  :keywords
+  '("markdown" "latex" "osx" "rtf")
+  :authors
+  '(("Donald Ephraim Curtis"))
+  :maintainer
+  '("Donald Ephraim Curtis")
+  :url "http://github.com/milkypostman/markdown-mode-plus")
+;; Local Variables:
+;; no-byte-compile: t
+;; End:

elpa/markdown-mode+-20170320.2104/markdown-mode+.el

@@ -0,0 +1,150 @@
+;;; markdown-mode+.el --- extra functions for markdown-mode
+
+;; Copyright (c) 2011 Donald Ephraim Curtis <dcurtis@milkbox.net>
+
+;; Author: Donald Ephraim Curtis
+;; URL: http://github.com/milkypostman/markdown-mode-plus
+;; Version: 0.8
+;; Keywords: markdown, latex, osx, rtf
+;; Package-Requires: ((markdown-mode "20111229"))
+
+;;; License:
+
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License
+;; as published by the Free Software Foundation; either version 3
+;; of the License, or (at your option) any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;;; Code:
+
+(defcustom markdown-rtf-command "pandoc -s -t rtf"
+  "Command to generate RTF from Markdown"
+  :group 'markdown
+  :type 'string)
+
+(defcustom markdown-copy-command "pbcopy"
+  "Command to copy directory to the clipboard and interpret MIME type."
+  :group 'markdown
+  :type 'string)
+
+(defcustom markdown-latex-command "pandoc -s --mathjax -t latex"
+  "Command to output LaTeX from Markdown."
+  :group 'markdown
+  :type 'string)
+
+(defcustom markdown-pandoc-pdf-command "pandoc -s --mathjax"
+  "Command to output LaTeX from Markdown."
+  :group 'markdown
+  :type 'string)
+
+;;;###autoload
+(defun markdown-export-latex ()
+  "Output the Markdown file as LaTeX."
+  (interactive)
+  (let ((output-file (markdown-export-file-name ".tex")))
+    (when output-file
+      (let ((output-buffer-name (buffer-name
+                                 (find-file-noselect output-file nil t)))
+            (markdown-command markdown-latex-command))
+        (markdown output-buffer-name)
+        (with-current-buffer output-buffer-name
+          (save-buffer)
+          (kill-buffer output-buffer-name))
+        output-file))))
+
+
+;;;###autoload
+(defun markdown-export-pdf ()
+  "Output the Markdown file as LaTeX."
+  (interactive)
+  (save-window-excursion
+    (markdown-export-latex)
+    (let ((output-buffer-name (concat "*" (markdown-export-file-name "") "*")))
+      (shell-command (concat "pdflatex" " --synctex=1 -interaction=nonstopmode "
+                             (shell-quote-argument
+                              (markdown-export-file-name ".tex")))
+                     output-buffer-name))))
+
+
+;;;###autoload
+(defun markdown-export-pandoc-pdf ()
+  "Output the Markdown file as LaTeX."
+  (interactive)
+  (let ((output-file (markdown-export-file-name ".pdf")))
+    (when output-file
+      (let ((output-buffer-name (buffer-name
+                                 (find-file-noselect output-file nil t)))
+            (markdown-command (concat markdown-pandoc-pdf-command
+                                      " -o " output-file)))
+        (markdown output-buffer-name)
+        output-file))))
+
+
+;;;###autoload
+(defun markdown-code-copy (begin end)
+  "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."
+  (interactive "r")
+  (let ((buffer (current-buffer)))
+    (with-temp-buffer
+      (insert-buffer-substring-no-properties buffer begin end)
+      (indent-rigidly (point-min) (point-max) 4)
+      (clipboard-kill-ring-save (point-min) (point-max)))))
+
+;;;###autoload
+(defun markdown-copy-rtf ()
+  "Render markdown and copy as RTF."
+  (interactive)
+  (save-window-excursion
+    (let ((markdown-command markdown-rtf-command))
+      (markdown)
+      (with-current-buffer markdown-output-buffer-name
+        (shell-command-on-region
+         (point-min)
+         (point-max)
+         markdown-copy-command)))))
+
+;;;###autoload
+(defun markdown-copy-paste-html ()
+  "Process file with multimarkdown, copy it to the clipboard, and paste in safari's selected textarea."
+  (interactive)
+  (markdown-copy-html)
+  (do-applescript
+   (concat
+    (let ((metafn (concat (buffer-file-name) ".meta")))
+      (cond
+       ((and (buffer-file-name) (file-exists-p metafn))
+        (save-buffer)
+        (with-temp-buffer
+          (insert-file-contents-literally metafn)
+          (goto-char (point-min))
+          (do-applescript
+           (concat
+            "tell application \""
+            (buffer-substring-no-properties (point-at-bol) (point-at-eol))
+            "\" to activate"))))
+       (t
+        "
+tell application \"System Events\" to keystroke tab using {command down}
+delay 0.2"
+        )))
+    "
+tell application \"System Events\" to keystroke \"a\" using {command down}
+tell application \"System Events\" to keystroke \"v\" using {command down}")))
+
+
+(provide 'markdown-mode+)
+
+;;; markdown-mode+.el ends here