southfox/guix-config
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[feat] add station select for chill-player

Browse source
This commit is contained in:
SouthFox 2024-12-31 11:34:48 +08:00
parent 7918ef0b3a
commit 8c25e4163f
1 changed files with 19 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
files/bin/chill-player
View file

@ -1,10 +1,24 @@
#!/usr/bin/env hy
(import json)
(import requests)
(import subprocess)
(import argparse)
(while True
(for [item (.json (requests.get "https://stream.chillhop.com/live/12355"))]
(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)))
(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)
(setv args (parser.parse_args))
(when args.station (live-play args.station))
(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)}"))
(live-play (input "Input station ID: ")))