Fix Flycheck error message popup

[dotemacs] / lisp / my-shackle.el

diff --git a/lisp/my-shackle.el b/lisp/my-shackle.el
index b81a438d970a070929b1ce76f3e0c7c8801700a6..7739afe61303b33e261a2f4c586fa7c7e23e9ff6 100644 (file)
--- a/lisp/my-shackle.el
+++ b/lisp/my-shackle.el
@@ -3,11 +3,13 @@
 (require 'shackle)
 
 (setq shackle-rules '(((:custom buffer-file-name) :other t)
-                      (direx:direx-mode :align left :size 40 :select t)))
+                      (direx:direx-mode :align left :size 40 :select t)
+                      ("*magit-.*-popup*" :regexp t :align right :size 63 :select t)
+                      (magit-status-mode :align below :size 20 :select t)
+                      ("*Flycheck error messages*" :align below :size 15 :select nil)
+                      ((magit-diff-mode magit-revision-mode) :align right)))
 
-(setq shackle-default-rule '(:align t :select t :size 15))
-
-(setq shackle-default-alignment 'below)
+(setq shackle-default-rule '(:align below :select t :size 15))
 
 (setq shackle-default-size 0.5)