basis/ui/theme/base16/base16.factor

   1 ! Copyright (C) 2021 Kevin Cope.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: arrays assocs colors colors.private io.encodings.utf8
   4 io.files kernel namespaces sequences ui.theme ;
   5 IN: ui.theme.base16
   6
   7 SYMBOL: base16-theme-name
   8 base16-theme-name [ "greenscreen" ] initialize
   9
  10 MEMO: base16colors ( name -- assoc )
  11     "vocab:ui/theme/base16/base16-" swap ".txt" 3append
  12     utf8 file-lines parse-colors ;
  13
  14 : named-base16 ( name -- color )
  15     dup base16-theme-name get base16colors at [ ] [ no-such-color ] ?if ;
  16
  17 SINGLETON: base16-theme
  18
  19 M: base16-theme toolbar-background "base00" named-base16 ;
  20 M: base16-theme toolbar-button-pressed-background "base01" named-base16  ;
  21
  22 M: base16-theme menu-background "base00" named-base16 ;
  23 M: base16-theme menu-border-color "base02" named-base16 ;
  24
  25 M: base16-theme status-bar-background "base00" named-base16 ;
  26 M: base16-theme status-bar-foreground "base04" named-base16 ;
  27
  28 M: base16-theme button-text-color "base0C" named-base16 ;
  29 M: base16-theme button-clicked-text-color "base0B" named-base16 ;
  30
  31 M: base16-theme line-color "base02" named-base16 ;
  32 M: base16-theme column-title-background "base00" named-base16 ;
  33
  34 M: base16-theme roll-button-rollover-border "base03" named-base16 ;
  35 M: base16-theme roll-button-selected-background "base02" named-base16 ;
  36
  37 M: base16-theme source-files-color "base0B" named-base16 ;
  38 M: base16-theme errors-color "base08" named-base16 ;
  39 M: base16-theme details-color "base0D" named-base16 ;
  40
  41 M: base16-theme debugger-color "base09" named-base16 ;
  42 M: base16-theme completion-color "base0A" named-base16 ;
  43
  44 M: base16-theme data-stack-color "base0D" named-base16 ;
  45 M: base16-theme retain-stack-color "base0E" named-base16 ;
  46 M: base16-theme call-stack-color "base0B" named-base16 ;
  47
  48 M: base16-theme title-bar-gradient "base01" named-base16 "base01" named-base16 2array ;
  49
  50 M: base16-theme popup-color "base0A" named-base16 ;
  51
  52 M: base16-theme object-color "base0D" named-base16 ;
  53 M: base16-theme contents-color "base0B" named-base16 ;
  54
  55 M: base16-theme help-header-background "base01" named-base16 ;
  56
  57 M: base16-theme thread-status-stopped-background "base0A" named-base16 ;
  58 M: base16-theme thread-status-suspended-background "base0B" named-base16 ;
  59 M: base16-theme thread-status-running-background "base02" named-base16 ;
  60
  61 M: base16-theme thread-status-stopped-foreground "base00" named-base16 ;
  62 M: base16-theme thread-status-suspended-foreground "base00" named-base16 ;
  63 M: base16-theme thread-status-running-foreground "base03" named-base16 ;
  64
  65 M: base16-theme error-summary-background "base01" named-base16 ;
  66
  67 M: base16-theme content-background "base00" named-base16 ;
  68 M: base16-theme text-color "base06" named-base16 ;
  69
  70 M: base16-theme link-color "base0C" named-base16 ;
  71 M: base16-theme title-color "base0B" named-base16 ;
  72 M: base16-theme heading-color "base03" named-base16 ;
  73 M: base16-theme snippet-color "base09" named-base16 ;
  74 M: base16-theme output-color "base09" named-base16 ;
  75 M: base16-theme deprecated-background-color "base01" named-base16 ;
  76 M: base16-theme deprecated-border-color "base01" named-base16 ;
  77 M: base16-theme warning-background-color "base01" named-base16 ;
  78 M: base16-theme warning-border-color "base01" named-base16 ;
  79 M: base16-theme code-background-color "base01" named-base16 ;
  80 M: base16-theme help-path-border-color "base00" named-base16 ;
  81
  82 M: base16-theme tip-background-color "base01" named-base16 ;
  83
  84 M: base16-theme prompt-background-color "base02" named-base16 ;
  85
  86 M: base16-theme dim-color "base03" named-base16 ;
  87 M: base16-theme highlighted-word-color "base04" named-base16 ;
  88 M: base16-theme string-color "base0A" named-base16 ;
  89 M: base16-theme stack-effect-color "base04" named-base16 ;
  90
  91 M: base16-theme vocab-background-color "base00" named-base16 ;
  92 M: base16-theme vocab-border-color "base00" named-base16 ;
  93
  94 M: base16-theme field-border-color "base00" named-base16 ;
  95
  96 M: base16-theme editor-caret-color "base06" named-base16 ;
  97 M: base16-theme selection-color "base0D" named-base16 ;
  98 M: base16-theme panel-background-color "base02" named-base16 ;
  99 M: base16-theme focus-border-color "base00" named-base16 ;
 100
 101 M: base16-theme labeled-border-color "base01" named-base16 ;
 102
 103 M: base16-theme table-border-color "base00" named-base16 ;
 104