; -*- mode: clojure -*-
; A utility to listen to your ebooks using TTS programs
+;
+; This utility only works on macOS for now.
(require '[clojure.java.io :as io]
'[clojure.string :refer [split]]
'[lib :refer [run-cmd extract-file-from-zip unixify]])
;; TODO Check if all required utilities are installed
-
;; TODO Allow voice selection
-(println "Selected voice is Samantha")
+
+(let [default-voice (run-cmd ["defaults" "read" "com.apple.speech.voice.prefs" "SelectedVoiceName"])]
+ (println (str "Will read using the default voice " default-voice)))
;; TODO Use festival-tts or say depending on OS