brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Always show git status if there is something to show in info.

Browse source
This commit is contained in:
Dominik Pantůček 2023-10-17 19:50:52 +02:00
parent f2b7384ff6
commit 831a0fb723
1 changed files with 16 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

27
src/hackerbase.scm
View file

@ -275,6 +275,19 @@
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Used both in print-info and git-status
(define (print-git-status)
(let ((status (git-status (*members-directory*))))
(newline)
(print "Repository " (*members-directory*) " status:")
(if (ldict-ref status 'clean)
(print " Repository up-to-date.")
(let loop ((keys '(unknown untracked modified)))
(when (not (null? keys))
(when (ldict-contains? status (car keys))
(print " " (car keys) ": " (length (ldict-ref status (car keys)))))
(loop (cdr keys)))))))
;; Perform requested action
(case (-action-)
((print-info)
@ -299,7 +312,8 @@
(when (not (null? missing))
(print " Missing: " missing))
(when (not (null? surplus))
(print " Outsiders: " surplus))))))))
(print " Outsiders: " surplus))))))
(print-git-status)))
(newline))
((print-stats)
(newline)
@ -383,16 +397,7 @@
(make+print-reminder-email (car lst)))
(loop (cdr lst))))))))
((status)
(let ((status (git-status (*members-directory*))))
(newline)
(print "Repository " (*members-directory*) " status:")
(if (ldict-ref status 'clean)
(print " Repository up-to-date.")
(let loop ((keys '(unknown untracked modified)))
(when (not (null? keys))
(when (ldict-contains? status (car keys))
(print " " (car keys) ": " (length (ldict-ref status (car keys)))))
(loop (cdr keys)))))))
(print-git-status))
((summary)
(if (-send-emails-)
(make+send-summary-email MB)