wip

.gitlab-ci.yml

@@ -99,7 +99,6 @@ release:
   rules:
     - if: '$CI_COMMIT_TAG != null'
   variables:
-    CI_COMMIT_TAG: "0.1.1"
     PACKAGE_REGISTRY_URL: "${CI_API_V4_URL}/projects/${CI_PROJECT_ID}/packages/generic"
     UBERJAR_URL: "${PACKAGE_REGISTRY_URL}/k8s-mastodon-bot-standalone/${$CI_COMMIT_TAG}/k8s-mastodon-bot-standalone.jar"
     FRONTEND_URL: "${PACKAGE_REGISTRY_URL}/k8s-mastodon-bot/${$CI_COMMIT_TAG}/k8s-mastodon-bot.js"

package.json

@@ -2,7 +2,7 @@
   "name": "k8s-mastodon-bot",
   "description": "Generate k8s yaml for a mastodon-bot deployment.",
   "author": "meissa GmbH",
-  "version": "0.1.2",
+  "version": "0.1.3-SNAPSHOT",
   "homepage": "https://gitlab.com/domaindrivenarchitecture/k8s-mastodon-bot#readme",
   "repository": "https://www.npmjs.com/package/k8s-mastodon-bot",
   "license": "APACHE2",

project.clj

@@ -1,4 +1,4 @@
-(defproject dda/k8s-mastodon-bot "0.1.2"
+(defproject dda/k8s-mastodon-bot "0.1.3-SNAPSHOT"
   :description "common utils for dda config"
   :url "https://www.domaindrivenarchitecture.org"
   :license {:name "Apache License, Version 2.0"

public/index.html

@@ -22,23 +22,24 @@
                         :nitter-urls? false
                         ;; accounts you wish to mirror
                         :accounts ["arstechnica" "WIRED"]}
-                :target {:target-type :mastodon
+              :target {:target-type :mastodon
-                      ;; optional flag specifying wether the name of the account
+                        ;; optional flag specifying wether the name of the account
-                      ;; will be appended in the post, defaults to false
+                        ;; will be appended in the post, defaults to false
-                      :append-screen-name? false
+                        :append-screen-name? false
-                      ;; optional visibility flag: direct, private, unlisted, public
+                        ;; optional visibility flag: direct, private, unlisted, public
-                      ;; defaults to public
+                        ;; defaults to public
-                      :visibility "unlisted"
+                        :visibility "unlisted"
-                      ;; optional boolean to mark content as sensitive. Defaults to true.
+                        ;; optional boolean to mark content as sensitive. Defaults to true.
-                      :sensitive? true
+                        :sensitive? true
-                      ;; optional boolean defaults to false
+                        ;; optional boolean defaults to false
-                      ;; only sources containing media will be posted when set to true
+                        ;; only sources containing media will be posted when set to true
-                      :media-only? true
+                        :media-only? true
-                      ;; optional limit for the post length. Defaults to 300.
+                        ;; optional limit for the post length. Defaults to 300.
-                      :max-post-length 300
+                        :max-post-length 300
-                      ;; optional signature for posts. Defaults to "not present".
+                        ;; optional signature for posts. Defaults to "not present".
-                      :signature "#newsbot"}
+                        :signature "#newsbot"}
-                    }]}
+            }]
+ :auth {}}}
       </textarea><br><br>
 
     <label for="auth" class="form-label">Your auth.edn:</label>

src/main/clj/dda/k8s_mastodon_bot/uberjar.clj

@@ -3,12 +3,9 @@
   (:require
    [clojure.spec.alpha :as s]
    [clojure.string :as cs]
-   [expound.alpha :as expound]
    [clojure.java.io :as io]
    [dda.k8s-mastodon-bot.core :as core]))
 
