Browse Source

Added in support to load buffer-sets on start

Samuel W. Flint 7 years ago
parent
commit
02b94f95cb
1 changed files with 14 additions and 0 deletions
  1. 14 0
      buffer-sets.el

+ 14 - 0
buffer-sets.el

@@ -52,6 +52,11 @@
   "The file to store buffer set definitions in."
   :type 'file :group 'editing)
 
+;;;###autoload
+(defcustom buffer-set-load-on-start (list)
+  "A list of buffer-sets to load on Emacs start."
+  :type '(repeat symbol) :group 'editing)
+
 
 ;;; Utility Functions
 
@@ -300,6 +305,15 @@
       (remove-hook 'kill-emacs-hook #'buffer-sets-unload-all-buffer-sets)
       (remove-hook 'kill-emacs-hook #'buffer-sets-save-definitions))))
 
+;;;###autoload
+(defun buffer-sets-install-emacs-start-hook ()
+  "Install the hook to load buffer-sets on Emacs start."
+  (add-hook 'after-init-hook #'buffer-sets-after-init))
+
+(defun buffer-sets-after-init ()
+  "Load buffer-sets on Emacs start."
+  (mapcar #'load-buffer-set buffer-sets-load-on-start))
+
 (provide 'buffer-sets)
 
 ;;; buffer-sets.el ends here