1 ;;; DO NOT MODIFY THIS FILE
2 (if (featurep 'xwem-loaddefs) (error "Already loaded"))
4 ;;;### (autoloads (xwem-client-local-variable-value xwem-client-local-variable-set xwem-client-local-variable-p xwem-dummy-selected-p xwem-dummy-client xwem-non-dummy-client-p xwem-dummy-client-p xwem-withdraw xwem-refit xwem-iconify xwem-deactivate xwem-activate xwem-manage xwem-cl-honour-init-state xwem-client-change-manage-type xwem-fini-clients xwem-cl-get-uptime xwem-cl-get-psize xwem-cl-get-usize xwem-cl-get-init-state xwem-cl-step-geom xwem-cl-min-geom xwem-cl-change-window xwem-client-move-resize xwem-client-resize xwem-client-move xwem-cl-apply-new-xgeom xwem-cl-apply-plist xwem-cl-destroy xwem-xwin-try-to-manage xwem-make-client xwem-client-change-state xwem-client-sendmsg-atom xwem-cl-correct-size-for-size xwem-select-last-or-other-client xwem-select-some-client xwem-cl-list-sort-by-recency xwem-clients-list xwem-find-client xwem-client-name xwem-select-client xwem-cl-select xwem-client-property xwem-client-set-properties xwem-client-set-property xwem-unsupport-cl-property xwem-support-cl-property xwem-property-supported-p define-xwem-client-property xwem-cl-marked-p) "xwem-clients" "lisp/xwem-clients.el")
6 (defcustom xwem-client-focusing 'advanced "Clients focusing type.\nOne of:\n\n 'advanced - Any client can be selected, even if it has broken focus model.\n 'standard - Strictly follow ICCCM, hoping everything will be ok.\n\nYou should change default value only in very rare circumstances. You\nshould fully understand how focusing works in xwem to change default\nvalue." :type '(choice (const :tag "Advanced" advanced) (const :tag "Standard" standard)) :group 'xwem-cl)
8 (defvar xwem-clients nil "\
9 List of all managed clients.")
11 (defvar xwem-current-cl nil "\
13 Use `xwem-cl-selected' to get selected client.")
15 (defvar xwem-last-cl nil "\
17 Use `(xwem-last-client)' to get last selected client.")
19 (autoload 'xwem-cl-marked-p "xwem-clients" "\
20 Return non-nil if client CL is marked, i.e. in `xwem-cl-mark-ring' list." nil 'macro)
22 (defvar xwem-supported-client-properties nil "\
23 List of supported client's properties definitions.
24 Property definition is list in form:
25 \(NAME . (MANAGE-TYPE (KEYWORD VAL ...) ...)).
29 `:type' - Same as for `defcustom'. eval composite type added.
31 `:set' - Function to call when setting this property. Default is
32 `xwem-cl-put-prop'. Function called with three
33 arguments - CL PROP VAL.
35 `:get' - Function to call in order to fetch property value. Default
36 is `xwem-cl-get-prop'. Function called with two
40 (autoload 'define-xwem-client-property "xwem-clients" "\
41 Define new xwem client property NAME." nil 'macro)
43 (autoload 'xwem-property-supported-p "xwem-clients" "\
44 Return non-nil if client property PROP is supported." nil nil)
46 (autoload 'xwem-support-cl-property "xwem-clients" "\
47 Add supported client property." nil nil)
49 (autoload 'xwem-unsupport-cl-property "xwem-clients" "\
50 Remove PROP-NAME from supported property for MANAGE-TYPE." nil nil)
52 (autoload 'xwem-client-set-property "xwem-clients" "\
53 Set client property." nil nil)
55 (autoload 'xwem-client-set-properties "xwem-clients" "\
56 To CL's properties import PROPS." nil nil)
58 (autoload 'xwem-client-property "xwem-clients" "\
59 Return CL's property PROP." nil nil)
61 (autoload 'xwem-cl-select "xwem-clients" "\
62 Set CL to be current cl." nil nil)
64 (autoload 'xwem-select-client "xwem-clients" "\
66 CL will not be selected if currently selected client has property
67 `skip-deselect', unless CL has property `override-skip-deselect'.
68 If CL is not selected because of above condition, last client is
70 If CL is non-client, dummy client will be selected." nil nil)
72 (autoload 'xwem-client-name "xwem-clients" "\
73 Returns unique name for CL.
74 If CLIST is ommited, `xwem-clients' will be used.
75 If CL is string, return it." nil nil)
77 (autoload 'xwem-find-client "xwem-clients" "\
78 Find WIN-OR-ID in client windows list.
79 WIN-OR-ID can be X-Win or id of window." nil nil)
80 (autoload 'xwem-cl-send-config "xwem-clients")
82 (autoload 'xwem-clients-list "xwem-clients" "\
83 Return xwem clients list.
85 PREDICT is function passed with one argument - CL and must return
86 non-nil if CL must be included in resulting list. If PREDICT not
87 specified - all clients are included.
89 If INCLUDE-DUMMY is non-nil also include dummy clients(clients for
90 which `xwem-dummy-client-p' returns non-nil).
92 STATES is a list of valid states for client or 'any." nil nil)
94 (autoload 'xwem-cl-list-sort-by-recency "xwem-clients" "\
95 Sort clients in CL-LIST by their recency." nil nil)
96 (autoload 'xwem-cl-other "xwem-clients")
98 (autoload 'xwem-select-some-client "xwem-clients" nil nil nil)
100 (autoload 'xwem-select-last-or-other-client "xwem-clients" "\
101 Select last or other client according to CL.
102 New client selected only if CL is current selected or FORCE is non-nil
103 or dummy client currently selected.
105 `xwem-select-last-or-other-client' tries to avoid selecting dummy
106 clients, unless ALLOW-DUMMY is non-nil." nil nil)
108 (autoload 'xwem-cl-correct-size-for-size "xwem-clients" "\
109 Make CL's geometry as close to NEW-GEOM as possible.
110 X-TYPE is one of 'center 'left or 'right, default is 'center.
111 Y-TYPE is one of 'center 'top or 'bottom, default is 'center." nil nil)
112 (autoload 'xwem-client-iconify-every "xwem-clients" "" t)
114 (autoload 'xwem-client-sendmsg-atom "xwem-clients" "\
115 Send Client message to client CL." nil nil)
117 (autoload 'xwem-client-change-state "xwem-clients" "\
118 Change WM_STATE for CL, to STATE.
119 STATE is one of 'active, 'inactive, 'iconified, 'withdrawn, etc." nil nil)
121 (autoload 'xwem-make-client "xwem-clients" "\
122 Make new client window.
124 PROPS - Properties list for new client.
125 XWEM-WIN - xwem window where new client should be managed(if possible)." nil nil)
127 (autoload 'xwem-xwin-try-to-manage "xwem-clients" "\
128 Try to manage X window XWIN.
129 Return managed client, or nil if client wasnt managed." nil nil)
131 (autoload 'xwem-cl-destroy "xwem-clients" "\
132 Tottally destroy CL." nil nil)
134 (autoload 'xwem-cl-apply-plist "xwem-clients" "\
135 Set plist's properties in CL." nil nil)
137 (autoload 'xwem-cl-apply-new-xgeom "xwem-clients" "\
138 Apply entries in `xwem-cl-new-xgeom' to CL's x geometry.
139 When CORRECT-INCLUDING-BORDER is non-nil, then
140 `xwem-cl-correct-size-for-size' will correct size reguarding new
141 border width, otherwise it will correct size as if border width is 0.
142 If HOLD-SIZE is non-nil no size corrections are performed." nil nil)
143 (autoload 'xwem-cl-apply-xgeom "xwem-clients")
144 (autoload 'xwem-cl-apply-xgeom-1 "xwem-clients")
146 (autoload 'xwem-client-move "xwem-clients" "\
147 Move client CL to NEW-X, NEW-Y." nil nil)
149 (autoload 'xwem-client-resize "xwem-clients" "\
150 Resize client CL to NEW-WIDTH, NEW-HEIGHT." nil nil)
152 (autoload 'xwem-client-move-resize "xwem-clients" "\
153 Move CL to NEW-X, NEW-Y and resize to NEW-WIDTH, NEW-HEIGHT." nil nil)
155 (autoload 'xwem-cl-change-window "xwem-clients" "\
156 Change CL's window to NEW-WIN.
157 If NEW-WIN is nil, NEW-WIN will be other window to CL's win window." nil nil)
159 (autoload 'xwem-cl-min-geom "xwem-clients" "\
160 Returns minimal geometry for CL." nil nil)
162 (autoload 'xwem-cl-step-geom "xwem-clients" "\
163 Returns vertical and horisontal step's width for CL." nil nil)
165 (autoload 'xwem-cl-get-init-state "xwem-clients" "\
166 Return CL's initial state.
167 Initial state is one of `X-IconicState', `X-NormalState',
168 or nil if initial state did not specified by client." nil nil)
170 (autoload 'xwem-cl-get-usize "xwem-clients" "\
171 Returns cons cell (uwi . uhe) - CL's size in steps." nil nil)
173 (autoload 'xwem-cl-get-psize "xwem-clients" "\
174 Return pixel size of CL (pwi . phe)." nil nil)
176 (autoload 'xwem-cl-get-uptime "xwem-clients" "\
178 FORMAT can contain %-sequences to substitute parts of the uptime.
179 %d is replaced by the days
180 %h is replaced by the hours
181 %m is replaced by the minutes
182 %s is replaced by the seconds
183 %A is replaced by autogenerated format." nil nil)
185 (autoload 'xwem-fini-clients "xwem-clients" "\
186 Fini all clients." nil nil)
188 (autoload 'xwem-client-change-manage-type "xwem-clients" "\
189 Change CL's manage type to type specified in MANAGE-SPEC." nil nil)
191 (autoload 'xwem-cl-honour-init-state "xwem-clients" nil nil nil)
193 (autoload 'xwem-manage "xwem-clients" "\
194 Manage client CL." nil nil)
196 (autoload 'xwem-activate "xwem-clients" "\
197 Activate client CL in its context.
200 `activate' - Client is non-active and activation required.
202 `select' - Client is about to be selected, so activation required.
203 Client may be already activated.
205 Default TYPE is `activate'." nil nil)
207 (autoload 'xwem-deactivate "xwem-clients" "\
208 Deactivate client CL in its context.
209 NOTE that only active client can be deactivated!
212 `deactivate' - Client must be deactivate.
214 `deselect' - Client is deselecting.
216 Default TYPE is `deactivate'." nil nil)
218 (autoload 'xwem-iconify "xwem-clients" "\
219 Function to iconify client CL.
220 ARGS - arguments." nil nil)
222 (autoload 'xwem-refit "xwem-clients" "\
223 Function to refit client CL.
224 ARGS - arguments." nil nil)
226 (autoload 'xwem-withdraw "xwem-clients" "\
227 Withdraw client CL." nil nil)
229 (autoload 'xwem-dummy-client-p "xwem-clients" "\
230 Return non-nil if CL is dummy client." nil nil)
232 (autoload 'xwem-non-dummy-client-p "xwem-clients" "\
233 Opposit to `xwem-dummy-client-p'." nil nil)
235 (autoload 'xwem-dummy-client "xwem-clients" "\
236 Return dummy client." nil nil)
238 (autoload 'xwem-dummy-selected-p "xwem-clients" "\
239 Return non-nil if dummy client is currently selected." nil nil)
241 (autoload 'xwem-client-local-variable-p "xwem-clients" "\
242 Return non-nil if VAL is client local variable." nil nil)
244 (autoload 'xwem-client-local-variable-set "xwem-clients" "\
245 Set CLIENT local VARIABLE to VALUE." nil nil)
247 (autoload 'xwem-client-local-variable-value "xwem-clients" "\
248 Return CLINEN's local VARIABLE value.
249 Or global VARIABLE value if CLIENT does not have local value." nil nil)
253 ;;;### (autoloads (xwem-unread-command-event xwem-dispatch-command-xevent xwem-dispatch-command-event xwem-next-command-event xwem-event-as-command xwem-next-event xwem-event-client xwem-ev-destroy xwem-ev-unmap xwem-ev-mapreq xwem-ev-resize xwem-ev-reconfig) "xwem-events" "lisp/xwem-events.el")
255 (autoload 'xwem-ev-reconfig "xwem-events" "\
256 Common ConfigureRequest handler." nil nil)
258 (autoload 'xwem-ev-resize "xwem-events" "\
259 Handle ResizeRequest event." nil nil)
261 (autoload 'xwem-ev-mapreq "xwem-events" "\
262 Handle MapRequest event." nil nil)
264 (autoload 'xwem-ev-unmap "xwem-events" "\
265 Handle UnmapNotify event." nil nil)
267 (autoload 'xwem-ev-destroy "xwem-events" "\
268 Handle Destroy event." nil nil)
270 (autoload 'xwem-event-client "xwem-events" "\
271 Return client where X event XEV occured." nil nil)
273 (autoload 'xwem-next-event "xwem-events" "\
274 Fetch next Emacs keyboard or mouse event, with corresponding X Event.
276 If EVT-LIST is given, stop when event of type that in EVT-LIST is
277 occured. Default value of EVT-LIST is `(list X-KeyPress X-ButtonPress
278 X-ButtonRelease X-MotionNotify)'.
280 Return Emacs event. To acces corresponding X Event use
281 `(event-object ev)' form." nil nil)
283 (autoload 'xwem-event-as-command "xwem-events" "\
284 Interpret event E-EV as command event.
285 Optional X-EV specifies corresponding X Event." nil nil)
287 (autoload 'xwem-next-command-event "xwem-events" "\
288 Return next command event.
289 Actually return cons cell where car is Emacs event and cdr is X Event." nil nil)
291 (autoload 'xwem-dispatch-command-event "xwem-events" "\
292 Dispatch command Emacs event EEV." nil nil)
294 (autoload 'xwem-dispatch-command-xevent "xwem-events" "\
295 Dispatch command event XEV." nil nil)
297 (autoload 'xwem-unread-command-event "xwem-events" "\
298 Make event EV to be readed by `xwem-next-command-event' later,
299 or to be executed by `xwem-dispatch-command-event'.
300 Event EV can be either Emacs event, or X-Event." nil nil)
304 ;;;### (autoloads (xwem-face-get-gc xwem-get-background-mode) "xwem-faces" "lisp/xwem-faces.el")
306 (autoload 'xwem-get-background-mode "xwem-faces" "\
307 Return `dark' or `light' according to COLOR.
308 COLOR is color instance, color name or list of color components." nil nil)
310 (autoload 'xwem-face-get-gc "xwem-faces" "\
311 Return X-Gc for FACE in TAG-SET.
312 D - X drawable default is `XDefaultRootWindow'." nil nil)
316 ;;;### (autoloads (xwem-focus-mode-set xwem-focus-mode-invoke xwem-focus-set xwem-focus-pop-set xwem-focus-push-set xwem-focus-pop xwem-focus-xcurrent) "xwem-focus" "lisp/xwem-focus.el")
318 (autoload 'xwem-focus-xcurrent "xwem-focus" "\
319 Return current focus." nil nil)
321 (autoload 'xwem-focus-pop "xwem-focus" "\
322 Pop value from `xwem-focus-stack'." nil nil)
324 (autoload 'xwem-focus-push-set "xwem-focus" "\
325 Push current focus to `xwem-focus-stack' and set focus to XWIN." nil nil)
327 (autoload 'xwem-focus-pop-set "xwem-focus" "\
328 Pop from `xwem-focus-stack' and set focus." nil nil)
330 (autoload 'xwem-focus-set "xwem-focus" "\
331 Set input focus to THING.
332 THING - one of X-Win, xwem-frame, or xwem-client.
333 PUSH - Non-nil for pushing thing into `xwem-focus-stack'." nil nil)
335 (autoload 'xwem-focus-mode-invoke "xwem-focus" "\
336 Invoke CL's focus mode function with ARGS.
337 Invoke focus mode, car of ARGS normally type of invocation.
338 Built-in invocation types are:
340 'before-mode-change - Called before focus mode changed.
341 'after-mode-change - Called after focus mode has been changed.
342 'focus-in - When CL receives focus.
343 'focus-out - When CL looses focus.
344 'enter - When CL enters.
345 'leave - When CL leaves.
346 'before-keymap-change - Before CL's local map changed.
347 'after-keymap-change - After CL's local map changed.
350 (autoload 'xwem-focus-mode-set "xwem-focus" "\
351 For CL window set focus mode to MODE.
352 If MODE is ommited, `xwem-default-focus-mode' is used." nil nil)
356 ;;;### (autoloads (xwem-frame-properties xwem-frame-property xwem-frame-set-properties xwem-frame-set-property xwem-frame-add-property-notifier xwem-frame-clients xwem-frame-imove-internal xwem-set-frame-configuration xwem-frame-configuration xwem-frame-configuration-p xwem-frame-set-size xwem-frame-set-pos xwem-frame-num xwem-frame-other xwem-frames-fini xwem-frames-init xwem-select-frame xwem-frame-map xwem-frames-list) "xwem-frame" "lisp/xwem-frame.el")
358 (defvar xwem-frames-list nil "\
359 List of all xwem frames.")
361 (autoload 'xwem-frames-list "xwem-frame" "\
362 Return list of xwem frames of TYPE.
363 If TYPE is ommited - list of frames of any type is returned." nil nil)
365 (autoload 'xwem-frame-map "xwem-frame" "\
366 Map frame FRAME." nil nil)
368 (autoload 'xwem-select-frame "xwem-frame" "\
369 Set FRAME to be selected frame.
370 Actually all the work done in `xwem-select-window'." nil nil)
371 (autoload 'xwem-make-frame-1 "xwem-frame")
373 (autoload 'xwem-frames-init "xwem-frame" "\
374 xwem frames initializer." nil nil)
376 (autoload 'xwem-frames-fini "xwem-frame" "\
377 Finialize frames." nil nil)
379 (autoload 'xwem-frame-other "xwem-frame" "\
380 Same as `xwem-frame-other-frame', but return nil, if no good other frame found.
381 TYPE is ane of 'any, 'linkage" nil nil)
383 (autoload 'xwem-frame-num "xwem-frame" "\
384 Return FRAME index in `xwem-frames-list'." nil nil)
385 (autoload 'xwem-frame-apply-xgeom-1 "xwem-frame" nil nil)
386 (autoload 'xwem-frame-apply-xgeom "xwem-frame" nil nil)
388 (autoload 'xwem-frame-set-pos "xwem-frame" "\
389 Set FRAME position at NEW-X and NEW-Y." nil nil)
391 (autoload 'xwem-frame-set-size "xwem-frame" "\
392 Resize FRAME to NEW-WIDTH and NEW-HEIGHT." nil nil)
394 (autoload 'xwem-frame-configuration-p "xwem-frame" "\
395 Return non-nil if FRAME-CONFIG is looks like frame configuration." nil nil)
397 (autoload 'xwem-frame-configuration "xwem-frame" "\
398 Return current xwem frame configuration." nil nil)
400 (autoload 'xwem-set-frame-configuration "xwem-frame" "\
401 Restore the frames to the state described by FRAME-CONFIG." nil nil)
403 (autoload 'xwem-frame-imove-internal "xwem-frame" "\
404 Interactively move FRAME." nil nil)
406 (autoload 'xwem-frame-clients "xwem-frame" "\
407 Make list of all clients FRAME holds." nil nil)
409 (autoload 'xwem-frame-add-property-notifier "xwem-frame" nil nil nil)
411 (autoload 'xwem-frame-set-property "xwem-frame" "\
412 Set FRAME's propertie PROP to VAL.
413 If FRAME is nil - selected frame is used." nil nil)
415 (autoload 'xwem-frame-set-properties "xwem-frame" "\
416 Set FRAME properties PROPS." nil nil)
418 (autoload 'xwem-frame-property "xwem-frame" "\
419 Return value for FRAME's property PROP.
420 If FRAME is nil - selected frame is used." nil nil)
422 (autoload 'xwem-frame-properties "xwem-frame" "\
423 Return a list of FRAME's properties.
424 List is copied, you are free to modify it for your needs.
425 Note that only supported properties are returned.
426 If FRAME is omitted - selected frame is used." nil nil)
430 ;;;### (autoloads (xwem-logo-string) "xwem-help" "lisp/xwem-help.el")
432 (autoload 'xwem-logo-string "xwem-help" "\
433 Return textified XWEM's logo string." nil nil)
437 ;;;### (autoloads (xwem-icons-cl-icon) "xwem-icons" "lisp/xwem-icons.el")
439 (autoload 'xwem-icons-cl-icon "xwem-icons" "\
440 Get X-Image of CL's icon.
441 Return cons cell where car is X-Pixmap of icon and cdr is X-Pixmap
442 where mask for icon is stored.
444 TAG-SET specifies environment list for which icon is created." nil nil)
448 ;;;### (autoloads (xwem-kbd-initialize-modifiers xwem-kbd-stop-grabbing xwem-kbd-start-grabbing xwem-kbd-uninstall-grab xwem-kbd-install-grab xwem-kbd-graugra-key xwem-kbd-dispatch-binding xwem-kbd-get-binding xwem-lookup-key xwem-minor-mode-key-binding xwem-local-key-binding xwem-global-key-binding xwem-lookup-map xwem-kbd-set-current-prefix-keymap xwem-kbd-global-map-current-p xwem-kbd-current-map xwem-kbd-fixup-keymap xwem-kbd-stop-command-keys-echoing xwem-kbd-schedule-command-keys-echoing xwem-kbd-add-default-keymap xwem-kbd-add-pending-keys xwem-kbd-force-mods-release xwem-kbd-wait-key-release xwem-xevents->emacs-events xwem-kbd-kcode-modifier-p xwem-use-local-map) "xwem-keyboard" "lisp/xwem-keyboard.el")
450 (defvar xwem-event-client nil "\
451 Client where last key/mouse event occured.")
453 (defvar xwem-last-event nil "\
454 Last key/mouse event(Emacs event).")
456 (defvar xwem-last-xevent nil "\
457 Last key/mouse X Event.")
459 (defvar xwem-this-command-keys [] "\
460 Vector of events that were used to invoke this command.")
462 (defvar xwem-this-command nil "\
463 The command now being executed.")
465 (defvar xwem-last-command nil "\
466 The last command executed.")
468 (autoload 'xwem-use-local-map "xwem-keyboard" "\
469 Select KEYMAP as local CL's keymap." nil nil)
471 (autoload 'xwem-kbd-kcode-modifier-p "xwem-keyboard" "\
472 Return non-nil if key code KCODE is modifier." nil nil)
474 (autoload 'xwem-xevents->emacs-events "xwem-keyboard" "\
475 Convert X-Events XEVS to Emacs events.
477 If TRUST-MODBITS is non-nil than we can trust modifier bits in
478 X-Event, otherwise we are trying to keep track of modifiers presses
479 and releases. This is needed because core X events obtained from
480 RECORD extension does not have valid inforamtion about modifiers
483 (autoload 'xwem-kbd-wait-key-release "xwem-keyboard" "\
484 Wait for key with KEYCODE for release." nil nil)
486 (autoload 'xwem-kbd-force-mods-release "xwem-keyboard" "\
487 Force release of MODS modifiers." nil nil)
489 (autoload 'xwem-kbd-add-pending-keys "xwem-keyboard" "\
490 Add KEYS as pending to be pressed in CL.
491 If CL is ommited selected client considered." nil nil)
493 (autoload 'xwem-kbd-add-default-keymap "xwem-keyboard" "\
494 Add KEYMAP to default keymaps.
495 KEYMAP MUST NOT HAS PARENTS!" nil nil)
497 (autoload 'xwem-kbd-schedule-command-keys-echoing "xwem-keyboard" "\
498 Schedule echoing pressed KEY in minibuffer." nil nil)
500 (autoload 'xwem-kbd-stop-command-keys-echoing "xwem-keyboard" "\
501 Stop echoing." nil nil)
503 (autoload 'xwem-kbd-fixup-keymap "xwem-keyboard" "\
505 KEYMAP might be valid keymap or symbol, which `symbol-function' is keymap.
506 If KEYMAP can't be fixed, just return it." nil nil)
508 (autoload 'xwem-kbd-current-map "xwem-keyboard" "\
509 Return current prefix map." nil nil)
511 (autoload 'xwem-kbd-global-map-current-p "xwem-keyboard" "\
512 Return non-nil if `xwem-global-map' is current prefix map." nil nil)
514 (autoload 'xwem-kbd-set-current-prefix-keymap "xwem-keyboard" "\
515 Set current keymap to NEWKEYMAP.
517 Use (xwem-kbd-set-current-prefix-keymap nil) to set current keymap
518 to `xwem-global-keymap' instead of
519 \(xwem-kbd-set-current-prefix-keymap xwem-global-map)." nil nil)
521 (autoload 'xwem-lookup-map "xwem-keyboard" "\
522 Lookup keymap where KEYS command is defined." nil nil)
524 (autoload 'xwem-global-key-binding "xwem-keyboard" "\
525 Return global binding for KEYS." nil nil)
527 (autoload 'xwem-local-key-binding "xwem-keyboard" "\
528 Return local binding for KEYS." nil nil)
530 (autoload 'xwem-minor-mode-key-binding "xwem-keyboard" "\
531 Return CL's minor mode binding for KEYS.
532 Retun cons cell in form `(MODENAME . BINDING)'." nil nil)
534 (autoload 'xwem-lookup-key "xwem-keyboard" "\
535 In CLIENT's context, lookup for KEYS binding.
536 `xwem-lookup-key' omits default binding unless ACCEPT-DEFAULT is
539 (autoload 'xwem-kbd-get-binding "xwem-keyboard" "\
540 Get binding value for KEYS for CLIENT.
541 By default CLIENT is currently selected client.
542 If optional REJECT-DEFAULT is non-nil, skip looking up default binding
543 \(pass `nil' as ACCEPT-DEFAULT to `lookup-key')." nil nil)
545 (autoload 'xwem-kbd-dispatch-binding "xwem-keyboard" "\
546 Process keymap or command entry LKM after `lookup-key'.
547 Return non-nil if some action was performed." nil nil)
549 (autoload 'xwem-kbd-graugra-key "xwem-keyboard" "\
550 Grab or Ungrab KEY on WIN.
551 MODE is either 'grab or 'ungrab.
552 BUTTON-MASK is mask passed to `XGrabButton' if MODE is 'grab and key
553 is actually a mouse key." nil nil)
555 (autoload 'xwem-kbd-install-grab "xwem-keyboard" "\
556 Install KEYMAP grabs on X window WIN." nil nil)
558 (autoload 'xwem-kbd-uninstall-grab "xwem-keyboard" "\
559 Uninstall KEYMAP grabs on X window WIN.
561 Optionally you can specify PREDICT to decide for which keys grabbing
562 should be uinstalled. PREDICT must accept two arguments - KEY and
563 BINDING, and return non-nil if this KEY must be ungrabbed.
565 By default all keys are ungrabbed." nil nil)
567 (autoload 'xwem-kbd-start-grabbing "xwem-keyboard" "\
568 Begin grabbing keyboard (some key-prefix is entered).
569 Optionally you can specify CURSOR to be used, while grabbing." nil nil)
571 (autoload 'xwem-kbd-stop-grabbing "xwem-keyboard" "\
572 Stop grabbing keyboard." nil nil)
574 (autoload 'xwem-kbd-initialize-modifiers "xwem-keyboard" "\
575 Create internal modifier representation to speedup futher work.
576 Also update `xwem-kbd-evilmasks' if `xwem-kbd-evillocks' is non-nil." nil nil)
580 ;;;### (autoloads (xwem-keymacro-internal-play xwem-keymacro-execute-keys xwem-keymacro-executing-p) "xwem-keymacro" "lisp/xwem-keymacro.el")
582 (defvar xwem-keymacro-macros-stack nil "\
583 List of defined keyboard macroses.")
585 (autoload 'xwem-keymacro-executing-p "xwem-keymacro" "\
586 Return non-nil if executing keyboard macro." nil nil)
588 (autoload 'xwem-keymacro-execute-keys "xwem-keymacro" "\
589 Execute keyboard macro KEYS." nil nil)
591 (autoload 'xwem-keymacro-internal-play "xwem-keymacro" "\
592 Play Emacs KEYS TIMES times." nil nil)
596 ;;;### (autoloads (xwem-file-find-command xwem-execute-program-expecting xwem-launcher-query) "xwem-launcher" "lisp/xwem-launcher.el")
598 (autoload 'xwem-launcher-query "xwem-launcher" "\
599 Query for command to launch using PROMPT." nil nil)
601 (autoload 'xwem-execute-program-expecting "xwem-launcher" "\
602 Execute CMD expecting till client will be managed.
603 MANAGE-TYPE specifies which manage type to use in expectance.
604 CL-PLIST is properties for expected client.
605 Return managed client unless NON-BLOCK is non-nil." nil nil)
607 (autoload 'xwem-file-find-command "xwem-launcher" "\
608 Find appropriate command to open FILENAME file." nil nil)
612 ;;;### (autoloads nil "xwem-main" "lisp/xwem-main.el")
614 (defcustom xwem-commands-gc-cons-threshold 5000000 "*Value of `gc-cons-threshold' to use when executing xwem commands.\nMake sense only if `xwem-commands-inhibit-gc' is non-nil." :type 'number :group 'xwem)
616 (defcustom xwem-commands-inhibit-gc t "*Non-nil mean that xwem interactive commands runs without GCing." :type 'boolean :group 'xwem)
620 ;;;### (autoloads (xwem-manage-set-property xwem-manage-rem-property xwem-manage-property xwem-manda-add-expectance xwem-cl-was-expected-p xwem-cl-was-expected xwem-manda-find-match-1 xwem-cl-match-p xwem-class-match-p) "xwem-manage" "lisp/xwem-manage.el")
622 (autoload 'xwem-class-match-p "xwem-manage" "\
623 Return non-nil if CL matches CLI-REGEX, CLN-REGEX, WMNAME-REGEX.
624 CLI-REGEX is regexp to match class instance name.
625 CLN-REGEX is regexp to match class name.
626 WMNAME-REGEX is regexp to match CL's WM_NAME." nil nil)
628 (autoload 'xwem-cl-match-p "xwem-manage" "\
629 Check whether CL matches MATCH-SPEC.
630 MATCH-SPEC format is a list in form
636 (and (TYPE PARAM) ..).
640 `class-name' - To match CL's class name (PARAM is regex).
642 `class-inst' - To match CL's class instance name (PARAM is regex).
644 `name' - Client name (PARAM is regex).
646 `command' - Client's WM_COMMAND (PARAM is regex)
648 `property' - PARAM is either property symbol, or cons cell where car
649 is property symbol and cdr is value of property to match.
651 `function' - PARAM is function which passed with one argument CL and
652 returns non-nil if CL matches.
654 `eval' - PARAM is form to evaluate.
656 `or'|`and' - Starts subspec, PARAM is MATCH-SPEC.
658 `override-redirect' - If this TYPE is used, also match client with
659 override-redirect attribute, otherwise clients
660 with override-redirect are skiped, even if others
663 `buffer-major-mode' - PARAM is major-mode name. Matches if current
664 client is Emacs frame, frame's buffer is current
665 and its major mode is eq to PARAM.
667 `buffer-name' - PARAM is regexp. As `buffer-major-mode' but if PARAM matches
668 current buffer's name.
670 `buffer-filename' - PARAM is regexp. As `buffer-name' but if PARAM matches
671 current buffer's filename.
673 `application' - PARAM is application name that is looked in
674 `xwem-applications-alist'.
677 (autoload 'xwem-manda-find-match-1 "xwem-manage" "\
678 Search for CL match in MANAGE-LIST.
679 EXTRACTOR is where to obtain match-spec from MANAGE-LIST elements,
680 default is 'cddr." nil nil)
682 (autoload 'xwem-cl-was-expected "xwem-manage" "\
683 Mark/unmark CL as it was expected according to NEW value.
684 If NEW is non-nil mark CL as was expected.
685 If NEW is nil then unmark." nil nil)
687 (autoload 'xwem-cl-was-expected-p "xwem-manage" "\
688 Return non-nil if CL was expected for managing." nil nil)
690 (autoload 'xwem-manda-add-expectance "xwem-manage" "\
691 Install new EXPECTANCE in `xwem-manage-expectances' list.
692 EXPIRE-TIMEOUT specifies time-to-live for new entry in seconds
693 \(default is `xwem-manage-default-expectance-expire-timeout')." nil nil)
695 (autoload 'xwem-manage-property "xwem-manage" "\
696 For MANAGE-TYPE, return manage property PROP." nil nil)
698 (autoload 'xwem-manage-rem-property "xwem-manage" "\
699 For MANAGE-TYPE, remove property PROP." nil nil)
701 (autoload 'xwem-manage-set-property "xwem-manage" "\
702 For MANAGE-TYPE, set manage property PROP to VAL." nil nil)
704 (defun* define-xwem-manage-model-1 (manage-name docstring &key manage-properties cl-properties match-spec append manage-method activate-method deactivate-method refit-method iconify-method withdraw-method) "Define new managing model of MANAGE-NAME.\nDOCSTRING is documentation for managing model.\nMANAGE-PROPERTIES - Some manage properties used when managing clients\nof this managing model.\nCL-PROPERTIES - Client properties to import into client when client\nmanaging using this managing model.\nMATCH-SPEC - Client matching specification, see `xwem-cl-match-p'.\nAPPEND - Non-nil mean append to the end of managing models list. By\ndefault managing models are prepended to list." (put manage-name :docstring docstring) (add-to-list 'xwem-manage-internal-list (list manage-name cl-properties match-spec) append) (setq manage-properties (xwem-misc-merge-plists xwem-manage-default-properties manage-properties)) (while manage-properties (xwem-manage-set-property manage-name (car manage-properties) (cadr manage-properties)) (setq manage-properties (cddr manage-properties))) (when manage-method (put 'manage manage-name manage-method)) (when activate-method (put 'activate manage-name activate-method)) (when deactivate-method (put 'deactivate manage-name deactivate-method)) (when refit-method (put 'refit manage-name refit-method)) (when iconify-method (put 'iconify manage-name iconify-method)) (when withdraw-method (put 'withdraw manage-name withdraw-method)))
708 ;;;### (autoloads nil "xwem-minibuffer" "lisp/xwem-minibuffer.el")
710 (defcustom xwem-minibuffer-border-width 2 "Border width for `xwem-minibuffer'." :type 'number :set (lambda (sym val) (set sym val) (let ((cl (and xwem-minibuffer (xwem-minib-cl xwem-minibuffer)))) (when (xwem-cl-p cl) (xwem-client-set-property cl 'x-border-width xwem-minibuffer-border-width)))) :initialize 'custom-initialize-default :group 'xwem-minibuffer)
712 (defcustom xwem-minibuffer-outer-border-width 1 "*Outer border width for xwem minibuffer." :type 'number :group 'xwem-minibuffer)
714 (defvar xwem-minibuffer nil "\
715 Default xwem minibuffer.")
719 ;;;### (autoloads (xwem-misc-lower-xwin xwem-misc-raise-xwin xwem-misc-unset-always-on-top xwem-misc-set-xwin-always-on-top xwem-debug xwem-misc-rotate-data xwem-misc-merge-plists xwem-misc-fixup-string xwem-misc-xbutton-cl xwem-misc-completing-read-using-iswitchb xwem-misc-xwin-background-mode xwem-exit-recursive-edit xwem-recursive-edit xwem-list-exchange-els xwem-message xwem-clear-message xwem-misc-xwin-valid-p xwem-misc-find-emacs-frame xwem-misc-find-frame xwem-misc-draw-bar xwem-misc-draw-shadow xwem-cursor-recolorize xwem-make-cursor xwem-make-color xwem-misc-colorspec-valid-p xwem-misc-colorspec->rgb-vector-safe xwem-misc-colorspec->rgb-vector xwem-xwin-cl) "xwem-misc" "lisp/xwem-misc.el")
721 (defcustom xwem-misc-turbo-mode nil "*Non-nil mean xwem will work as fast as it can.\nIn this case, some color related customizations may not apply on fly.\nSo on-fly theming will not work, etc.\nHowever seting its value to non-nil is most convinient for most users." :type 'boolean :group 'xwem-misc)
723 (defvar xwem-misc-mask-fgc nil "\
724 X-Gc with foreground 1.0 destination drawable has depth 1.")
726 (defvar xwem-misc-mask-bgc nil "\
727 X-Gc with foreground 1.0 destination drawable has depth 1.")
729 (autoload 'xwem-xwin-cl "xwem-misc" "\
730 Return CL, which X window is XWIN." nil 'macro)
732 (autoload 'xwem-misc-colorspec->rgb-vector "xwem-misc" "\
733 Conver color specification COLSPEC to internal representation.
734 COLSPEC maybe in form: #RRGGBB or name like 'green4'." nil nil)
736 (autoload 'xwem-misc-colorspec->rgb-vector-safe "xwem-misc" "\
737 Validate COLSPEC to be color specification in safe manner.
738 Return DEFRET or [0 0 0] if there was error." nil nil)
740 (autoload 'xwem-misc-colorspec-valid-p "xwem-misc" "\
741 Return non-nil if COLSPEC is valid color specification.
742 Valid colorspecification is spec in form: #RRGGBB or name like 'green4'." nil nil)
744 (autoload 'xwem-make-color "xwem-misc" "\
745 Create X-Color according to COLORSPEC." nil nil)
747 (autoload 'xwem-make-cursor "xwem-misc" "\
748 Make new cursor of TYPE and store it in WHERE-STORE.
749 BGCOL maybe nil, that mean masking will not be done." nil nil)
751 (autoload 'xwem-cursor-recolorize "xwem-misc" "\
752 Recolorize CURSOR to use NEW-FG foreground and NEW-BG background." nil nil)
754 (autoload 'xwem-misc-draw-shadow "xwem-misc" "\
755 Draw shadow." nil nil)
757 (autoload 'xwem-misc-draw-bar "xwem-misc" "\
760 Shadow thickness is TH and it is drawed with GC2 and GC3." nil nil)
762 (autoload 'xwem-misc-find-frame "xwem-misc" "\
763 Find Emacs frame by its NAME." nil nil)
765 (autoload 'xwem-misc-find-emacs-frame "xwem-misc" "\
766 Return Emacs frame that corresponds CL.
767 HACK, DO NOT USE." nil nil)
769 (autoload 'xwem-misc-xwin-valid-p "xwem-misc" "\
770 Return non-nil if XWIN is valid X window.
771 Do it in safe manner." nil nil)
773 (autoload 'xwem-clear-message "xwem-misc" "\
774 Clear xwem minibuffer's buffer." nil nil)
776 (autoload 'xwem-message "xwem-misc" "\
777 Display xwem message of TYPE using FMT format." nil nil)
779 (autoload 'xwem-list-exchange-els "xwem-misc" "\
780 In LIST exchange places of EL1 and EL2." nil nil)
782 (autoload 'xwem-recursive-edit "xwem-misc" "\
783 Enter recursive edit." nil nil)
785 (autoload 'xwem-exit-recursive-edit "xwem-misc" "\
786 Exit from recursive edit." nil nil)
788 (autoload 'xwem-misc-xwin-background-mode "xwem-misc" "\
789 Return XWIN's background mode in rectange WIDTHxHEIGHT+X+y.
790 Background mode is one of `light' or `dark'." nil nil)
792 (autoload 'xwem-misc-completing-read-using-iswitchb "xwem-misc" "\
793 Read a string in the xwem minibuffer using iswitchb package.
794 PROMPT is a string to prompt with.
795 TABLE is a list of strings to select.
796 PREDICATE is a function that limits completion to a subset of TABLE." nil nil)
798 (autoload 'xwem-misc-xbutton-cl "xwem-misc" "\
799 Return client where button event XEV occured." nil nil)
801 (autoload 'xwem-misc-fixup-string "xwem-misc" "\
802 Fixup STR to be no-more than MAX-WIDTH chars." nil nil)
804 (autoload 'xwem-misc-merge-plists "xwem-misc" "\
805 Merge plist entries on MERG-PLIST to PLIST1 and return resulting plist." nil nil)
807 (autoload 'xwem-misc-rotate-data "xwem-misc" "\
808 Rotate DATA obtained from XGetImage for use by XPutImage." nil nil)
810 (autoload 'xwem-debug "xwem-misc" nil nil nil)
812 (autoload 'xwem-misc-set-xwin-always-on-top "xwem-misc" "\
813 Mark xwin as always on top window.
814 If number RANK is given, it denotes rank of always on top window.
815 Higher RANK mean XWIN is above windows with lower RANK.
816 By default RANK is 10." nil nil)
818 (autoload 'xwem-misc-unset-always-on-top "xwem-misc" "\
819 Unmark XWIN as always on top window." nil nil)
821 (autoload 'xwem-misc-raise-xwin "xwem-misc" "\
822 Raise XWIN reguarding always on top windows." nil nil)
824 (autoload 'xwem-misc-lower-xwin "xwem-misc" "\
825 Lower XWIN according to its always on top rank." nil nil)
829 ;;;### (autoloads (xwem-turn-off-minor-mode xwem-turn-on-minor-mode) "xwem-modes" "lisp/xwem-modes.el")
831 (defvar xwem-minor-mode-alist nil "\
832 Alist saying how to show minor modes.
833 Each element is a list which looks like (VAR STRING).
834 STRING is shown when VAR is non-nil.")
836 (defvar xwem-minor-mode-map-alist nil "\
837 Alist of keymaps for use of minor modes.
838 Each element looks like (VAR . KEYMAP).")
839 (autoload 'xwem-add-minor-mode "xwem-modes")
841 (autoload 'xwem-turn-on-minor-mode "xwem-modes" "\
842 On CL, turn on minor mode MM-TOGGLE." nil nil)
844 (autoload 'xwem-turn-off-minor-mode "xwem-modes" "\
845 On CL, turn off minor mode MM-TOGGLE." nil nil)
849 ;;;### (autoloads (xwem-generate-cl-menu xwem-generate-menu xwem-generate-clients-menu xwem-generate-window-menu) "xwem-mouse" "lisp/xwem-mouse.el")
851 (autoload 'xwem-generate-window-menu "xwem-mouse" "\
852 Generate menu for WIN." nil nil)
854 (autoload 'xwem-generate-clients-menu "xwem-mouse" "\
855 Generate clients menu.
857 Optional MAX-MWIDTH argument specifies maximum width for menu items,
858 default is 42." nil nil)
860 (autoload 'xwem-generate-menu "xwem-mouse" "\
861 Generate xwem menu on fly." nil nil)
863 (autoload 'xwem-generate-cl-menu "xwem-mouse" "\
864 Generate menu for CL.
865 MAXNLEN - maximum menu width in characters." nil nil)
869 ;;;### (autoloads nil "xwem-register" "lisp/xwem-register.el")
870 (autoload 'xwem-registers-help "xwem-registers" nil "Show info about registers.")
874 ;;;### (autoloads (xwem-init-root) "xwem-root" "lisp/xwem-root.el")
876 (defvar xwem-another-wm-mode nil "\
877 Non-nil mean another wm is running.")
879 (autoload 'xwem-init-root "xwem-root" "\
880 Initialization part for root." nil nil)
884 ;;;### (autoloads (xwem-special-revert-focus xwem-special-p xwem-special-popup-frame) "xwem-special" "lisp/xwem-special.el")
886 (autoload 'xwem-special-popup-frame "xwem-special" "\
887 As `special-display-popup-frame', but popup frame for sure.
888 When NONDEDICATED-P is non-nil then frame will not be dedicated." nil nil)
890 (autoload 'xwem-special-p "xwem-special" "\
891 Return non-nil if CL is special client." nil nil)
893 (autoload 'xwem-special-revert-focus "xwem-special" "\
894 Try to predict who has focus, before SPEC-CL and revert to it." nil nil)
898 ;;;### (autoloads (xwem-rootgeom xwem-rootwin xwem-dpy) "xwem-struct" "lisp/xwem-struct.el")
900 (autoload 'xwem-dpy "xwem-struct" "\
901 Return default X display for XWEM." nil 'macro)
903 (autoload 'xwem-rootwin "xwem-struct" "\
904 Return default root window of `xwem-dpy'." nil 'macro)
906 (autoload 'xwem-rootgeom "xwem-struct" nil nil 'macro)
910 ;;;### (autoloads (xwem-tray-background-mode xwem-tray-find-dapp xwem-XTrayInit) "xwem-tray" "lisp/xwem-tray.el")
912 (autoload 'xwem-XTrayInit "xwem-tray" "\
914 You should use this function instead of direct calls to `XTrayInit',
915 because in time you doing it xwem-tray may be uninitialised." nil nil)
917 (autoload 'xwem-tray-find-dapp "xwem-tray" "\
918 Finds dock application by X window XWIN." nil nil)
920 (autoload 'xwem-tray-background-mode "xwem-tray" "\
921 Return background mode(`dark' or `light') for system tray." nil nil)
925 ;;;### (autoloads (xwem-window-set-size xwem-set-window-configuration xwem-window-configuration xwem-win-only-one-p xwem-win-map xwem-win-set-height xwem-win-set-width xwem-window-set-pixsize xwem-select-window xwem-window-other xwem-window-prev xwem-window-next-vertical xwem-window-next xwem-win-set-cl xwem-win-rem-cl xwem-win-add-cl xwem-cl-set-win xwem-win-find-by-id xwem-win-find-by-num xwem-win-num xwem-win-make-list-by-next xwem-win-delim-shadow-thickness xwem-win-delim-width) "xwem-win" "lisp/xwem-win.el")
927 (defcustom xwem-win-vertical-delim-width '(8 . 1) "*Width in pixels for vertical delimiters.\ncar is delimiter width, cdr is shadow thickness." :type '(cons number number) :group 'xwem-win)
929 (defcustom xwem-win-horizontal-delim-width '(6 . 1) "*Width in pixels for horizontal delimiters.\ncar is delimiter width, cdr is shadow thickness." :type '(cons number number) :group 'xwem-win)
931 (autoload 'xwem-win-delim-width "xwem-win" "\
932 Return WIN's delimiter width." nil nil)
934 (autoload 'xwem-win-delim-shadow-thickness "xwem-win" "\
935 Return WIN's delimiter width." nil nil)
937 (autoload 'xwem-win-make-list-by-next "xwem-win" "\
938 Create list of WINDOW and all next windows." nil nil)
940 (autoload 'xwem-win-num "xwem-win" "\
941 Return relative WIN's number in logical window list." nil nil)
943 (autoload 'xwem-win-find-by-num "xwem-win" "\
944 In FRAME find window for which `xwem-win-num' returns NUM." nil nil)
946 (autoload 'xwem-win-find-by-id "xwem-win" "\
947 Find a window with WIN-ID." nil nil)
949 (autoload 'xwem-cl-set-win "xwem-win" "\
950 Associate CL with WIN.
951 WIN is valid WIN or nil." nil nil)
953 (autoload 'xwem-win-add-cl "xwem-win" "\
954 Into WIN's clients list add new client CL." nil nil)
956 (autoload 'xwem-win-rem-cl "xwem-win" "\
957 From WIN's clients list remove client CL." nil nil)
959 (autoload 'xwem-win-set-cl "xwem-win" "\
960 Associate WIN with CL as current client in WIN." nil nil)
962 (autoload 'xwem-window-next "xwem-win" "\
963 Return next window after WINDOW in canonical ordering of windows.
964 If omitted, WINDOW defaults to the `(xwem-win-selected)'." nil nil)
966 (autoload 'xwem-window-next-vertical "xwem-win" "\
967 Return next window which is vertically after WINDOW.
968 If WINDOW is not given `(xwem-win-selected)' will be used." nil nil)
970 (autoload 'xwem-window-prev "xwem-win" "\
971 Retrun previous window before WINDOW in canonical ordering of windows.
972 If ommitted, WINDOW defaults to the `(xwem-win-selected)'." nil nil)
974 (autoload 'xwem-window-other "xwem-win" "\
975 Return CNT's next window for WINDOW if CNT is greater then zero and
976 previous if negative." nil nil)
978 (autoload 'xwem-select-window "xwem-win" "\
979 Set WINDOW to be selected window." nil nil)
981 (autoload 'xwem-window-set-pixsize "xwem-win" "\
982 Set pixsize for WINDOW." nil nil)
984 (autoload 'xwem-win-set-width "xwem-win" "\
985 Set window's WIN width to NEW-WIDTH." nil nil)
987 (autoload 'xwem-win-set-height "xwem-win" "\
988 Set window's WIN height to NEW-HEIGHT." nil nil)
990 (autoload 'xwem-win-map "xwem-win" "\
991 Apply FN to FRAME-WIN and each subwindow.
992 FN will be called with a window as argument.
993 If ommitted, WINDOW defaults to the `(xwem-win-selected)'." nil nil)
995 (autoload 'xwem-win-only-one-p "xwem-win" "\
996 Return non-nil if WINDOW is only one in chain.
997 If WINDOW ommitted `(xwem-win-selected)' used." nil nil)
999 (autoload 'xwem-window-configuration "xwem-win" "\
1000 Return an object representing the current window configuration of xwem FRAME.
1001 If FRAME is nil or ommited, use the sected frame." nil nil)
1003 (autoload 'xwem-set-window-configuration "xwem-win" "\
1004 Set window to CONFIG.
1005 If optional argument SELECT-FRAME-P is non-nil also select frame for
1006 which window CONFIG was generated." nil nil)
1008 (autoload 'xwem-window-set-size "xwem-win" "\
1009 Set WIN's size to be NEW-WIDTH, NEW-HEIGHT." nil nil)
1013 (provide 'xwem-loaddefs)