Hi, Maxim Cournoyer <maxim.courno...@gmail.com> 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. Initially I thought it would break due to i18n, but it seems that the string “push” is not translated (currently). Ludo’.