-(alter-var-root #'s/*explain-out* (constantly expound/printer))
-
 (def usage
   "usage:
   

src/main/cljc/dda/k8s_mastodon_bot/core.cljc

@@ -1,10 +1,18 @@
 (ns dda.k8s-mastodon-bot.core
   (:require
    [clojure.string :as cs]
+   [clojure.spec.alpha :as s]
+   [clojure.spec.test.alpha :as st]
    #?(:clj [orchestra.core :refer [defn-spec]]
       :cljs [orchestra.core :refer-macros [defn-spec]])
-      [mastodon-bot.core-domain :as cd]
+   [expound.alpha :as expound]
-      [dda.k8s-mastodon-bot.yaml :as yaml]))
+   [mastodon-bot.core-domain :as cd]
+   [dda.k8s-mastodon-bot.yaml :as yaml]))
+
+#?(:clj (alter-var-root #'s/*explain-out* (constantly expound/printer))
+   :cljs (set! s/*explain-out* expound/printer))
+
+(s/def ::config cd/config?)
 
 (defn generate-config [my-config my-auth]
   (->
@@ -18,11 +26,11 @@
    (yaml/from-string (yaml/load-resource "deployment.yaml"))))
 
 (defn-spec generate any?
-  [my-config cd/config?
+  [my-config ::config
    my-auth cd/auth?] 
   (cs/join "\n" 
            [(yaml/to-string (generate-config my-config my-auth))
             "---"
             (yaml/to-string (generate-deployment))]))
 
-
+(st/instrument 'dda.k8s-mastodon-bot.core)

src/main/cljs/dda/k8s_mastodon_bot/browser.cljs

@@ -1,12 +1,8 @@
 (ns dda.k8s-mastodon-bot.browser
   (:require
    [clojure.spec.alpha :as s]
-   [clojure.spec.test.alpha :as st]
-   [expound.alpha :as expound]
    [dda.k8s-mastodon-bot.core :as core]))
 
-(set! s/*explain-out* expound/printer)
-
 (defn config-from-document []
   (-> js/document
       (.getElementById "config")
@@ -17,7 +13,7 @@
       (.getElementById "auth")
       (.-value)))
 
-(defn render-to-document
+(defn render-output-to-document
   [input]
   (-> js/document
       (.getElementById "output")
@@ -29,7 +25,11 @@
       (.getElementById "generate-button")
       (.addEventListener "click" 
                          #(-> (core/generate (config-from-document) (auth-from-document))
-                              (render-to-document)))))
+                              (render-output-to-document)
-
+                              (print "1"))))
-
+  (-> js/document
-(st/instrument 'dda.k8s-mastodon-bot.core)
+      (.getElementById "config")
+      (.addEventListener "blur"
+                         #(-> (s/explain ::core/config (config-from-document))
+                              (print))))
+  )

src/test/cljc/dda/k8s_mastodon_bot/core_test.cljc

@@ -0,0 +1,13 @@
+(ns dda.k8s-mastodon-bot.core-test
+  (:require
+   #?(:clj [clojure.test :refer [deftest is are testing run-tests]]
+      :cljs [cljs.test :refer-macros [deftest is are testing run-tests]])
+   [dda.k8s-mastodon-bot.core :as cut]))
+
+(deftest should-generate-yaml
+  (is (=  {:apiVersion "v1", :kind "ConfigMap"
+           :metadata {:name "mastodon-bot", 
+                      :labels {:app.kubernetes.io/name "k8s-mastodon-bot"}}, 
+           :data {:config.edn "some-config-value\n", 
+                  :credentials.edn "some-credentials-value\n"}}
+          (cut/from-string (cut/load-resource "config.yaml")))))

src/test/cljc/dda/k8s_mastodon_bot/yaml_test.cljc

@@ -1,6 +1,7 @@
 (ns dda.k8s-mastodon-bot.yaml-test
   (:require
-   [clojure.test :refer [deftest is testing are]]
+   #?(:clj [clojure.test :refer [deftest is are testing run-tests]]
+      :cljs [cljs.test :refer-macros [deftest is are testing run-tests]])
    [dda.k8s-mastodon-bot.yaml :as cut]))
 
 (deftest should-parse-yaml-string