(ns emptyhead.idea.memtag
  (:require [emptyhead.idea.property :as prop]
            [emptyhead.idea.protocol :as prtc]))

(defn add-group! [idea & group]
  (let [group (or group
                  [:emptyhead :memtag :group (keyword (gensym "memtag#group$"))])]
    (prop/register-property! idea group)
    group))

(defn uid-of [idea]
  [:emptyhead :memtag :uid (prtc/ref-fn keyword idea)])
