about summary refs log tree commit diff stats
path: root/radish.fnl
diff options
context:
space:
mode:
authorCase Duckworth2022-08-21 18:02:46 -0500
committerCase Duckworth2022-08-21 18:02:46 -0500
commitc9a942aca66903d817b3b7df46488451a0bd7004 (patch)
treec1e45bb1a98ba12c5917f24a54c21db367a01227 /radish.fnl
parentModularize (diff)
downloadradish-c9a942aca66903d817b3b7df46488451a0bd7004.tar.gz
radish-c9a942aca66903d817b3b7df46488451a0bd7004.zip
Move into src/ fennel
Diffstat (limited to 'radish.fnl')
-rw-r--r--radish.fnl47
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)