Replace prefix to follow elisp conventions

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 markdown-preview--websocket-server nil)
-(defvar mdpm:local-client nil)
+(defvar markdown-preview--local-client nil)
-(defvar mdpm:remote-clients nil)
+(defvar markdown-preview--remote-clients nil)
-(defvar mdpm:preview-url (concat (file-name-directory load-file-name) "preview.html"))
+(defvar markdown-preview--preview-url (concat (file-name-directory load-file-name) "preview.html"))
-(defvar mdpm:idle-timer nil "Preview idle timer")
+(defvar markdown-preview--idle-timer nil "Preview idle timer")
 
-(defun mdpm:stop-idle-timer ()
+(defun markdown-preview--stop-idle-timer ()
-  (when (timerp mdpm:idle-timer)
+  (when (timerp markdown-preview--idle-timer)
-    (cancel-timer mdpm:idle-timer)))
+    (cancel-timer markdown-preview--idle-timer)))
 
-(defun mdpm:open-browser-preview ()
+(defun markdown-preview--open-browser-preview ()
-  (browse-url mdpm:preview-url))
+  (browse-url markdown-preview--preview-url))
 
-(defun mdpm:stop-websocket-server ()
+(defun markdown-preview--stop-websocket-server ()
-  (when mdpm:local-client
+  (when markdown-preview--local-client
-    (websocket-close mdpm:local-client))
+    (websocket-close markdown-preview--local-client))
-  (when mdpm:websocket-server
+  (when markdown-preview--websocket-server
-    (delete-process mdpm:websocket-server)
+    (delete-process markdown-preview--websocket-server)
-    (setq mdpm:websocket-server nil
+    (setq markdown-preview--websocket-server nil
-          mdpm:remote-clients nil)))
+          markdown-preview--remote-clients nil)))
 
-(defun mdpm:drop-closed-clients ()
+(defun markdown-preview--drop-closed-clients ()
-  (setq mdpm:remote-clients
+  (setq markdown-preview--remote-clients
-        (cl-remove-if-not #'websocket-openp mdpm:remote-clients)))
+        (cl-remove-if-not #'websocket-openp markdown-preview--remote-clients)))
 
-(defun mdpm:start-websocket-server ()
+(defun markdown-preview--start-websocket-server ()
-  (when (not mdpm:websocket-server)
+  (when (not markdown-preview--websocket-server)
-    (setq mdpm: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)
+                      (push websocket markdown-preview--remote-clients)
-                      (mdpm:send-preview-to websocket))
+                      (markdown-preview--send-preview-to websocket))
            :on-error (lambda (websocket type err) (message (concat "====> Error:" err)))
-           :on-close (lambda (websocket) (mdpm:drop-closed-clients))))
+           :on-close (lambda (websocket) (markdown-preview--drop-closed-clients))))
-    (add-hook 'kill-emacs-hook 'mdpm:stop-websocket-server)
+    (add-hook 'kill-emacs-hook 'markdown-preview--stop-websocket-server)
-    (mdpm:open-browser-preview)))
+    (markdown-preview--open-browser-preview)))
 
-(defun mdpm:start-local-client ()
+(defun markdown-preview--start-local-client ()
-  (when (not mdpm:local-client)
+  (when (not markdown-preview--local-client)
-    (setq mdpm: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 @@
                             "</div>")
                            ))))
 
-(defun mdpm:start ()
+(defun markdown-preview--start ()
-  (mdpm:start-websocket-server)
+  (markdown-preview--start-websocket-server)
-  (mdpm:start-local-client)
+  (markdown-preview--start-local-client)
-  (setq mdpm:idle-timer
+  (setq markdown-preview--idle-timer
-        (run-with-idle-timer 2 t 'mdpm:send-preview))
+        (run-with-idle-timer 2 t 'markdown-preview--send-preview))
-  (add-hook 'after-save-hook 'mdpm:send-preview nil t)
+  (add-hook 'after-save-hook 'markdown-preview--send-preview nil t)
-  (add-hook 'kill-buffer-hook 'mdpm:stop))
+  (add-hook 'kill-buffer-hook 'markdown-preview--stop))
 
-(defun mdpm:stop ()
+(defun markdown-preview--stop ()
-  (remove-hook 'after-save-hook 'mdpm:send-preview t)
+  (remove-hook 'after-save-hook 'markdown-preview--send-preview t)
-  (mdpm:stop-idle-timer))
+  (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)
+      (markdown-preview--start)
-    (mdpm:stop)))
+    (markdown-preview--stop)))
 
 (provide 'markdown-preview-mode)