blob: 93f6ccd12b66e3047aa4777e8703601e54d5dde9 (
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
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
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
|
;;; -*- lexical-binding: t; -*-
(require 'ibuffer)
(require 'ibuf-ext)
(setq ibuffer-expert t
ibuffer-display-summary nil)
(setq ibuffer-show-empty-filter-groups nil)
;;; Bindings related to buffers
;;;; Quickly switch to the last buffer.
;;;###autoload
(defun durand-switch-to-last-buffer (&optional arg)
"Switch to the last buffer.
The last buffer is given by `other-buffer'.
If ARG is non-nil, then display the last buffer in a new window."
(interactive "P")
(cond
(arg (switch-to-buffer-other-window nil))
((switch-to-buffer nil))))
;;;###autoload
(defun durand-switch-to-last-buffer-other-window ()
"Switch to the last buffer in a new window."
(interactive)
(switch-to-buffer-other-window nil))
;;;###autoload
(defun switch-to-buffer-same-mode (&optional arg)
"Switch to a buffer with the same major mode as the current
buffer.
If the optional ARG is non-nil, then produce an IBUFFER buffer
listing all buffers of the same mode as the current buffer."
(interactive "P")
(cond
((null arg)
(let* ((mode (buffer-local-value 'major-mode (current-buffer)))
(def (buffer-name
(car
(delete nil
(mapcar
(lambda (buf)
(and
(provided-mode-derived-p
(buffer-local-value 'major-mode buf)
mode)
(not (= (aref (buffer-name buf) 0) 32))
(not (eq buf (current-buffer)))
buf))
(buffer-list)))))))
(switch-to-buffer
(read-buffer (format
"Switch to buffer with major mode %S:"
(buffer-local-value 'major-mode (current-buffer)))
def t
(lambda (name-or-cons)
(provided-mode-derived-p
(buffer-local-value
'major-mode
(cond ((consp name-or-cons)
(cdr name-or-cons))
((get-buffer name-or-cons))))
mode))))))
((ibuffer
nil
(format "*Buffers for %S*"
(buffer-local-value 'major-mode (current-buffer)))
(list (cons 'used-mode
(buffer-local-value 'major-mode (current-buffer))))))))
;;;###autoload
(defun durand-ibuffer-clear (&optional arg)
"Kill every buffer except for the dashboard.
If the optional ARG is non-nil, then kill every buffer except for
those that are marked."
(interactive "P")
(cond
((derived-mode-p 'ibuffer-mode))
((user-error "durand-ibuffer-clear should only be used in \
derived modes of ibuffer-mode.")))
(cond
((null arg)
(mapc (function
(lambda (buffer)
(cond
((string= (buffer-name buffer)
dashboard-buffer-name))
((kill-buffer buffer)))))
(cons
(current-buffer)
(mapcar #'car (ibuffer-current-state-list)))))
(t
(mapc (function
(lambda (buffer-and-mark)
(cond
((or (= (cdr buffer-and-mark)
ibuffer-marked-char)
(string= (buffer-name (car buffer-and-mark))
dashboard-buffer-name)))
((kill-buffer (car buffer-and-mark))))))
(cons
(cons (current-buffer) 32)
(ibuffer-current-state-list))))))
(define-key global-map (vector 24 2) #'ibuffer)
(define-key global-map (vector ?\s-h) #'ibuffer)
(define-key global-map (vector ?\M-\s-b) #'switch-to-buffer-same-mode)
(define-key global-map (vector ?\s-b) #'switch-to-buffer)
(define-key global-map (vector ?\s-B) #'switch-to-buffer-other-window)
(define-key global-map (vector ?\s-n) #'durand-switch-to-last-buffer)
(define-key global-map (vector ?\s-N) #'durand-switch-to-last-buffer-other-window)
(define-key ibuffer-mode-map (vector ?d) #'ibuffer-do-delete)
(define-key ibuffer-mode-map (vector ?D) #'ibuffer-mark-for-delete)
(define-key ibuffer-mode-map (vector ?c) #'durand-ibuffer-clear)
;;; filter for bongo
;;;###autoload
(define-ibuffer-filter durand-bongo
"Group bongo buffers together."
(:description "Bongo buffers together"
:reader (read-string "no effect: "))
(cond
((not (boundp 'durand-bongo-music-dir))
(load-config "bongo.el")))
(with-current-buffer buf
(cond
((derived-mode-p 'dired-mode)
(let ((bongo-dirs durand-bongo-music-dir)
found)
(while (and (not found)
(consp bongo-dirs))
(cond
((file-in-directory-p default-directory (car bongo-dirs))
(setq found t))
(t (setq bongo-dirs (cdr bongo-dirs)))))
found))
((derived-mode-p 'bongo-playlist-mode 'bongo-library-mode)))))
;;;###autoload
(defun durand-bongo-set-filter ()
"Set my custom filters."
(interactive)
(setq ibuffer-filter-groups
(cons (cons "Bongo" '((durand-bongo)))
ibuffer-filter-groups))
(let ((ibuf (get-buffer "*Ibuffer*")))
(when ibuf
(with-current-buffer ibuf
;; (pop-to-buffer ibuf)
(ibuffer-update nil t)))))
(add-hook 'ibuffer-hook 'durand-bongo-set-filter 100)
|
