RailsOnLisp/rol-assets/config.lisp

• Show log

  Commit

• Hash : b716ebdf
  Author : Thomas de Grivel
  Date : 2019-10-06T16:01:38
  

  Do not look up assets in lib but in node_modules
  

Download

• config.lisp

• ;;
  ;;  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*
    '("app/assets/*/"
      "vendor/assets/*/"
      "assets/*/"
      "node_modules/**/"))
  
  (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*)))
  

Download