mirror of
https://mzte.de/git/LordMZTE/dotfiles.git
synced 2024-12-15 01:03:40 +01:00
49 lines
1.3 KiB
Racket
Executable file
49 lines
1.3 KiB
Racket
Executable file
#!/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-plugins 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-plugins, 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-plugins
|
|
(local-require "setup/commands/install-plugins.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)])
|