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

fix #10 - listen on 127.0.0.1 by default

Browse Source
This commit is contained in:
Igor Shymko 2016-08-30 12:04:59 +03:00
parent 8d48d92324
commit 639f76437c
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
markdown-preview-mode.el
View File

@ -5,7 +5,7 @@
;; Author: Igor Shymko <igor.shimko@gmail.com> ;; Author: Igor Shymko <igor.shimko@gmail.com>
;; URL: https://github.com/ancane/markdown-preview-mode ;; URL: https://github.com/ancane/markdown-preview-mode
;; Keywords: markdown, preview ;; Keywords: markdown, preview
;; Version: 0.5 ;; Version: 0.6
;; Package-Requires: ((websocket "1.6") (markdown-mode "2.1") (cl-lib "0.5")) ;; Package-Requires: ((websocket "1.6") (markdown-mode "2.1") (cl-lib "0.5"))
;; This file is not part of GNU Emacs. ;; This file is not part of GNU Emacs.
@ -40,6 +40,11 @@
:prefix "markdown-preview-" :prefix "markdown-preview-"
:link '(url-link "https://github.com/ancane/markdown-preview-mode")) :link '(url-link "https://github.com/ancane/markdown-preview-mode"))
(defcustom markdown-preview-host "127.0.0.1"
"Markdown preview websocket server address."
:group 'markdown-preview
:type 'string)
(defcustom markdown-preview-port 7379 (defcustom markdown-preview-port 7379
"Markdown preview websocket server port." "Markdown preview websocket server port."
:group 'markdown-preview :group 'markdown-preview
@ -51,9 +56,8 @@
:group 'markdown-preview :group 'markdown-preview
:type 'string) :type 'string)
(defcustom markdown-preview-file-name (defcustom markdown-preview-file-name ".markdown-preview.html"
".markdown-preview.html" "Markdown preview file name."
"Markdown preview file name"
:group 'markdown-preview :group 'markdown-preview
:type 'string) :type 'string)
@ -106,6 +110,7 @@
(setq markdown-preview--websocket-server (setq markdown-preview--websocket-server
(websocket-server (websocket-server
markdown-preview-port markdown-preview-port
:host markdown-preview-host
:on-message (lambda (websocket frame) :on-message (lambda (websocket frame)
(mapc (lambda (ws) (websocket-send ws frame)) (mapc (lambda (ws) (websocket-send ws frame))
markdown-preview--remote-clients)) markdown-preview--remote-clients))