Hash :
160d346b
Author :
Thomas de Grivel
Date :
2017-06-21T11:12:40
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65
;;
;; RoL-assets - Asset pipeline
;;
;; Copyright 2012-2015 Thomas de Grivel <thomas@lowh.net>
;;
;; Permission to use, copy, modify, and distribute this software for any
;; purpose with or without fee is hereby granted, provided that the above
;; copyright notice and this permission notice appear in all copies.
;;
;; THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
;; WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
;; MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
;; ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
;; WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
;; ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
;; OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
;;
(in-package :RoL-assets)
;; Config
(defvar *default-assets-dirs*
'("lib/*/rol/assets/*/"
"lib/rol/*/rol/assets/*/"
"app/assets/*/"
"vendor/assets/*/"
"assets/*/"))
(defparameter *assets-dirs*
*default-assets-dirs*)
(defvar *default-precompiled-assets*
'("app.css"
"app.js"
"**/*.jpeg"
"**/*.jpg"
"**/*.png"
"**/*.svg"
"**/*.eot"
"**/*.ttf"
"**/*.woff"))
(defparameter *precompiled-assets*
*default-precompiled-assets*)
(defvar *assets-url-template* (uri-template "/assets{/name}{.digest,ext}"))
(defvar *assets-path-template* (uri-template "public/assets{/name}{.digest,ext}"))
;; Config stanzas
(defun assets-dir (pathspec)
(let* ((namestring (enough-namestring pathspec))
(path (if (char= #\/ (last-elt namestring))
namestring
(str namestring "/"))))
(pushnew path *assets-dirs* :test #'string=)))
(defun precompiled-asset (asset-name)
(pushnew asset-name *precompiled-assets* :test #'string=))
;; Read config
(defun assets-dirs ()
(directories (reverse *assets-dirs*)))