Move into src/ fennel

6 files changed, 177 insertions, 0 deletions

@@ -0,0 +1,44 @@
+;;; LIB.fnl
+;; Radish library
+
+(local util (require :util))
+(local pls (require :pls))
+(local mpv (require :mpv))
+
+(local protocols {:http (fn [url]
+                          (mpv.play))
+                  :https :find
+                  :shuf :noise})
+
+(local radish-config (.. (or (os.getenv :XDG_CONFIG_HOME)
+                             (.. (os.getenv :HOME) :/.config))
+                         :/radish/stations))
+
+(local radish-pid :/tmp/radish.pid)
+(local radish-lp (.. (or (os.getenv :XDG_CACHE_HOME)
+                         (.. (os.getenv :HOME) :/.cache))
+                     :/radish.lastplayed))
+
+(local radish-status :/tmp/radish.status)
+
+(fn play [?station]
+  "Begin playing STATION.
+STATION can be a stream using one of `protocols', which see.  If it's not
+present, or if STATION doesn't match a protocol in `protocols', allow the user
+to choose one from their favorites.")
+
+(fn kill []
+  "Kill the current invocation of `radish'."
+  (let [pid ()]))
+
+(fn add [?station]
+  (print :add))
+
+(fn del [?station]
+  (print :del))
+
+(fn edit [?station]
+  (print :edit))
+
+{: play : kill : add : del : edit}
+
@@ -0,0 +1,51 @@
+;;; RADISH
+;; A tuner for various streams
+;; Copyright (C) 2022 Case Duckworth <acdw@acdw.net>
+;; License: Good Choices (https://acdw.casa/gcl)
+
+(local util (require :util))
+(local pls (require :pls))
+(local radish (require :lib))
+
+(fn usage [?exit-code]
+  (print "RADISH: a tuner for various streams
+Copyright (C) 2022 Case Duckworth <acdw@acdw.net>
+License: Good Choices (https://acdw.casa/gcl)
+
+Commands
+    radish [STATION]
+        Begin playing STATION.  If STATION is not
+        provided, display a list of favorites and
+        allow the user to choose one to play.
+    radish play [STATION]
+        Begin playing STATION.  If STATION is not
+        provided, play the most recently-played.
+    radish kill
+        Kill the currently-playing station.
+    radish add [STATION]
+        Add STATION or the currently-playing one
+        to the favorites list.
+    radish del [STATION]
+        Remove STATION or the currently-playing
+        one from the favorites list.
+    radish edit [STATION]
+        Edit the information of STATION, or the
+        current one if not given.
+
+See radish(1) for more details.")
+  (os.exit (or ?exit-code 0)))
+
+(fn main [...]
+  "Program entry point.
+See `usage' for usage details."
+  (match [...]
+    [:help] (usage)
+    [:play ?station] (radish.play ?station)
+    [:kill] (radish.kill)
+    [:add ?station] (radish.add ?station)
+    [:del ?station] (radish.del ?station)
+    [:edit ?station] (radish.edit ?station)
+    [station] (radish.play ?station)))
+
+(main ...)
+
@@ -0,0 +1,4 @@
+;;; MPV.fnl
+;; bad bindings to mpv
+
+(fn )
@@ -0,0 +1,51 @@
+;;; PLS.fnl
+;; a parser for *.pls files
+;; Copyright (C) 2022 Case Duckworth <acdw@acdw.net>
+;; License: Good Choices (https://acdw.casa/gcl)
+
+;; https://en.wikipedia.org/wiki/PLS_(file_format)
+
+(fn split-lines [str]
+  "Split STR into a list of lines."
+  (icollect [ln (: str :gmatch "([^\n]*)\n?")]
+    ln))
+
+(fn parse [str]
+  "Parse a list of LINES into a playlist."
+  ;; This /maybe/ should take a string, I suppose.
+  (let [t []]
+    (each [_ l (ipairs (split-lines str))]
+      (let [(ltype num title) (: l :match "^(.*)([0-9]+)=(.*)")]
+        (when (and ltype num title)
+          (let [ltype (string.lower ltype)
+                num (tonumber num)]
+            (if (. t num)
+                (tset t num ltype title)
+                (tset t num {ltype title}))))))
+    t))
+
+(fn read [file]
+  "Read a .pls FILE into a playlist."
+  (with-open [p (io.open file)]
+    (parse (: p :read :*a))))
+
+(fn serialize [playlist]
+  "Serialize a PLAYLIST into a .pls-formatted string."
+  (let [s (icollect [n i (ipairs playlist)]
+            (.. (string.format "File%d=%s\n" n (. i :file))
+                (if (. i :title)
+                    (string.format "Title%d=%s\n" n (. i :title))
+                    "")
+                (if (. i :length)
+                    (string.format "Length%d=%s\n" n (. i :length))
+                    "")))]
+    (.. "[playlist]\n\n" (table.concat s "\n") "\n\n" :NumberOfEntries=
+        (length s) "\n" "Version=2\n")))
+
+(fn write [playlist file]
+  "Write PLAYLIST to FILE."
+  (with-open [p (io.open file :w)]
+    (: p :write (serialize playlist))))
+
+{: parse : read : serialize : write}
+
@@ -0,0 +1,18 @@
+[playlist]
+
+File1=http://relay5.181.fm:8068
+Length1=-1
+
+File2=example2.mp3
+Title2=Just some local audio that is 2mins long
+Length2=120
+
+File3=F:\Music\whatever.m4a
+Title3=absolute path on Windows
+
+File4=%UserProfile%\Music\short.ogg
+Title4=example for an Environment variable
+Length4=5
+
+NumberOfEntries=4
+Version=2
@@ -0,0 +1,9 @@
+;;; UTIL.fnl
+;; Utility functions
+;; Copyright (C) 2022 Case Duckworth <acdw@acdw.net>
+;; License: Good Choices (https://acdw.casa/gcl)
+
+(local util {})
+
+util
+