diff --git a/files/bin/chill-player b/files/bin/chill-player.hy similarity index 64% rename from files/bin/chill-player rename to files/bin/chill-player.hy index a277de9..8309c1f 100755 --- a/files/bin/chill-player +++ b/files/bin/chill-player.hy @@ -7,10 +7,10 @@ (defn live-play [live-id] (while True (for [item (.json (requests.get f"https://stream.chillhop.com/live/{live-id}"))] - (print f"Now playing: {(:title item)} - {(:artists item)} - {(:fileId item)}") - (subprocess.run f"mpv --no-video https://stream.chillhop.com/mp3/{(:fileId item)}" - :shell True - :capture_output True)))) + (print f"Now playing: {(:title item)} - {(:artists item)} - {(:fileId item)}") + (subprocess.run f"mpv --no-video https://stream.chillhop.com/mp3/{(:fileId item)}" + :shell True + :capture_output True)))) (setv parser (argparse.ArgumentParser)) (parser.add_argument "-s" :action "store" :dest "station" :metavar "station" :required False) @@ -20,5 +20,5 @@ (let [presets (:presets (.json (requests.get "https://stream.chillhop.com/presets")))] (print "Now streaming...") (for [item presets] - (print f"Name: {(:name item)} station Id: {(:stationId item)}")) + (print f"Name: {(:name item)} station Id: {(:stationId item)}")) (live-play (input "Input station ID: "))) diff --git a/home-configuration.scm b/home-configuration.scm index ce62c41..493566b 100644 --- a/home-configuration.scm +++ b/home-configuration.scm @@ -56,7 +56,7 @@ (".config/hypr/hyprlock.conf" ,(local-file "files/hyprlock.conf")) (".config/hypr/hyprpaper.conf" ,(local-file "files/hyprpaper.conf")) ;; bin - (".local/bin/chill-player" ,(local-file "files/bin/chill-player" #:recursive? #t)) + (".local/bin/chill-player" ,(local-file "files/bin/chill-player.hy" #:recursive? #t)) )) (service home-zsh-service-type (home-zsh-configuration