docstring have to be placed before arglist in defn

Signed-off-by: yenda <eric@status.im>
This commit is contained in:
yenda 2019-03-28 12:13:57 +01:00
parent 6eb806d2c1
commit 1de40487e8
No known key found for this signature in database
GPG Key ID: 0095623C0069DCE6
1 changed files with 9 additions and 5 deletions

View File

@ -7,28 +7,32 @@
:testnet "0x39d16CdB56b5a6a89e1A397A13Fe48034694316E" :testnet "0x39d16CdB56b5a6a89e1A397A13Fe48034694316E"
:rinkeby nil}) :rinkeby nil})
(defn pack-count [web3 contract cb] (defn pack-count
"Returns number of packs rigestered in the contract" "Returns number of packs rigestered in the contract"
[web3 contract cb]
(ethereum/call web3 (ethereum/call web3
(ethereum/call-params contract "packCount()") (ethereum/call-params contract "packCount()")
(fn [_ count] (cb (ethereum/hex->int count))))) (fn [_ count] (cb (ethereum/hex->int count)))))
(defn pack-data [web3 contract pack-id cb] (defn pack-data
"Returns vector of pack data parameters by pack id: [category owner mintable timestamp price contenthash]" "Returns vector of pack data parameters by pack id: [category owner mintable timestamp price contenthash]"
[web3 contract pack-id cb]
(ethereum/call web3 (ethereum/call web3
(ethereum/call-params contract "getPackData(uint256)" (ethereum/int->hex pack-id)) (ethereum/call-params contract "getPackData(uint256)" (ethereum/int->hex pack-id))
(fn [_ data] (fn [_ data]
(cb (when data (abi-spec/decode (subs data 2) ["bytes4[]" "address" "bool" "uint256" "uint256" "bytes"])))))) (cb (when data (abi-spec/decode (subs data 2) ["bytes4[]" "address" "bool" "uint256" "uint256" "bytes"]))))))
(defn owned-tokens [web3 contract address cb] (defn owned-tokens
"Returns vector of owned tokens ids in the contract by address" "Returns vector of owned tokens ids in the contract by address"
[web3 contract address cb]
(ethereum/call web3 (ethereum/call web3
(ethereum/call-params contract "tokensOwnedBy(address)" (ethereum/normalized-address address)) (ethereum/call-params contract "tokensOwnedBy(address)" (ethereum/normalized-address address))
(fn [_ data] (fn [_ data]
(cb (when data (first (abi-spec/decode (subs data 2) ["uint256[]"]))))))) (cb (when data (first (abi-spec/decode (subs data 2) ["uint256[]"])))))))
(defn token-pack-id [web3 contract token cb] (defn token-pack-id
"Returns pack id in the contract by token id" "Returns pack id in the contract by token id"
[web3 contract token cb]
(ethereum/call web3 (ethereum/call web3
(ethereum/call-params contract "tokenPackId(uint256)" (ethereum/int->hex token)) (ethereum/call-params contract "tokenPackId(uint256)" (ethereum/int->hex token))
(fn [_ data] (cb (ethereum/hex->int data))))) (fn [_ data] (cb (ethereum/hex->int data)))))