Add os-name and os-type to orchard.misc

Author: liquidz

src/orchard/misc.clj

@@ -3,8 +3,19 @@
    [clojure.java.io :as io]
    [clojure.string :as str]))
 
+(def os-name
+  (str/lower-case (System/getProperty "os.name")))
+
+(def os-type
+  (condp #(str/includes? %2 %1) os-name
+    "linux" ::os-linux
+    "mac" ::os-mac
+    "windows" ::os-windows
+    "bsd" ::os-bsd
+    ::os-not-supported))
+
 (defn os-windows? []
-  (.startsWith (System/getProperty "os.name") "Windows"))
+  (= ::os-windows os-type))
 
 (defn boot-fake-classpath
   "Retrieve Boot's fake classpath.