Extra stylesheets for preview. Fixes #20
This commit is contained in:
Igor Shymko
parent
322825b9e5
commit
191365929d
@ -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
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…
Reference in New Issue
Block a user