Merge pull request #147 from mooseyboots/codeberg-permalink

Codeberg handler. format permalink correctly.

Author: sshaw

git-link-test.el

@@ -181,7 +181,7 @@
                  (git-link-codeberg "https://codeberg.org" "user/repo" "file.txt" "master" "abc123" 10 20)))
 
   ;; File link with commit instead of branch
-  (should (equal "https://codeberg.org/user/repo/src/abc123/file.txt"
+  (should (equal "https://codeberg.org/user/repo/src/commit/abc123/file.txt"
                  (git-link-codeberg "https://codeberg.org" "user/repo" "file.txt" nil "abc123" nil nil))))
 
 

git-link.el

@@ -606,16 +606,16 @@ is prepended to it."
       (concat "https://" web-host))))
 
 (defun git-link-codeberg (hostname dirname filename branch commit start end)
-    (format "%s/%s/src/%s/%s"
-	    hostname
-	    dirname
-	    (or branch commit)
-            (concat filename
-                    (when start
-                      (concat "#"
-                              (if end
-                                  (format "L%s-L%s" start end)
-                                (format "L%s" start)))))))
+  (format "%s/%s/src/%s/%s"
+	  hostname
+	  dirname
+          (or branch (concat "commit/" commit))
+          (concat filename
+                  (when start
+                    (concat "#"
+                            (if end
+                                (format "L%s-L%s" start end)
+                              (format "L%s" start)))))))
 
 (defun git-link-gitlab (hostname dirname filename branch commit start end)
   (format "%s/%s/-/blob/%s/%s"