24
|
1 ;;; detached-minibuf.el -- Support a detached minibuffer for XEmacs.
|
|
2
|
|
3 ;; Copyright (C) 1997 Alvin C. Shelton
|
|
4
|
|
5 ;; Author: Alvin Shelton <acs@acm.org>
|
|
6 ;; Keywords: extensions
|
|
7
|
|
8 ;; This file is part of XEmacs.
|
|
9
|
|
10 ;; XEmacs is free software; you can redistribute it and/or modify it
|
|
11 ;; under the terms of the GNU General Public License as published by
|
|
12 ;; the Free Software Foundation; either version 2, or (at your
|
|
13 ;; option) any later version.
|
|
14
|
|
15 ;; XEmacs is distributed in the hope that it will be useful, but
|
|
16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
18 ;; General Public License for more details.
|
|
19
|
|
20 ;; You should have received a copy of the GNU General Public License
|
|
21 ;; along with XEmacs; if not, write to the Free Software Foundation,
|
|
22 ;; Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
|
23
|
|
24 ;;; Synched up with: not in FSF.
|
|
25
|
|
26 ;;; Commentary:
|
|
27
|
|
28 ;; WARNING. DANGER. This file reportedly crashes 19.14, use it only with a
|
|
29 ;; recent XEmacs.
|
|
30
|
|
31 ;; Version: 1.1
|
|
32
|
|
33 ;;; Code:
|
|
34
|
|
35 ;;
|
|
36 ;; Variable definitions
|
|
37
|
124
|
38 (defgroup detached-minibuf nil
|
|
39 "Support a detached minibuffer in XEmacs"
|
|
40 :group 'minibuffer
|
|
41 :prefix "minibuf-frame-"
|
|
42 :group 'frames)
|
|
43
|
|
44
|
|
45 (defcustom add-minibuf-options t
|
24
|
46 "*If nil, prevent minibuffer options from being added to the Options menu.\
|
124
|
47 This must be set before detached-minibuf is loaded."
|
|
48 :type 'boolean
|
|
49 :group 'detached-minibuf)
|
|
50 (defcustom minibuf-frame-height 1
|
|
51 "*The height in lines of the minibuffer frame created by make-detached-minibuf"
|
|
52 :type 'integer
|
|
53 :group 'detached-minibuf)
|
|
54 (defcustom minibuf-frame-width (frame-width (selected-frame))
|
|
55 "*The width in chars of the minibuffer frame created by make-detached-minibuf"
|
|
56 :type 'integer
|
|
57 :group 'detached-minibuf)
|
|
58 (defcustom minibuf-frame-pos-y -2
|
|
59 "*The y position of the minibuffer frame as created by make-detached-minibuf"
|
|
60 :type 'integer
|
|
61 :group 'detached-minibuf)
|
|
62 (defcustom minibuf-frame-pos-x -2
|
|
63 "*The x position of the minibuffer frame as created by make-detached-minibuf"
|
|
64 :type 'integer
|
|
65 :group 'detached-minibuf)
|
24
|
66
|
|
67 ;;
|
|
68 ;; Add minibuffer options to the Options menu
|
|
69 (if add-minibuf-options
|
|
70 (progn
|
|
71 (defun toggle-minibuf ()
|
|
72 (interactive)
|
|
73 (if (equal (frame-property (selected-frame) 'minibuffer) t)
|
|
74
|
|
75 ;; This frame already has a minibuffer, so remove the minibuffer.
|
|
76 ;; Unfortunately, we must delete and redraw the frame
|
|
77 (let ((fp (frame-properties (selected-frame)))
|
|
78 (buf (current-buffer))
|
|
79 (orig (selected-frame)))
|
|
80
|
|
81 ;; Create and select the new frame;
|
|
82 ;; we have to do this before we delete the old frame.
|
|
83 (setq fp (plist-remprop fp 'window-id)
|
|
84 fp (plist-remprop fp 'minibuffer))
|
|
85 (select-frame
|
|
86 (make-frame (plist-put fp 'minibuffer nil)))
|
|
87 (switch-to-buffer buf)
|
|
88
|
|
89 (set-frame-properties
|
|
90 orig (list 'minibuffer default-minibuffer-frame))
|
|
91 (delete-frame orig t))
|
|
92
|
|
93 ;; This frame does not have a minibuffer, so add one
|
|
94 (set-frame-property (selected-frame) 'minibuffer t)))
|
|
95
|
|
96 (add-menu-button '("Options" "Frame Appearance")
|
|
97 ["------" nil nil]
|
|
98 nil)
|
|
99 (add-menu-button '("Options" "Frame Appearance")
|
|
100 ["Toggle minibuffer"
|
|
101 (toggle-minibuf)
|
|
102 :style toggle
|
|
103 :active (not (equal (selected-frame)
|
|
104 default-minibuffer-frame))
|
|
105 :selected (equal
|
|
106 (frame-property (selected-frame) 'minibuffer)
|
|
107 t)]
|
|
108 nil)
|
|
109 (add-menu-button '("Options" "Frame Appearance")
|
|
110 ["Default minibuffer here"
|
|
111 (setq default-minibuffer-frame (selected-frame))
|
|
112 :style toggle
|
|
113 :active (let ((mbf (frame-property
|
|
114 (selected-frame) 'minibuffer)))
|
|
115 (or (equal mbf (selected-frame))
|
|
116 (equal mbf t)))
|
|
117 :selected (equal (selected-frame)
|
|
118 default-minibuffer-frame)]
|
|
119 nil)
|
|
120 (add-menu-button '("Options" "Frame Appearance")
|
|
121 ["Make a detached minibuffer"
|
|
122 (make-detached-minibuf)
|
|
123 :style nil]
|
|
124 nil)))
|
|
125
|
|
126 ;;
|
|
127 ;; Create a minibuffer-only frame.
|
|
128 ;;
|
|
129 ;; This function creates a frame named "minibuffer".
|
|
130 ;; You will likely want this frame not to have a titlebar.
|
|
131 ;; In order to do this for gwm, uncomment the following line
|
|
132 ;; and add it to your .profile.gwm:
|
|
133 ;; (set-window Emacs.minibuffer no-frame)
|
|
134 ;;
|
|
135 (defun make-detached-minibuf ()
|
|
136 "Create a standalone minibuffer"
|
|
137 (interactive)
|
|
138 (if (console-on-window-system-p)
|
|
139 (progn
|
|
140 (setq initial-frame-plist
|
|
141 (list 'minibuffer nil
|
|
142 'width (frame-width (selected-frame))
|
|
143 'height (frame-height (selected-frame))))
|
|
144 (setq default-minibuffer-frame
|
|
145 (make-frame
|
|
146 (list 'minibuffer 'only
|
|
147 'width minibuf-frame-width
|
|
148 'height minibuf-frame-height
|
|
149 'menubar-visible-p nil
|
|
150 'default-toolbar-visible-p nil
|
|
151 'name "minibuffer"
|
|
152 'top minibuf-frame-pos-y
|
|
153 'left minibuf-frame-pos-x
|
|
154 'has-modeline-p nil)))
|
|
155
|
|
156 ;; Bogus! But it avoids annoying screen flash at startup
|
|
157 (if (not command-line-args-left)
|
|
158 (frame-notice-user-settings)))))
|
|
159
|
|
160 (provide 'detached-minibuf)
|
|
161
|
|
162 ;;; detached-minibuf.el ends here
|