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

var renamed

Browse Source
This commit is contained in:
Igor Shymko 2016-12-12 00:17:33 +02:00
parent 73d90fab7c
commit 7634460a77
2 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
README.md
View File

@ -75,3 +75,4 @@ Adjustable by `M-x customize-option` -> `markdown-preview-port`.
Makes use of `markdown-mode`, which already can transform markdown into html
and `websocket.el` to deliver html to browser.

11
markdown-preview-mode.el
View File

@ -42,7 +42,7 @@
:prefix "markdown-preview-"
:link '(url-link "https://github.com/ancane/markdown-preview-mode"))
(defcustom markdown-preview-ws-host "localhost"
(defcustom markdown-preview-host "localhost"
"Markdown preview websocket server address."
:group 'markdown-preview
:type 'string)
@ -142,7 +142,7 @@ rendered copy to PREVIEW-FILE, ready to be open in browser."
(if (search-forward "${MD_JS}" nil t)
(replace-match (markdown-preview--scripts) t))
(if (search-forward "${WS_HOST}" nil t)
(replace-match markdown-preview-ws-host t))
(replace-match markdown-preview-host t))
(if (search-forward "${WS_PORT}" nil t)
(replace-match (format "%s" markdown-preview-ws-port) t))
(if (search-forward "${MD_UUID}" nil t)
@ -230,7 +230,7 @@ rendered copy to PREVIEW-FILE, ready to be open in browser."
(setq markdown-preview--websocket-server
(websocket-server
markdown-preview-ws-port
:host markdown-preview-ws-host
:host markdown-preview-host
:on-message (lambda (websocket frame)
(let ((ws-frame-text (websocket-frame-payload frame)))
(if (string-prefix-p "MDPM-Register-UUID: " ws-frame-text)
@ -243,7 +243,7 @@ rendered copy to PREVIEW-FILE, ready to be open in browser."
frame))
)))
:on-open (lambda (websocket) (message "Websocket opened"))
:on-error (lambda (websocket type err) (message (concat "====> Error:" err)))
:on-error (lambda (websocket type err) (message (format "====> Error: %s" err)))
:on-close (lambda (websocket) (markdown-preview--drop-closed-clients))))
(add-hook 'kill-emacs-hook 'markdown-preview--stop-websocket-server))
(markdown-preview--open-browser-preview))
@ -253,7 +253,7 @@ rendered copy to PREVIEW-FILE, ready to be open in browser."
(when (not markdown-preview--local-client)
(setq markdown-preview--local-client
(websocket-open
(format "ws://%s:%d" markdown-preview-ws-host markdown-preview-ws-port)
(format "ws://%s:%d" markdown-preview-host markdown-preview-ws-port)
:on-error (lambda (ws type err)
(message "error connecting"))
:on-close (lambda (websocket)
@ -277,6 +277,7 @@ rendered copy to PREVIEW-FILE, ready to be open in browser."
(let ((md-buffer (gethash preview-uuid markdown-preview--preview-buffers)))
(when md-buffer
(with-current-buffer md-buffer
(markdown markdown-output-buffer-name))))
(with-current-buffer markdown-output-buffer-name ;; get-buffer