           (cons [classfn text] (gather-lines- tail)))
         (cons (first lines) (gather-lines- (rest lines)))))))
 
-(defn- gather-lines [lines]
+(defn gather-lines [lines]
   (gather-lines- (map classify-line lines)))
 
 ; The result of gathering is a list of pairs of the form

(defn render-file [tag path & [token lang]]
  (let [lang (or lang (re-find #"(?<=\.)[^.]+$" path))
        token (or token (first (languages lang)))]
    (when-let [b (and lang (second (languages lang)))]
      (message path " auto-associated with brush " b)
      (swap! brushes conj b))
    (with-open [r (io/reader path)]
      (binding [*single-comment* (or token *single-comment*)
                *language* (or lang *language*)]


(defn inline-stylesheet []
  (when *stylesheet*
    (inline-css (slurp-file|resource *stylesheet* :continue-on-failure))))

; The resulting look-and-feel resources are included together.

