http_loader.clj

(ns clj-handlebars.http-loader
  (:gen-class
   :init init
   :state state
   :name com.github.jknack.handlebars.io.HTTPCljLoader
   :implements [com.github.jknack.handlebars.io.TemplateLoader]
   :constructors {[String] []}
   :prefix "-")
  (:import [com.github.jknack.handlebars.io URLTemplateSource]
           [java.net URL]))

(defn -init
  [^String baseUrl]
  [[] {:prefix baseUrl
       :suffix ".hbs"}])

(defn -resolve
  [this filename]
  (str (. this getPrefix) filename (. this getSuffix)))

(defn -getPrefix
  [this]
  (str (:prefix (.state this))))

(defn -getSuffix
  [this]
  (str (:suffix (.state this))))

(defn -sourceAt
  [this uri]
  (let [location (. this resolve uri)]
        (URLTemplateSource. location (URL. location))))