Moved emacs temp files to ~/.cache

[dotemacs] / lisp / my-shackle.el

diff --git a/lisp/my-shackle.el b/lisp/my-shackle.el
index 66d9d2d9c8712ae769faf74eaa77946b12a01b00..6965b965719a6ac401fdef3929d00f0e6badac53 100644 (file)
--- a/lisp/my-shackle.el
+++ b/lisp/my-shackle.el
@@ -27,10 +27,14 @@
      (t
       (append rules-common rules-narrow-short)))))
 
-(setq shackle-rules #'my/shackle-rules)
-
 (setq shackle-default-rule '(:align below :select t :size 15))
 
 (setq shackle-default-size 0.5)
 
+(defun shackle-match (buffer-or-name)
+  (cl-loop for (condition . plist) in (my/shackle-rules)
+           when (shackle--match buffer-or-name condition plist)
+           return plist
+           finally return shackle-default-rule))
+
 (shackle-mode)