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

Compare commits

base: hellmund:v0.4
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.6
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

6 Commits
v0.4 ... v0.6

Author SHA1 Message Date
Igor Shymko
25f1de2839 untabify 2016-08-30 12:19:08 +03:00
Igor Shymko
639f76437c fix #10 - listen on 127.0.0.1 by default 2016-08-30 12:04:59 +03:00
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
1 changed files with 22 additions and 3 deletions
Expand all files Collapse all files

25
markdown-preview-mode.el
View File

@@ -5,7 +5,7 @@
;; Author: Igor Shymko <igor.shimko@gmail.com>
;; URL: https://github.com/ancane/markdown-preview-mode
;; Keywords: markdown, preview
;; Version: 0.4
;; Version: 0.6
;; Package-Requires: ((websocket "1.6") (markdown-mode "2.1") (cl-lib "0.5"))
;; This file is not part of GNU Emacs.
@@ -40,6 +40,11 @@
:prefix "markdown-preview-"
:link '(url-link "https://github.com/ancane/markdown-preview-mode"))
(defcustom markdown-preview-host "127.0.0.1"
"Markdown preview websocket server address."
:group 'markdown-preview
:type 'string)
(defcustom markdown-preview-port 7379
"Markdown preview websocket server port."
:group 'markdown-preview
@@ -51,6 +56,11 @@
: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 +84,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."
@@ -96,6 +110,7 @@
(setq markdown-preview--websocket-server
(websocket-server
markdown-preview-port
:host markdown-preview-host
:on-message (lambda (websocket frame)
(mapc (lambda (ws) (websocket-send ws frame))
markdown-preview--remote-clients))
@@ -160,7 +175,11 @@
(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 ()