meissa/cryogen-core
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Include --compass when it is available

Browse source
This commit is contained in:
William Roe 2015-02-21 21:56:38 +00:00
parent 4e45a92f92
commit 7595cbcf70
1 changed files with 24 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
src/cryogen_core/sass.clj
View file

@ -1,13 +1,23 @@
(ns cryogen-core.sass (ns cryogen-core.sass
(:require [clojure.java.shell :refer [sh]] (:require [clojure.java.shell :as shell]
[clojure.java.io :as io] [clojure.java.io :as io]
[cryogen-core.io :refer [ignore match-re-filter]])) [cryogen-core.io :refer [ignore match-re-filter]]))
(defmacro sh
[& args]
(let [valid-args (remove nil? args)]
`(shell/sh ~@valid-args)))
(defn sass-installed? (defn sass-installed?
"Checks for the installation of Sass." "Checks for the installation of Sass."
[] []
(= 0 (:exit (sh "sass" "--version")))) (= 0 (:exit (sh "sass" "--version"))))
(defn compass-installed?
"Checks for the installation of Compass."
[]
(= 0 (:exit (sh "compass" "--version"))))
(defn find-sass-files (defn find-sass-files
"Given a Diretory, gets files, Filtered to those having scss or sass "Given a Diretory, gets files, Filtered to those having scss or sass
extention. Ignores files matching any ignored regexps." extention. Ignores files matching any ignored regexps."
@ -24,9 +34,11 @@
done by sh / launching the sass command." done by sh / launching the sass command."
[sass-file [sass-file
src-sass src-sass
dest-sass] dest-sass
compass?]
(sh "sass" (sh "sass"
"--update" "--update"
(when compass? "--compass")
(str src-sass "/" sass-file) (str src-sass "/" sass-file)
(str dest-sass "/" ))) (str dest-sass "/" )))
@ -42,15 +54,16 @@ the command. Shows you any problems it comes across when compiling. "
;; I found sass files, ;; I found sass files,
;; If sass is installed ;; If sass is installed
(if (sass-installed?) (if (sass-installed?)
(let [compass? (compass-installed?)]
;; I compile all files ;; I compile all files
(doseq [a-file sass-files] (doseq [a-file sass-files]
(println "Compiling Sass File:" a-file) (println "Compiling Sass File:" a-file src-sass dest-sass)
(let [result (compile-sass-file! a-file src-sass dest-sass)] (let [result (compile-sass-file! a-file src-sass dest-sass compass?)]
(if (zero? (:exit result)) (if (zero? (:exit result))
;; no problems in sass compilation ;; no problems in sass compilation
(println "Successfully compiled:" a-file) (println "Successfully compiled:" a-file)
;; else I show the error ;; else I show the error
(println (:err result))))) (println (:err result))))))
;; Else I prompt to install Sass ;; Else I prompt to install Sass
(println "Sass seems not to be installed, but you have scss / sass files in " (println "Sass seems not to be installed, but you have scss / sass files in "
src-sass src-sass