|
|
|
@ -95,20 +95,31 @@
|
|
|
|
|
(mdpm:sent-preview-to mdpm:local-client))
|
|
|
|
|
|
|
|
|
|
(defun mdpm:sent-preview-to (websocket)
|
|
|
|
|
(when markdown-preview-mode
|
|
|
|
|
(markdown markdown-output-buffer-name))
|
|
|
|
|
(with-current-buffer (get-buffer markdown-output-buffer-name)
|
|
|
|
|
(websocket-send-text websocket
|
|
|
|
|
(concat
|
|
|
|
|
"<div>"
|
|
|
|
|
"<span id='style'>"
|
|
|
|
|
markdown-preview-style
|
|
|
|
|
"</span>"
|
|
|
|
|
"<div id='content'>"
|
|
|
|
|
(buffer-substring-no-properties (point-min) (point-max))
|
|
|
|
|
"</div>"
|
|
|
|
|
"</div>")
|
|
|
|
|
)))
|
|
|
|
|
(let ((mark-position-percent
|
|
|
|
|
(number-to-string
|
|
|
|
|
(truncate
|
|
|
|
|
(* 100
|
|
|
|
|
(/
|
|
|
|
|
(float (line-number-at-pos))
|
|
|
|
|
(count-lines (point-min) (point-max))))))))
|
|
|
|
|
|
|
|
|
|
(when markdown-preview-mode
|
|
|
|
|
(markdown markdown-output-buffer-name))
|
|
|
|
|
(with-current-buffer (get-buffer markdown-output-buffer-name)
|
|
|
|
|
(websocket-send-text websocket
|
|
|
|
|
(concat
|
|
|
|
|
"<div>"
|
|
|
|
|
"<span id='style'>"
|
|
|
|
|
markdown-preview-style
|
|
|
|
|
"</span>"
|
|
|
|
|
"<span id='position-percentage'>"
|
|
|
|
|
mark-position-percent
|
|
|
|
|
"</span>"
|
|
|
|
|
"<div id='content'>"
|
|
|
|
|
(buffer-substring-no-properties (point-min) (point-max))
|
|
|
|
|
"</div>"
|
|
|
|
|
"</div>")
|
|
|
|
|
))))
|
|
|
|
|
|
|
|
|
|
(defun mdpm:start ()
|
|
|
|
|
(mdpm:start-websocket-server)
|
|
|
|
|