What ditaa would look like in Clojure

ditaa.clj

(require '[clojure.string :as string])
 
(defn gget [grid [x y]]
  (get-in grid [y x] \space))
 
(defn gassoc [grid [x y] v]
  (assoc-in grid [y x] v))
 
(defn dimensions [grid]
  [(apply max (map count grid)) (count grid)])
 
(defn print-grid [grid]
  (doseq [row grid]
    (println (apply str row))))
 
(defn load-grid [file]
  (-> file
      (slurp)
      (string/split #"\r?\n")
      (->> (map vec))
      (vec)))

(defn non-recursive-nodes [g]
  (apply disj (set (:nodes g)) (apply concat (self-recursive-sets g))))

(defn merge-graph [a b]
  (struct-map directed-graph
    :nodes (into #{} (concat (:nodes a) (:nodes b)))
    :neighbors (fn [n] (concat ((:neighbors a) n)
                               ((:neighbors b) n)))))