From 8c086640b8a8afaadb5a19487e0ad934edf5a9df Mon Sep 17 00:00:00 2001 From: Igor Shymko Date: Mon, 27 Oct 2014 13:11:21 +0200 Subject: [PATCH] send preview when markdown mode buffer is active --- markdown-preview-mode.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/markdown-preview-mode.el b/markdown-preview-mode.el index 20d5238..5239fc3 100644 --- a/markdown-preview-mode.el +++ b/markdown-preview-mode.el @@ -97,7 +97,8 @@ (setq mdpm:local-client nil)))))) (defun mdpm:send-preview () - (mdpm:send-preview-to mdpm:local-client)) + (when (bound-and-true-p markdown-preview-mode) + (mdpm:send-preview-to mdpm:local-client))) (defun mdpm:send-preview-to (websocket) (let ((mark-position-percent @@ -105,7 +106,7 @@ (truncate (* 100 (/ - (float (- (line-number-at-pos) (count-screen-lines (window-start) (point)))) + (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))