2007/08/21

[Common Lisp] Weblocks

Weblocks は Common Lisp の Web フレームワークです。
ちょっと触った感じでは、簡単に色々のことをやってくれそうです。
また、後でいじってみますが、まずは最初のページが表示されるところまで

;; darcs get http://common-lisp.net/project/cl-weblocks/darcs/cl-weblocks
;;(require :asdf-install)
;;(loop for i in '(:closer-mop :metatilities :hunchentoot :cl-who :cl-ppcre :cl-json :puri :rt :tinaa :md5 :cl-fad :fare-matcher) do (asdf-install:install i))

(eval-when (:load-toplevel :compile-toplevel :execute)
(loop for path in '(#p"scripts/" #p"src/" #p"test/")
do (pushnew (merge-pathnames
path #p"/Users/ancient/letter/lisp/weblocks/cl-weblocks/")
asdf:*central-registry* :test #'equal))
(require :weblocks))

(weblocks:start-weblocks)

(weblocks:defwebapp 'our-application)

(defun init-user-session (comp)
(setf (weblocks:composite-widgets comp)
(list "あいう")))

(weblocks:reset-sessions)

asdf:*central-registry* へのパス追加も eval-when の中でやらなければだめでした。

0 件のコメント: