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