[wip] show repo

lisp/forge-notify.el

@@ -171,7 +171,7 @@
         (if (eq forge-notifications-display-style 'flat)
             (magit-insert-section-body
               (dolist (notif notifs)
-                (forge-insert-notification notif width))
+                (forge-insert-notification notif width t))
               (insert ?\n))
           (pcase-dolist (`(,_ . ,notifs)
                          (--group-by (oref it repository) notifs))
@@ -188,11 +188,11 @@
                     (forge-insert-notification notif width))
                   (insert ?\n))))))))))
 
-(defun forge-insert-notification (notif width)
+(defun forge-insert-notification (notif width show-repo)
   (with-slots (type topic title url unread-p) notif
     (pcase type
       ((or 'issue 'pullreq)
-       (forge-insert-topic (forge-get-topic notif) nil width))
+       (forge-insert-topic (forge-get-topic notif) nil width nil show-repo))
       ('commit
        (magit-insert-section (ncommit nil) ; !commit
          (string-match "[^/]*\\'" url)

lisp/forge-pullreq.el

@@ -257,7 +257,7 @@ Also see option `forge-topic-list-limit'."
           (magit-make-margin-overlay nil t))))))
 
 (cl-defmethod forge--insert-topic-contents :after ((pullreq forge-pullreq)
-                                                   _width _prefix)
+                                                   &rest _ignored)
   (unless (oref pullreq merged)
     (magit-insert-heading)
     (forge--insert-pullreq-commits pullreq)))

lisp/forge-repo.el

@@ -272,6 +272,8 @@ an error."
 If there is no such repository and DEMAND is non-nil, then signal
 an error."
   (or (magit-section-value-if 'forge-repo)
+      (and-let* ((topic (forge-topic-at-point nil 'not-thingatpt)))
+        (forge-get-repository topic))
       (and (derived-mode-p 'forge-repository-list-mode)
            (forge-get-repository :id (tabulated-list-get-id)))
       (and demand (user-error "No repository at point"))))

lisp/forge-topic.el

@@ -329,7 +329,8 @@ implement such a function themselves.  See #447.")
           (insert ?\n)
           (magit-make-margin-overlay nil t))))))
 
-(defun forge-insert-topic (topic &optional topic-section-type width prefix)
+(defun forge-insert-topic ( topic
+                            &optional topic-section-type width prefix show-repo)
   "Insert TOPIC as a new section.
 If TOPIC-SECTION-TYPE is provided, it is the section type to use.
 If WIDTH is provided, it is a fixed width to use for the topic
@@ -339,7 +340,7 @@ identifier."
           (cond ((forge--childp topic 'forge-issue) 'issue)
                 ((forge--childp topic 'forge-pullreq) 'pullreq))))
   (magit-insert-section ((eval topic-section-type) topic t)
-    (forge--insert-topic-contents topic width prefix)))
+    (forge--insert-topic-contents topic width prefix show-repo)))
 
 (cl-defmethod forge--format-topic-id ((topic forge-topic) &optional prefix)
   (propertize (format "%s%s"
@@ -354,9 +355,14 @@ identifier."
 (cl-defmethod forge--topic-type-prefix ((_repo forge-repository) _type)
   "#")
 
-(cl-defmethod forge--insert-topic-contents ((topic forge-topic) width prefix)
+(cl-defmethod forge--insert-topic-contents ((topic forge-topic)
+                                            width prefix show-repo)
   (with-slots (number title unread-p closed) topic
-    (insert (format (if width (format "%%-%is" (1+ width)) "%s")
+    (when show-repo
+      (let ((repo (forge-get-repository topic)))
+        (insert
+         (string-pad (format "%s/%s " (oref repo owner) (oref repo name)) 24))))
+    (insert (format (if width (format "%%-%is" (1+ width)) "%s%s")
                     (forge--format-topic-id topic prefix)))
     (forge--insert-topic-marks topic)
     (insert " ")