 ;;}}}
 ;;{{{ Handlers:
 
-
 ;;; All handlers are called with the body of the unit being parsed.
-
 
 (defun emacspeak-maths-parse (sexp)
   "Top-level parser dispatch.

  (let ((handler (emacspeak-maths-handler-get(car sexp))))
    (cl-assert (fboundp handler) t "%s is not  a function.")
    (mapcar handler (cdr sexp))))
    
(defun emacspeak-maths-parse-exp (contents)
  "Parse top-level exp returned from Maths Server."
  (mapcar #'emacspeak-maths-parse contents))


(defun emacspeak-maths-parse-text (contents)
  "Parse body of annotated text from Maths Server.

  (when (process-live-p (emacspeak-maths-server-process emacspeak-maths))
    (delete-process (emacspeak-maths-server-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)))
  (message "Shutdown Maths server and client."))

;;}}}
