From 9934dd7fae3b881690df158b3f15a5f96c3aed72 Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Sat, 29 Dec 2018 09:38:39 -0200
Subject: WIP: Use Perl instead of Racket for CLI.

---
 cli | 43 -------------------------------------------
 1 file changed, 43 deletions(-)
 delete mode 100755 cli

(limited to 'cli')

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))
-- 
cgit v1.2.3