Hash :
c4335b89
Author :
Date :
2014-01-13T13:52:01
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 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114
;;
;; LowH Triangle Assets - Asset pipeline
;;
;; Copyright 2012 Thomas de Grivel <billitch@gmail.com>
;;
;; 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 :lowh.triangle.assets)
;; Compile
(defmethod json:encode-json ((object pathname) &optional stream)
(json:encode-json (namestring object) stream))
(defun less (src-path parser-options css-options &optional out)
(let* ((fmt "~
var path = require('path'),
fs = require('fs'),
sys = require('util'),
os = require('os');
var less = require('less');
var src = ~A;
var parser_opts = ~A;
var css_opts = ~A;
var print_error = function (e) {
less.writeError(e);
process.exit(2);
}
var print_tree = function (e, tree) {
if (e)
print_error(e);
try {
var css = tree.toCSS(css_opts);
process.stdout.write(css);
} catch (e) {
print_error(e);
}
}
var parse_data = function (e, data) {
if (e)
print_error(e);
try {
new(less.Parser)(parser_opts).parse(data, print_tree)
} catch (e) {
print_error(e);
}
}
try {
fs.readFile(path.resolve(process.cwd(), src), 'utf8', parse_data);
} catch (e) {
print_error(e);
}
")
(js (format nil fmt
(json:encode-json-to-string src-path)
(json:encode-json-plist-to-string parser-options)
(json:encode-json-plist-to-string css-options))))
#+nil(format *error-output* "~%~A~%" js)
(exec-js:from-string js :safely nil :out out)))
;; LESS
(defclass less-asset (css-asset)
((less-sources :type list)))
(defmethod asset-class-extensions ((class (eql 'less-asset)))
'(.less))
(defun less-imports (asset)
(let ((imports))
(regex-lines "(?:^|\\b)@import\\s+\"([^\"]+)\"\\s*;"
(pathname (asset-source-path asset))
:match (lambda (whole i)
(declare (ignore whole))
(pushnew i imports :test #'string=)))
imports))
(defgeneric less-sources (asset))
(defmethod less-sources ((asset less-asset))
(if (slot-boundp asset 'less-sources)
(slot-value asset 'less-sources)
(setf (slot-value asset 'less-sources)
(mapcan (lambda (import)
(let ((asset (find-asset import 'less-asset)))
(cons asset (less-sources asset))))
(less-imports asset)))))
(defmethod asset-write-date ((asset less-asset))
(loop for a in (less-sources asset)
maximize (file-write-date (asset-source-path a))))
(defmethod process-asset ((asset less-asset)
(output stream))
(let ((true-assets-dirs (cache-1 (eq *assets-dirs*)
(mapcar #'truename (assets-dirs))))
(path (truename (asset-source-path asset))))
(less path
(list :paths true-assets-dirs :filename path)
(list :yuicompress (not *debug*))
output))
(values))