;;; 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 []
  (util.printlns "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)))

(main arg)