🚀 go-pugleaf

The following is lifted verbatim from my epoch intialisation file which is
loaded by my .emacs file:

[I also work in an SGI Iris - some of the stuff in here is SGI specific]:

	;; --Our resource name is epoch
	(push '(name . "epoch") epoch::screen-properties)
	;; --Our font is iris
	(font "-*-iris-medium-r-normal-*-10-*") 
	(font "-*-iris-medium-r-normal-*-10-*" (epoch::minibuf-screen))
	(push '(font . "-*-iris-medium-r-normal-*-10-*") epoch::screen-properties)
	;; --Our icon name is long
	(icon-name "/share/lib/images/Q-Paint.icon")
	(icon-name "/share/lib/images/Q-Paint.icon" (epoch::minibuf-screen))
	(push '(icon-name . "/share/lib/images/Q-Paint.icon") 
	      epoch::screen-properties)
	;; --Our foreground colour is white
	(foreground "white")
	(foreground "white" (epoch::minibuf-screen))
	(push '(foreground . "white") 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 "black")

You can see that you are nearly there, just that the a-list pairs have to be
dotted pairs (subtle, but vital).

BTW: I lifted the basic form of these lines from the Epoch FAQ.

Hope this helps.

--
     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)