понедельник, 28 декабря 2009 г.

restas-directory-publisher на lisper.ru

Больше для демонстрации, чем из реальной необходимости, включил пример использования плагина restas-directory-publisher в состав сайта lispe.ru, смотреть здесь.

Код тривиален:
(restas:define-site-plugin rulisp-files (#:restas.directory-publisher)
(restas.directory-publisher:*baseurl* '("files"))
(restas.directory-publisher:*directory* (merge-pathnames "files/" *vardir*))
(restas.directory-publisher:*autoindex-template*
(lambda (data)
(rulisp.view.fine:main-frame (list :title (getf data :title)
:css (css-files-data '("style.css" "autoindex.css"))
:user (compute-user-login-name)
:main-menu (main-menu-data)
:content (restas.directory-publisher.view:autoindex-content data)
:callback (hunchentoot:request-uri*))))))

Комментариев нет:

Отправить комментарий