Skip to content

Instantly share code, notes, and snippets.

@uwo

uwo/.gitignore

Last active November 15, 2018 21:23
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save uwo/4f87f199182f0217e361bd30a0d7b6d8 to your computer and use it in GitHub Desktop.
Save uwo/4f87f199182f0217e361bd30a0d7b6d8 to your computer and use it in GitHub Desktop.
Download ZIP
osx-sounds
Raw
.gitignore
.cpcache/
.nrepl-port
Raw
deps.edn
{:paths ["."]}
Raw
osx_sounds.clj
(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