diff options
author | David Thompson <dthompson2@worcester.edu> | 2015-08-08 00:42:12 -0400 |
---|---|---|
committer | David Thompson <dthompson2@worcester.edu> | 2015-08-08 00:42:12 -0400 |
commit | f5f24c57cec2bbf51ed3d4bc7e27e234b8633686 (patch) | |
tree | f30419f887c1e9f8f5ba363f5ea93c6b31a271cd /haunt/builder | |
parent | 568b9b8be61128ca98ccc33bf1bc6ce335961237 (diff) |
asset: Filter out assets that do not pass the site file filter.
* haunt/asset.scm (directory-assets): Add 'keep?' argument.
(static-directory): Use site file filter.
Diffstat (limited to 'haunt/builder')
-rw-r--r-- | haunt/builder/assets.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/haunt/builder/assets.scm b/haunt/builder/assets.scm index 1f7424b..40ba444 100644 --- a/haunt/builder/assets.scm +++ b/haunt/builder/assets.scm @@ -28,6 +28,7 @@ #:use-module (ice-9 ftw) #:use-module (ice-9 match) #:use-module (haunt asset) + #:use-module (haunt site) #:export (static-directory)) (define* (static-directory directory #:optional (dest directory)) @@ -35,5 +36,5 @@ in DIRECTORY, a file names relative to a site's source directory, and copies them into DEST, a prefix relative to a site's target output directory. By default, DEST is DIRECTORY." - (lambda _ - (directory-assets directory dest))) + (lambda (site posts) + (directory-assets directory (site-file-filter site) dest))) |