(defparameter *configuration-function-names* ())
(defun read-configuration-file (path)
  (com.informatimago.common-lisp.cesarum.file:sexp-file-contents path))
;;^ is
;; (:CONFIGURATION (:DIRECTORY (:ROOT "/home/bob/documents/website/bob/"))
;;  (:MISC (:USERNAME-LENGTH 4) (:TRY-AGAIN-TIME 3))
;;  (:DATABASE (:NAME "bobs site") (:USER "bob") (:ADDRESS "localhost")
;;   (:PASSWORD ""))
;;  (:HTML (:TITLE "im a title") (:STANDARD-IMAGE "/images/bobbing.gif"))
;;  (:DATA (:FILENAME "data"))
;;  (:PASSWORDS (:LOGIN "bigyeetus3") (:TOTALS "yeetusmcbeetus2")))

(defun combine-group-and-name (group name)
  (format nil "~A-~A" group name))

  
(defmacro create-storage-function (group name value)
  (let ((sym (intern (combine-group-and-name group name))))
    (setf *configuration-function-names*
	  (append *configuration-function-names* (list sym)))
  `(defun ,sym ()
     ,value)))

(defun config-to-functions (config)
  (let ((lst (rest config)));;remove :directory
    (mapcar (lambda (list)
	      (let ((group (first list)))
		(mapcar (lambda (entry)
			  (print group)
			  (if (= (length entry) 2)
			      (create-storage-function group (first entry)
							     (second entry))
			      (create-storage-function  group (first entry)
						       (rest entry))))
			(rest list))))
	    lst)))