From d6cb9657ff822c91a4f5c33b81d9cf62334a8138 Mon Sep 17 00:00:00 2001 From: AdrieanKhisbe Date: Mon, 11 Jan 2016 05:53:03 +0100 Subject: [PATCH] Replace prefix to follow elisp conventions --- markdown-preview-mode.el | 102 +++++++++++++++++++-------------------- 1 file changed, 51 insertions(+), 51 deletions(-) diff --git a/markdown-preview-mode.el b/markdown-preview-mode.el index f8babd7..38d89fa 100644 --- a/markdown-preview-mode.el +++ b/markdown-preview-mode.el @@ -31,7 +31,7 @@ (defgroup markdown-preview nil "Markdown preview mode" :group 'text - :prefix "mdpm:" + :prefix "markdown-preview-" :link '(url-link "https://github.com/ancane/markdown-preview-mode")) (defcustom markdown-preview-port 7379 @@ -44,64 +44,64 @@ :group 'markdown-preview :type 'string) -(defvar mdpm:websocket-server nil) -(defvar mdpm:local-client nil) -(defvar mdpm:remote-clients nil) -(defvar mdpm:preview-url (concat (file-name-directory load-file-name) "preview.html")) -(defvar mdpm:idle-timer nil "Preview idle timer") +(defvar markdown-preview--websocket-server nil) +(defvar markdown-preview--local-client nil) +(defvar markdown-preview--remote-clients nil) +(defvar markdown-preview--preview-url (concat (file-name-directory load-file-name) "preview.html")) +(defvar markdown-preview--idle-timer nil "Preview idle timer") -(defun mdpm:stop-idle-timer () - (when (timerp mdpm:idle-timer) - (cancel-timer mdpm:idle-timer))) +(defun markdown-preview--stop-idle-timer () + (when (timerp markdown-preview--idle-timer) + (cancel-timer markdown-preview--idle-timer))) -(defun mdpm:open-browser-preview () - (browse-url mdpm:preview-url)) +(defun markdown-preview--open-browser-preview () + (browse-url markdown-preview--preview-url)) -(defun mdpm:stop-websocket-server () - (when mdpm:local-client - (websocket-close mdpm:local-client)) - (when mdpm:websocket-server - (delete-process mdpm:websocket-server) - (setq mdpm:websocket-server nil - mdpm:remote-clients nil))) +(defun markdown-preview--stop-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 mdpm:drop-closed-clients () - (setq mdpm:remote-clients - (cl-remove-if-not #'websocket-openp mdpm:remote-clients))) +(defun markdown-preview--drop-closed-clients () + (setq markdown-preview--remote-clients + (cl-remove-if-not #'websocket-openp markdown-preview--remote-clients))) -(defun mdpm:start-websocket-server () - (when (not mdpm:websocket-server) - (setq mdpm:websocket-server +(defun markdown-preview--start-websocket-server () + (when (not markdown-preview--websocket-server) + (setq markdown-preview--websocket-server (websocket-server markdown-preview-port :on-message (lambda (websocket frame) (mapc (lambda (ws) (websocket-send-text ws (websocket-frame-payload frame))) - mdpm:remote-clients)) + markdown-preview--remote-clients)) :on-open (lambda (websocket) - (push websocket mdpm:remote-clients) - (mdpm:send-preview-to websocket)) + (push websocket markdown-preview--remote-clients) + (markdown-preview--send-preview-to websocket)) :on-error (lambda (websocket type err) (message (concat "====> Error:" err))) - :on-close (lambda (websocket) (mdpm:drop-closed-clients)))) - (add-hook 'kill-emacs-hook 'mdpm:stop-websocket-server) - (mdpm:open-browser-preview))) + :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 mdpm:start-local-client () - (when (not mdpm:local-client) - (setq mdpm:local-client +(defun markdown-preview--start-local-client () + (when (not markdown-preview--local-client) + (setq markdown-preview--local-client (websocket-open (format "ws://localhost:%d" markdown-preview-port) :on-error (lambda (ws type err) (message "error connecting")) :on-close (lambda (websocket) - (setq mdpm:local-client nil)))))) + (setq markdown-preview--local-client nil)))))) -(defun mdpm:send-preview () +(defun markdown-preview--send-preview () (when (bound-and-true-p markdown-preview-mode) - (mdpm:send-preview-to mdpm:local-client))) + (markdown-preview--send-preview-to markdown-preview--local-client))) -(defun mdpm:send-preview-to (websocket) +(defun markdown-preview--send-preview-to (websocket) (let ((mark-position-percent (number-to-string (truncate @@ -127,25 +127,25 @@ "") )))) -(defun mdpm:start () - (mdpm:start-websocket-server) - (mdpm:start-local-client) - (setq mdpm:idle-timer - (run-with-idle-timer 2 t 'mdpm:send-preview)) - (add-hook 'after-save-hook 'mdpm:send-preview nil t) - (add-hook 'kill-buffer-hook 'mdpm:stop)) +(defun markdown-preview--start () + (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)) -(defun mdpm:stop () - (remove-hook 'after-save-hook 'mdpm:send-preview t) - (mdpm:stop-idle-timer)) +(defun markdown-preview--stop () + (remove-hook 'after-save-hook 'markdown-preview--send-preview t) + (markdown-preview--stop-idle-timer)) (defun markdown-preview-open-browser () (interactive) - (mdpm:open-browser-preview)) + (markdown-preview--open-browser-preview)) (defun markdown-preview-cleanup () (interactive) - (mdpm:stop-websocket-server)) + (markdown-preview--stop-websocket-server)) ;;;###autoload (define-minor-mode markdown-preview-mode @@ -157,8 +157,8 @@ (equal major-mode 'gfm-mode))) (markdown-mode)) (if markdown-preview-mode - (mdpm:start) - (mdpm:stop))) + (markdown-preview--start) + (markdown-preview--stop))) (provide 'markdown-preview-mode)