clojure rdf test

tester.clj

(ns rdf-bi.core)


(defn dc [property]
  (str "http://purl.org/dc/elements/1.1/contributor/" (name property)))

(defn rdfs [property]
  (str "http://www.w3.org/2000/01/rdf-schema#" (name property)))  

(defn rdf [property]
  (str "http://www.w3.org/1999/02/22-rdf-syntax-ns#" (name property)))


(defn resource [res]
  (str "<"res">"))

(defn literal [l]
  (do l))

(def ^:dynamic *subject* nil)

(defmacro with-subject [subject & body]
  `(binding [*subject*  ~subject]
     (str ~@body)))


(defn triple [p o]
  (str *subject* " " p " " o " .\n"))