hellmund
/
markdown-preview-mode
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

browser starts correctly upon mode startup

This commit is contained in:
Igor Shymko 2014-09-14 13:19:03 +03:00
parent 9478b592a0
commit 4a33ecd7fa
1 changed files with 15 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
markdown-preview-mode.el
View File

@ -54,7 +54,12 @@
:on-open (lambda (websocket) :on-open (lambda (websocket)
(push websocket mdpm:websocket-clients)) (push websocket mdpm:websocket-clients))
:on-close (lambda (websocket) :on-close (lambda (websocket)
(delete websocket mdpm:websocket-clients)))))) (delete websocket mdpm:websocket-clients)))))
(add-hook 'kill-emacs-hook 'mdpm:stop-websocket-server)
(mdpm:open-browser))
(defun mdpm:open-browser ()
(browse-url (concat mdpm:directory "preview.html")))
(defun mdpm:stop-websocket-server () (defun mdpm:stop-websocket-server ()
(when mdpm:websocket-server (when mdpm:websocket-server
@ -65,27 +70,27 @@
(defun mdpm:send ()) (defun mdpm:send ())
(defun mdpm:start () (defun mdpm:start ()
(message "MDP: Start")
(mdpm:start-websocket-server) (mdpm:start-websocket-server)
(browse-url (concat mdpm:directory "preview.html"))
(add-hook 'kill-emacs-hook 'mdpm:stop-websocket-server)
(add-hook 'after-save-hook 'mdpm:send nil t)) (add-hook 'after-save-hook 'mdpm:send nil t))
(defun mdpm:stop () (defun mdpm:stop ()
(message "MDP: Stop")
(mdpm:stop-websocket-server)
(remove-hook 'kill-emacs-hook 'mdpm:stop-websocket-server)
(remove-hook 'after-save-hook 'mdpm:send)) (remove-hook 'after-save-hook 'mdpm:send))
(defun markdown-preview-open-browser ()
(interactive)
(mdpm:open-browser))
(defun markdown-preview-kill-websocket-server ()
(interactive)
(mdpm:stop-websocket-server))
(define-minor-mode markdown-preview-mode (define-minor-mode markdown-preview-mode
"Markdown preview mode" "Markdown preview mode"
:group 'markdown-preview-mode :group 'markdown-preview-mode
:init-value nil :init-value nil
(when (not (equal major-mode 'markdown-mode)) (when (not (equal major-mode 'markdown-mode))
(markdown-mode)) (markdown-mode))
(if markdown-preview-mode
(if (not markdown-preview-mode)
(mdpm:start) (mdpm:start)
(mdpm:stop))) (mdpm:stop)))