🚀 go-pugleaf

>>>>> David MacKenzie writes:

>In epoch 4.2, how can I make the mouse selection get put in reverse
>video (or some color) instead of getting underlined?

I use the following, which is more than you asked, but gives examples
of most of the possible settings.  Just put in your .emacs.

(Note: You'll need the cl library to evaluate "when", "list*" and
       "unless", but I'm sure you get the idea.)

(when (and (boundp 'epoch::version)
	   (> (epoch::number-of-colors) 2))

  ;; Base Colors

  (setq epoch::screen-properties
	(list*
	 (cons 'background	    "burlywood1")
	 (cons 'foreground	    "navy")
	 (cons 'cursor-color	    "burlywood4")
	 (cons 'cursor-background   "white")
	 (cons 'cursor-foreground   "DodgerBlue2")
	 epoch::screen-properties))

  ;; Selections

  (unless motion::style (setq motion::style (make-style)))
  (set-style-foreground motion::style (foreground))
  (set-style-background motion::style "burlywood")
  (set-style-underline motion::style nil)

  ;; Mode Line

  (defvar mode:*normal-style* (make-style) "Normal modeline style")

  (let ((s1 mode:*normal-style*))
    (set-style-foreground   s1 "navy")
    (set-style-background   s1 "green3")
    (set-style-font	    s1 "ncenr12"))

  (setq default-mode-line-format
	(list
	 ""
	 'mode:*normal-style*     
	 'mode-line-modified
	 'mode-line-buffer-identification
	 "   "
	 'global-mode-string
	 "   %[("
	 'mode-name 'minor-mode-alist "%n" 'mode-line-process
	 ")%]----"
	 (cons -3 "%p")
	 "-%-")
	)
  )

--
Martin Boyer                            mboyer@ireq-robot.hydro.qc.ca
Institut de recherche d'Hydro-Quebec    mboyer@ireq-robot.uucp
Varennes, QC, Canada   J3X 1S1
+1 514 652-8412