Begin converting to fennel

3 files changed, 76 insertions, 4 deletions

@@ -1,7 +1,8 @@
 Copyright (C) 2022 Case Duckworth <acdw@acdw.net>
 
-Usage of the works is permitted provided that this instrument is retained with
-the works, so that any entity that uses the works is notified of this
-instrument.
+Everyone is permitted to do whatever with this software, without
+limitation.  This software comes without any warranty whatsoever,
+but with two pieces of advice:
 
-DISCLAIMER: THE WORKS ARE WITHOUT WARRANTY.
+- Don't hurt yourself.
+- Make good choices.
@@ -0,0 +1,5 @@
+;;; PLS.fnl
+;; a parser for *.pls files
+;; Copyright (C) 2022 Case Duckworth <acdw@acdw.net>
+;; License: Good Choices (https://acdw.casa/gcl)
+
@@ -0,0 +1,66 @@
+;;; RADISH
+;; A tuner for various streams
+;; Copyright (C) 2022 Case Duckworth <acdw@acdw.net>
+;; License: Good Choices (https://acdw.casa/gcl)
+
+;;; Entry point
+
+(fn usage []
+  (printn* "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."))
+
+(fn main [args]
+  (match args
+    [: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)
+    _ (usage)))
+
+;;; Utilities
+
+(lambda printn* [?sep ...]
+  "Print arguments as strings, delimited by ?SEP.
+?SEP defaults to '\n', but can be anything."
+  (print (table.concat [...] (or ?sep "\n"))))
+
+;;; Functionality
+
+(lambda radish-play [?station])
+
+(lambda radish-kill [])
+
+(lambda radish-add [?station])
+
+(lambda radish-del [?station])
+
+(lambda radish-edit [?station])
+
+;;; End
+
+(main args)