 
 ;;; Commentary:
 
-;; Color theme and accompanying functions used by me.
+;; This package provides an API for interacting with my chosen color theme.
 
 ;;; Code:
 

  'blue
  'purple"

  (let ((theme-alist (my-colors-get-theme-colors-alist)))
    (cdr (assq color theme-alist))))

;; Export this module


Can be one of 'night, 'day, 'bright, 'blue, or 'eighties")

(defvar my-colors-theme-alist-name "color-theme-sanityinc-tomorrow-colors"
  "The name of the main colors theme alist.")

(defvar my-colors-color-theme-alist nil
  "The alist of all color name-value pairs for the current theme.")

;; Functions
(defun my-colors-get-sinct-colors-alist ()
  "Return the alist of all colors used by the current color theme."
  (let (theme-alist)
    ;; Evaluate the theme alist name:
    (cond ((stringp my-colors-theme-alist-name)
           (setq theme-alist (eval (intern my-colors-theme-alist-name))))
          ((symbolp my-colors-theme-alist-name)
           (setq theme-alist (eval my-colors-theme-alist-name)))
          (t
           (setq theme-alist my-colors-theme-alist-name)))
    ;; Return the alist
    (cdr (assq my-colors-sinct-theme theme-alist))))

;;;###autoload
(defun my-colors-get-colors-alist ()
  "Return the colors alist for my chosen theme."
  (my-colors-get-sinct-colors-alist))

;;;###autoload
(defun my-colors-get-color (color)
