Improve style of setup.rkt script

Co-authored-by: Jimmy McNutt <jmcnuttc@gmail.com>
This commit is contained in:
LordMZTE 2023-05-25 14:44:04 +02:00
parent abd14e0b34
commit d6e65f12b4
Signed by: LordMZTE
GPG key ID: B64802DC33A64FF6

View file

@ -27,20 +27,20 @@
(current-directory script-dir)) (current-directory script-dir))
;; Verify valid verb ;; Verify valid verb
(when (not (for/or ([valid-verb verbs]) (unless (for/or ([valid-verb verbs])
(symbol=? valid-verb verb))) (symbol=? valid-verb verb))
(error "Invalid verb" verb)) (raise-user-error "Invalid verb" verb))
(case verb (match verb
[(install-scripts) ['install-scripts
(local-require "setup/commands/install-scripts.rkt") (local-require "setup/commands/install-scripts.rkt")
(run)] (run)]
[(install-lsps-paru) ['install-lsps-paru
(local-require "setup/commands/install-lsps-paru.rkt") (local-require "setup/commands/install-lsps-paru.rkt")
(run)] (run)]
[(setup-nvim-config) ['setup-nvim-config
(local-require "setup/commands/setup-nvim-config.rkt") (local-require "setup/commands/setup-nvim-config.rkt")
(run)] (run)]
[(confgen) ['confgen
(local-require "setup/commands/confgen.rkt") (local-require "setup/commands/confgen.rkt")
(run)]) (run)])