filter-attribs excludes using attribute names with names shorter than three characters

[luxbock]

(defn filter-attribs
  [attribs]
  (loop [acc (transient attribs), ks (keys attribs)]
    (if ks
      (recur
       (if (= "__" (subs (name (first ks)) 0 2)) (dissoc! acc (first ks)) acc)
       (next ks))
      (persistent! acc))))

The call to subs prevents passing in keys such as :x or :y in the attribute map of a SVG hiccup vector. It would be handy to be able to use these with svg/group.