parent
323a5f2f21
commit
a6f084d0b8
@ -0,0 +1,12 @@
|
|||||||
|
(ns wanijo.repl
|
||||||
|
(:require [clojurewerkz.neocons.rest.nodes :as nodes]
|
||||||
|
[clojurewerkz.neocons.rest.labels :as labels]
|
||||||
|
[buddy.hashers :as hashers]
|
||||||
|
[wanijo.neo4j :as neo4j]))
|
||||||
|
|
||||||
|
(defn create-user! [ident pw]
|
||||||
|
(let [node (nodes/create
|
||||||
|
neo4j/conn
|
||||||
|
{:ident ident
|
||||||
|
:pw (hashers/derive pw)})]
|
||||||
|
(labels/add neo4j/conn node "user")))
|
Loading…
Reference in new issue