mirror of
https://mzte.de/git/LordMZTE/dotfiles.git
synced 2024-11-15 22:43:02 +01:00
25 lines
877 B
Racket
Executable file
25 lines
877 B
Racket
Executable file
#!/usr/bin/env racket
|
|
#lang racket
|
|
|
|
;; Updates the neovim plugins
|
|
;; Packer is currently too dumb to do this is the plugins have been compiled
|
|
|
|
(define plugin-dir (expand-user-path "~/.local/share/nvim/site/pack/packer"))
|
|
|
|
(define dirs
|
|
(map (λ (path) (match-let-values ([(p _ _) (split-path path)]) p))
|
|
(find-files (λ (path) (equal? (path->string (last (explode-path path))) ".git"))
|
|
plugin-dir
|
|
#:follow-links? #f)))
|
|
|
|
(define git-path (find-executable-path "git"))
|
|
|
|
(for ([dir (in-list dirs)])
|
|
(let ([name (last (explode-path dir))]) (printf "\n====== ~a ======\n\n" name))
|
|
(parameterize ([current-directory dir])
|
|
(system* git-path "checkout" "." #:set-pwd? #t)
|
|
(system* git-path "pull" #:set-pwd? #t)))
|
|
|
|
(displayln "\n====== COMPILING ======\n")
|
|
(system* (find-executable-path "mzte-nv-compile") plugin-dir)
|
|
(void)
|