dotfiles/setup.rkt

#!/usr/bin/racket
#lang racket

;; Script for setting up the config.

(require racket/runtime-path
         "setup/common.rkt")

;; Valid verbs
(define verbs '(install-scripts install-lsps-paru setup-nvim-config confgen))

(define verb
  (command-line
   #:program "setup.rkt"
   #:usage-help "Sets up my dotfiles. Available verbs:"
   "install-scripts, install-lsps-paru, setup-nvim-config, confgen"
   #:once-each [("-o" "--bin-output") o "Output directory for executables" (output-bin-path o)]
   #:args (verb)
   (string->symbol verb)))

;; Disable random printing of top-level stuff
(current-print void)

;; Set working directory to the location of the script
(begin
  (define-runtime-path script-dir ".")
  (current-directory script-dir))

;; Verify valid verb
(unless (for/or ([valid-verb verbs])
          (symbol=? valid-verb verb))
  (raise-user-error "Invalid verb" verb))

(match verb
  ['install-scripts
   (local-require "setup/commands/install-scripts.rkt")
   (run)]
  ['install-lsps-paru
   (local-require "setup/commands/install-lsps-paru.rkt")
   (run)]
  ['setup-nvim-config
   (local-require "setup/commands/setup-nvim-config.rkt")
   (run)]
  ['confgen
   (local-require "setup/commands/confgen.rkt")
   (run)])