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

text frame check

Browse Source
This commit is contained in:
Igor Shymko 2016-12-12 00:43:47 +02:00
parent 8f4b2966c1
commit b55c8ddba2
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
markdown-preview-mode.el
View File

@ -137,15 +137,15 @@
rendered copy to PREVIEW-FILE, ready to be open in browser." rendered copy to PREVIEW-FILE, ready to be open in browser."
(with-temp-file preview-file (with-temp-file preview-file
(insert-file-contents (expand-file-name "preview.html" markdown-preview--home-dir)) (insert-file-contents (expand-file-name "preview.html" markdown-preview--home-dir))
(if (search-forward "${MD_STYLE}" nil t) (when (search-forward "${MD_STYLE}" nil t)
(replace-match (markdown-preview--css-links) t)) (replace-match (markdown-preview--css-links) t))
(if (search-forward "${MD_JS}" nil t) (when (search-forward "${MD_JS}" nil t)
(replace-match (markdown-preview--scripts) t)) (replace-match (markdown-preview--scripts) t))
(if (search-forward "${WS_HOST}" nil t) (when (search-forward "${WS_HOST}" nil t)
(replace-match markdown-preview-host t)) (replace-match markdown-preview-host t))
(if (search-forward "${WS_PORT}" nil t) (when (search-forward "${WS_PORT}" nil t)
(replace-match (format "%s" markdown-preview-ws-port) t)) (replace-match (format "%s" markdown-preview-ws-port) t))
(if (search-forward "${MD_UUID}" nil t) (when (search-forward "${MD_UUID}" nil t)
(replace-match (format "%s" preview-uuid) t)) (replace-match (format "%s" preview-uuid) t))
(buffer-string))) (buffer-string)))
@ -233,7 +233,9 @@ rendered copy to PREVIEW-FILE, ready to be open in browser."
:host markdown-preview-host :host markdown-preview-host
:on-message (lambda (websocket frame) :on-message (lambda (websocket frame)
(let ((ws-frame-text (websocket-frame-payload frame))) (let ((ws-frame-text (websocket-frame-payload frame)))
(if (string-prefix-p "MDPM-Register-UUID: " ws-frame-text) (if (and
(stringp ws-frame-text)
(string-prefix-p "MDPM-Register-UUID: " ws-frame-text))
(let ((ws-uuid (substring ws-frame-text 20))) (let ((ws-uuid (substring ws-frame-text 20)))
(puthash ws-uuid websocket markdown-preview--remote-clients) (puthash ws-uuid websocket markdown-preview--remote-clients)
(markdown-preview--send-preview-to websocket ws-uuid)) (markdown-preview--send-preview-to websocket ws-uuid))