Replace ~ with - in default alphabet

* Replace ~ to - in default alphabet

* fix order

Co-Authored-By: Aleksandr Zhuravlev <kvark.lark@gmail.com>

* fix order

Co-Authored-By: Aleksandr Zhuravlev <kvark.lark@gmail.com>

* Fix tests

Co-Authored-By: Aleksandr Zhuravlev <kvark.lark@gmail.com>

Author: JulienMalige

README.md

@@ -12,7 +12,7 @@ nano-id uses [SecureRandom](https://docs.oracle.com/javase/7/docs/api/java/secur
 nano-id generates compact IDs with just 21 characters. By using a larger alphabet than UUID, nano-id can generate a greater number of unique IDs, when compared to UUID, with fewer characters (21 versus 36).
 
 ### URL-Friendly
-nano-id uses URL-friendly characters `[A-Za-z0-9_~]`. Perfect for unique identifiers in web applications.
+nano-id uses URL-friendly characters `[A-Za-z0-9_-]`. Perfect for unique identifiers in web applications.
 
 ## Usage
 ### Normal
@@ -48,7 +48,7 @@ user=> (my-nano-id 10)
 
 Or your custom random number generator, for example
 ```clojure
-(let [alphabet "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ_abcdefghijklmnopqrstuvwxyz~"
+(let [alphabet "-0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ_abcdefghijklmnopqrstuvwxyz"
       time-gen (fn [n] (take n (iterate #(unsigned-bit-shift-right % 6)
                                         (quot (System/currentTimeMillis) 1000))))
       time-id  (generate alphabet time-gen)]

src/nano_id/core.cljc

@@ -3,7 +3,7 @@
 
 
 (def alphabet
-  (vec (map str "_~0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ")))
+  (vec (map str "_-0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ")))
 
 
 (defn nano-id

test/nano_id/custom_test.cljc

@@ -22,7 +22,7 @@
           (is (util/close? distribution 1.0))))))
 
   (testing "custom random"
-    (let [alphabet "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ_abcdefghijklmnopqrstuvwxyz~"
+    (let [alphabet "-0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ_abcdefghijklmnopqrstuvwxyz"
           prng     (fn [n] (take n (iterate #(unsigned-bit-shift-right % 6) 2377900801)))
           gen-id   (generate alphabet prng)]
-      (is (= (gen-id 6) "2DjzC1")))))
+      (is (= (gen-id 6) "1CiyB0")))))

test/nano_id/util.cljc

@@ -2,7 +2,7 @@
 
 
 (defn ^boolean valid-id? [id]
-  (re-matches #"^[A-Za-z0-9_~]+$" id))
+  (re-matches #"^[A-Za-z0-9_-]+$" id))
 
 
 (defn ^boolean close? [^double x ^double y]