|
@@ -44,6 +44,7 @@
|
|
|
(add-to-list '*buffer-layers* ',name)
|
|
|
(defvar ,buffers-list nil)
|
|
|
(defun ,applier ()
|
|
|
+ ,(format "Apply buffer-layer %s." name)
|
|
|
(interactive)
|
|
|
(mapcar #'(lambda (file)
|
|
|
(add-to-list ',buffers-list (find-file file)))
|
|
@@ -54,6 +55,7 @@
|
|
|
(add-to-list '*buffer-layers-applied* ',name)
|
|
|
(message "Applied Buffer Layer %s" ',name))
|
|
|
(defun ,remover ()
|
|
|
+ ,(format "Remove buffer-layer %s." name)
|
|
|
(interactive)
|
|
|
(mapc #'(lambda (buffer)
|
|
|
(when (buffer-live-p buffer)
|