phundrak
/
appwrite.el
mirror of https://github.com/Phundrak/appwrite.el.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Add ability to update buckets

This commit is contained in:
Lucien Cartier-Tilet 2022-07-13 16:35:28 +02:00
parent 15fcf95fa1
commit 03b73f6fbb
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA
2 changed files with 72 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
TODOs.org
View File

@ -1,3 +1,5 @@
#+startup: overview
* TODO Implement API [0/8]
** TODO Accounts [0/20]
*** TODO Get Account
@ -86,14 +88,15 @@
*** TODO Update Document
*** TODO Delete Document
** TODO Storage [4/13]
** TODO Storage [5/13]
*** DONE Create bucket
CLOSED: [2022-07-13 Wed 14:28]
*** DONE List buckets
CLOSED: [2022-07-13 Wed 15:33]
*** DONE Get Bucket
CLOSED: [2022-07-13 Wed 15:34]
*** TODO Update Bucket
*** DONE Update Bucket
CLOSED: [2022-07-13 Wed 16:35]
*** DONE Delete Bucket
CLOSED: [2022-07-13 Wed 14:28]
*** TODO Create File

81
appwrite.el
View File

@ -184,15 +184,18 @@ Content-Type in the headers is \"application/json\"."
;;; Storage
(cl-defun appwrite-storage-create-bucket (id
name
&key
(permission "bucket")
read write (enabled t)
maximum-file-size allowed-file-extensions
(encryption t) (antivirus t))
"Create bucket.
Create bucket named NAME with id ID.
(cl-defun appwrite--storage-update-bucket (id
name
&key
updatep
(permission "bucket")
read write (enabled t)
maximum-file-size allowed-file-extensions
(encryption t) (antivirus t))
"Create or update a storage bucket.
Create or update a storage bucket named NAME with id ID.
If UPDATEP is t, update the bucket, else create it.
PERMISSION is the permissioin type model to use for reading files
in this bucket. By default, PERMISSION is \"bucket\". For more
@ -217,7 +220,8 @@ larger than 20MB are skipped. t by default.
If ANTIVIRUS is t, enable antivirus for the bucket. Files larger
than 20MB are skipped. t by default."
(let ((payload `(bucketId ,id name ,name permission ,permission)))
(let ((payload `(bucketId ,id name ,name permission ,permission))
(method (if updatep "PUT" "POST")))
(when read
(setq payload (append payload `(read ,read))))
(when write
@ -230,13 +234,62 @@ than 20MB are skipped. t by default."
(setq payload (append payload `(encryption ,(if encryption t :json-false))))
(setq payload (append payload `(antivirus ,(if antivirus t :json-false))))
;; (json-encode-plist payload)
(let ((response (appwrite--query-api :method "POST"
:api "/v1/storage/buckets"
(let ((response (appwrite--query-api :method method
:api (concat "/v1/storage/buckets/"
(if updatep id ""))
:payload (json-encode-plist payload))))
(appwrite--process-response (concat "Failed to create bucket " id)
201
(appwrite--process-response (format "Failed to %s bucket %s"
(if updatep "update" "create")
id)
(if updatep 200 201)
response))))
(cl-defun appwrite-storage-create-bucket (id
name
&key
(permission "bucket")
read write (enabled t)
maximum-file-size allowed-file-extensions
(encryption t) (antivirus t))
"Create storage bucket.
For documentation on ID, NAME, PERMISSION, READ, WRITE, ENABLED,
MAXIMUM-FILE-SIZE, ALLOWED-FILE-EXTENSIONS, ENCRYPTION, and
ANTIVIRUS, check `appwrite--storage-update-bucket'."
(appwrite--storage-update-bucket id
name
:updatep nil
:permission permission
:read read
:write write
:enabled enabled
:maximum-file-size maximum-file-size
:allowed-file-extensions allowed-file-extensions
:encryption encryption
:antivirus antivirus))
(cl-defun appwrite-storage-update-bucket (id
name
&key
(permission "bucket")
read write (enabled t)
maximum-file-size allowed-file-extensions
(encryption t) (antivirus t))
"Create storage bucket.
For documentation on ID, NAME, PERMISSION, READ, WRITE, ENABLED,
MAXIMUM-FILE-SIZE, ALLOWED-FILE-EXTENSIONS, ENCRYPTION, and
ANTIVIRUS, check `appwrite--storage-update-bucket'."
(appwrite--storage-update-bucket id
name
:updatep t
:permission permission
:read read
:write write
:enabled enabled
:maximum-file-size maximum-file-size
:allowed-file-extensions allowed-file-extensions
:encryption encryption
:antivirus antivirus))
(cl-defun appwrite-storage-list-buckets (&key search (limit 25) offset cursor cursor-direction order-type)
"List of all storage buckets.