From b9d815f6b97ef2ce6a41e74229b4759ac6a3c2e7 Mon Sep 17 00:00:00 2001 From: Igor Shymko Date: Mon, 15 Feb 2016 18:49:40 +0200 Subject: [PATCH] Fix sending server frame to all the clients --- markdown-preview-mode.el | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/markdown-preview-mode.el b/markdown-preview-mode.el index a05102d..5c651d0 100644 --- a/markdown-preview-mode.el +++ b/markdown-preview-mode.el @@ -5,7 +5,7 @@ ;; Author: Igor Shymko ;; URL: https://github.com/ancane/markdown-preview-mode ;; Keywords: markdown, preview -;; Version: 0.2 +;; Version: 0.3 ;; Package-Requires: ((websocket "1.5") (markdown-mode "2.1") (cl-lib "0.5")) ;; This file is not part of GNU Emacs. @@ -97,9 +97,7 @@ (websocket-server markdown-preview-port :on-message (lambda (websocket frame) - (mapc (lambda (ws) - (websocket-send-text ws - (websocket-frame-payload frame))) + (mapc (lambda (ws) (websocket-send ws frame)) markdown-preview--remote-clients)) :on-open (lambda (websocket) (push websocket markdown-preview--remote-clients) @@ -156,7 +154,7 @@ (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)) + (run-with-idle-timer 2 t (lambda () (markdown-preview--send-preview)))) (add-hook 'after-save-hook 'markdown-preview--send-preview nil t) (add-hook 'kill-buffer-hook 'markdown-preview--stop))