Added function to get a buffer layer definition by name

buffer-layers.el

@@ -83,6 +83,10 @@
   "Returns true if LAYER is applied."
   (member layer *buffer-layers-applied*))
 
+(defun buffer-layer--get-buffer-layer-definition (layer-name)
+  (first (cl-remove-if-not (lambda (layer)
+			     (eq layer-name (buffer-layer-name layer))) *buffer-layer-definitions*)))
+
 (cl-defmacro define-buffer-layer (name &key files select on-apply on-remove)
   "Define a buffer layer named NAME, taking FILES, RUN-ON-APPLY, RUN-ON-REMOVE and BUFFER-TO-SELECT as keyword arguments."
   `(progn