provide auth predicate

shadow-cljs.edn

@@ -3,7 +3,7 @@
                 "src/test/cljc"
                 "src/test/cljs"]
  :dependencies [[orchestra "2019.02.06-1"]
-                [expound "0.8.4"]]
+                [expound "0.8.9"]]
  :builds       {:test {:target    :node-test
                        :output-to "target/node-tests.js"
                        :autorun   true

src/main/cljc/mastodon_bot/core_domain.cljc

@@ -10,8 +10,13 @@
 (s/def ::mastodon md/mastodon-auth?)
 (s/def ::twitter twd/twitter-auth?)
 (s/def ::tumblr td/tumblr-auth?)
+
+(def auth? 
+  (s/keys :opt-un [::mastodon ::twitter ::tumblr]))
+(s/def ::auth auth?)
+
 (s/def ::transform trd/transformations?)
-(s/def ::auth (s/keys :opt-un [::mastodon ::twitter ::tumblr]))
+
 (def config? 
   (s/keys :req-un [::auth ::transform]))