 (defun emacspeak-maths-start ()
   "Start Node math-server, and connect to it."
   (interactive)
+  (emacspeak-maths-bridge-start)
+  (message "Started Maths server and client."))
+
+(defun emacspeak-maths-bridge-start ()
   (declare (special emacspeak-maths-inferior-program
                     emacspeak-maths emacspeak-maths-server-program))
   (let ((server

           :server-process (get-buffer-process server)
           :client-process client
           :client-buffer (process-buffer client)))
    (set-process-filter client #'emacspeak-maths-process-filter)
    (message "Started Maths server and client.")))

(defun emacspeak-maths-shutdown()
  "Shutdown math-server and client."
  (interactive)
  (declare (special emacspeak-maths))
  (when (process-live-p (emacspeak-maths-client-process emacspeak-maths))
    (delete-process (emacspeak-maths-client-process emacspeak-maths)))

  (when (buffer-live-p (emacspeak-maths-server-buffer emacspeak-maths))
    (kill-buffer (emacspeak-maths-server-buffer emacspeak-maths)))
  (when (buffer-live-p (emacspeak-maths-client-buffer emacspeak-maths))
    (kill-buffer (emacspeak-maths-client-buffer emacspeak-maths))))

(defun emacspeak-maths-restart ()
  "Restart Node math-server if running. Otherwise starts a new one."
  (interactive)
  (emacspeak-maths-bridge-shutdown)
  (emacspeak-maths-bridge-start)
  (message "Restarting Maths server and client."))


;;}}}
;;{{{ Navigators:
