support optional .git at end of git remote (#621)

Author: leahneukirchen

.gitattributes

@@ -1,3 +1,4 @@
 ;; always force unix line endings to make hashing consistent
 * text eol=lf
 *.png binary
+*.db binary

src/nextjournal/clerk/git.clj

@@ -12,7 +12,7 @@
 #_(shell-out-str "zonk")
 
 (defn ->github-project [remote-url]
-  (second (re-find #"^git@github\.com:(.*)(\.git)?$" remote-url)))
+  (second (re-find #"^git@github\.com:(.*?)(\.git)?$" remote-url)))
 
 (defn ->https-git-url
   "Takes a git `remote-url` and tries to convert it into a https url for

test/nextjournal/clerk/git_test.clj

@@ -0,0 +1,24 @@
+(ns nextjournal.clerk.git-test
+  (:require [clojure.test :refer [deftest is testing]]
+            [nextjournal.clerk.git :as git]))
+
+(deftest ->github-project
+  (testing "works with .git suffix"
+    (is (= "nextjournal/clerk"
+           (git/->github-project "[email protected]:nextjournal/clerk.git"))))
+  (testing "works without .git suffix"
+    (is (= "nextjournal/clerk"
+           (git/->github-project "[email protected]:nextjournal/clerk"))))
+  (testing "works only for github"
+    (is (nil? (git/->github-project "[email protected]:other/host.git")))))
+
+(deftest ->https-git-url
+  (testing "works for https"
+    (is (= "https://github.com/nextjournal/clerk"
+           (git/->https-git-url "https://github.com/nextjournal/clerk.git")))
+    (is (= "https://gitlab.com/other/host"
+           (git/->https-git-url "https://gitlab.com/other/host.git"))))
+  (testing "rewrites github ssh to https"
+    (is (= "https://github.com/nextjournal/clerk"
+           (git/->https-git-url "[email protected]:nextjournal/clerk.git")))))
+