meissa/c4k-mastodon-bot
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

fix uberjar validation

Browse source
This commit is contained in:
jem 2021-03-19 16:26:13 +01:00
parent 87c0c53df1
commit 27f3d80643
5 changed files with 70 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
src/main/clj/dda/k8s_mastodon_bot/uberjar.clj
View file

@ -34,18 +34,23 @@
(if (= ::s/invalid parsed-args-cmd)
(invalid-args-msg ::cmd-args cmd-args)
(let [{:keys [options args]} parsed-args-cmd
config (slurp (:config args))
auth (slurp (:auth args))]
{:keys [config auth]} args]
(cond
(some #(= "-h" %) options)
(println usage)
:default
(let [config-edn (edn/read-string config)
auth-edn (edn/read-string auth)
config-valid? (= ::s/invalid (s/conform ::core/config config-edn))
auth-valid? (= ::s/invalid (s/conform ::core/config auth-edn))]
(let [config-str (slurp (:config args))
auth-str (slurp (:auth args))
config-edn (edn/read-string config-str)
auth-edn (edn/read-string auth-str)
config-valid? (s/valid? core/config? config-edn)
auth-valid? (s/valid? core/auth? auth-edn)]
(if (and config-valid? auth-valid?)
(println (core/generate config auth))
(println (core/generate config-str auth-str))
(do
(when (not config-valid?) (expound-config config-edn))
(when (not auth-valid?) (expound-config auth-edn))))))))))
(when (not config-valid?)
(println
(expound/expound-str core/config? config-edn {:print-specs? false})))
(when (not auth-valid?)
(println
(expound/expound-str core/auth? auth-edn {:print-specs? false})))))))))))

1
src/test/resources/invalid-auth.edn Normal file
View file

@ -0,0 +1 @@
{:xx {}}

27
src/test/resources/invalid-config.edn Normal file
View file

@ -0,0 +1,27 @@
{:transform [{:source {:source-type :twitter
;; optional, defaults to false
:include-replies? false
;; optional, defaults to false
:include-rts? false
;; Replace Twitter links by Nitter
:nitter-urls? 42
;; accounts you wish to mirror
:accounts ["arstechnica" "WIRED"]}
:target {:target-type :mastodon
;; optional flag specifying wether the name of the account
;; will be appended in the post, defaults to false
:append-screen-name? false
;; optional visibility flag: direct, private, unlisted, public
;; defaults to public
:visibility "unlisted"
;; optional boolean to mark content as sensitive. Defaults to true.
:sensitive? true
;; optional boolean defaults to false
;; only sources containing media will be posted when set to true
:media-only? true
;; optional limit for the post length. Defaults to 300.
:max-post-length 300
;; optional signature for posts. Defaults to "not present".
:signature "#newsbot"}
}]
:auth {}}

1
src/test/resources/valid-auth.edn Normal file
View file

@ -0,0 +1 @@
{:auth {}}

27
src/test/resources/valid-config.edn Normal file
View file

@ -0,0 +1,27 @@
{:transform [{:source {:source-type :twitter
;; optional, defaults to false
:include-replies? false
;; optional, defaults to false
:include-rts? false
;; Replace Twitter links by Nitter
:nitter-urls? false
;; accounts you wish to mirror
:accounts ["arstechnica" "WIRED"]}
:target {:target-type :mastodon
;; optional flag specifying wether the name of the account
;; will be appended in the post, defaults to false
:append-screen-name? false
;; optional visibility flag: direct, private, unlisted, public
;; defaults to public
:visibility "unlisted"
;; optional boolean to mark content as sensitive. Defaults to true.
:sensitive? true
;; optional boolean defaults to false
;; only sources containing media will be posted when set to true
:media-only? true
;; optional limit for the post length. Defaults to 300.
:max-post-length 300
;; optional signature for posts. Defaults to "not present".
:signature "#newsbot"}
}]
:auth {}}