share/themes/christmas.cth

   1 ;;; christmas.cth --- Christmas theme                            -*- lisp -*-
   2
   3 ;; Copyright (C) 2010, 2011 Didier Verna
   4
   5 ;; Author:        Didier Verna <didier@lrde.epita.fr>
   6 ;; Maintainer:    Didier Verna <didier@lrde.epita.fr>
   7
   8 ;; This file is part of Clon.
   9
  10 ;; Permission to use, copy, modify, and distribute this software for any
  11 ;; purpose with or without fee is hereby granted, provided that the above
  12 ;; copyright notice and this permission notice appear in all copies.
  13
  14 ;; THIS SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
  15 ;; WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
  16 ;; MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
  17 ;; ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
  18 ;; WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
  19 ;; ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
  20 ;; OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  21
  22
  23 ;;; Commentary:
  24
  25 ;; Contents management by FCM version 0.1.
  26
  27 ;; This theme is not meant to be used, but rather to illustrate most of the
  28 ;; highlighting features of Clon.
  29
  30
  31 ;;; Code:
  32
  33 :padding-right 0
  34 :background blue
  35
  36 :face (synopsis :padding-bottom 1 :bold t)
  37
  38 :face (text :padding-top 0 :padding-bottom 0
  39             :foreground red)
  40
  41 :face (option :padding-left 2 :padding-right 2 :padding-top 0 :padding-bottom 0
  42               :background cyan
  43               :face (syntax :item-separator ", "
  44                             :padding-right (29 absolute)
  45                             :background magenta
  46                             :face (short :item-separator nil)
  47                             :face (long  :item-separator nil))
  48               :face (usage :padding-left (30 absolute) :padding-right 0
  49                            :background green
  50                            :face (fallback :bold t
  51                                            :foreground yellow
  52                                            :padding-top 0
  53                                            :face (header :underline t)
  54                                            :face (value :blink t))
  55                            :face (default :padding-top 0
  56                                    :bold t
  57                                    :foreground yellow
  58                                    :face (header :underline t)
  59                                    :face (value :blink t))
  60                            :face (environment :bold t
  61                                               :foreground yellow
  62                                               :padding-top 0
  63                                               :face (header :underline t)
  64                                               :face (variable :blink t))))
  65
  66 :face (group :padding-right 0 :padding-top 0 :padding-bottom 0
  67              :face (header :padding-top 0 :padding-bottom 0
  68                           :underline t :bold t)
  69              :face (items :padding-right 0 :padding-top 0 :padding-bottom 0)
  70              :face (group :padding-left 2 :padding-right 0))
  71
  72
  73 ;;; christmas.cth ends here