LordMZTE/dotfiles
1
0
Fork 0
mirror of https://mzte.de/git/LordMZTE/dotfiles.git synced 2024-05-18 15:04:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

sysupdate script: keep track of failures

Browse source
This commit is contained in:
LordMZTE 2023-11-14 13:29:27 +01:00
parent 6abcccb08a
commit ca4d26eec6
Signed by: LordMZTE
GPG key ID: B64802DC33A64FF6
1 changed files with 11 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
scripts/sysupdate.rkt
View file

@ -8,12 +8,15 @@
#:usage-help "Update the system"
#:once-each [("-n" "--noint") "Don't require user interaction" (noint #t)])
(define failures '())
(define (cmd exe . args)
(match (find-executable-path exe)
[#f (printf "skipping command ~a, command not found\n" (cons exe args))]
[exepath
(printf ">>> ~a\n" (cons exe args))
(apply system* exepath args)]))
(match* ((find-executable-path exe) (cons exe args))
[(#f argv) (printf "skipping command ~a, command not found\n" argv)]
[(exepath argv)
(printf ">>> ~a\n" argv)
(unless (apply system* exepath args)
(set! failures (cons argv failures)))]))
(apply cmd (if (noint)
'("paru" "-Syu" "--noconfirm")
@ -22,3 +25,6 @@
(cmd "rustup" "update")
(cmd "update-nvim-plugins")
(cmd "tldr" "--update")
(unless (empty? failures)
(raise-user-error "The following commands failed:" failures))