gistfile1.txt

(defn create-attr-map
  [attr-code attr-type src-code]
  {"attribute"
   {"name"          attr-code
    "attributeType" {"href" (format "/foundation/v2/attributeTypes/%s" attr-type)}
    "source"        {"href" (format "/foundation/v2/%s" src-code)}}})

(comment
  (def att0 (create-attr-map "new-attr-code" "String" "System"))
  (json-encode att0))

(defn put-attr
  "Put an attribute into wikeo"
  [attr-code attr-type src-code]
  (wikeo-query :put
               (format        "/foundation/v2/attributes/%s" attr-code)
               {:body         (json-encode (create-attr-map attr-code attr-type src-code))
                :content-type :json}))