Operating System dependent dispatch of multimethods in clojure

README.md

This is me trying out clojure's multimethods for a problem I'm trying to solve. See this Stack Overflow question for follow up.

Note that implementation namespaces are named utils-linux and utils-windows instead of utils.linux and utils.windows because Gists can't have subdirectories.

main.clj

(ns main
  (:use utils))

(require (case current-os
           :linux 'utils-linux
           :windows 'utils-windows))

(where-am-i)

utils.clj

(ns utils)

(def current-os (-> (System/getProperty "os.name")
                  .toLowerCase
                  keyword))

(defmulti where-am-i
  (fn [& _] current-os))

utils_linux.clj

(ns utils-linux
  (:use utils))

(defmethod where-am-i :linux
  []
  (prn (str "I am running on " (System/getProperty "os.name"))))