blob: c8688c62917736fad024223e1d8c795520008f62 (
plain) (
blame)
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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
;;; init-buffer.el --- Configure buffer -*- lexical-binding: t -*-
;; Author: Franck Cuny <franck@fcuny.net>
;;; Commentary:
;; buffer related configurations
;;; Code:
(require 'ibuffer)
(require 'ibuf-ext)
(setq ibuffer-expert t)
(setq ibuffer-show-empty-filter-groups nil)
(setq ibuffer-jump-offer-only-visible-buffers t)
(setq ibuffer-maybe-show-predicates '("^\\*.*\\*$"))
(setq ibuffer-never-show-predicates '("^ "))
(setq ibuffer-use-other-window t)
(setq ibuffer-saved-filter-groups
'(("default"
("Config" (or
(filename . "world/")
(filename . ".emacs/")))
("Programming" (or
(mode . c++-mode)
(mode . c-mode)
(mode . cargo-mode)
(mode . emacs-lisp-mode)
(mode . go-mode)
(mode . java-mode)
(mode . lisp-mode)
(mode . nix-mode)
(mode . python-mode)
(mode . rust-mode)
(mode . sh-mode)
(name . "\\*Cargo")
(name . "\\*Python.*\\*")))
("Writing" (or
(mode . plain-tex-mode)
(mode . rst-mode)
(mode . markdown-mode)
(mode . html-mode)
(mode . nxhtml-mode)
(mode . css-mode)))
("Org" (or
(mode . org-agenda-mode)
(mode . org-mode)))
("Dired" (mode . dired-mode))
("Terminals" (mode . term-mode))
("Shells" (or
(mode . eshell-mode)
(mode . shell-mode)))
("Magit" (or
(mode . magit-mode)
(name . "\\*magit-.*\\*")))
("VC" (name . "\\*vc.*\\*"))
("Emacs" (name . "^\\*.*\\*$")))))
(add-hook 'ibuffer-mode-hook
(lambda ()
(ibuffer-auto-mode 1)
(ibuffer-switch-to-saved-filter-groups "default")))
(require 'midnight)
(setq midnight-period (* 3600 6)) ; every 6 hours
(setq clean-buffer-list-delay-general 2 ; every 2 day
clean-buffer-list-delay-special (* 3600 3)) ; every 3 hours
(defun my/rename-this-buffer-and-file ()
"Renames current buffer and file it is visiting."
(interactive)
(let ((name (buffer-name))
(filename (buffer-file-name))
(read-file-name-function 'read-file-name-default))
(if (not (and filename (file-exists-p filename)))
(error "Buffer '%s' is not visiting a file!" name)
(let ((new-name (read-file-name "New name: " filename)))
(cond ((get-buffer new-name)
(error "A buffer named '%s' already exists!" new-name))
(t
(rename-file filename new-name 1)
(rename-buffer new-name)
(set-visited-file-name new-name)
(set-buffer-modified-p nil)
(message "File '%s' successfully renamed to '%s'" name (file-name-nondirectory new-name))))))))
(provide 'init-buffer)
;;; init-buffer.el ends here
|