Merge pull request #20 from wjlroe/compile-sass-with-compass
Compile sass with compass when available
This commit is contained in:
commit
efdd06ef29
2 changed files with 45 additions and 32 deletions
|
@ -321,9 +321,10 @@
|
||||||
(rss/make-filtered-channels public config posts-by-tag)
|
(rss/make-filtered-channels public config posts-by-tag)
|
||||||
(println (blue "compiling sass"))
|
(println (blue "compiling sass"))
|
||||||
(sass/compile-sass->css!
|
(sass/compile-sass->css!
|
||||||
(str "resources/templates/" sass-src)
|
{:src-sass sass-src
|
||||||
(str "resources/public" blog-prefix "/" sass-dest)
|
:dest-sass (str "../public" blog-prefix "/" sass-dest)
|
||||||
ignored-files)))
|
:ignored-files ignored-files
|
||||||
|
:base-dir "resources/templates/"})))
|
||||||
|
|
||||||
(defn compile-assets-timed []
|
(defn compile-assets-timed []
|
||||||
(time
|
(time
|
||||||
|
|
|
@ -1,19 +1,30 @@
|
||||||
(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]
|
||||||
|
[text-decoration.core :refer :all]
|
||||||
[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."
|
||||||
[dir ignored-files]
|
[base-dir dir ignored-files]
|
||||||
(let [filename-filter (match-re-filter #"(?i:s[ca]ss$)")]
|
(let [filename-filter (match-re-filter #"(?i:s[ca]ss$)")]
|
||||||
(->> (.listFiles (io/file dir) filename-filter)
|
(->> (.listFiles (io/file base-dir dir) filename-filter)
|
||||||
(filter #(not (.isDirectory %)))
|
(filter #(not (.isDirectory %)))
|
||||||
(filter (ignore ignored-files))
|
(filter (ignore ignored-files))
|
||||||
(map #(.getName %)))))
|
(map #(.getName %)))))
|
||||||
|
@ -22,36 +33,37 @@
|
||||||
"Given a sass file which might be in src-sass directory,
|
"Given a sass file which might be in src-sass directory,
|
||||||
output the resulting css in dest-sass. All error handling is
|
output the resulting css in dest-sass. All error handling is
|
||||||
done by sh / launching the sass command."
|
done by sh / launching the sass command."
|
||||||
[sass-file
|
[{:keys [src-sass
|
||||||
src-sass
|
dest-sass
|
||||||
dest-sass]
|
base-dir]}]
|
||||||
|
(shell/with-sh-dir base-dir
|
||||||
(sh "sass"
|
(sh "sass"
|
||||||
"--update"
|
"--update"
|
||||||
(str src-sass "/" sass-file)
|
(when (compass-installed?) "--compass")
|
||||||
(str dest-sass "/" )))
|
(str src-sass ":" dest-sass))))
|
||||||
|
|
||||||
(defn compile-sass->css!
|
(defn compile-sass->css!
|
||||||
"Given a directory src-sass, looks for all sass files and compiles them into
|
"Given a directory src-sass, looks for all sass files and compiles them into
|
||||||
dest-sass. Prompts you to install sass if he finds sass files and can't find
|
dest-sass. Prompts you to install sass if he finds sass files and can't find
|
||||||
the command. Shows you any problems it comes across when compiling. "
|
the command. Shows you any problems it comes across when compiling. "
|
||||||
[src-sass
|
[{:keys [src-sass
|
||||||
dest-sass
|
dest-sass
|
||||||
ignored-files]
|
ignored-files
|
||||||
(let [sass-files (find-sass-files src-sass ignored-files)]
|
base-dir] :as opts}]
|
||||||
(if (seq sass-files)
|
(when-let [sass-files (seq (find-sass-files base-dir src-sass ignored-files))]
|
||||||
|
(if (sass-installed?)
|
||||||
;; I found sass files,
|
;; I found sass files,
|
||||||
;; If sass is installed
|
;; If sass is installed
|
||||||
(if (sass-installed?)
|
(do
|
||||||
;; I compile all files
|
(println "Compiling Sass Files:" src-sass dest-sass)
|
||||||
(doseq [a-file sass-files]
|
(let [result (compile-sass-file! opts)]
|
||||||
(println "Compiling Sass File:" a-file)
|
|
||||||
(let [result (compile-sass-file! a-file src-sass dest-sass)]
|
|
||||||
(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 sass files")
|
||||||
;; else I show the error
|
;; else I show the error
|
||||||
(println (:err result)))))
|
(println (red (:err result))
|
||||||
|
(red (:out 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
|
||||||
" - You might want to install it here: sass-lang.com")))))
|
" - You might want to install it here: sass-lang.com"))))
|
||||||
|
|
Loading…
Reference in a new issue