 (declaim  (optimize  (safety 0) (speed 3)))
 (require 'comint)
 (require 'derived)
-
+;(require 'hydra)
 ;;}}}
 ;;{{{ Customizations And Variables:
 

      :stress .stress
      :richness .richness))))

(defun emacspeak-maths-parse-text (contents)
  "Parse body of annotated text from Maths Server.
Expected: ((acss) string)."
  (declare (special emacspeak-maths))
  (cl-assert (listp contents) t "%s is not a list. " contents)
  (let ((acss (cl-first contents))
        (string (cl-second contents))
        (start nil))
    (with-current-buffer  (emacspeak-maths-output emacspeak-maths)
      (setq start (goto-char (point-max)))
      (insert string)
      (put-text-property
       start (point)
       'personality (emacspeak-maths-acss acss)))))

(defun emacspeak-maths-parse-pause (contents)
  "Parse Pause value."
  (declare (special emacspeak-maths))
  (cl-assert (numberp contents) t "%s is not a number. " contents)
  (with-current-buffer  (emacspeak-maths-output emacspeak-maths)
    (goto-char (point-max))
    (insert "\n ")
    (put-text-property (1- (point)) (point) 'pause contents) ;;; make it rear-sticky
    ))


(defun emacspeak-maths-parse-error (contents)
  "Display error message."
  (message "%s" contents))


 '(exp pause text error)
 do
 (emacspeak-maths-handler-set f
                              (intern (format "emacspeak-maths-handle-%s"  (symbol-name f)))))

;;}}}
;;{{{ Process Filter:
