🚀 go-pugleaf

In article <9209232033.AA02981@ente.ims.com>, gerdh@ims.COM (Gerd Hoeren) writes:
|> |> From epoch-m@cs.uiuc.edu Wed Sep 23 13:20:20 1992
|> |> To: epoch@cs.uiuc.edu
|> |> Date: Wed, 23 Sep 92 20:24:08 GMT
|> |> Organization: Project GLUE, University of Maryland
|> |> Subject: how to make selection reverse video instead of underlined?
|> |>
|> |> In epoch 4.2, how can I make the mouse selection get put in reverse
|> |> video (or some color) instead of getting underlined?
|> 
|> We use the following code in our Epoch startup file:
|> 
|> ;;
|> ;; Make selection highlighting work in reverse video
|> ;;
|> (set-style-foreground motion::style (background))
|> (set-style-background motion::style (foreground))
|> (set-style-underline motion::style (foreground))
|> (set-style-cursor-background motion::style (foreground))
|> (set-style-cursor-foreground motion::style (background))
|> 
|> It makes Epoch work more like XTerm (or other X applications) at the
|> cost of not being able to see the cursor in a marked region.

Good stuff.  The cursor not being seen can be overcome with:
  (epoch::cursor-foreground "Blue")
  (epoch::cursor-background "Red")
or whatever colors you want.

Also, if you want the highlight to be a special color (I'm into
different colors :-) )

  (let ((highlight "Yellow"))
    (set-style-foreground motion::style (background))
    (set-style-background motion::style highlight)
    (epoch::set-style-underline motion::style highlight ))

Just addin' on ...

-- 
---Mark C. Burhans---sasmob@chewy.unx.sas.com---919/677-8001 ext 7324
SAS Institute, Inc., USA, SAS Campus Drive, Cary, NC 27513.
"I am not afraid to start this journey again tomorrow." -- Basia