AN3FR3L42D6KJZXXU23ALNBI2QZLFKMQ7P3IGVGAK6ENM6ME7JFQC
;;; roomy.cth --- Roomy theme -*- lisp -*-
;; Copyright (C) 2010, 2011, 2015 Didier Verna
;; Author: Didier Verna <didier@didierverna.net>
;; This file is part of Clon.
;; Permission to use, copy, modify, and distribute this software for any
;; purpose with or without fee is hereby granted, provided that the above
;; copyright notice and this permission notice appear in all copies.
;; THIS SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
;; WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
;; MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
;; ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
;; WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
;; ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
;; OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
;;; Commentary:
;; Contents management by FCM version 0.1.
;; This theme has a lot of space in it. Option descriptions start on their own
;; line, groups and plain texts are separated by empty lines. Group titles
;; appear in bold font, and option syntax is underlined.
;;; Code:
:face (synopsis :padding-bottom 1)
:face (text :padding-top 1 :padding-bottom 1)
:face (option :padding-left 2 :padding-top 0 :padding-bottom 0
:item-separator #\newline
:face (syntax :item-separator ", "
:underline t
:face (short :item-separator nil)
:face (long :item-separator nil))
:face (usage :padding-left 5
:item-separator #\newline
:face (fallback :face (header :bold nil))
:face (default :face (header :bold nil))))
:face (group :padding-top 1 :padding-bottom 1
:item-separator #\newline
:face (header :bold t)
:face (group :padding-left 2 :padding-top 0 :padding-bottom 0
:item-separator #\newline))
;;; roomy.cth ends here
;;; refcard.cth --- Reference card theme -*- lisp -*-
;; Copyright (C) 2010, 2011, 2015 Didier Verna
;; Author: Didier Verna <didier@didierverna.net>
;; This file is part of Clon.
;; Permission to use, copy, modify, and distribute this software for any
;; purpose with or without fee is hereby granted, provided that the above
;; copyright notice and this permission notice appear in all copies.
;; THIS SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
;; WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
;; MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
;; ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
;; WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
;; ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
;; OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
;;; Commentary:
;; Contents management by FCM version 0.1.
;; This theme provides a "reference card" compact layout. Elements displayed
;; are program synopsis, option syntax and group titles. Neither plain text
;; nor options descriptions appear in the output. Group titles appear in bold
;; font and options are packed together per group.
;;; Code:
:item-separator ", "
:face (synopsis :bold t :padding-bottom 1)
:face (text :hidden t)
:face (option :padding-left 2
:face (syntax :item-separator "/"
:face (short :item-separator nil)
:face (long :item-separator nil))
:face (usage :hidden t))
:face (group :padding-top 0 :padding-bottom 0
:face (header :bold t :padding-bottom 0)
:face (items :item-separator ", "
:face (group :padding-left 2
:padding-top 0
:padding-bottom 0)))
;;; refcard.cth ends here
;;; raw.cth --- Raw theme -*- lisp -*-
;; Copyright (C) 2010, 2011, 2015 Didier Verna
;; Author: Didier Verna <didier@didierverna.net>
;; This file is part of Clon.
;; Permission to use, copy, modify, and distribute this software for any
;; purpose with or without fee is hereby granted, provided that the above
;; copyright notice and this permission notice appear in all copies.
;; THIS SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
;; WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
;; MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
;; ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
;; WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
;; ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
;; OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
;;; Commentary:
;; Contents management by FCM version 0.1.
;; This is the equivalent of the default theme used internally by Clon when no
;; other theme is specified or can be found. Options have an indentation of 2
;; columns and their descriptions start at column 30. Groups are indented left
;; by 2 columns from level 2. Note that this theme provides a complete face
;; tree, apart from the implicit TOPLEVEL face.
;;; Code:
:face (synopsis :padding-bottom 1
:face header
:face program
:face short-pack
:face negated-pack
:face options
:face postfix)
:face (text :padding-top 0 :padding-bottom 0)
:face (option :padding-left 2 :padding-top 0 :padding-bottom 0
:face (syntax :item-separator ", "
:face (short :item-separator nil
:face name
:face argument)
:face (long :item-separator nil
:face name
:face argument))
:face (usage :padding-left (30 absolute)
:face description
:face (fallback :padding-top 0
:face header
:face value)
:face (default :padding-top 0
:face header
:face value)
:face (environment :padding-top 0
:face header
:face variable)))
:face (group :padding-top 0 :padding-bottom 0
:face (header :padding-top 0 :padding-bottom 0)
:face (items :padding-top 0 :padding-bottom 0
:face (group :padding-top 0
:padding-bottom 0
:padding-left 2)
#| :face text :face option |#))
;;; raw.cth ends here
;;; optlist.cth --- Option list theme -*- lisp -*-
;; Copyright (C) 2010, 2011, 2015 Didier Verna
;; Author: Didier Verna <didier@didierverna.net>
;; This file is part of Clon.
;; Permission to use, copy, modify, and distribute this software for any
;; purpose with or without fee is hereby granted, provided that the above
;; copyright notice and this permission notice appear in all copies.
;; THIS SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
;; WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
;; MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
;; ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
;; WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
;; ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
;; OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
;;; Commentary:
;; Contents management by FCM version 0.1.
;; This theme provides only a list of options and their syntax, but without
;; description. Group titles or plain texts are not displayed.
;;; Code:
:item-separator #\Newline
:face (synopsis :hidden t)
:face (text :hidden t)
:face (option :padding-left 2
:face (syntax :item-separator ", "
:face (short :item-separator nil)
:face (long :item-separator nil))
:face (usage :hidden t))
:face (group :face (header :hidden t)
:face (items :item-separator #\Newline))
;;; optlist.cth ends here
;;; dvl.cth --- My personal theme -*- lisp -*-
;; Copyright (C) 2010, 2011, 2015 Didier Verna
;; Author: Didier Verna <didier@didierverna.net>
;; This file is part of Clon.
;; Permission to use, copy, modify, and distribute this software for any
;; purpose with or without fee is hereby granted, provided that the above
;; copyright notice and this permission notice appear in all copies.
;; THIS SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
;; WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
;; MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
;; ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
;; WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
;; ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
;; OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
;;; Commentary:
;; Contents management by FCM version 0.1.
;;; Code:
:face (header :bold t)
:face (synopsis :padding-bottom 1
:face (short-pack :foreground cyan :bold t)
:face (negated-pack :foreground cyan :bold t))
:face (text :padding-top 0 :padding-bottom 0 :foreground green)
:face (option :padding-left 2 :padding-top 0 :padding-bottom 0
:face (syntax :item-separator ", "
:foreground cyan
:face (short :item-separator nil
:face (name :bold t))
:face (long :item-separator nil
:face (name :bold t)))
:face (usage :padding-left (30 absolute)
:face (fallback :padding-top 0 :foreground yellow)
:face (default :padding-top 0 :foreground yellow)
:face (environment :padding-top 0
:foreground yellow)))
:face (group :padding-top 0 :padding-bottom 0
:face (items :padding-top 0 :padding-bottom 0
:face (group :padding-top 0
:padding-bottom 0
:padding-left 2)
#| :face text :face option |#))
;;; dvl.cth ends here
;;; dvl.cth --- My personal theme -*- lisp -*-
;; Copyright (C) 2010, 2011, 2015 Didier Verna
;; Author: Didier Verna <didier@didierverna.net>
;; This file is part of Clon.
;; Permission to use, copy, modify, and distribute this software for any
;; purpose with or without fee is hereby granted, provided that the above
;; copyright notice and this permission notice appear in all copies.
;; THIS SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
;; WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
;; MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
;; ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
;; WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
;; ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
;; OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
;;; Commentary:
;; Contents management by FCM version 0.1.
;;; Code:
:face (header :bold t)
:face (synopsis :padding-bottom 1
:face (short-pack :foreground cyan :bold t)
:face (negated-pack :foreground cyan :bold t))
:face (text :padding-top 0 :padding-bottom 0 :foreground green)
:face (option :padding-left 2 :padding-top 0 :padding-bottom 0
:face (syntax :item-separator ", "
:foreground cyan
:face (short :item-separator nil
:face (name :bold t))
:face (long :item-separator nil
:face (name :bold t)))
:face (usage :padding-left (30 absolute)
:face (fallback :padding-top 0 :foreground yellow)
:face (default :padding-top 0 :foreground yellow)
:face (environment :padding-top 0
:foreground yellow)))
:face (group :padding-top 0 :padding-bottom 0
:face (items :padding-top 0 :padding-bottom 0
:face (group :padding-top 0
:padding-bottom 0
:padding-left 2)
#| :face text :face option |#))
;;; dvl.cth ends here
;;; christmas.cth --- Christmas theme -*- lisp -*-
;; Copyright (C) 2010, 2011, 2015 Didier Verna
;; Author: Didier Verna <didier@didierverna.net>
;; This file is part of Clon.
;; Permission to use, copy, modify, and distribute this software for any
;; purpose with or without fee is hereby granted, provided that the above
;; copyright notice and this permission notice appear in all copies.
;; THIS SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
;; WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
;; MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
;; ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
;; WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
;; ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
;; OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
;;; Commentary:
;; Contents management by FCM version 0.1.
;; This theme is not meant to be used, but rather to illustrate most of the
;; highlighting features of Clon.
;;; Code:
:padding-right 0
:background blue
:face (synopsis :padding-bottom 1 :bold t)
:face (text :padding-top 0 :padding-bottom 0
:foreground red)
:face (option :padding-left 2 :padding-right 2 :padding-top 0 :padding-bottom 0
:background cyan
:face (syntax :item-separator ", "
:padding-right (29 absolute)
:background magenta
:face (short :item-separator nil)
:face (long :item-separator nil))
:face (usage :padding-left (30 absolute) :padding-right 0
:background green
:face (fallback :bold t
:foreground yellow
:padding-top 0
:face (header :underline t)
:face (value :blink t))
:face (default :padding-top 0
:bold t
:foreground yellow
:face (header :underline t)
:face (value :blink t))
:face (environment :bold t
:foreground yellow
:padding-top 0
:face (header :underline t)
:face (variable :blink t))))
:face (group :padding-right 0 :padding-top 0 :padding-bottom 0
:face (header :padding-top 0 :padding-bottom 0
:underline t :bold t)
:face (items :padding-right 0 :padding-top 0 :padding-bottom 0)
:face (group :padding-left 2 :padding-right 0))
;;; christmas.cth ends here