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

Add file listing and retrieving file’s JSON representation 

Beginning to work on uploading files, I have yet to find how to upload
one with `url.el' and its sister libraries.
This commit is contained in:
Lucien Cartier-Tilet 2022-07-13 18:55:45 +02:00
parent 7bee6dcc04
commit ece11e12e5
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA
2 changed files with 73 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
TODOs.org
View File

@ -88,7 +88,7 @@
*** TODO Update Document
*** TODO Delete Document
** TODO Storage [5/13]
** TODO Storage [7/13]
*** DONE Create bucket
CLOSED: [2022-07-13 Wed 14:28]
*** DONE List buckets
@ -100,8 +100,10 @@ CLOSED: [2022-07-13 Wed 16:35]
*** DONE Delete Bucket
CLOSED: [2022-07-13 Wed 14:28]
*** TODO Create File
*** TODO List Files
*** TODO Get File
*** DONE List Files
CLOSED: [2022-07-13 Wed 18:30]
*** DONE Get File
CLOSED: [2022-07-13 Wed 18:50]
*** TODO Get File Preview
*** TODO Get File for Download
*** TODO Get File for View

68
appwrite.el
View File

@ -353,6 +353,74 @@ acquired JSON. Otherwise, return nil and warn the user."
204
response)))
(cl-defun appwrite-storage-create-file (bucket-id file-id file &key read write)
"Upload FILE in BUCKET-ID as FILE-ID.
Additionally give the file extra READ or WRITE user permissions.
TODO: implement file upload."
(let ((file (expand-file-name file)))
(unless (file-exists-p file)
(error "File does not exist: %s" file)
(let ((payload `(bucketId ,bucket-id fileId ,file-id file ,file)))
(when read (setq payload (append payload `(read ,read))))
(when write (setq payload (append payload `(write ,write))))
(json-encode-plist payload))))
(warn "The file upload part of `appwrite-storage-create-file' hasn't been implemented yet"))
(cl-defun appwrite-storage-list-files (id &key search limit offset cursor cursor-direction order-type)
"List files in storage bucket ID.
SEARCH is a term that can filter the list results. Max length:
256 chars.
LIMIT is the maximum number of files to return. Appwrite
defaults to 25.
OFFSET manages pagination in the search result. Appwrite
defaults to 0.
CURSOR is the ID of the file used as the starting point for the
query, excluding the file itself.
CURSOR-DIRECTION can be either \\='after or \\='before.
ORDER-TYPE can be either \\='ascending or \\='descending.
If the query is successful, return a hash table made from the
acquired JSON. Otherwise, return nil and warn the user."
(let ((payload `(bucketId ,id)))
(when search (setq payload `(search ,search)))
(when limit (setq payload `(limit ,limit)))
(when offset (setq payload `(offset ,offset)))
(when cursor (setq payload `(cursor ,cursor)))
(when-let ((direction (pcase cursor-direction
('before "before")
('after "after")
(_ nil))))
(setq payload (append payload `(cursorDirection ,direction))))
(when-let ((order (pcase order-type
('ascending "ASC")
('descending "DESC")
(_ nil))))
(setq payload (append payload `(orderType ,order))))
(let ((response (appwrite--query-api :api (format "/v1/storage/buckets/%s/files"
id)
:payload (json-encode-plist payload))))
(appwrite--process-response "Failed to list files" 200 response))))
(defun appwrite-storage-get-file (bucket-id file-id)
"Retrieve a file object from a bucket.
The bucket is determined by its id BUCKET-ID while the file is
determined by its id FILE-ID.
This does not download the file! For that, see
`appwrite-storage-get-file-download'."
(let ((payload `(bucketId ,bucket-id fileId ,file-id)))
(appwrite--query-api :api (format "/v1/storage/buckets/%s/files/%s"
bucket-id
file-id)
:payload (json-encode-plist payload))))
;;; Functions