Link the repositories

Author: raszi

magit-standup.el

@@ -151,10 +151,11 @@ the org link prefix string, or nil for plain text."
   (let* ((parts (split-string line "\0"))
          (hash (car parts))
          (rest (cadr parts)))
-    (if link-prefix
-        (concat "[[" link-prefix ":" repo-path "::" hash "][" hash "]]"
-                " " rest)
-      (concat hash " " rest))))
+    (format "%s %s"
+            (if link-prefix
+                (format "[[%s:%s::%s][%s]]" link-prefix repo-path hash hash)
+              hash)
+            rest)))
 
 (defun magit-standup--collect-commits (repo-path since-date)
   "Collect commits from REPO-PATH since SINCE-DATE.
@@ -183,13 +184,13 @@ BRANCH-COMMITS is a cons of (BRANCH-NAME . COMMITS).
 LINK-PREFIX is the org link prefix string, or nil for plain text.
 Returns nil when BRANCH-COMMITS has no commits."
   (when (cdr branch-commits)
-    (concat "** ~" (car branch-commits) "~\n"
+    (format "** ~%s~\n%s\n"
+            (car branch-commits)
             (mapconcat
              (lambda (c)
-               (concat "- " (magit-standup--format-commit
-                             repo-path c link-prefix)))
-             (cdr branch-commits) "\n")
-            "\n")))
+               (format "- %s" (magit-standup--format-commit
+                               repo-path c link-prefix)))
+             (cdr branch-commits) "\n"))))
 
 (defun magit-standup--format-org (repo-commits &optional link-prefix)
   "Format REPO-COMMITS as `org-mode' text.
@@ -208,9 +209,9 @@ LINK-PREFIX is the org link prefix string, or nil for plain text."
                                  repo-path bc link-prefix))
                               (cdr entry)))))
        (when formatted
-         (concat "* " repo-name "\n\n"
-                 (mapconcat #'identity formatted "\n")
-                 "\n"))))
+         (format "* [[file:%s][%s]]\n\n%s\n"
+                 repo-path repo-name
+                 (mapconcat #'identity formatted "\n")))))
    repo-commits))
 
 (defun magit-standup--gather (&optional since-date repos)

test/magit-standup-test.el

@@ -187,7 +187,7 @@
                                                    "def456\0Add feature")))))
              nil)
             :to-equal
-            "* my-repo\n\n** ~main~\n- abc123 Fix bug\n- def456 Add feature\n\n"))
+            "* [[file:/home/user/my-repo][my-repo]]\n\n** ~main~\n- abc123 Fix bug\n- def456 Add feature\n\n"))
 
   (it "omits repos when all branches have no commits"
     (expect (magit-standup--format-org
@@ -201,15 +201,15 @@
                                         ("stale-branch"))))
              nil)
             :to-equal
-            "* my-repo\n\n** ~main~\n- abc Fix thing\n\n"))
+            "* [[file:/home/user/my-repo][my-repo]]\n\n** ~main~\n- abc Fix thing\n\n"))
 
   (it "shows multiple branches under one repo"
     (expect (magit-standup--format-org
              '(("/home/user/my-repo" . (("main" . ("abc\0Fix thing"))
                                         ("feature" . ("def\0Add thing")))))
              nil)
             :to-equal
-            (concat "* my-repo\n\n** ~main~\n- abc Fix thing\n"
+            (concat "* [[file:/home/user/my-repo][my-repo]]\n\n** ~main~\n- abc Fix thing\n"
                     "\n** ~feature~\n- def Add thing\n\n")))
 
   (it "separates multiple repos with blank lines"
@@ -218,15 +218,15 @@
                ("/home/user/repo-b" . (("develop" . ("def\0Other thing")))))
              nil)
             :to-equal
-            (concat "* repo-a\n\n** ~main~\n- abc Fix thing\n\n"
-                    "* repo-b\n\n** ~develop~\n- def Other thing\n\n")))
+            (concat "* [[file:/home/user/repo-a][repo-a]]\n\n** ~main~\n- abc Fix thing\n\n"
+                    "* [[file:/home/user/repo-b][repo-b]]\n\n** ~develop~\n- def Other thing\n\n")))
 
   (it "applies link-prefix to commits"
     (expect (magit-standup--format-org
              '(("/home/user/my-repo" . (("main" . ("abc\0Fix thing")))))
              "orgit-rev")
             :to-equal
-            "* my-repo\n\n** ~main~\n- [[orgit-rev:/home/user/my-repo::abc][abc]] Fix thing\n\n")))
+            "* [[file:/home/user/my-repo][my-repo]]\n\n** ~main~\n- [[orgit-rev:/home/user/my-repo::abc][abc]] Fix thing\n\n")))
 
 (describe "magit-standup--gather"
   (before-each