basis/ui/gadgets/theme/theme.factor

   1 ! Copyright (C) 2009, 2010 Slava Pestov, Joe Groff.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: io.pathnames sequences ui.images vocabs namespaces ;
   4 IN: ui.gadgets.theme
   5
   6 : theme-image ( name -- image-name )
   7     "vocab:ui/gadgets/theme/" prepend-path ".tiff" append <image-name> ;
   8
   9 SYMBOL: theme
  10 SINGLETON: light-theme
  11 SINGLETON: dark-theme
  12
  13 light-theme theme set-global
  14
  15 HOOK: toolbar-background theme ( -- color )
  16 HOOK: toolbar-button-pressed-background theme ( -- color )
  17
  18 HOOK: menu-background theme ( -- color )
  19 HOOK: menu-border-color theme ( -- color )
  20
  21 HOOK: status-bar-background theme ( -- color )
  22 HOOK: status-bar-foreground theme ( -- color )
  23
  24 HOOK: button-text-color theme ( -- color )
  25 HOOK: button-clicked-text-color theme ( -- color )
  26
  27 HOOK: line-color theme ( -- color )
  28
  29 HOOK: column-title-background theme ( -- color )
  30
  31 HOOK: roll-button-rollover-border theme ( -- color )
  32 HOOK: roll-button-selected-background theme ( -- color )
  33
  34 HOOK: source-files-color theme ( -- color )
  35 HOOK: errors-color theme ( -- color )
  36 HOOK: details-color theme ( -- color )
  37
  38 HOOK: debugger-color theme ( -- color )
  39 HOOK: completion-color theme ( -- color )
  40
  41 HOOK: data-stack-color theme ( -- color )
  42 HOOK: retain-stack-color theme ( -- color )
  43 HOOK: call-stack-color theme ( -- color )
  44
  45 HOOK: title-bar-gradient theme ( -- color )
  46
  47 HOOK: popup-color theme ( -- color )
  48
  49 HOOK: object-color theme ( -- color )
  50 HOOK: contents-color theme ( -- color )
  51
  52 HOOK: help-header-background theme ( -- color )
  53
  54 HOOK: thread-status-stopped-background theme ( -- color )
  55 HOOK: thread-status-suspended-background theme ( -- color )
  56 HOOK: thread-status-running-background theme ( -- color )
  57
  58 HOOK: thread-status-stopped-foreground theme ( -- color )
  59 HOOK: thread-status-suspended-foreground theme ( -- color )
  60 HOOK: thread-status-running-foreground theme ( -- color )
  61
  62 HOOK: error-summary-background theme ( -- color )
  63
  64 HOOK: content-background theme ( -- color )
  65 HOOK: text-color theme ( -- color )
  66
  67 HOOK: link-color theme ( -- color )
  68 HOOK: url-color theme ( -- color )
  69 HOOK: title-color theme ( -- color )
  70 HOOK: heading-color theme ( -- color )
  71 HOOK: snippet-color theme ( -- color )
  72 HOOK: output-color theme ( -- color )
  73 HOOK: warning-background-color theme ( -- color )
  74 HOOK: code-background-color theme ( -- color )
  75
  76 HOOK: tip-background-color theme ( -- color )
  77
  78 HOOK: prompt-background-color theme ( -- color )
  79
  80 HOOK: dim-color theme ( -- color )
  81 HOOK: highlighted-word-color theme ( -- color )
  82 HOOK: string-color theme ( -- color )
  83 HOOK: stack-effect-color theme ( -- color )
  84
  85 HOOK: vocab-background-color theme ( -- color )
  86 HOOK: vocab-border-color theme ( -- color )
  87
  88 HOOK: field-border-color theme ( -- color )
  89
  90 HOOK: selection-color theme ( -- color )
  91 HOOK: panel-background-color theme ( -- color )
  92 HOOK: focus-border-color theme ( -- color )
  93
  94 HOOK: labeled-border-color theme ( -- color )
  95
  96 << "ui.gadgets.theme.light" require >>
  97 << "ui.gadgets.theme.dark" require >>