micro_sexp_template.clj

(ns fuga.core
  (:require
    [evalive.core   :refer [evil]]
    [clojure.string :as    str]))

(defn- to-sym [x]
  (symbol (name x)))

(defn- key-map->sym-map [m]
  (into {} (map (fn [[k v]] [(to-sym k) v]) m)))

(defn render [s data]
  (let [m (key-map->sym-map data)]
    (str/replace s #"\((\(.+?\))\)"
                 (fn [[_ form]]
                   (str (evil m (read-string form)))))))

(defn -main []
  (println (render "hello ((str x))" {:x "world"}))
  ; => hello world
  (println (render "1 + 2 + ((str n)) = ((+ 1 2 n))" {:n 3}))
  ; => 1 + 2 + 3 = 6
  (println (render "((if flag 'foo 'bar))" {:flag true}))
  ; => foo
  )