aboutsummaryrefslogtreecommitdiff
path: root/cli
diff options
context:
space:
mode:
Diffstat (limited to 'cli')
-rwxr-xr-xcli43
1 files changed, 0 insertions, 43 deletions
diff --git a/cli b/cli
deleted file mode 100755
index a2f8a44..0000000
--- a/cli
+++ /dev/null
@@ -1,43 +0,0 @@
-#!/usr/bin/env racket
-#lang racket
-
-(define pastebin-verbose? (make-parameter #false))
-(define pastebin-title (make-parameter ""))
-(define slide-verbose? (make-parameter #false))
-
-(define subcommand
- (command-line
- #:program "website-cli"
- #:args (subcommand . subcommand-options)
- (match subcommand
- ["pastebin"
- (command-line
- #:program "website-cli pastebin"
- #:argv subcommand-options
- #:multi
- [("-v" "--verbose") "dunno" (pastebin-verbose? #true)]
- [("-t" "--title") title "The title of the pastebin, will be slugified for creating the filename." (pastebin-title title)])]
- ["slide"
- (command-line
- #:program "website-cli slide"
- #:argv subcommand-options
- #:usage-help
- "woeifj ijfe"
- #:multi
- [("-v" "--verbose") "Turn on verbose mode" (slide-verbose? #false)]
- #:help-labels
- "oefijeifjeijfiejfijeij ijij"
- #:ps "ps")]
- [_
- (printf "Invalid subcommand: ~a\n" subcommand)
- (exit 1)])
- subcommand))
-
-(define out
- (match subcommand
- ["pastebin"
- (system "./pastebin/new.sh")]
- ["slide"
- (system "./slides/new.sh")]))
-
-(exit (if out 0 1))