blob: 45a161fca51ea88a0820f22d35d8bb0068247ba2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
;;; -*- lexical-binding: t; -*-
;;; Commentary:
;;; Code:
(defun split-and-follow ()
(interactive)
(delete-other-windows)
(split-window-horizontally)
(split-window-horizontally)
(balance-windows)
(other-window -1)
(follow-mode 1))
(defun set-frame-alpha (value)
"Sets the transparency of the frame background. 0=transparent/100=opaque."
(interactive "nTransparency Value (30 - 100 opaque): ")
(setq value (max 30 (min value 100)))
(set-frame-parameter (selected-frame) 'alpha `(,value . ,value))
(message "Alpha set to %d" value))
(add-to-list 'default-frame-alist '(alpha . (92 . 92)))
(use-package autorevert
:init
(global-auto-revert-mode)
:custom
(global-auto-revert-non-file-buffers t)
(auto-revert-interval 30))
(use-package shackle
:demand t
:config
(shackle-mode)
:custom
(switch-to-buffer-obey-display-actions t)
(shackle-rules '(
;; native
(compilation-mode :select nil :align bottom :size 0.2)
(completion-list-mode :select nil :align bottom :size 0.1)
("^\\*Async Shell Command\\*.*$" :regexp t :ignore t)
;; magit
(magit-status-mode :select t :align bottom :size 0.3)
(magit-diff-mode :select nil :align right :size 0.3)
;; emms
(emms-playlist-mode :select t :align left :size 0.2)
)))
(provide 'bd--buffers)
;;; bd-buffers ends here
|
