   considered to be one which continues on the next line"
   :group 'zomp
   :type 'string)
+
+(defcustom zomp-highlight-after-eval-seconds 0.2
+  "Number of seconds to highlight an expression after it has been evaluated."
+  :group 'zomp
+  :type 'float)
+
+(defface zomp-highlight-after-eval-face
+  '((t (:inherit highlight)))
+  "A face used to highlight expression for a brief time after they have been
+evaluated.")
+
+(defface todo-face
+  '((t (:foreground "#A00")))
+  "A face for todo items")
+(defvar todo-face 'todo-face)
 
 (defvar zomp-mode-hook nil)
 

  (when (called-interactively-p)
    (message "Evaluating region"))
  (zomp-request-execution-abort)
  (zomp-shell-do (buffer-substring (region-beginning) (region-end)) nil "



  (interactive)
  (backward-sexp) )


(unless (boundp 'current-line)
  (defun current-line ()
