code.delx.au - dotemacs/blob - lisp/my-shackle.el

   1 ;;; -*- lexical-binding: t -*-
   2
   3 (require 'shackle)
   4
   5 (setq shackle-rules '(((:custom buffer-file-name) :other t)
   6                       (direx:direx-mode :align left :size 40 :select t)
   7                       ("*magit-.*-popup*" :regexp t :align right :size 63 :select t)
   8                       (magit-status-mode :align below :size 20 :select t)
   9                       ("*Flycheck error messages*" :align below :size 15 :select nil)
  10                       ((magit-diff-mode magit-revision-mode) :align right)))
  11
  12 (setq shackle-default-rule '(:align below :select t :size 15))
  13
  14 (setq shackle-default-size 0.5)
  15
  16 (shackle-mode)