-
Notifications
You must be signed in to change notification settings - Fork 0
/
ecb-multiframe.el
196 lines (147 loc) · 7.1 KB
/
ecb-multiframe.el
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
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
;;; ecb-multiframe.el ---
;; $Id: ecb-multiframe.el,v 1.8 2002/10/31 00:03:12 burtonator Exp $
;; Copyright (C) 2000-2003 Free Software Foundation, Inc.
;; Copyright (C) 2000-2003 Kevin A. Burton (burton@openprivacy.org)
;; Author: Kevin A. Burton (burton@openprivacy.org)
;; Maintainer: Kevin A. Burton (burton@openprivacy.org)
;; Location: http://relativity.yi.org
;; Keywords:
;; Version: 1.0.0
;; This file is [not yet] part of GNU Emacs.
;; This program is free software; you can redistribute it and/or modify it under
;; the terms of the GNU General Public License as published by the Free Software
;; Foundation; either version 2 of the License, or any later version.
;;
;; This program is distributed in the hope that it will be useful, but WITHOUT
;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
;; FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
;; details.
;;
;; You should have received a copy of the GNU General Public License along with
;; this program; if not, write to the Free Software Foundation, Inc., 59 Temple
;; Place - Suite 330, Boston, MA 02111-1307, USA.
;;; Commentary:
;; This is am implementation of multiple frame support for the ECB. The
;; original design was fairly easy to implement and since it will be a long time
;; until ECB 2.0 it seems obvious that this should be done as a temporary
;; solution.
;;
;; In order to use this just create a new frame and run 'ecb-activate. You can
;; create as many frames and run ECB in any of them.
;;
;;; Notes:
;;
;; Because ECB is now global it is never really deactivated. You can deactivate
;; ECB in a frame if you want but the advice will still be around.
;;
;; You have a separate ECB methods, directory, and source buffer for each ECB
;; frame.
;;
;;; Install:
;;
;; Place a (require 'ecb-multiframe) at the end of your normal ECB
;; initialization
;;; TODO:
;;
;; - Should we have a separeate speedbar buffer? What about eshell?
;;
;; - I should allocate my own ecb-compile-window for each frame.
;;
;; - ECB deactivation isn't currently supported.
;;
;; - Make sure I don't have any hooks that might run on deleted buffers.
;;
;; - Make sure we clean up when a frame is deleted.
;;
;; - Is it possible to migrate some of this code into default-frame-alist
;; instead of using a hook?
;; NOTE: If you enjoy this software, please consider a donation to the EFF
;; (http://www.eff.org)
;;; Code:
;;make certain variables frame local
(defvar ecb-multiframe-variables (list 'ecb-last-edit-window-with-point
'ecb-edit-window
'ecb-compile-window
'ecb-frame
'ecb-windows-hidden
'ecb-toggle-layout-state
'ecb-minor-mode
'ecb-activated-window-configuration)
"List of ecb variables that are required to be nil in new frames and frame local.")
(defun ecb-multiframe-make-frame-hook(frame)
"Create a hook so that we can enable the default variables within new frames."
(interactive
(list
(selected-frame)))
;;make variables frame local in this frame.
;;reset everything to the default value?
(dolist(variable ecb-multiframe-variables)
(set-frame-parameter nil frame (list (cons variable nil)))
(modify-frame-parameters frame (list (cons variable nil))))
;;ecb-eshell-buffer-name ?
;;ecb-speedbar-buffer-name ?
;;set ECB special buffer names
(ecb-multiframe-setup-buffer-name 'ecb-methods-buffer-name " *ECB Methods <%s>*")
(ecb-multiframe-setup-buffer-name 'ecb-history-buffer-name " *ECB History <%s>*")
(ecb-multiframe-setup-buffer-name 'ecb-sources-buffer-name " *ECB Sources <%s>*")
(ecb-multiframe-setup-buffer-name 'ecb-directories-buffer-name " *ECB Directories <%s>*")
;;eshell support
(when (and (featurep 'eshell)
(featurep 'ecb-eshell))
(ecb-multiframe-setup-buffer-name 'ecb-eshell-buffer-name " *eshell <%s>*")
(ecb-multiframe-setup-buffer-name 'eshell-buffer-name " *eshell <%s>*"))
;;speedbar support
(when (and (featurep 'speedbar)
(featurep 'ecb-speedbar))
;;fix speedbar by binding the given speedbar frame value with the current frame
(mapc (lambda(sframe)
(when (boundp sframe)
(set-frame-parameter nil frame (list (cons sframe frame))))
(modify-frame-parameters frame (list (cons sframe frame))))
'(speedbar-frame speedbar-attached-frame dframe-attached-frame))
;;setup speedbar with a new buffer
(let((new-ecb-speedbar-buffer-name nil))
(setq new-ecb-speedbar-buffer-name (ecb-multiframe-setup-buffer-name 'ecb-speedbar-buffer-name " SPEEDBAR <%s>"))
(set-frame-parameter nil frame (list (cons 'speedbar-buffer
(get-buffer-create new-ecb-speedbar-buffer-name))))
(modify-frame-parameters frame (list (cons 'speedbar-buffer
(get-buffer-create new-ecb-speedbar-buffer-name)))))))
(defun ecb-multiframe-setup-buffer-name(variable buffer-format-name)
"Given a variable name such as 'ecb-methods-buffer-name and a format such as
'*ECB Methods <%s>*' we will register a new buffer mapping with the current
frame. When complete return the new buffer name."
(let((new-buffer-name (format buffer-format-name
(format-time-string "%s"))))
(with-no-warnings(set-frame-parameter nil frame (list (cons variable new-buffer-name))))
(with-no-warnings(modify-frame-parameters frame (list (cons variable new-buffer-name))))
new-buffer-name))
(with-no-warnings(defun ecb-deactivate-internal ()
"Deactivates the ECB and kills all ECB buffers and windows."
(unless (not ecb-minor-mode)
(setq ecb-minor-mode nil))
(message "The ECB is now deactivated.")
ecb-minor-mode))
(defun ecb-multiframe-activate-hook()
"Hook to run to initialize multiframe support"
;;disable ECB frame management for this frame
(ad-deactivate 'delete-frame)
;;now make sure that the buffer being displayed in the edit window isn't a
;;compilation buffer. (NOTE: I actually think this should be a standard part
;;of the ECB)
(ecb-multiframe-edit-window-non-compilation-buffer))
(defun ecb-multiframe-edit-window-non-compilation-buffer()
"Go through the buffer list making the edit window a non compilation buffer."
(interactive)
(let((buffer-list (buffer-list))
(index 0))
(while (and (or (ecb-compilation-buffer-p (window-buffer ecb-edit-window))
(null (buffer-file-name (window-buffer ecb-edit-window))))
(< index (length buffer-list)))
(set-window-buffer ecb-edit-window (nth index buffer-list))
(setq index (1+ index)))))
;;this needs to happen last and it should be the last hook
(add-hook 'ecb-activate-hook 'ecb-multiframe-activate-hook t)
;;we need to modify frame parameters for new frames
(add-hook 'after-make-frame-functions 'ecb-multiframe-make-frame-hook)
(provide 'ecb-multiframe)
;;; ecb-multiframe.el ends here