From 642dcfbf0c0f7e3f8c4e4496f79af6bb346fa6a8 Mon Sep 17 00:00:00 2001 From: James Bunton Date: Mon, 19 Nov 2018 18:18:51 +1100 Subject: [PATCH] Override shackle-match since my PR got rejected --- lisp/my-shackle.el | 8 ++++++-- packages/shackle | 2 +- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/my-shackle.el b/lisp/my-shackle.el index 66d9d2d..6965b96 100644 --- 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) diff --git a/packages/shackle b/packages/shackle index 1e40f35..4189c1c 160000 --- a/packages/shackle +++ b/packages/shackle @@ -1 +1 @@ -Subproject commit 1e40f3519518b0efef76c70e8f6e5666b8eb5745 +Subproject commit 4189c1c773aab533969b587f7801ffbcd1d7d613 -- 2.39.2