Improved Buffer Layer Listing

buffer-layers.el

@@ -102,9 +102,12 @@
       (kill-buffer "*Buffer Layers*"))
     (with-current-buffer "*Buffer Layers*"
       (insert "Defined Buffer Layers:\n\n")
-      (dolist (layer *buffer-layers*)
-        (insert (format " - %s%s\n" layer (if (buffer-layer-applied-p layer) " (Applied)"
-                                            "")))))))
+      (insert (with-temp-buffer
+                (dolist (layer *buffer-layers*)
+                  (insert (format " - %s%s\n" layer (if (buffer-layer-applied-p layer) " (Applied)"
+                                                      ""))))
+                (sort-lines nil (buffer-end -1) (buffer-end +1))
+                (buffer-string))))))
 
 (defun unload-all-buffer-layers ()
   "Unload all loaded buffer layers."