Skip to content

Instantly share code, notes, and snippets.

@ninjudd

ninjudd/core.clj

Created May 10, 2012 19:11
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save ninjudd/2655199 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save ninjudd/2655199 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
core.clj
(macro-do [name]
(let [{:keys [varname meta]} (graph-impl name)]
`(defn ~name ~(:doc meta)
(~'[id]
(~name :over-layer ~'id))
(~'[layer-name id]
(~varname (layer ~'layer-name) ~'id))))
delete-node! undelete-node!
meta-node merge-head merged-into merge-ids merge-position node-deleted?)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment