add get helpers for min/max keys; alpha release

.github/workflows/test.yaml

@@ -8,7 +8,7 @@ on:
       - master
 
 jobs:
-  upload-assets:
+  test:
     runs-on: ubuntu-latest
     steps:
       - uses: actions/checkout@v2

README.md

@@ -7,7 +7,7 @@ bisection-key
 ### Usage
 
 ```edn
-[cirru/bisection-key "0.1.5"]
+[cirru/bisection-key "0.1.6-a1"]
 ```
 
 [![Clojars Project](https://img.shields.io/clojars/v/cirru/bisection-key.svg)](https://clojars.org/cirru/bisection-key)
@@ -32,6 +32,9 @@ bisection-key.core/max-id ; "z"
 (bisection-key.util/assoc-before v "b" 2) ; (assoc v "aT" 2)
 (bisection-key.util/assoc-prepend v 2) ; (assoc v "G" 2)
 (bisection-key.util/assoc-append v 2) ; (assoc v "n" 2)
+
+(bisection-key.util/get-min-key v) ; "a"
+(bisection-key.util/get-max-key v) ; "b"
 ```
 
 Charset:

deps.edn

@@ -4,9 +4,9 @@
   :aliases {
     :release {
       :extra-deps {
-        appliedscience/deps-library {:mvn/version "0.3.4"}
+        applied-science/deps-library {:mvn/version "0.4.0"}
       }
-      :main-opts ["-m" "deps-library.release"]
+      :main-opts ["-m" "applied-science.deps-library"]
     }
   }
 }

package.json

@@ -1,6 +1,6 @@
 {
   "name": "bisection-key",
-  "version": "0.1.5",
+  "version": "0.1.6-a1",
   "description": "Bisection key library",
   "main": "index.js",
   "scripts": {
@@ -18,9 +18,9 @@
   "author": "jiyinyiyong",
   "license": "MIT",
   "devDependencies": {
-    "shadow-cljs": "^2.8.94",
-    "source-map-loader": "^0.2.4",
-    "ws": "^7.2.3"
+    "shadow-cljs": "^2.10.19",
+    "source-map-loader": "^1.0.1",
+    "ws": "^7.3.1"
   },
   "dependencies": {}
 }

release.edn

@@ -1,4 +1,4 @@
-{:version "0.1.5"
+{:version "0.1.6-a1"
  :group-id "cirru"
  :artifact-id "bisection-key"
  :skip-tag true

src/bisection_key/test.cljs

@@ -11,7 +11,9 @@
               key-prepend
               key-append
               assoc-prepend
-              assoc-append]]))
+              assoc-append
+              get-min-key
+              get-max-key]]))
 
 (deftest
  test-append
@@ -51,6 +53,12 @@
      (let [new-id (bisect min-id x)] (if (<= i 40) (recur (inc i) new-id) x)))
    "++++++/")))
 
+(deftest
+ test-get-key
+ (testing "get min key" (is (= "a" (get-min-key {"a" 1, "b" 2}))))
+ (testing "get max key" (is (= "b" (get-max-key {"a" 1, "b" 2}))))
+ (testing "get nil" (is (= nil (get-min-key {}))) (is (= nil (get-max-key {})))))
+
 (deftest
  test-key-after
  (is (= (key-after {"a" 1, "b" 1} "a") "aT"))

src/bisection_key/util.cljs

@@ -46,3 +46,7 @@
 (defn assoc-prepend [dict v]
   (assert (map? dict) "dict should be a map")
   (let [k (key-prepend dict)] (assoc dict k v)))
+
+(defn get-max-key [x] (apply max (keys x)))
+
+(defn get-min-key [x] (apply min (keys x)))