added command structure for git calling
This commit is contained in:
@@ -150,6 +150,7 @@
|
||||
|
||||
(define (git-displ out)
|
||||
(let ((str (if (string? out) out (string-join out "\n"))))
|
||||
(info-git str)
|
||||
(when (cfg-get 'git 'display-output #t)
|
||||
(displayln str))))
|
||||
(unless (string=? (string-trim str) "")
|
||||
(info-git str)
|
||||
(when (cfg-get 'git 'display-output #t)
|
||||
(displayln str)))))
|
||||
|
||||
Reference in New Issue
Block a user