From 1207f47bd2340922268a1340601d45e6c336c11a Mon Sep 17 00:00:00 2001
From: Sean Allred <code@seanallred.com>
Date: Fri, 7 Nov 2014 18:51:23 -0500
Subject: Introduce initialization logic and hooks

---
 sx.el | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

(limited to 'sx.el')

diff --git a/sx.el b/sx.el
index a1e504e..abf1ca8 100644
--- a/sx.el
+++ b/sx.el
@@ -112,6 +112,33 @@ is equivalent to
     `(let ,(mapcar (lambda (x) `(,x (cdr (assoc ',x ,alist)))) symbols)
        ,@body)))
 
+(defcustom sx-init-hook nil
+  "Hook run when stack-mode initializes.
+
+Run after `sx-init--internal-hook'.")
+
+(defvar sx-init--internal-hook nil
+  "Hook run when stack-mode initializes.
+
+This is used internally to set initial values for variables such
+as filters.")
+
+(defmacro sx-init-variable (variable value &optional setter)
+  "Set VARIABLE to VALUE using SETTER.
+SETTER should be a function of two arguments.  If SETTER is nil,
+`set' is used."
+  (eval
+   `(add-hook
+     'sx-init--internal-hook
+     (lambda ()
+       (,(or setter #'setq) ,variable ,value))))
+  nil)
+
+(defun stack-initialize ()
+  (run-hooks
+   'sx-init--internal-hook
+   'sx-init-hook))
+
 (provide 'sx)
 ;;; sx.el ends here
 
-- 
cgit v1.2.3