src/configure.lisp @@ -18,7 +18,8 @@ ((:module "src" :components ((:file "package" ) - (:file "post" :depends-on ("package")) + (:file "configure" :depends-on ("package")) + (:file "post" :depends-on ("package" "configure")) (:file "comment-mail" :depends-on ("post")))))) (defsystem #:cl-blog-generator-test cl-blog-generator.asd @@ -5,6 +5,9 @@ ;;; TODO ;;; Comment feed ;;; Documentation +;;; Use gravatar in comments +;;; Index page for tags +;;; Twitter comments (in-package #:cl-blog-generator) @@ -174,39 +177,6 @@ (defparameter *feed-updated* "updated") -;;;# Configuration environments - -;;; Create the ability to switch between test, production, etc, environments. -;;; You are not required to use this; feel free to set the configuration -;;; variables by any means you see fit. - -(defvar *environments* nil "Registered environments") - -(defun set-environment (environment parameters) - "Assign the configuration of an environment. This does not make the -environment active." - (let ((existing (assoc environment *environments*))) - (if existing - (setf (cdr existing) parameters) - (setf *environments* (acons environment parameters *environments*)))) - (values nil)) - -(defun configure (environment) - "Activate an environment." - (flet ((symbol-for-key (key) - (find-symbol (format nil "*~A*" (symbol-name key)) - '#:cl-blog-generator))) - (let ((alist-cons (assoc environment *environments*))) - (unless alist-cons - (error "Request for unknown configuration environment ~A" environment)) - (loop for item in (cdr alist-cons) - for key = (car item) - for symbol = (symbol-for-key key) - do - (unless symbol - (error "Unknown configuration key ~A" key)) - (setf (symbol-value symbol) (cdr item)))))) - ;;;# Helpers ;;; We use the post title as both the file system name of the published post, @@ -1010,7 +980,6 @@ and synopsis." (setf post-updated (%capture-attributes post))) ((start-post-element-p key ns element *post-meta*) (let ((attribs (%capture-attributes post))) - (break) (when (string= *post-description* (cdr (assoc "name" attribs :test #'string=))) (setf description src/post.lisp 0bdb31ed4a4c8e349c2b39a1427df7f1f467505f Hugo Duncan hugo_duncan@yahoo.com http://github.com/hugoduncan/cl-blog-generator/commit/f8e530571c0bd2a1ddd20db6dc6f69617c4bd674 f8e530571c0bd2a1ddd20db6dc6f69617c4bd674 2009-04-07T20:17:27-07:00 2009-04-07T20:17:27-07:00 Split configuration functions into seperate source file 58592e36bef62d76398d42c5ce3b3f23399eeec3 Hugo Duncan hugo_duncan@yahoo.com