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
(when (not (for/or ([valid-verb verbs])
             (symbol=? valid-verb verb)))
  (error "Invalid verb" verb))

(case 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)])