hellmund/markdown-preview-mode
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Compare commits

base: hellmund:v0.3
Branches Tags
hellmund:master
hellmund:v0.9.2 hellmund:v0.9.1 hellmund:v0.9 hellmund:v0.8 hellmund:v0.7 hellmund:v0.6 hellmund:v0.5 hellmund:v0.4 hellmund:v0.3 hellmund:v0.2
...
compare: hellmund:v0.5
Branches Tags
hellmund:master
hellmund:v0.9.2 hellmund:v0.9.1 hellmund:v0.9 hellmund:v0.8 hellmund:v0.7 hellmund:v0.6 hellmund:v0.5 hellmund:v0.4 hellmund:v0.3 hellmund:v0.2

5 Commits
v0.3 ... v0.5

Author SHA1 Message Date
Igor Shymko
8d48d92324 preview file cleanup 2016-08-29 23:58:12 +03:00
Igor Shymko
60cc2646b8 version bump 2016-08-29 19:33:19 +03:00
Igor Shymko
96bf3b708b Merge pull request #13 from jeanbaptistelab/master 
Allow using relative links from the file to preview, references  #11
 2016-08-23 17:49:56 +03:00
Jean-Baptiste Lab
90b964e27d Allow using relative links from the file to preview, references issue #11 
Change the implementation of "markdown-preview--open-browser-preview" to
copy "preview.html" into the directory of the Markdown file to be
previewed and browse-url that file instead.
 2016-08-23 09:48:37 +02:00
Igor Shymko
625c041efd Remove kill buffer hook; version bump 2016-06-04 18:59:54 +03:00
1 changed files with 19 additions and 6 deletions
Expand all files Collapse all files

25
markdown-preview-mode.el
View File

@@ -5,8 +5,8 @@
;; Author: Igor Shymko <igor.shimko@gmail.com>
;; URL: https://github.com/ancane/markdown-preview-mode
;; Keywords: markdown, preview
;; Version: 0.3
;; Package-Requires: ((websocket "1.5") (markdown-mode "2.1") (cl-lib "0.5"))
;; Version: 0.5
;; Package-Requires: ((websocket "1.6") (markdown-mode "2.1") (cl-lib "0.5"))
;; This file is not part of GNU Emacs.
@@ -51,6 +51,12 @@
:group 'markdown-preview
:type 'string)
(defcustom markdown-preview-file-name
".markdown-preview.html"
"Markdown preview file name"
:group 'markdown-preview
:type 'string)
(defvar markdown-preview--websocket-server nil
"`markdown-preview' Websocket server.")
@@ -74,7 +80,11 @@
(defun markdown-preview--open-browser-preview ()
"Open the markdown preview in the browser."
(browse-url markdown-preview--preview-url))
(let* ((dir-of-buffer-to-preview (file-name-directory (buffer-file-name)))
(preview-file (concat dir-of-buffer-to-preview markdown-preview-file-name)))
(if (not (file-exists-p preview-file))
(copy-file markdown-preview--preview-url preview-file))
(browse-url preview-file)))
(defun markdown-preview--stop-websocket-server ()
"Stop the `markdown-preview' websocket server."
@@ -155,13 +165,16 @@
(markdown-preview--start-local-client)
(setq markdown-preview--idle-timer
(run-with-idle-timer 2 t (lambda () (markdown-preview--send-preview))))
(add-hook 'after-save-hook 'markdown-preview--send-preview nil t)
(add-hook 'kill-buffer-hook 'markdown-preview--stop))
(add-hook 'after-save-hook 'markdown-preview--send-preview nil t))
(defun markdown-preview--stop ()
"Stop `markdown-preview' mode."
(remove-hook 'after-save-hook 'markdown-preview--send-preview t)
(markdown-preview--stop-idle-timer))
(markdown-preview--stop-idle-timer)
(let ((preview-file (concat (file-name-directory (buffer-file-name)) markdown-preview-file-name)))
(if (file-exists-p preview-file)
(delete-file preview-file)))
)
;;;###autoload
(defun markdown-preview-open-browser ()