From 442ffcc8637dc92e8a132c1e02b8f00923aeed01 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Tue, 4 Aug 2020 08:30:03 -0500 Subject: added filter option to lazybones:serve-directory --- lazybones.lisp | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) (limited to 'lazybones.lisp') diff --git a/lazybones.lisp b/lazybones.lisp index fb9e66c..f7b2235 100644 --- a/lazybones.lisp +++ b/lazybones.lisp @@ -151,7 +151,7 @@ where #HANDERL123 is a block label unique to the handler. *resp-headers*) content)) -(defun serve-directory (root-path root-dir &key headers cache-p) +(defun serve-directory (root-path root-dir &key headers cache-p (filter #'identity)) "Adds handlers for every file in the directory tree with the root ROOT-DIR. The if PATH is the file pathname relative to ROOT-DIR, then the route @@ -160,6 +160,9 @@ added to serve the file located at PATH looks like ROOT-PATH/PATH. HEADERS and CACHE-P are passed to MAKE-FILE-HANDLER as the keyword arguments of the same names. +The FILTER function is used to control which paths are added. It is a +predicate. If it is NIL the path is skipped, otherwise the path is used. + If the appropriate mimetype cannot be determined for any file encountered under the ROOT-DIR, then an error will be signalled. Similarly, if a file reading function cannot be determined @@ -172,10 +175,11 @@ an error will be signalled. See also REGISTER-FILE-HANDLER-CONFIG." (constantly t) (lambda (subdir) (dolist (file (uiop:directory-files subdir)) - (add-route - (append key-prefix - (clean-split-path (subseq (namestring file) prefix-len))) - (make-file-handler file :headers headers :cache-p cache-p))))))) + (when (funcall filter file) + (add-route + (append key-prefix + (clean-split-path (subseq (namestring file) prefix-len))) + (make-file-handler file :headers headers :cache-p cache-p)))))))) (defun make-file-handler (file &key -- cgit v1.2.3