share/themes/optlist.cth

   1 ;;; optlist.cth --- Option list 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 provides only a list of options and their syntax, but without
  28 ;; description. Group titles or plain texts are not displayed.
  29
  30
  31 ;;; Code:
  32
  33 :item-separator #\Newline
  34
  35 :face (synopsis :hidden t)
  36
  37 :face (text :hidden t)
  38
  39 :face (option :padding-left 2
  40               :face (syntax :item-separator ", "
  41                             :face (short :item-separator nil)
  42                             :face (long  :item-separator nil))
  43               :face (usage :hidden t))
  44
  45 :face (group :face (header :hidden t)
  46              :face (items :item-separator #\Newline))
  47
  48
  49 ;;; optlist.cth ends here