magit-insert-shelved-branches: New function

1 files changed, 15 insertions, 0 deletions

diff --git a/lisp/magit-refs.el b/lisp/magit-refs.el
index be8a961..af50205 100644
--- a/lisp/magit-refs.el
+++ b/lisp/magit-refs.el
@@ -639,6 +639,21 @@ line is inserted at all."
     (insert ?\n)
     (magit-make-margin-overlay nil t)))
 
+(defun magit-insert-shelved-branches ()
+  "Insert sections showing all shelved branches."
+  (when-let ((refs (magit-list-refs "refs/shelved/")))
+    (magit-insert-section (shelved-branches nil)
+      (magit-insert-heading t "Shelved branches")
+      (dolist (ref refs)
+        (magit-insert-section (shelved-branch ref t)
+          (magit-insert-heading
+            (magit--propertize-face (substring ref 13) 'magit-refname))
+          (when (magit-buffer-margin-p)
+            (magit-refs--format-margin ref))
+          (magit-refs--insert-cherry-commits ref)))
+      (insert ?\n)
+      (magit-make-margin-overlay nil t))))
+
 (defun magit-refs--format-local-branches ()
   (let ((lines (seq-keep #'magit-refs--format-local-branch
                          (magit-git-lines