core.clj

(macro-do [name]
  (let [{:keys [varname meta]} (graph-impl name)]
    `(defn ~name ~(:doc meta)
       (~'[head-id tail-id]
        (apply ~name :over-layer ~'[head-id tail-id]))
       (~'[layer-name head-id tail-id]
        (apply ~varname (layer ~'layer-name) ~'[head-id tail-id]))))
  merge-node! unmerge-node!)

(macro-do [name](let [{:keys [varname meta]} %28graph-impl name%29]
`%28defn name %28:doc meta%29
%28'[head-id tail-id]
%28name :over-layer @'[head-id tail-id]%29%29
%28'[layer-name head-id tail-id]
%28~varname %28layer ~'layer-name%29 ~@'[head-id tail-id]%29%29%29)
merge-node! unmerge-node!)