dotfiles/setup.rkt

47 lines
1.2 KiB
Racket
Raw Normal View History

#!/usr/bin/racket
#lang racket
;; Script for setting up the config.
2023-05-04 23:19:34 +02:00
(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
2023-05-04 23:19:34 +02:00
[(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)])