Browse Source

Added support for adding a directory to a layer

Samuel W. Flint 7 years ago
parent
commit
8d27dfe67e
1 changed files with 8 additions and 0 deletions
  1. 8 0
      buffer-layers.el

+ 8 - 0
buffer-layers.el

@@ -150,6 +150,13 @@
   (let ((layer (buffer-layer--get-buffer-layer-definition name)))
     (setf (buffer-layer-files layer) (append (buffer-layer-files layer) (list file)))))
 
+(defun buffer-layers-add-directory-to-layer (name directory)
+  (interactive (list
+                (intern (completing-read "Layer: " *buffer-layers* nil t))
+                (read-directory-name "Directory: ")))
+  (let ((layer (buffer-layer--get-buffer-layer-definition-name)))
+    (setf (buffer-layer-files layer) (append (buffer-layer-files layer) (list directory)))))
+
 (defun buffer-layers-add-buffer-to-layer (name buffer)
   "Add a buffer to the given layer."
   (interactive (list
@@ -207,6 +214,7 @@
 (define-key buffer-layers-map (kbd "c") #'buffer-layers-create-layer)
 (define-key buffer-layers-map (kbd "f") #'buffer-layers-add-file-to-layer)
 (define-key buffer-layers-map (kbd "b") #'buffer-layers-add-buffer-to-layer)
+(define-key buffer-layers-map (kbd "d") #'buffer-layers-add-directory-to-layer)
 (define-key buffer-layers-map (kbd "a") #'buffer-layers-edit-load-actions)
 (define-key buffer-layers-map (kbd "r") #'buffer-layers-edit-remove-actions)
 (define-key buffer-layers-map (kbd "s") #'buffer-layers-set-buffer-to-select)