diff --git a/README.md b/README.md index 689281a..d5e7aea 100644 --- a/README.md +++ b/README.md @@ -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. + diff --git a/markdown-preview-mode.el b/markdown-preview-mode.el index 1f51b04..8c3656b 100644 --- a/markdown-preview-mode.el +++ b/markdown-preview-mode.el @@ -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