Improved Buffer Layer listing

buffer-layers.el

@@ -22,6 +22,10 @@
 (defvar *buffer-layers-applied* nil
   "List of applied buffer-layers.")
 
+(defun buffer-layer-applied-p (layer)
+  "Returns true if LAYER is applied."
+  (member layer *buffer-layers-applied*))
+
 (defun buffer-layer--applier-name (name)
   "Generate name to apply a buffer layer based on NAME."
   (intern (format "apply-buffer-layer-%s" name)))
@@ -94,10 +98,13 @@
   "Produce a list of defined buffer layers."
   (interactive)
   (with-help-window "*Buffer Layers*"
+    (when (buffer-live-p "*Buffer Layers*")
+      (kill-buffer "*Buffer Layers*"))
     (with-current-buffer "*Buffer Layers*"
       (insert "Defined Buffer Layers:\n\n")
       (dolist (layer *buffer-layers*)
-        (insert (format " - %s\n" layer))))))
+        (insert (format " - %s%s\n" layer (if (buffer-layer-applied-p layer) " (Applied)"
+                                            "")))))))
 
 (defun unload-all-buffer-layers ()
   "Unload all loaded buffer layers."