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*))))))