Hey Ludo, Ludovic Courtès <[email protected]> writes:
> Hi, > > Maxim Cournoyer <[email protected]> skribis: > >> +(define %savannah-guix-git-repo-push-url >> + "git.savannah.gnu.org/srv/git/guix.git") > > [...] > >> +(define (find-origin-remote) >> + "Find the name of the git remote with the Savannah Guix git repo URL." >> + (and-let* ((remotes (string-split (with-input-pipe-to-string >> + "git" "remote" "-v") >> + #\newline)) >> + (origin-entry (find (cut string-contains <> >> + (string-append >> + %savannah-guix-git-repo-push-url >> + " (push)")) >> + remotes))) >> + (first (string-split origin-entry #\tab)))) > > I noticed that this returns #f for me because I’m using git.sv.gnu.org, > not git.savannah.gnu.org. Thank for the report! It should be fixed with 13a3b9c748a80c0d4c79450e479416480273d2f7. Feel free to edit the %savannah-guix-git-repo-push-url-regexp regexp if there are more variants that we're still missing. Maxim
