> Having defuns in a theme file is obnoxious.  Could you explain what
> these functions are needed for?  If there is missing functionality, we
> should incorporate that directly into Emacs; they should not be
> naquadah-specific.

It's a system we built to define faces with symbols and then expand into
a real color value, depending on the terminal capability. This allows to
define a face once with generic color and expand it:

(naquadah-simple-face-to-multiple
 '(default (:background background :foreground aluminium-1))))

=> (default
    ((((class color)
       (min-colors 65535))
      (:background "#252A2B" :foreground "#eeeeec"))
     (((class color)
       (min-colors 256))
      (:background "color-234" :foreground "color-255"))
     (((class color)
       (min-colors 88))
      (:background "color-80" :foreground "color-87"))
     (t
      (:background "black" :foreground "white"))))

This way we just have to define the color "aluminium-1" to be a
different color depending on the numbre of color available, and then
define the font. The rest is expanded by this function.

-- 
           Julien