Add tzzh example
This commit is contained in:
parent
23a9af2969
commit
f655a532e8
1 changed files with 34 additions and 0 deletions
34
examples/tzzh_aws.clj
Normal file
34
examples/tzzh_aws.clj
Normal file
|
|
@ -0,0 +1,34 @@
|
||||||
|
(require '[babashka.pods :as pods])
|
||||||
|
(pods/load-pod 'tzzh/aws "0.0.3")
|
||||||
|
(require '[pod.tzzh.dynamodb :as d])
|
||||||
|
(require '[pod.tzzh.s3 :as s3])
|
||||||
|
(require '[pod.tzzh.paginator :as p])
|
||||||
|
|
||||||
|
|
||||||
|
(d/list-tables)
|
||||||
|
|
||||||
|
(d/batch-get-item {:RequestItems
|
||||||
|
{"AmazingTable" {:Keys [{:some-property {:S "SomeValue"}
|
||||||
|
:something-else {:S "SomethingSomething"}}]}}})
|
||||||
|
|
||||||
|
(d/batch-write-item {:RequestItems
|
||||||
|
{"AmazingTable" [{:PutRequest {:Item {:some-property {:S "abxdggje"}
|
||||||
|
:something-else {:S "zxcmbnj"}
|
||||||
|
:another-thing {:S "asdasdsa"}}}}]}})
|
||||||
|
|
||||||
|
(d/get-item {:Key {:lalala {:S "zzzzzzzz"}
|
||||||
|
:bbbbbb {:S "abxbxbxx"}}
|
||||||
|
:TableName "SomeTable"})
|
||||||
|
|
||||||
|
(d/describe-table {:TableName "SomeTable"})
|
||||||
|
|
||||||
|
(s3/list-buckets)
|
||||||
|
|
||||||
|
;; Paginators example
|
||||||
|
(let [s3-paginator (p/get-paginator s3/list-objects-v2-pages)]
|
||||||
|
(s3-paginator {:Bucket "some-bucket"
|
||||||
|
:Prefix "some-prefix/something/"}))
|
||||||
|
;; this returns a list of all the pages i.e a list of ListObjectsV2Output that are lazily fetched
|
||||||
|
|
||||||
|
(let [glue-paginator (p/get-paginator g/list-crawlers)]
|
||||||
|
(glue-paginator))
|
||||||
Loading…
Reference in a new issue