Skip to content

Instantly share code, notes, and snippets.

@uwo
Last active November 15, 2018 21:23
Show Gist options
  • Save uwo/4f87f199182f0217e361bd30a0d7b6d8 to your computer and use it in GitHub Desktop.
Save uwo/4f87f199182f0217e361bd30a0d7b6d8 to your computer and use it in GitHub Desktop.
osx-sounds
.cpcache/
.nrepl-port
{:paths ["."]}
(ns osx-sounds
(:require [clojure.java.shell :refer [sh]]))
(defn play [filepath] (sh "afplay" filepath "-v" "10" "-q" "1"))
(defn osx-submarine [] (play "/System/Library/Sounds/Submarine.aiff"))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment