   (let* ((face             (car spec))
          (definition       (cdr spec))
          (shell-colors-256 (pcase base16-theme-256-color-source
+                             ('terminal      base16-shell-colors)
                              ("terminal"     base16-shell-colors)
+                             ('base16-shell  base16-shell-colors-256)
                              ("base16-shell" base16-shell-colors-256)
+                             ('colors        colors)
                              ("colors"       colors)
                              (_              base16-shell-colors))))
 


;;; Code:

(defcustom base16-theme-256-color-source "terminal"
  "Where to get the colors in a 256-color terminal.

In a 256-color terminal, it's not clear where the colors should come from.

            mode line.
  contrast: Use the \"default\" face's foreground
            which should result in more contrast."
  :type '(radio (const :tag "Off" nil)
                (const :tag "Draw box around" box)
                (const :tag "Contrast" contrast))
  :group 'base16)

(defvar base16-shell-colors
