🚀 go-pugleaf

>
> i can't seem to find how to do this by looking through
> the info pages.  i am running epoch 4.2 on a sparc10 running 4.1.3,
> and using olvwm 3.3 as the window manager.
>

From my epoch-setup file:

;; --Our foreground colour is (offwhite)
(foreground "#ffe6db")
(foreground "#ffe6db" (epoch::minibuf-screen))
(push '(foreground . "#ffe6db") epoch::screen-properties)

;; --Our background colour is black
(background "black")
(background "black" (epoch::minibuf-screen))
(push '(background . "black") epoch::screen-properties)

;; --Use uparrow intead of pencil
(cursor-glyph 68) 
(cursor-glyph 68 (epoch::minibuf-screen))
(push '(cursor-glyph . 68) epoch::screen-properties)

;; --Use a red pointer, to match all the other windows
(cursor-color "red")  
(cursor-color "red" (epoch::minibuf-screen))
(push '(cursor-color . "red") epoch::screen-properties)

;; --Use a yellow cursor, to be visible
(cursor-background "yellow")  
(cursor-background "yellow" (epoch::minibuf-screen))
(push '(cursor-background . "yellow") epoch::screen-properties)

;; --Use a red letters inside yellow cursor, to be visible
(cursor-foreground "red")  
(cursor-foreground "red" (epoch::minibuf-screen))
(push '(cursor-foreground . "red") epoch::screen-properties)

;; --Use reverse video for highlighting
(setq motion::style (make-style))
(set-style-foreground motion::style "red")
(set-style-background motion::style "yellow")
(set-style-underline motion::style (background))
;; (set-style-background-stipple 
;; motion::style (make-bitmap 4 4 "\167\273\335\356"))

hope this helps.

(BTW, it in the FAQ)
--
     Iain A F Fleming     Numerical Algorithms Group Ltd Oxford UK OX2 8DR
      iainf@nag.co.uk     tel: +44.865.511245 x255   fax: +44.865.310139
  
              ** Fortran-90: The Future of Fortran Here Today **
      ["No more good must be attempted than the people can bear" -Solon]