 
 (defun tirepl-repl-mark-output-end ()
   (add-text-properties tirepl-repl-output-start tirepl-repl-output-end
-                       '(face tirepl-repl-output-face 
+                       '(;;face tirepl-repl-output-face 
                          rear-nonsticky (face))))
 
 (defun tirepl-repl-reset-repl-markers ()

            (when (not (bolp)) (insert-before-markers "\n"))
            
            (tirepl-repl-propertize-region
             `(face tirepl-repl-output-face rear-nonsticky (face))
             (insert-before-markers
              (format "Error during remote evaluation:\n")
              string))))))

(require 'pp)
(require 'ido)

(defgroup tirepl nil
  "The Read-Eval-Print Loop for remote Titanium applications."
  :prefix "tirepl-"
  :group 'applications)

(defface tirepl-repl-prompt-face
  '((((class color) (background light)) (:foreground "Purple"))
    (((class color) (background dark)) (:foreground "Cyan"))
    (t (:weight bold)))
  "Face for the prompt in the TIREPL REPL."
  :group 'tirepl)

(defface tirepl-repl-output-face
  '((((class color) (background light)) (:foreground "RosyBrown"))
    (((class color) (background dark)) (:foreground "LightSalmon"))
  ;;'((((class color) (background light)) (:foreground "red"))
  ;; (((class color) (background dark)) (:foreground "red"))
    (t (:slant italic)))
  "Face for Lisp output in the TIREPL REPL."
  :group 'tirepl)

(defface tirepl-repl-input-face
  '((t (:bold t)))
  "Face for previous input in the TIREPL REPL."
  :group 'tirepl)

(defface tirepl-repl-result-face
  '((t ()))
  "Face for the result of an evaluation in the TIREPL REPL."
  :group 'tirepl)

(defface tirepl-repl-result-error-face
  '((((class color) (background light)) (:foreground "red"))
    (((class color) (background dark)) (:foreground "red"))
    (t (:weight bold)))
  "Face for the result of an evaluation that caused an error in the TIREPL REPL."
  :group 'tirepl)

(defcustom tirepl-repl-wrap-history nil
  "*T to wrap history around when the end is reached."
  :type 'boolean
  :group 'tirepl)

(make-variable-buffer-local
 (defvar tirepl-repl-output-start nil
