egg-hilit.el

   1 (defvar egg-face-color-japanese  "Cyan")
   2 (defvar egg-face-color-chinese   "Pink")
   3 (defvar egg-face-color-taiwanise "Salmon")
   4 (defvar egg-face-color-korean    "Yellow")
   5
   6 (defun egg-set-fg-color (color)
   7   (let ((face (make-face (intern (concat "fg:" color)))))
   8     (set-face-foreground face color)
   9     face))
  10
  11 (defun egg-set-bg-color (color)
  12   (let ((face (make-face (intern (concat "bg:" color)))))
  13     (set-face-background face color)
  14     face))
  15
  16 (defun egg-make-face (color)
  17   (list 'underline (egg-set-bg-color color)))
  18
  19 (defconst its-fence-face
  20   (and window-system
  21        (list (cons "Japanese"    (egg-make-face egg-face-color-japanese))
  22              (cons "Chinese-GB"  (egg-make-face egg-face-color-chinese))
  23              (cons "Chinese-CNS" (egg-make-face egg-face-color-taiwanise))
  24              (cons "Korean"      (egg-make-face egg-face-color-korean))
  25              (cons t             'underline))))
  26
  27 (defconst egg-conversion-face
  28   (and window-system
  29        (list (cons "Japanese"    (egg-make-face egg-face-color-japanese))
  30              (cons "Chinese-GB"  (egg-make-face egg-face-color-chinese))
  31              (cons "Chinese-CNS" (egg-make-face egg-face-color-taiwanise))
  32              (cons "Korean"      (egg-make-face egg-face-color-korean))
  33              (cons t             'underline))))