Browse Source

Extra stylesheets for preview. Fixes #20

pull/23/head
Igor Shymko 6 years ago
parent
commit
191365929d
  1. 85
      markdown-preview-mode.el
  2. 14
      preview.html

85
markdown-preview-mode.el

@ -34,7 +34,6 @@
(require 'websocket)
(require 'markdown-mode)
(require 'web-server)
(require 'url-util)
(defgroup markdown-preview nil
"Markdown preview mode."
@ -57,9 +56,8 @@
:group 'markdown-preview
:type 'integer)
(defcustom markdown-preview-style
"http://thomasf.github.io/solarized-css/solarized-dark.min.css"
"Markdown preview style URI."
(defcustom markdown-preview-style nil
"Deprecated. Use `markdown-preview-stylesheets'."
:group 'markdown-preview
:type 'string)
@ -75,8 +73,12 @@
(const :tag "Via http" http)
(const :tag "Off" nil)))
(defvar markdown-preview-javascript (list "http://code.jquery.com/jquery-1.11.0.min.js")
"List of javascript libs for preview.")
(defvar markdown-preview-javascript '()
"List of client javascript libs for preview.")
(defvar markdown-preview-stylesheets
(list "http://thomasf.github.io/solarized-css/solarized-dark.min.css")
"List of client stylesheets for preview.")
(defvar markdown-preview--websocket-server nil
"`markdown-preview' Websocket server.")
@ -98,22 +100,36 @@
(when (timerp markdown-preview--idle-timer)
(cancel-timer markdown-preview--idle-timer)))
(defun markdown-preview--css-links ()
"Get list of styles for preview in backward compatible way."
(let* ((custom-style (list markdown-preview-style))
(all-styles
(mapc (lambda (x) (add-to-list 'custom-style x t)) markdown-preview-stylesheets)))
(mapconcat
(lambda (x)
(concat "<link rel=\"stylesheet\" type=\"text/css\" href=\"" x "\">"))
all-styles
"\n")))
(defun markdown-preview--scripts ()
"Get list of javascript script tags for preview."
(mapconcat
(lambda (x)
(concat
"<script src=\"" (if (consp x) (car x) x) "\""
(if (consp x) (format " %s" (cdr x)))
"></script>"))
markdown-preview-javascript
"\n"))
(defun markdown-preview--read-preview-template (preview-file)
"Read preview template and writes rendered copy to PREVIEW-FILE, ready to be open in browser."
(with-temp-file preview-file
(insert-file-contents (expand-file-name "preview.html" markdown-preview--home-dir))
(if (search-forward "${MD_STYLE}" nil t)
(replace-match markdown-preview-style t))
(replace-match (markdown-preview--css-links) t))
(if (search-forward "${MD_JS}" nil t)
(replace-match
(mapconcat (lambda (x)
(concat
"<script src=\"" (if (consp x) (car x) x) "\""
(if (consp x) (format " %s" (cdr x)))
"></script>"))
markdown-preview-javascript
"\n")
t))
(replace-match (markdown-preview--scripts) t))
(if (search-forward "${WS_HOST}" nil t)
(replace-match markdown-preview-ws-host t))
(if (search-forward "${WS_PORT}" nil t)
@ -127,27 +143,26 @@
(lambda (request)
(with-slots (process headers) request
(let* ((path (substring (cdr (assoc :GET headers)) 1))
(filename (expand-file-name path docroot)))
(if (string= path "favicon.ico")
(ws-send-file process (expand-file-name path markdown-preview--home-dir))
(if (and (not (file-directory-p filename)) (file-exists-p filename))
(ws-send-file process filename)
(ws-send-404 process)
)))))
(filename (expand-file-name path docroot)))
;;(message (format "===> Path: [%s]" path))
(if (string= path "")
(ws-send-file process (expand-file-name markdown-preview-file-name docroot))
(if (string= path "favicon.ico")
(ws-send-file process (expand-file-name path markdown-preview--home-dir))
(if (and (not (file-directory-p filename)) (file-exists-p filename))
(ws-send-file process filename)
(ws-send-404 process)
))))))
markdown-preview-http-port)))
(defun markdown-preview--open-browser-preview ()
"Open the markdown preview in the browser."
(let* ((preview-file (expand-file-name markdown-preview-file-name default-directory))
(preview-address (url-encode-url
(format "http://localhost:%d/%s" markdown-preview-http-port markdown-preview-file-name))))
(markdown-preview--read-preview-template preview-file)
(when (eq markdown-preview-auto-open 'file)
(browse-url preview-file))
(when (eq markdown-preview-auto-open 'http)
(browse-url preview-address))
(unless markdown-preview-auto-open
(message (format "Preview address: %s" preview-address)))))
"Open the markdown preview in the browser."
(when (eq markdown-preview-auto-open 'file)
(browse-url (expand-file-name markdown-preview-file-name default-directory)))
(when (eq markdown-preview-auto-open 'http)
(browse-url (format "http://localhost:%d" markdown-preview-http-port)))
(unless markdown-preview-auto-open
(message (format "Preview address: http://0.0.0.0:%d" markdown-preview-http-port))))
(defun markdown-preview--stop-websocket-server ()
"Stop the `markdown-preview' websocket server."
@ -222,6 +237,8 @@
(defun markdown-preview--start ()
"Start `markdown-preview' mode."
(markdown-preview--read-preview-template
(expand-file-name markdown-preview-file-name default-directory))
(markdown-preview--start-websocket-server)
(markdown-preview--start-local-client)
(markdown-preview--start-http-server markdown-preview-http-port)

14
preview.html

@ -4,12 +4,8 @@
<meta charset="utf-8">
<meta name="viewport" content="width=device-width, initial-scale=1, minimal-ui">
<title>Markdown preview</title>
<link href="${MD_STYLE}" rel="stylesheet"></link>
<style>
code.json {
line-height: 1.2em;
}
</style>
${MD_STYLE}
<script src="http://code.jquery.com/jquery-1.12.4.min.js"></script>
${MD_JS}
<script>
(function($, undefined) {
@ -19,9 +15,9 @@
};
socket.onclose = function(event) {
if (event.wasClean) {
alert('Connection closed gracefully.');
console.log('Connection closed gracefully.');
} else {
alert('Connection terminated.');
console.log('Connection terminated.');
}
console.log('Code: ' + event.code + ' reason: ' + event.reason);
};
@ -31,7 +27,7 @@
$("html, body").animate({ scrollTop: scroll }, 600);
};
socket.onerror = function(error) {
alert("Error: " + error.message);
console.log("Error: " + error.message);
};
})(jQuery);
</script>

Loading…
Cancel
Save