; Stolfi's hilit profile
; Last edited on 2013-01-24 13:28:22 by stolfilocal

(cond 
  (window-system
    (require 'hilit19)
    (require 'dired)
    (setq 
      hilit-mode-enable-list  '(not text-mode)
      hilit-background-mode   'light
      hilit-inhibit-hooks     nil
      hilit-inhibit-rebinding nil
    )
    (defconst 
      hilit-default-face-table
      '(
        ;; used for C/C++ and elisp and perl
        (comment     forestgreen-italic moccasin           default-bold-italic)
        (include     red                plum1              default-bold-italic)
        (define      brown              green              default-bold)
        (defun       purple             cyan               default-bold-italic)
        (decl        purple             cyan               default-bold)
        (type        black              default            default-italic)
        (keyword     blue               default            default-bold-italic)
        (label       red                orange-underlined  default-underline)
        (string      maroon             orange             default-underline)
        (sh-heredoc  purple             cyan               default-bold)
    
        ;; some further faces for Ada    
        (struct       black          white-bold  default-bold)
        (glob-struct  magenta        Plum1       default-bold-underline)
        (named-param  DarkGoldenrod  Goldenrod   default-underline)
      
        ;; and anotherone for LaTeX      
        (crossref  DarkGoldenrod  Goldenrod  underline)

        ;; compilation buffers
        (active-error  default/pink-bold  default/DeepPink-bold  default-bold-underline)
        (error         firebrick-italic   yellow                 default-bold)
        (warning       blue-italic        green                  default-italic)

        ;; Makefiles (some faces borrowed from C/C++ too)
        (rule          red                cyan-underline         default-bold-underline)

        ;; VM, GNUS and Text mode
        (msg-subject    blue-bold       yellow     default-bold)
        (msg-from       purple-bold     SeaGreen   default-bold)
        (msg-header     firebrick-bold  cyan       default-italic)
        (msg-separator  black/tan-bold  lightblue  default)
        (msg-quote      ForestGreen     green      default-italic)

        (summary-seen     grey40          white                 default)
        (summary-killed   grey50          white                 default)
        (summary-Xed      OliveDrab2      green                 default)
        (summary-deleted  firebrick       white                 default-italic)
        (summary-unread   RoyalBlue       yellow                default-bold)
        (summary-new      blue-bold       yellow-bold           default-bold-italic)
        (summary-current  cadetblue-bold  green/LightGrey-bold  reverse-default)

        (gnus-group-unsubscribed  grey50       white   default)
        (gnus-group-empty         nil          yellow  default)
        (gnus-group-full          ForestGreen  green   default-italic)
        (gnus-group-overflowing   firebrick    orange  default-bold-italic)

        ;; dired mode
        (dired-directory  blue-bold         cyan      default-bold)
        (dired-link       firebrick-italic  green     default-italic)
        (dired-ignored    ForestGreen       moccasin  default)
        (dired-deleted    red-bold-italic   orange    default-bold-italic)
        (dired-marked     purple            Plum1     default)

        ;; Info-mode, and jargon-mode.el and prep.ai.mit.edu:/pub/gnu/jargon*
        (jargon-entry     cadetblue-bold       cyan    default-bold)
        (jargon-xref      purple-bold          Plum1   default-italic)
        (jargon-keyword   firebrick-underline  yellow  default-underline)
      )
      "alist of default faces (face . (light-default dark-default mono-default))"
    )
    (defconst 
      hilit-face-translation-table
      (let 
        (
          (index 
            (or (cdr (assq hilit-background-mode '((light . 1) (dark . 2)))) 3)
          )
        )
        (mapcar 
          (function (lambda (x) (cons (car x) (nth index x))))
          hilit-default-face-table
        )
      )
      "alist that maps symbolic face-names to real face names"
    )
  )
)