ci: test-matrix: natural sort by job description

Small thing, but sorts jdk8 before jdk11 which makes github actions workflow
job listing easier to follow.

Author: lread

script/helper/natural_sort.clj

@@ -0,0 +1,28 @@
+;; Thanks to https://gist.github.com/wilkerlucio/db54dc83a9664124f3febf6356f04509
+(ns helper.natural-sort
+  (:refer-clojure :exclude [sort sort-by])
+  (:require [clojure.string]))
+
+(defn vector-compare [[value1 & rest1] [value2 & rest2]]
+  (let [result (compare value1 value2)]
+    (cond
+      (not (zero? result)) result
+      (nil? value1) 0
+      :else (recur rest1 rest2))))
+
+(defn prepare-string [s]
+  (let [s (or s "")
+        parts (vec (clojure.string/split s #"\d+"))
+        numbers (->> (re-seq #"\d+" s)
+                     (map parse-long)
+                     (vec))]
+    (vec (interleave (conj parts "") (conj numbers -1)))))
+
+(defn natural-compare [a b]
+  (vector-compare (prepare-string a)
+                  (prepare-string b)))
+
+(defn sort [coll] (clojure.core/sort natural-compare coll))
+
+(defn sort-by [keyfn coll]
+  (clojure.core/sort-by keyfn natural-compare coll))

script/test_matrix.clj

@@ -3,6 +3,7 @@
             [cheshire.core :as json]
             [clojure.string :as string]
             [doric.core :as doric]
+            [helper.natural-sort :as natural-sort]
             [helper.main :as main]
             [lread.status-line :as status]))
 
@@ -76,7 +77,7 @@
            (for [jdk-version (get os-jdks "ubuntu")
                  :when (not= jdk-version (:jdk-version default-opts))]
              (test-doc {:jdk-version jdk-version :os "ubuntu"})))
-         (sort-by :desc)
+         (natural-sort/sort-by :desc)
          (into [(merge default-opts {:os "ubuntu" :cmd "bb lint" :desc "lint"})])
          (mapv #(assoc % :id (string/replace (:desc %) " " "-"))))))