From dfb1e2dfb491e7377287608f6ffbfd6f02991ccd Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Mon, 24 Dec 2018 18:03:26 -0200
Subject: Add initial Racket CLI for handling scripts.

---
 cli | 43 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)
 create mode 100755 cli

(limited to 'cli')

diff --git a/cli b/cli
new file mode 100755
index 0000000..a2f8a44
--- /dev/null
+++ b/cli
@@ -0,0 +1,43 @@
+#!/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))
-- 
cgit v1.2.3