   (color-theme-initialize)
 )
 ;; TODO: I don't like all those function names cluttering up my namespace.
-;; Instead, a hashtable for the color-themes should be created. Now that 
+;; Instead, a hashtable for the color-themes should be created. Now that
 ;; define-color-theme is around, it should be easy to change in just the
-;; one place. 
+;; one place.
 
 
 (provide 'color-theme)

  "Directory where we can find additionnal themes (personnal).
Note that there is at least one directory shipped with the official
color-theme distribution where all contributed themes are located.
This official selection can't be changed with that variable. 
However, you still can decide to turn it on or off and thus,
not be shown with all themes but yours."
  :type '(repeat string)
  :group 'color-theme)

(defcustom color-theme-libraries (directory-files 
                                  (concat 
                                   (file-name-directory (locate-library "color-theme"))
                                   "/themes") t "^color-theme")
  "A list of files, which will be loaded in color-theme-initialize depending
on `color-theme-load-all-themes' value. 
This allows a user to prune the default color-themes (which can take a while
to load)."
  :type '(repeat string)

	  (library (nth 3 theme))
	  (desc))
      (when (or (not library) arg)
	(setq desc (format "%-23s %s"
			   (if library (concat name " [lib]") name)
			   author))
	(put-text-property 0 (length desc) 'color-theme func desc)
