dump

Author: tarsius

lisp/forge-topic.el

@@ -763,6 +763,9 @@ can be selected from the start."
 ;;; Insert
 
 (defun forge--insert-topics (type heading topics)
+  ;; (setq magit-section-inhibit-markers t)
+  ;; (setq magit-section-insert-in-reverse t)
+  ;; (setq magit-section-preserve-visibility t)
   (when topics
     (let ((width (apply #'max (--map (length (oref it slug)) topics))))
       (magit-insert-section ((eval type) nil t)
@@ -771,26 +774,28 @@ can be selected from the start."
                                           'magit-section-heading)
                   (magit--propertize-face (format "(%s)" (length topics))
                                           'magit-section-child-count)))
-        (magit-insert-section-body
-          (dolist (topic topics)
-            (forge--insert-topic topic width))
-          (insert ?\n)
-          (magit-make-margin-overlay nil t))))))
+        ;;(magit-insert-section-body
+        (dolist (topic topics)
+          (forge--insert-topic topic width))
+        (insert ?\n)
+        (magit-make-margin-overlay nil t)))))
 
 (defun forge--insert-topic (topic &optional width)
-  (magit-insert-section ((eval (oref topic closql-table)) topic t)
+  (magit-insert-section ((eval (oref topic closql-table)) topic 'hide)
     (insert (forge--format-topic-line topic (or width 5)))
+    ;; TODO cache
     (forge--insert-topic-marks topic t)
     (forge--insert-topic-labels topic t)
     (insert "\n")
-    (magit-log-format-author-margin
-     (oref topic author)
-     (format-time-string "%s" (parse-iso8601-time-string (oref topic created)))
-     t)
-    (when (and (slot-exists-p topic 'merged)
-               (not (oref topic merged)))
-      (magit-insert-heading)
-      (forge--insert-pullreq-commits topic))))
+    ;; (magit-log-format-author-margin
+    ;;  (oref topic author)
+    ;;  (format-time-string "%s" (parse-iso8601-time-string (oref topic created)))
+    ;;  t)
+    ;; (when (and (slot-exists-p topic 'merged)
+    ;;            (not (oref topic merged)))
+    ;;   (magit-insert-heading)
+    ;;   (forge--insert-pullreq-commits topic))
+    ))
 
 (defun forge--insert-topic-labels (topic &optional separate)
   (and-let* ((labels (closql--iref topic 'labels)))