(ns dev.util (:require [clojure.java.io :as io] [clojure.java.shell :as sh])) | |
(set! *warn-on-reflection* true) | |
Returns :win, :mac, :unix, or nil | (defn- os [] (condp #(<= 0 (.indexOf ^String %2 ^String %1)) (.toLowerCase (System/getProperty "os.name")) "win" :win "mac" :mac "nix" :unix "nux" :unix nil)) |
Opens the given file (a string, File, or file URI) in the default application for the current desktop environment. Returns nil taken from https://github.com/aysylu/loom/blob/master/src/loom/io.clj | (defn os-open
[f]
(let [f (io/file f)]
;; There's an 'open' method in java.awt.Desktop but it hangs on Windows
;; using Clojure Box and turns the process into a GUI process on Max OS X.
;; Maybe it's ok for Linux?
(condp = (os)
:mac (sh/sh "open" (str f))
:win (sh/sh "cmd" (str "/c start " (-> f .toURI .toURL str)))
:unix (sh/sh "xdg-open" (str f)))
nil)) |