diff options
| author | Case Duckworth | 2022-08-21 18:02:46 -0500 |
|---|---|---|
| committer | Case Duckworth | 2022-08-21 18:02:46 -0500 |
| commit | c9a942aca66903d817b3b7df46488451a0bd7004 (patch) | |
| tree | c1e45bb1a98ba12c5917f24a54c21db367a01227 /radish.fnl | |
| parent | Modularize (diff) | |
| download | radish-c9a942aca66903d817b3b7df46488451a0bd7004.tar.gz radish-c9a942aca66903d817b3b7df46488451a0bd7004.zip | |
Move into src/ fennel
Diffstat (limited to 'radish.fnl')
| -rw-r--r-- | radish.fnl | 47 |
1 files changed, 0 insertions, 47 deletions
| diff --git a/radish.fnl b/radish.fnl deleted file mode 100644 index acba83f..0000000 --- a/radish.fnl +++ /dev/null | |||
| @@ -1,47 +0,0 @@ | |||
| 1 | ;;; RADISH | ||
| 2 | ;; A tuner for various streams | ||
| 3 | ;; Copyright (C) 2022 Case Duckworth <acdw@acdw.net> | ||
| 4 | ;; License: Good Choices (https://acdw.casa/gcl) | ||
| 5 | |||
| 6 | (local util (require :util)) | ||
| 7 | (local pls (require :pls)) | ||
| 8 | (local radish (require :lib)) | ||
| 9 | |||
| 10 | (fn usage [] | ||
| 11 | (util.printlns "RADISH: a tuner for various streams" | ||
| 12 | "Copyright (C) 2022 Case Duckworth <acdw@acdw.net>" | ||
| 13 | "License: Good Choices (https://acdw.casa/gcl)" | ||
| 14 | "" | ||
| 15 | "Commands" | ||
| 16 | " radish [STATION]" | ||
| 17 | " Begin playing STATION. If STATION is not" | ||
| 18 | " provided, display a list of favorites and" | ||
| 19 | " allow the user to choose one to play." | ||
| 20 | " radish play [STATION]" | ||
| 21 | " Begin playing STATION. If STATION is not" | ||
| 22 | " provided, play the most recently-played." | ||
| 23 | " radish kill" | ||
| 24 | " Kill the currently-playing station." | ||
| 25 | " radish add [STATION]" | ||
| 26 | " Add STATION or the currently-playing one" | ||
| 27 | " to the favorites list." | ||
| 28 | " radish del [STATION]" | ||
| 29 | " Remove STATION or the currently-playing" | ||
| 30 | " one from the favorites list." | ||
| 31 | " radish edit [STATION]" | ||
| 32 | " Edit the information of STATION, or the" | ||
| 33 | " current one if not given." | ||
| 34 | "" | ||
| 35 | "See radish(1) for more details.")) | ||
| 36 | |||
| 37 | (fn main [args] | ||
| 38 | (match args | ||
| 39 | [:play ?station] (radish.play ?station) | ||
| 40 | [:kill] (radish.kill) | ||
| 41 | [:add ?station] (radish.add ?station) | ||
| 42 | [:del ?station] (radish.del ?station) | ||
| 43 | [:edit ?station] (radish.edit ?station) | ||
| 44 | [station] (radish.play station) | ||
| 45 | _ (usage))) | ||
| 46 | |||
| 47 | (main arg) | ||