markdown-preview-mode/markdown-preview-mode.el

183 lines
7.0 KiB
EmacsLisp
Raw Normal View History

2014-09-15 07:30:13 +02:00
;;; markdown-preview-mode.el --- markdown realtime preview minor mode.
2014-09-14 11:18:24 +02:00
;; Copyright (C) 2014 <igor.shimko@gmail.com>
;; Author: Igor Shymko <igor.shimko@gmail.com>
2014-09-14 11:18:24 +02:00
;; URL: https://github.com/ancane/markdown-preview-mode
;; Keywords: markdown, preview
;; Package-Requires: ((websocket "1.3") (markdown-mode "2.0") (cl-lib "0.5"))
2014-09-14 11:18:24 +02:00
;; This file is not part of GNU Emacs.
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 3, or (at your option)
;; any later version.
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
;;; Code:
2014-09-14 11:18:24 +02:00
(require 'cl-lib)
2014-09-14 11:18:24 +02:00
(require 'websocket)
(require 'markdown-mode)
2014-09-15 21:39:14 +02:00
(defgroup markdown-preview nil
2014-09-14 11:18:24 +02:00
"Markdown preview mode"
:group 'text
:prefix "markdown-preview-"
2014-09-15 21:39:14 +02:00
:link '(url-link "https://github.com/ancane/markdown-preview-mode"))
(defcustom markdown-preview-port 7379
"Markdown preview websocket server port"
:group 'markdown-preview
:type 'integer)
(defcustom markdown-preview-style "http://thomasf.github.io/solarized-css/solarized-dark.min.css"
"Markdown preview style URI"
:group 'markdown-preview
:type 'string)
2014-09-14 11:18:24 +02:00
2016-01-11 08:34:24 +01:00
(defvar markdown-preview--websocket-server nil
"`markdown-preview' Websocket server.")
(defvar markdown-preview--local-client nil
"`markdown-preview' local client.")
(defvar markdown-preview--remote-clients nil
"List of `markdown-preview' websocket remote clients.")
(defvar markdown-preview--preview-url
(concat (file-name-directory load-file-name) "preview.html")
"Location of `markdown-preview' html.")
(defvar markdown-preview--idle-timer nil "Preview idle timer")
(defun markdown-preview--stop-idle-timer ()
2016-01-11 08:34:24 +01:00
"Stop the `markdown-preview' idle timer."
(when (timerp markdown-preview--idle-timer)
(cancel-timer markdown-preview--idle-timer)))
(defun markdown-preview--open-browser-preview ()
2016-01-11 08:34:24 +01:00
"Open the markdown preview in the browser."
(browse-url markdown-preview--preview-url))
(defun markdown-preview--stop-websocket-server ()
2016-01-11 08:34:24 +01:00
"Stop the `markdown-preview' websocket server."
(when markdown-preview--local-client
(websocket-close markdown-preview--local-client))
(when markdown-preview--websocket-server
(delete-process markdown-preview--websocket-server)
(setq markdown-preview--websocket-server nil
markdown-preview--remote-clients nil)))
(defun markdown-preview--drop-closed-clients ()
2016-01-11 08:34:24 +01:00
"Clean closed clients in `markdown-preview--remote-clients' list."
(setq markdown-preview--remote-clients
(cl-remove-if-not #'websocket-openp markdown-preview--remote-clients)))
(defun markdown-preview--start-websocket-server ()
2016-01-11 08:34:24 +01:00
"Start `markdown-preview' websocket server."
(when (not markdown-preview--websocket-server)
(setq markdown-preview--websocket-server
2014-09-14 11:18:24 +02:00
(websocket-server
2014-09-15 21:39:14 +02:00
markdown-preview-port
2014-09-14 11:18:24 +02:00
:on-message (lambda (websocket frame)
(mapc (lambda (ws)
(websocket-send-text ws
2014-09-14 15:15:48 +02:00
(websocket-frame-payload frame)))
markdown-preview--remote-clients))
:on-open (lambda (websocket)
(push websocket markdown-preview--remote-clients)
(markdown-preview--send-preview-to websocket))
2014-09-14 16:41:52 +02:00
:on-error (lambda (websocket type err) (message (concat "====> Error:" err)))
:on-close (lambda (websocket) (markdown-preview--drop-closed-clients))))
(add-hook 'kill-emacs-hook 'markdown-preview--stop-websocket-server)
(markdown-preview--open-browser-preview)))
(defun markdown-preview--start-local-client ()
2016-01-11 08:34:24 +01:00
"Start the `markdown-preview' local client."
(when (not markdown-preview--local-client)
(setq markdown-preview--local-client
(websocket-open
2014-09-15 21:39:14 +02:00
(format "ws://localhost:%d" markdown-preview-port)
:on-error (lambda (ws type err)
(message "error connecting"))
:on-close (lambda (websocket)
(setq markdown-preview--local-client nil))))))
2014-09-14 11:18:24 +02:00
(defun markdown-preview--send-preview ()
2016-01-11 08:34:24 +01:00
"Send the `markdown-preview' preview to clients."
(when (bound-and-true-p markdown-preview-mode)
(markdown-preview--send-preview-to markdown-preview--local-client)))
(defun markdown-preview--send-preview-to (websocket)
2016-01-11 08:34:24 +01:00
"Send the `markdown-preview' to a specific WEBSOCKET."
(let ((mark-position-percent
(number-to-string
(truncate
(* 100
(/
(float (- (line-number-at-pos) (/ (count-screen-lines (window-start) (point)) 2)))
(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>")
))))
2014-09-14 11:18:24 +02:00
(defun markdown-preview--start ()
2016-01-11 08:34:24 +01:00
"Start `markdown-preview' mode."
(markdown-preview--start-websocket-server)
(markdown-preview--start-local-client)
(setq markdown-preview--idle-timer
(run-with-idle-timer 2 t 'markdown-preview--send-preview))
(add-hook 'after-save-hook 'markdown-preview--send-preview nil t)
(add-hook 'kill-buffer-hook 'markdown-preview--stop))
2014-09-14 11:18:24 +02:00
(defun markdown-preview--stop ()
2016-01-11 08:34:24 +01:00
"Stop `markdown-preview' mode."
(remove-hook 'after-save-hook 'markdown-preview--send-preview t)
(markdown-preview--stop-idle-timer))
2014-09-14 11:18:24 +02:00
(defun markdown-preview-open-browser ()
2016-01-11 08:34:24 +01:00
"Open the `markdown-preview' in the browser."
(interactive)
(markdown-preview--open-browser-preview))
(defun markdown-preview-cleanup ()
2016-01-11 08:34:24 +01:00
"Cleanup `markdown-preview' mode."
(interactive)
(markdown-preview--stop-websocket-server))
2016-01-06 08:30:37 +01:00
;;;###autoload
2014-09-14 11:18:24 +02:00
(define-minor-mode markdown-preview-mode
2016-01-11 08:34:24 +01:00
"Markdown preview mode."
2014-09-14 11:18:24 +02:00
:group 'markdown-preview-mode
:init-value nil
(when (not (or
(equal major-mode 'markdown-mode)
(equal major-mode 'gfm-mode)))
2014-09-14 11:18:24 +02:00
(markdown-mode))
(if markdown-preview-mode
(markdown-preview--start)
(markdown-preview--stop)))
2014-09-14 11:18:24 +02:00
(provide 'markdown-preview-mode)
;;; markdown-preview-mode.el ends here