🚀 go-pugleaf

I take this from my .emacs, it was based on lightbrite documentation.
I'm using SUN sparc's(color) and slc's(b&w)

  (defun make-style-with-font (font)
    "Make a style with font FONT."
    (let ((s (epoch::make-style)))
      (set-style-font s font)
      s))
  (defun set-style-colors ()
    (setq red-style-color "red")
    (setq green-style-color "forestgreen")
    (setq yellow-style-color "firebrick")
    (setq magenta-style-color "magenta")
    (setq comment-style-color "#7d9ec0"))
  (if (> (epoch::number-of-colors) 2)
      (set-style-colors)
    (setq red-style (make-style-with-font
                     "*-courier-bold-o-*-0-*"))
    (setq green-style (make-style-with-font
                       "*-lucidatypewriter-bold-*"))
    (setq yellow-style (make-style-with-font
                        "*-courier-bold-r-*-0-*"))
    (setq magenta-style (make-style-with-font
                         "*-fixed-bold-*"))
    (setq comment-style (make-style-with-font
                         "*-courier-medium-o-*-0-*"))
    (setq yellow-underline-style (make-style-with-font
                                  "*-lucidatypewriter-bold-*"))
    (setq red-underline-style (make-style-with-font
                               "*-lucidatypewriter-bold-*")))


  (load "lightbrite")

Hope this help

Merry Christmas

Alcino Dall Igna Junior
Universidade Federal de Alagoas         alcino@ima.ufal.alan.br
Universidade Federal de Pernambuco      adij@di.ufpe.br


On Tue, 15 Dec 1992, Eamonn O'Brien-Strain wrote:

>
> Can lightbrite or similar packages be configured to use different font
> styles (such as italic, bold, or different fonts) rather than color?
>
> --
>    _
>   (_  _          __
>  (__/(_/_/|/|_/() /|_/|_
>  ~~~~~~~~~~~~~~~~~~~~~~~
>   Eamonn O'Brien-Strain        Logic Modeling Corp.       eob@lmc.com
>                                Milpitas, CA, USA
>