jadedctrl/ cl-ipfs-api2
1
0
Disbranĉigi 0
Fontkodo Issues 6 Tirpetoj 1 Activity

Updated name calls, fixed returns

This commit is contained in:
Jaidyn Levesque 2019-06-18 03:04:19 -05:00
parent 813e780f83
commit aa24f7c6c6
2 changed files with 30 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
main.lisp
View File

@ -679,17 +679,41 @@
("allow-offline" ,allow-offline) ("allow-offline" ,allow-offline)
,(if ttl (list "ttl" ttl)))))) ,(if ttl (list "ttl" ttl))))))
;; STRING → ALIST || (NIL STRING) ;; STRING → STRING || (NIL STRING)
(defun name-pubsub-cancel (name) (defun name-pubsub-cancel (name)
"Cancel subscription to a name. "Cancel subscription to a name.
/ipns/docs.ipfs.io/reference/api/http/#api-v0-name-pubsub-cancel" /ipns/docs.ipfs.io/reference/api/http/#api-v0-name-pubsub-cancel"
(bind-api-alist (ipfs-call "name/pubsub/cancel" `(("arg" ,name))))) (bind-api-result (ipfs-call "name/pubsub/cancel" `(("arg" ,name)))
(gethash "Canceled" result)))
;; NIL → ALIST || (NIL STRING) ;; NIL → STRING || (NIL STRING)
(defun name-pubsub-state () (defun name-pubsub-state ()
"Query the state of IPNS pubsub. "Query the state of IPNS pubsub.
/ipns/docs.ipfs.io/reference/api/http/#api-v0-name-pubsub-state" /ipns/docs.ipfs.io/reference/api/http/#api-v0-name-pubsub-state"
(bind-api-alist (ipfs-call "name/pubsub/state" '()))) (bind-api-result (ipfs-call "name/pubsub/state" '())
(gethash "Enabled" result)))
;; NIL → STRING || (NIL STRING)
(defun name-pubsub-subs ()
"Show current name subscriptions.
/ipns/docs.ipfs.io/reference/api/http/#api-v0-name-pubsub-subs"
(bind-api-result (ipfs-call "name/pubsub/subs" '())
(gethash "Strings" result)))
;; STRING [:BOOLEAN :BOOLEAN :NUMBER :STRING] → STRING || (NIL STRING)
(defun name-resolve (name &key (recursive 't) (nocache "")
(dht-record-count nil) (dht-timeout nil))
"Resolve a given IPNS name.
/ipns/docs.ipfs.io/reference/api/http/#api-v0-name-resolve"
(bind-api-result
(ipfs-call "name/resolve" `(("arg" ,name)("recursive" ,recursive)
,(when (not (empty-string-p nocache))
(list "nocache" nocache))
,(when dht-record-count
(list "dht-record-count" dht-record-count))
,(when dht-timeout
(list "dht-timeout" dht-timeout))))
(gethash "Path" result)))

2
package.lisp
View File

@ -98,6 +98,8 @@
:name-publish :name-publish
:name-pubsub-cancel :name-pubsub-cancel
:name-pubsub-state :name-pubsub-state
:name-pubsub-subs
:name-resolve
;; pubsub calls ;; pubsub calls
:pubsub-sub :pubsub-sub