[feat] add chill-player

arch.scm

@@ -48,11 +48,22 @@
    "pavucontrol"
    ))
 
+(define %arch-misc
+  (list
+   "hy"
+   "python-requests"
+
+   "mpv"
+   ))
+
 (define arch-packages
   (append
    %arch-base-packages
    (if (not (equal? "lighthouse" (getlogin)))
-       %arch-de-things
+       (begin
+        %arch-de-things
+        %arch-misc
+        )
        '())))
 
 (define arch-services

files/bin/chill-player

@@ -0,0 +1,10 @@
+#!/usr/bin/env hy
+
+(import json)
+(import requests)
+(import subprocess)
+
+(while True
+  (for [item (.json (requests.get "https://stream.chillhop.com/live/12355"))]
+    (print f"Now playing: {(:title item)} - {(:artists item)} - {(:fileId item)}")
+    (subprocess.run f"mpv https://stream.chillhop.com/mp3/{(:fileId item)}" :shell True :capture_output True)))

files/zshrc

@@ -69,6 +69,7 @@ ZSH_THEME="fox"
 
 export LANG=en_US.UTF-8
 export LC_ALL=en_US.UTF-8
+export PATH="$HOME/.local/bin:$PATH"
 
 . $HOME/.guix-home/setup-environment
 

home-configuration.scm

@@ -54,7 +54,10 @@
        (service home-files-service-type
                 `((".config/hypr/hyprland.conf" ,(local-file "files/hyprland.conf"))
                   (".config/hypr/hyprlock.conf" ,(local-file "files/hyprlock.conf"))
-                  (".config/hypr/hyprpaper.conf" ,(local-file "files/hyprpaper.conf"))))
+                  (".config/hypr/hyprpaper.conf" ,(local-file "files/hyprpaper.conf"))
+                  ;; bin
+                  (".local/bin" ,(local-file "files/bin" #:recursive? #t))
+                  ))
        (service home-zsh-service-type
                 (home-zsh-configuration
                  (zshrc (list (local-file "files/zshrc"))))))))