     out-file))
 
 (defn speech-buffer
+  "Takes a string and returns an audio buffer with containing that text
+  read by one of the available voices defaulting to vicki.
+
+  (speech-buffer \"a nice cup of tea, please\" :voice :alex)
+
+  Voices to choose from are
+  :agnes, :kathy, :princess, :vicki, :victoria, :bruce, :fred, :junior,
+  :ralph, :alex, :albert, :zarvox, :trinoids, :whisper, :bahh, :boing,
+  :bubbles, :bad-news, :good-news, :deranged, :hysterical, :bells,
+  :cellos, :pipe-organ.
+
+  Currently available on OS X only."
   [text & {:as options}]
   (let [file (say text options)]
     (sample file)))

    [overtone.helpers.system :only (get-os)]
    [overtone.helpers.lib :only (uuid)]))

(def SPEECH-DIR (:speech OVERTONE-DIRS))

(def VOICES
  {:agnes "Agnes"
   :kathy "Kathy"
   :princess "Princess"

   :pipe-organ "Pipe Organ"        ; awesome ;-)
   })

(defmulti ^:private say (fn [& args] (get-os)))

(defmethod ^:private say :mac
  [text {:keys [voice]
         :or {voice :vicki}
         :as options}]
