Adding version support and fixing ssl following oracle/graal#1336

dev/user.clj

@@ -2,5 +2,5 @@
   (:require
     [clojure.repl :refer :all]
     [clojure.tools.namespace.repl :refer (refresh refresh-all)]
-    [tmuxificator.core :refer :all]))
+    tmx.core))
 

java.security.overrides

@@ -0,0 +1,2 @@
+# security.provider.3=org.bouncycaste.jce.provider.BouncyCastleProvider
+security.provider.3=bcprov

project.clj

@@ -16,6 +16,12 @@
       [org.clojure/tools.reader "1.3.2"]
 
       [com.taoensso/timbre "4.10.0"]
+
+      [org.martinklepsch/clj-http-lite "0.4.1"]
+      [org.clojure/data.json "0.2.6"]
+
+      [org.bouncycastle/bcprov-jdk15on "1.61"]
+      [org.bouncycastle/bctls-jdk15on "1.61"]
     ]
 
   :plugins [
@@ -55,12 +61,13 @@
   :native-image {
       :name "tmx"
       :graal-bin "/opt/graalvm-ce-19.2.0.1/bin/native-image"
-      :opts ["-H:EnableURLProtocols=http"
-             "--report-unsupported-elements-at-runtime"
-             "--enable-https"
-             "--initialize-at-build-time"
-             "--verbose"
-             "--no-fallback"]
+      :opts [
+        "--no-server"
+        "--report-unsupported-elements-at-runtime"
+        "--initialize-at-build-time"
+        "-J-Djava.security.properties=java.security.overrides"
+        "-H:EnableURLProtocols=https"
+        "--verbose"]
   }
 
   :main ^:skip-aot tmx.core

src/tmx/core.clj

@@ -1,11 +1,23 @@
 (ns tmx.core
   (:gen-class)
   (:require
+   [clojure.data.json :as json]
+   [clj-http.lite.client :as client]
    [clojure.java.io :as io]
    [clojure.edn :as edn]
    [clojure.core.strint :refer  (<<)]
    [clojure.java.shell :refer (sh)]))
 
+(defn tags [user repo]
+  (json/read-str
+   (:body (client/get (<< "https://api.github.com/repos/~{user}/~{repo}/tags"))) :key-fn keyword))
+
+(defn version []
+  (let [current  "0.1.0" last-version (:name (last (sort-by :name (tags "narkisr" "tmx"))))]
+    (if-not (= current last-version)
+      (println (<< "tmx version is ~{current} the latest version is ~{last-version} please upgrade"))
+      (println "tmx" current))))
+
 (defn stderr [e]
   (binding [*out* *err*]
     (println e)))
@@ -47,6 +59,7 @@ Usage:
   (try
     (case (first args)
       "start" (launch (second args))
+      "version" (version)
       "help" (help)
       nil (help))
     (catch Exception e