From c9a942aca66903d817b3b7df46488451a0bd7004 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Sun, 21 Aug 2022 18:02:46 -0500 Subject: Move into src/ --- radish.fnl | 47 ----------------------------------------------- 1 file changed, 47 deletions(-) delete mode 100644 radish.fnl (limited to 'radish.fnl') diff --git a/radish.fnl b/radish.fnl deleted file mode 100644 index acba83f..0000000 --- a/radish.fnl +++ /dev/null @@ -1,47 +0,0 @@ -;;; RADISH -;; A tuner for various streams -;; Copyright (C) 2022 Case Duckworth -;; 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 " - "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) -- cgit 1.4.1-21-gabe81