From 1a3b8b1aa1c67c4e643eb236d0418fe6c2281778 Mon Sep 17 00:00:00 2001 From: pho4cexa Date: Tue, 6 Dec 2022 07:51:24 -0800 Subject: [PATCH] undo logic specific to use as git hook, for now i've got a more complete fix in stash but it's taking too long to complete and i want your cli to work again! this should do it. --- main.scm | 16 +--------------- 1 file changed, 1 insertion(+), 15 deletions(-) diff --git a/main.scm b/main.scm index 6faf4b0..08566af 100755 --- a/main.scm +++ b/main.scm @@ -180,20 +180,6 @@ string-block (unless (in-git-directory?) (bail 1 "woops that's not a bare git directory")) - (let ((head-ref (call-with-input-pipe "git symbolic-ref -q HEAD" read-line))) - - (when (null? head-ref) - (bail 1 "no HEAD reference is set")) - - ;; loop over the changed refs - ;; if the HEAD ref is changed, generate html for it - ((flip for-each) - (read-lines) - (lambda (line) - ;; isn't there a better way to destructure a list? - ;; egg 'matchable' has match-let - (let-values (((before after ref) (apply values (string-split line)))) - (when (equal? ref head-ref) - (generate-html-files))))))) + (generate-html-files)) (main (command-line-arguments))