~pepe/pan.earth

pan.earth/panearth/utils.janet -rw-r--r-- 381 bytes
45a69985 — Josef Pospíšil Added xbows article 4 months ago
                                                                                
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
(use spork)

(def . string)

(def new-file-name "new-file.mdz")

(defn vf [file]
  (->> file
       (string/replace "content" "")
       (string/replace "mdz" "html")))

(defn process-css [e]
  (def {:static s
        :css css :files
        {:css fcss}} e)
  (->>
    fcss
    (map |(string/replace (path/join s css) css $))
    (filter |(string/has-suffix? ".css" $))
    sort))