contrib/server/server.lisp: Load clfswm client code in the main program and let the...
[clfswm.git] / ChangeLog
blob9186108009d5c61d6c6c5cfec7e1e2197e0c9135
1 2010-10-25  Philippe Brochard  <pbrochard@common-lisp.net>
3         * contrib/server/server.lisp: Load clfswm client code in the main
4         program and let the user start it with a --client command line
5         option.
7         * src/package.lisp (*main-entrance-hook*): New hook executed after
8         loading configuration file and before opening the display.
10 2010-10-23  Philippe Brochard  <pbrochard@common-lisp.net>
12         * src/xlib-util.lisp: Remove unnecessary xlib:display-finish-output.
14         * src/clfswm-internal.lisp (show-child): Show window only if not
15         hidden.
17         * src/clfswm-keys.lisp (binding-substitute-modifier): Utility to
18         change modifiers after binding definition.
20 2010-10-21  Philippe Brochard  <pbrochard@common-lisp.net>
22         * contrib/osd.lisp: New file: OSD (On Screen Display) for
23         presentations.
25         * src/clfswm-menu.lisp (open-menu): Modularise function.
27 2010-10-13  Philippe Brochard  <pbrochard@common-lisp.net>
29         * src/clfswm-info.lisp (show-first-aid-kit): Display the essential
30         key binding in main and second mode.
32 2010-10-10  Philippe Brochard  <pbrochard@common-lisp.net>
34         * src/clfswm-util.lisp (open-notify-window): Convert hello-window
35         functions to a more generic Notify-window system.
37         * src/tools.lisp (add-timer): Add an id to identify the timer.
39 2010-10-09  Philippe Brochard  <pbrochard@common-lisp.net>
41         * src/tools.lisp (erase-timer): New function.
43         * src/clfswm-util.lisp (display-hello-window): Add a timer to hide
44         the hello window. Add Configuration variables.
46 2010-10-08  Philippe Brochard  <pbrochard@common-lisp.net>
48         * src/clfswm-util.lisp (): Add an Hello window at startup.
50         * src/tools.lisp (process-timers): Add a timer system.
52 2010-10-07  Philippe Brochard  <pbrochard@common-lisp.net>
54         * src/clfswm-query.lisp (add-in-query-string): Handle correctly
55         the mod-5 modifier.
57 2010-10-06  Philippe Brochard  <pbrochard@common-lisp.net>
59         * src/clfswm-query.lisp (query-print-string): Change cursor color
60         and show parenthesis matching with colors (on match and on
61         errors).
63 2010-10-05  Philippe Brochard  <pbrochard@common-lisp.net>
65         * src/clfswm-internal.lisp (show-all-children): Do not raise a
66         child when its parent is hidden.
68 2010-10-02  Philippe Brochard  <pbrochard@common-lisp.net>
70         * src/clfswm-circulate-mode.lisp (select-next-subchild): Add the
71         possibility to circulate over subchild of the current child.
73         * src/clfswm-expose-mode.lisp (expose-all-windows-mode)
74         (expose-windows-generic): Add an escape-body function to return to
75         the original state on escape key.
77         * src/clfswm-util.lisp (bind-on-slot): Add an optional parameter
78         to bind the current child from the configuration file.
80 2010-10-01  Philippe Brochard  <pbrochard@common-lisp.net>
82         * src/clfswm-nw-hooks.lisp (absorb-window-nw-hook): Absorb new
83         window hook: the frame absorb all new windows that match
84         nw-absorb-test frame data slot.
86 2010-09-30  Philippe Brochard  <pbrochard@common-lisp.net>
88         * src/clfswm-expose-mode.lisp (expose-create-window): Show window
89         title in accel window.
91 2010-09-29  Philippe Brochard  <pbrochard@common-lisp.net>
93         * configure: Use the Xavier Maillard clfswm script in contrib to
94         build an executable in the standard way.
96 2010-09-26  Philippe Brochard  <pbrochard@common-lisp.net>
98         * src/clfswm-expose-mode.lisp (expose-mode-display-accel-windows):
99         New functions. Add a window on each child in the expose mode to
100         quickly select them.
102         * src/clfswm-internal.lisp (child-x, child-y, child-width)
103         (child-height): New methods to get real child coordinates.
105 2010-09-25  Philippe Brochard  <pbrochard@common-lisp.net>
107         * src/clfswm-layout.lisp (*-layout): Use child-position.
109         * src/clfswm-internal.lisp (child-position): New function.
111         * src/clfswm-expose-mode.lisp (expose-windows-mode)
112         (expose-all-windows-mode): Use a generic mode.
114         * src/xlib-util.lisp (with-handle-event-symbol): Use a filled list
115         with handle-event-fun symbols instead of inspecting clfswm
116         internals symbols on each mode change.
118         * src/clfswm-expose-mode.lisp: Move and rename present*-windows in
119         a separate clfswm-expose-mode.lisp file.
121         * src/clfswm-util.lisp (speed-mouse-right, speed-mouse-down): Use
122         screen size instead of hardcoded test coordinates.
124 2010-09-24  Philippe Brochard  <pbrochard@common-lisp.net>
126         * src/clfswm-util.lisp (speed-mouse-reset, speed-mouse-left)
127         (speed-mouse-right, speed-mouse-up, speed-mouse-down)
128         (speed-mouse-undo, speed-mouse-first-history): New functions to
129         quickly move the mouse. Implemented for the second mode.
131 2010-09-16  Philippe Brochard  <pbrochard@common-lisp.net>
133         * contrib/clfswm: Move clfswm sources to $tmp_dir if there is no
134         write permission on $clfswm_asd_path. So anybody can start clfswm
135         even if there is no write permission on the source directory.
137 2010-09-12  Philippe Brochard  <pbrochard@common-lisp.net>
139         * contrib/clfswm: Add support to cmucl, ccl and ecl.
141 2010-09-11  Philippe Brochard  <pbrochard@common-lisp.net>
143         * src/clfswm-util.lisp (set-hide-unmanaged-window)
144         (set-show-unmanaged-window, set-default-hide-unmanaged-window):
145         New functions and menu entry.
146         (set-globally-hide-unmanaged-window)
147         (set-globally-show-unmanaged-window): New functions and menu
148         entry.
150         * src/clfswm-internal.lisp (hide-unmanager-window-p): New
151         function.
152         (show-child): Add a data slot on frame to hide or not unmanaged
153         windows.
155         * src/clfswm-corner.lisp (present-clfswm-terminal)
156         (present-virtual-keyboard): Use a function (generic-present-body)
157         instead of a macro (generate-present-body).
159         * src/clfswm-util.lisp (update-menus): List all directories and
160         subdirectories in $XDG_DATA_DIRS/applications.
162 2010-09-10  Philippe Brochard  <pbrochard@common-lisp.net>
164         * src/clfswm-corner.lisp (generate-present-body): New macro.
165         (present-clfswm-terminal, present-virtual-keyboard): Use
166         generate-present-body.
168 2010-09-09  Philippe Brochard  <pbrochard@common-lisp.net>
170         * src/clfswm-util.lisp (update-menus): Follow XDG specifications
171         instead of the non-portable Debian update-menu.
173 2010-09-07  Philippe Brochard  <pbrochard@common-lisp.net>
175         * src/clfswm.lisp (error-handler): New function do handle
176         asynchronous errors and ignore them.
177         (open-display): Install the new error-handler on display.
179 2010-09-05  Philippe Brochard  <pbrochard@common-lisp.net>
181         * src/xlib-util.lisp (with-xlib-protect): Add a
182         with-simple-restart on top of body execution.
184 2010-09-04  Philippe Brochard  <pbrochard@common-lisp.net>
186         * src/clfswm.lisp (main-loop): Protect all xlib functions with an
187         with-xlib-protect.
189         * src/xlib-util.lisp (handle-event): use with-xlib-protect only in
190         handle-event. Add a with-simple-restart to prevent a
191         clisp/new-lisp infinite loop.
193 2010-08-30  Philippe Brochard  <pbrochard@common-lisp.net>
195         * src/clfswm-corner.lisp (present-clfswm-terminal): Make the
196         clfswm terminal working even on xterm title changes.
198 2010-08-29  Philippe Brochard  <pbrochard@common-lisp.net>
200         * src/clfswm-util.lisp (run-other-window-manager): Update for
201         clisp compatibility.
203         * src/tools.lisp (do-execute): New parameter io to change the
204         input/output method.
206         * src/clfswm-util.lisp (hide-current-child): Prevent from removing
207         the current root.
209         * src/clfswm-internal.lisp (child-member): New predicate.
210         (child-remove): New function.
212         * src/*.lisp: Use child-member and child-remove everywhere it's
213         needed.
215 2010-08-28  Philippe Brochard  <pbrochard@common-lisp.net>
217         * src/clfswm.lisp (main-loop): Ensure that all events have been
218         processed after a process-event.
220         * src/clfswm-internal.lisp (is-in-current-child-p): New function.
222 2010-08-27  Philippe Brochard  <pbrochard@common-lisp.net>
224         * src/clfswm.lisp (main-mode:configure-request): Raise the window
225         only when present on the current child and focus it accordingly.
227 2010-08-26  Philippe Brochard  <pbrochard@common-lisp.net>
229         * src/clfswm-circulate-mode.lisp (circulate-loop-function):
230         Use is-a-key-pressed-p.
232         * src/xlib-util.lisp (is-a-key-pressed-p): New predicate.
234         * src/clfswm-keys.lisp (define-ungrab/grab): Use all values
235         returned by xlib:keysym->keycodes.
237         * src/*.lisp: Use the new child-equal-p to compare children. This
238         prevent a bug with sbcl/cmucl when the standard equal function
239         does not work with xlib:window.
241         * src/clfswm-internal.lisp (child-equal-p): New predicate.
243 2010-08-25  Philippe Brochard  <pbrochard@common-lisp.net>
245         * src/clfswm-generic-mode.lisp (generic-mode): Use an
246         xlib:event-listen before processing event with
247         xlib:process-event. This prevent a bug with CLX threaded
248         implementation like sbcl.
250         * src/clfswm.lisp (main-loop): Use an xlib:event-listen before
251         processing event with xlib:process-event. This prevent a bug with
252         CLX threaded implementation like sbcl.
254 2010-08-17  Philippe Brochard  <pbrochard@common-lisp.net>
256         * contrib/server/key.lisp (ushell-sh): Add ccl and ecl support.
258         * src/xlib-util.lisp (compress-motion-notify): Use a loop instead
259         of an event-case.
261         * src/clfswm-internal.lisp (with-find-in-all-frames): New macro.
262         (find-parent-frame, find-frame-window, find-frame-by-name)
263         (find-frame-by-number): Use with-find-in-all-frames to search in
264         frames in the right order.
266         * src/clfswm-util.lisp (mouse-click-to-focus-generic): Fix an
267         unwanted flickering with unmanaged windows.
269 2010-08-16  Philippe Brochard  <pbrochard@common-lisp.net>
271         * src/package.lisp: Remove event handler hooks as they're not
272         needed anymore (To replace them: use closure and define-handler).
274         * src/xlib-util.lisp (move-window, resize-window)
275         (wait-mouse-button-release): Use a generic mode.
277         * src/*.lisp: Replace the case to handle event with a more (tricky)
278         lispy  method which bind a function to each keywords associated
279         to graphics events.
281 2010-07-23  Philippe Brochard  <pbrochard@common-lisp.net>
283         * src/clfswm-util.lisp (delete-current-child): Invert bindings and
284         menu entry between delete-current-child and remove-current-child.
285         ie: Delete a child and its children in all frames by default.
287 2010-07-21  Philippe Brochard  <pbrochard@common-lisp.net>
289         * src/package.lisp: Add a placement configuration group.
291         * src/binding*.lisp: Bind control+g to escape the current action
292         like emacs.
294         * src/clfswm-internal.lisp
295         (delete-child-and-children-in-all-frames): New function and
296         binding: Second mode - Control+Delete delete the current child and
297         its children in all frames (ie: close the current child and its
298         children).
300 2010-07-20  Philippe Brochard  <pbrochard@common-lisp.net>
302         * src/clfswm-internal.lisp (remove-child-in-frame): Do not destroy
303         the frame window and the frame gc. Close a very annoying bug when
304         cuting/pasting a frame or moving a child over frames with the
305         mouse.
307         * src/clfswm-util.lisp (mouse-click-to-focus-generic): Redisplay
308         all children in *current-root* after moving/resizing a frame.
310 2010-07-18  Philippe Brochard  <pbrochard@common-lisp.net>
312         * src/clfswm-util.lisp (delete-focus-window)
313         (destroy-focus-window): Remove child in parent frame before
314         stopping it.
316 2010-07-16  Philippe Brochard  <pbrochard@common-lisp.net>
318         * src/clfswm-util.lisp (identify-key): Add a timeout in
319         xlib:process-event.
320         (mouse-click-to-focus-generic): Use find-child-under-mouse instead
321         of the window passed by xlib:process-event.
323         * src/xlib-util.lisp (move-window, resize-window)
324         (wait-mouse-button-release): Add a timeout in xlib:process-event.
326 2010-04-11  Philippe Brochard  <pbrochard@common-lisp.net>
328         * src/clfswm-util.lisp (run-other-window-manager): Add the ability
329         to launch an other window manager and to return to clfswm.
331 2010-03-18  Philippe Brochard  <pbrochard@common-lisp.net>
333         * src/clfswm-layout.lisp (set-tile-space-layout): Set default
334         to 1%.
336 2009-12-15  Philippe Brochard  <pbrochard@common-lisp.net>
338         * src/clfswm.lisp (main-loop): Add a *loop-hook* parameter and a
339         loop timeout.
341         * src/clfswm-generic-mode.lisp (generic-mode): Add a loop-hook
342         parameter and a loop timeout.
344 2009-12-05  Philippe Brochard  <pbrochard@common-lisp.net>
346         * src/clfswm.lisp (main): Add an alternate configuration filename
347         parameter.
349         * load.lisp: Add a debuging code example.
351 2009-11-14  Philippe Brochard  <pbrochard@common-lisp.net>
353         * src/clfswm-configuration.lisp (create-configuration-menu): New
354         menu to configure all clfswm variables while clfswm is running.
356 2009-11-12  Philippe Brochard  <pbrochard@common-lisp.net>
358         * src/clfswm-util.lisp (save-configuration-variables): New
359         function to save all configuration variables in clfswmrc.
361 2009-11-11  Philippe Brochard  <pbrochard@common-lisp.net>
363         * src/clfswm-info.lisp (info-mode): Begining of mouse support in
364         info mode.
365         (set-default-info-keys): Add cursor key support in info mode.
367 2009-11-08  Philippe Brochard  <pbrochard@common-lisp.net>
369         * contrib/reboot-halt.lisp: Add a Suspend/Reboot/Halt menu in
370         contrib.
372         * src/clfswm.lisp (main): Add a read-conf-file-p parameter to
373         prevent reading the configuration file (this may be useful to
374         produce the original documentation without user modifications
375         with the rc configuration file).
377 2009-11-07  Philippe Brochard  <pbrochard@common-lisp.net>
379         * src/bindings-second-mode.lisp (set-default-second-keys):
380         Simplification of Escape key to close/kill/remove the focus window
381         and unhide all windows.
383         * src/bindings.lisp (set-default-main-keys): Simplification of
384         Escape key to close/kill/remove the focus window and unhide all
385         windows.
387         * src/clfswm-util.lisp (ask-close/kill-current-window): Add remove
388         focus and unhide all windows capabilities.
390 2009-10-10  Philippe Brochard  <pbrochard@common-lisp.net>
392         * contrib/mpd.lisp (start-gmpc): Add gmpc in the mpd menu.
394 2009-07-29  Philippe Brochard  <pbrochard@common-lisp.net>
396         * src/clfswm-layout.lisp (tile-layout, tile-horizontal-layout):
397         Keep child order and don't make unnecessary child movement.
398         (one-column-layout, one-line-layout): New layouts.
400 2009-06-29  Philippe Brochard  <pbrochard@common-lisp.net>
402         * contrib/cd-player.lisp: New file to handle the CD player.
404         * contrib/xmms.lisp: New file to handle the xmms player.
406 2009-06-28  Philippe Brochard  <pbrochard@common-lisp.net>
408         * src/clfswm-layout.lisp (set-no-layout-remember-size): New layout:
409         Maximize windows in there frame - Leave frames to there actual
410         size.
412         * src/bindings-second-mode.lisp (set-default-second-keys): Bind
413         "o" on set-open-in-new-frame-in-parent-frame-nw-hook.
415 2009-06-27  Philippe Brochard  <pbrochard@common-lisp.net>
417         * contrib/keyb_fr.lisp: New file to handle an azerty keyboard.
419 2009-06-24  Philippe Brochard  <pbrochard@common-lisp.net>
421         * contrib/mpd.lisp: Use a standard menu.
423         * src/clfswm-info.lisp: Use a standard menu for the help-menu.
425 2009-06-22  Philippe Brochard  <pbrochard@common-lisp.net>
427         * contrib/mpd.lisp: New file to handle the Music Player Daemon (MPD)
429 2009-06-19  Philippe Brochard  <pbrochard@common-lisp.net>
431         * src/clfswm-autodoc.lisp (produce-doc, produce-doc-html): Minor
432         number key cleanup.
434 2009-06-18  Philippe Brochard  <pbrochard@common-lisp.net>
436         * src/config.lisp (get-fullscreen-size):  One pixel adjustment
437         (again).
439         * src/clfswm-placement.lisp (*-child-placement): One pixel
440         adjustment (again).
442 2009-06-16  Philippe Brochard  <pbrochard@common-lisp.net>
444         * src/clfswm-circulate-mode.lisp (draw-circulate-mode-window):
445         Ensure that all characters are printable.
447         * src/config.lisp (get-fullscreen-size): Adjust default fullscreen
448         sizes.
450         * src/clfswm-placement.lisp (*-child-placement): Adjust
451         coordinates to one pixel in the current child.
453 2009-06-04  Philippe Brochard  <pbrochard@common-lisp.net>
455         * src/clfswm-query.lisp (query-enter-function): Assign font before
456         width and height calculation.
458 2009-06-03  Philippe Brochard  <pbrochard@common-lisp.net>
460         * src/xlib-util.lisp (banish-pointer): Use with-placement macro to
461         bannish the pointer in an arbitrary place.
463         * src/clfswm-info.lisp (info-mode): Use with-placement macro to
464         place the info window in an arbitrary place.
466         * src/clfswm-query.lisp (query-enter-function): Use with-placement
467         macro to place the query window in an arbitrary place.
469         * src/clfswm-placement.lisp: New file. Allow to place info windows
470         or query windows on an arbitrary place. Allow to bannish the
471         pointer on an arbitrary place.
473 2009-05-16  Philippe Brochard  <pbrochard@common-lisp.net>
475         * src/clfswm-circulate-mode.lisp (reorder-child)
476         (reorder-brother): Unfocus windows before reordering children or
477         brothers.
479 2009-05-13  Philippe Brochard  <pbrochard@common-lisp.net>
481         * src/clfswm-circulate-mode.lisp (reorder-brother): Ensure that
482         the parent is a frame.
484         * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Handle
485         motion with a default modifier.
487         * src/clfswm.lisp (handle-motion-notify): Handle motion with a
488         default modifier.
490         * src/clfswm-info.lisp (info-mode): Handle motion with a default
491         modifier.
492         (info-mode): Optimization in loop function.
494 2009-05-10  Philippe Brochard  <pbrochard@common-lisp.net>
496         * src/clfswm-circulate-mode.lisp (reorder-brother): Handle
497         root-frame correctly.
499         * clfswm.asd: Dependency fix for clfswm-generic-mode.
501         * src/clfswm-circulate-mode.lisp (reorder-child)
502         (reorder-brother): Handle empty frames.
503         (reorder-brother): Redisplay only the parent frame of the  current
504         child.
506         * src/clfswm-util.lisp (frame-toggle-maximize): Redisplay only the
507         parent frame of the  current frame.
509 2009-05-09  Philippe Brochard  <pbrochard@common-lisp.net>
511         * src/clfswm-util.lisp (frame-toggle-maximize): New function:
512         Maximize/Unmaximize the current frame in its parent frame.
514         * src/clfswm-layout.lisp (maximize-layout): New layout: Maximize
515         windows and frames in there parent frame.
517 2009-05-05  Philippe Brochard  <pbrochard@common-lisp.net>
519         * src/*.lisp: Add support for Clozure Common Lisp (CCL).
521         * src/clfswm-circulate-mode.lisp (reorder-child)
522         (reorder-brother): Reinitialise on circulate type change
523         child to brother or brother to child.
525         * src/*.lisp (*): Use map-window instead of xlib:map-window. So
526         calls xlib:display-finish-output on each map-request. So speed up
527         the window display.
529         * src/xlib-util.lisp (map-window): New function. Call
530         xlib:display-finish-output on each map request.
532 2009-04-28  Philippe Brochard  <pbrochard@common-lisp.net>
534         * src/clfswm-second-mode.lisp (sm-handle-motion-notify):
535         Optimisation when drawing second mode window.
537 2009-04-27  Philippe Brochard  <pbrochard@common-lisp.net>
539         * src/clfswm-circulate-mode.lisp (circulate-mode): Optimisation in
540         window redraw.
542 2009-04-22  Philippe Brochard  <pbrochard@common-lisp.net>
544         * src/clfswm-util.lisp (run-program-from-query-string): Launch
545         command only with a return validation.
547 2009-04-22  Xavier Maillard  <xma@gnu.org>
549         * src/clfswm-query.lisp (query-string): Use a generic mode.
551 2009-04-19  Xavier Maillard  <xma@gnu.org>
553         * src/clfswm-info.lisp (info-mode): Use generic-mode for info-mode.
555 2009-04-18  Xavier Maillard  <xma@gnu.org>
557         * src/clfswm-generic-mode.lisp (generic-mode): Add a generic mode
558         to define all other modes.
560 2009-04-05  Philippe Brochard  <pbrochard@common-lisp.net>
562         * src/package.lisp (): Use *default-font-string* for all
563         font-string.
565         * src/clfswm-info.lisp (info-mode): Ensure integer windows size.
567 2009-02-17  Philippe Brochard  <pbrochard@common-lisp.net>
569         * src/xlib-util.lisp (null-size-window-p): Better check of null
570         sized windows.
572 2009-02-14  Philippe Brochard  <pbrochard@common-lisp.net>
574         * src/clfswm.lisp (handle-map-request): Add a fix to manage
575         correctly fullscreen windows (SDL particularly).
577 2008-12-20  Philippe Brochard  <pbrochard@common-lisp.net>
579         * src/xlib-util.lisp (get-color): Allocate colors only once -> fix
580         a segfault with clisp/new-clx.
582         * src/clfswm.lisp (handle-motion-notify): Add a needed window
583         argument.
585         * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Add a
586         needed window argument.
588 2008-10-30  Philippe Brochard  <pbrochard@common-lisp.net>
590         * src/xlib-util.lisp (wait-no-key-or-button-press)
591         (wait-a-key-or-button-press): Check buttons press/release correctly"
593 2008-10-28  Philippe Brochard  <pbrochard@common-lisp.net>
595         * src/menu-def.lisp: Add children navigation menu in the movement
596         menu (select next/previous child/brother/level).
598 2008-10-26  Philippe Brochard  <pbrochard@common-lisp.net>
600         *  *: Rename 'sister' frame to 'brother' frame.
602         * src/clfswm-keys.lisp (unalias-modifiers): Convert a modifier
603         alias in a real modifier.
605         * src/package.lisp (*modifier-alias*): New list of modifier alias
606         For example: :alt is :mod-1, :numlock is :mod-2...
608         * src/tools.lisp (remove-hook): New function.
610         * src/clfswm-keys.lisp (with-capslock, without-capslock)
611         (with-numlock, without-cnumlock): New functions.
613 2008-10-25  Philippe Brochard  <pbrochard@common-lisp.net>
615         * src/clfswm-info.lisp: Use the *binding-hook* to create info
616         keys and mouse bindings.
618         * src/bindings-second-mode.lisp: Use the *binding-hook* to create
619         second keys and mouse bindings.
621         * src/bindings.lisp: Use the *binding-hook* to create main keys
622         and mouse bindings.
624 2008-10-10  Philippe Brochard  <pbrochard@common-lisp.net>
626         * src/clfswm-menu.lisp (open-menu): Remember parent menu to undo
627         menu opening.
629 2008-10-09  Philippe Brochard  <pbrochard@common-lisp.net>
631         * src/menu-def.lisp: Use a menu instead of a function for the
632         standard menu.
634 2008-10-08  Philippe Brochard  <pbrochard@common-lisp.net>
636         * src/clfswm-util.lisp (show-standard-menu): Display the standard
637         menu from the 'update-menus' command.
639 2008-10-07  Philippe Brochard  <pbrochard@common-lisp.net>
641         * src/clfswm-query.lisp (query-string): Do not ungrab keyboard if
642         it's already grabbed.
644         * src/clfswm-internal.lisp (display-frame-info): Use configurable
645         colors and fix a bug with background.
646         (display-frame-info): Set window background when displaying info.
648 2008-10-06  Philippe Brochard  <pbrochard@common-lisp.net>
650         * src/xlib-util.lisp (my-character->keysyms): Use a macro to avoid
651         warning with clisp/new-clx.
653 2008-10-04  Philippe Brochard  <pbrochard@common-lisp.net>
655         * src/clfswm-util.lisp (jump-to-slot): Prevent to jump on a
656         deleted child.
658 2008-09-23  Philippe Brochard  <pbrochard@common-lisp.net>
659         * *: **** Release 0809 ****
661 2008-09-23  Philippe Brochard  <pbrochard@common-lisp.net>
663         * src/clfswm-util.lisp (ensure-unique-name): New function and menu
664         entry.
665         (ensure-unique-number): New function and menu entry.
667 2008-09-22  Philippe Brochard  <pbrochard@common-lisp.net>
669         * src/clfswm-nw-hooks.lisp (named-frame-nw-hook): New new window
670         hook: open the next window in a named frame.
671         (numbered-frame-nw-hook): New new window hook: open the next
672         window in a numbered frame.
674         * src/clfswm-query.lisp (query-string): Grab the keyboard in all
675         cases. So query-string can be called even in the main mode.
677         * src/clfswm-internal.lisp (show-all-children): Do not raise a
678         child by default => far less flickering.
680 2008-09-19  Philippe Brochard  <pbrochard@common-lisp.net>
682         * src/bindings-second-mode.lisp: Bind "t" to tile-current-frame.
684         * src/menu-def.lisp: Change key binding for the CLFSWM menu
685         entry.
687         * src/xlib-util.lisp (xgrab-pointer): Handle the case where cursor
688         is nil. (workaround on some CLX implementation).
690 2008-09-12  Philippe Brochard  <pbrochard@common-lisp.net>
692         * src/menu-def.lisp: Add a menu to set a focus policy for all
693         frames.
695         * src/clfswm-util.lisp (set-focus-policy-generic-for-all)
696         (all-frames-set-*-focus-policy): Set a focus policy for all
697         frames.
699         * src/clfswm.lisp (handle-enter-notify): sloppy-select
700         mode. Select a child and its parents on mouse over.
702 2008-09-03  Philippe Brochard  <pbrochard@common-lisp.net>
704         * src/clfswm.lisp (handle-enter-notify): Add a sloppy strict focus
705         policy -> Sloppy focus only for windows in the current frame.
706         (main-unprotected): Exit clfswm on init error (ie: when another
707         window manager is running).
709         * src/clfswm-util.lisp (reset-clfswm): New function.
711 2008-09-02  Philippe Brochard  <pbrochard@common-lisp.net>
713         * src/clfswm-menu.lisp (init-menu): New function.
715         * src/clfswm-util.lisp (reload-clfswm): New function to reload
716         CLFSWM.
717         (exit-clfswm): Rename quit-clfswm to exit-clfswm.
719         * src/clfswm.lisp (main, main-unprotected): Handle error in a
720         superior main function. Now CLFSWM can't break the X session. It
721         just reinitialize the display and run a new main loop.
723         * src/clfswm-corner.lisp: Make *clfswm-terminal* and
724         *vt-keyboard-on* global to avoid warnings when loading clfswm.
726         * src/clfswm-layout.lisp: Add a specific GIMP layout menu.
727         (help-on-gimp-layout): Describe how to use the GIMP layout.
729 2008-09-01  Philippe Brochard  <pbrochard@common-lisp.net>
731         * src/clfswm-layout.lisp (set-gimp-layout): Change the layout to
732         main-window-right-layout. Change the keybinding for (shift)alt+tab
733         to not select windows in the main window lisst.
734         Bind F8 to add a window in the main window list.
735         Bind F9 to remove a window in the main window list.
736         Change the focus policy to :sloppy.
737         (set-previous-layout): Restore the previous layout, keybinding and
738         focus policy.
740 2008-08-31  Philippe Brochard  <pbrochard@common-lisp.net>
742         * src/clfswm-menu.lisp (add-menu-comment): Add comments in menu.
744         * src/clfswm-layout.lisp (main-window-left-layout)
745         (main-window-bottom-layout, main-window-top-layout): New
746         functions.
747         Factorize layouts in menu.
749 2008-08-30  Philippe Brochard  <pbrochard@common-lisp.net>
751         * src/clfswm-layout.lisp (main-window-right-layout): A possible
752         GIMP layout: one or more main windows on one side of the
753         frame. Others on the other size.
755         * src/clfswm-util.lisp
756         (current-frame-set-click/sloppy-focus-policy): Each frame can have
757         a different focus policy (one of :click or :sloppy).
758         The default focus policy is set with *default-focus-policy*.
760 2008-08-23  Philippe Brochard  <pbrochard@common-lisp.net>
762         * src/clfswm-info.lisp (show-config-variable): New function.
764 2008-08-19  Philippe Brochard  <pbrochard@common-lisp.net>
766         * src/clfswm-layout.lisp (tile-horizontal-layout): New layout.
768         * src/clfswm-info.lisp: Colored help for key binding and corners
769         actions.
771 2008-08-18  Philippe Brochard  <pbrochard@common-lisp.net>
773         * src/clfswm-util.lisp (delete-focus-window)
774         (destroy-focus-window): Remove chid only in
775         handle-unmap/destroy-notify. Focus *current-root* only when
776         closing/killing the current child.
778         * src/clfswm-autodoc.lisp (produce-corner-*-doc): New autodoc
779         functions or corners.
781 2008-08-17  Philippe Brochard  <pbrochard@common-lisp.net>
783         * src/clfswm-corner.lisp (present-clfswm-terminal): New corner
784         action: Hide/Unhide a terminal on mouse corner action. (By default
785         right mouse button on the top left corner).
787         * src/config.lisp (*never-managed-window-list*): New config
788         variable.
790         * src/clfswm-internal.lisp (never-managed-window-p): New function:
791         Handle never managed window in a more simple way.
793         * src/clfswm-corner.lisp: New file and new and more simple method
794         to define corners actions.
796 2008-08-15  Philippe Brochard  <pbrochard@common-lisp.net>
798         * src/clfswm-info.lisp (info-mode): Info line can now be colored.
800         * src/clfswm-layout.lisp (fast-layout-switch)
801         (define-fast-layout-switch): New functions: Switch between two
802         layouts.
804         * src/clfswm-second-mode.lisp (leave-second-mode): Takes care if
805         really in the second mode. So leave-second-mode can be used even
806         in the main mode.
808         * src/clfswm-util.lisp (switch-to-last-child): New function:
809         Store the current child and switch to the previous one.
811 2008-07-16  Philippe Brochard  <pbrochard@common-lisp.net>
813         * src/clfswm-util.lisp (display-current-window-info): Display the
814         window id.
815         (have-to-present-virtual-keyboard): Add a virtual keyboard corner
816         (top right by default). By default 'xvkbd' is used.
818 2008-06-28  Philippe Brochard  <pbrochard@common-lisp.net>
820         * src/xlib-util.lisp (move-window, resize-window): Compress motion
821         events.
823         * src/clfswm.lisp (handle-motion-notify): Compress motion events.
825         * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Compress
826         motion events.
828         * src/clfswm-info.lisp (info-mode): Compress motion events.
830 2008-06-21  Philippe Brochard  <pbrochard@common-lisp.net>
832         * src/clfswm-internal.lisp (show-all-children): Compute geometry
833         and selection first and then show only necessary children.
834         (show-child): remove unneeded display-p parameter.
836         * src/config.lisp (get-fullscreen-size): Place the frame border
837         outside the screen (this prevent the loose of 2 pixels per
838         directions :)
840 2008-06-12  Philippe Brochard  <pbrochard@common-lisp.net>
842         * src/clfswm-internal.lisp (focus-child): Algorithm change to
843         raise only the selected child.
845 2008-06-08  Philippe Brochard  <pbrochard@common-lisp.net>
847         * src/clfswm-internal.lisp (raise-p-list, show-all-children):
848         Raise only viewable children.
850 2008-06-06  Philippe Brochard  <pbrochard@common-lisp.net>
852         * src/clfswm-internal.lisp (show-all-children): Always raise all
853         displayed children. Remove all references to raise-p.
855 2008-06-04  Philippe Brochard  <pbrochard@common-lisp.net>
857         * src/menu-def.lisp (child-menu): New menu entry on raise/lower
858         child in its frame.
860         * src/bindings-second-mode.lisp ("Page_Down", "Page_Up"): New
861         second mode binding on raise/lower child in its frame.
863         * src/clfswm-nw-hooks.lisp (leave-focus-frame-nw-hook): Adapt
864         behaviour to the new raise/lower property.
865         Call clear-nw-hook before the rest of the hook.
867         * src/bindings.lisp (mouse-click-to-focus-and-move-window)
868         (mouse-click-to-focus-and-resize-window): Stop button event. This
869         prevent a keyboard/pointer freeze.
871 2008-06-03  Philippe Brochard  <pbrochard@common-lisp.net>
873         * src/clfswm-internal.lisp (frame-lower-child)
874         (frame-raise-child): New functions to raise/lower a child in its
875         frame.
877         * src/clfswm-util.lisp (have-to-present-windows)
878         (have-to-present-all-windows): New functions to have an MaxOS
879         expose like on mouse click in screen corner.
881         * src/clfswm-info.lisp ("Page_Down", "Page_Up"): Add boundaries.
883 2008-05-30  Philippe Brochard  <pbrochard@common-lisp.net>
885         * src/clfswm-util.lisp (unhide-a-child-from-all-frames): Unhide a
886         child from a choice in all frames with hidden children.
888         * src/clfswm-info.lisp (info-mode-menu): Handle separators.
890 2008-05-28  Philippe Brochard  <pbrochard@common-lisp.net>
892         * src/clfswm-util.lisp (hide-current-child, unhide-a-child)
893         (unhide-all-children): New functions.
895         * src/clfswm-info.lisp (info-mode-menu): Handle symbols and
896         functions.
898         * src/clfswm-util.lisp (hide/show-frame-window): new function and
899         menu item.
901 2008-05-23  Philippe Brochard  <pbrochard@common-lisp.net>
903         * src/clfswm-util.lisp (rename-current-child): Do not display the
904         frame info for a window.
906 2008-05-20  Philippe Brochard  <pbrochard@common-lisp.net>
908         * src/clfswm-internal.lisp (remove-child-in-frame): Destroy the
909         frame window for the removed child and its children.
911 2008-05-18  Philippe Brochard  <pbrochard@common-lisp.net>
913         * src/clfswm-autodoc.lisp (produce-*-doc-*): Add a note to use the
914         autodoc functions.
916 2008-05-17  Philippe Brochard  <pbrochard@common-lisp.net>
918         * src/clfswm-nw-hooks.lisp (default-frame-nw-hook): Do not handle
919         the ROX pinboard (ie: leave it lowered in the root window as
920         expected).
922         * src/clfswm-layout.lisp (tile-left-space-layout): New layout.
923         (tile-left-layout, tile-right-layout, tile-top-layout)
924         (tile-bottom-layout): Use all the frame space when there is only
925         one child.
927         * src/clfswm-internal.lisp (place-window-from-hints): Center
928         unmanaged windows in the root screen.
930         * src/clfswm-nw-hooks.lisp (clear-nw-hook, clear-all-nw-hooks):
931         new functions.
933 2008-05-15  Philippe Brochard  <pbrochard@common-lisp.net>
935         * src/clfswm-util.lisp (current-frame-manage-window-type): Fix a
936         typo in managed types.
938         * src/clfswm-internal.lisp (show-child): Always display frame info
939         even if the frame is hidden.
941         * src/xlib-util.lisp (resize-window): Use a better algorithme to
942         resize windows.
944 2008-05-13  Philippe Brochard  <pbrochard@common-lisp.net>
946         * src/clfswm-util.lisp (with-movement): Display frame info for all
947         frames in current root.
949 2008-05-12  Philippe Brochard  <pbrochard@common-lisp.net>
951         * src/*.lisp: Rename 'brother' frames to 'sister' frames.
953         * src/bindings-second-mode.lisp (define-second-key #\a): New
954         binding on 'add-default-frame'.
956         * src/clfswm-autodoc.lisp (produce-*-doc-*-in-file): Show a
957         message to follow the autodocumentation process.
959 2008-05-10  Philippe Brochard  <pbrochard@common-lisp.net>
961         * src/clfswm-util.lisp (bind-or-jump): Bind "Tab", "Return" and
962         "Space" to jump to a child. "B" to bind a slot on the current
963         child.
965         * src/bindings-second-mode.lisp: Use "Tab" instead of
966         "Iso_Left_Tab".
968 2008-05-07  Philippe Brochard  <pbrochard@common-lisp.net>
970         * src/clfswm-util.lisp (find-child-under-mouse): Take care of
971         unmanaged (hidden) windows.
973         * src/clfswm-internal.lisp (place-window-from-hints): Give a
974         minimal size for windows.
975         (with-all-windows-frames-and-parent): New function.
977         * src/config.lisp (*default-window-width/height*): New parameters.
979         * src/clfswm-internal.lisp (place-window-from-hints): Center
980         windows in the screen instead of in there frame.
982         * src/bindings-second-mode.lisp (tile-space-current-frame): New
983         binding on C-t.
985         * src/clfswm-layout.lisp (register-layout): Intern the once name
986         in the right package.
988 2008-05-05  Philippe Brochard  <pbrochard@common-lisp.net>
990         * doc/dot-clfswmrc: Update to  follow the new clfswm way.
992 2008-05-03  Philippe Brochard  <pbrochard@common-lisp.net>
994         * src/clfswm-internal.lisp (set-current-child)
995         (adapt-child-to-parent, show-child, hide-child): Handle the case
996         where child is not a frame or a window.
998         * src/clfswm-util.lisp
999         (mouse-click-to-focus-generic,mouse-focus-move/resize-generic):
1000         Check if child is a frame.
1002         * src/clfswm-internal.lisp (managed-window-p): Handle the case
1003         where frame is null.
1004         (place-frame): Check if frame and parent are frames.
1006         * src/clfswm-info.lisp (info-mode): display all frame info before
1007         leaving.
1009         * src/clfswm-second-mode.lisp (second-key-mode): display all frame
1010         info before leaving.
1012         * src/clfswm-internal.lisp (display-all-frame-info): New function.
1014 2008-05-02  Philippe Brochard  <pbrochard@common-lisp.net>
1016         * src/tools.lisp (getenv): Implemented for ECL.
1017         (urun-prog): Implemented for ECL.
1019         * src/clfswm-util.lisp (identify-key): Use a double buffer to
1020         display text.
1022         * src/clfswm-query.lisp (query-string): Use a double buffer to
1023         display text.
1025         * src/clfswm-info.lisp (draw-info-window): Use a double buffer to
1026         display text.
1028         * src/xlib-util.lisp (clear-pixmap-buffer, copy-pixmap-buffer):
1029         New functions.
1031 2008-05-01  Philippe Brochard  <pbrochard@common-lisp.net>
1033         * src/clfswm-info.lisp (info-mode): Add boundaries in the info mode window.
1035         * src/menu-def.lisp: New file: move all menu definition in
1036         menu-def.lisp.
1038         * src/clfswm-layout.lisp (register-layout): Use a function instead
1039         of a macro.
1041 2008-04-30  Philippe Brochard  <pbrochard@common-lisp.net>
1043         * src/clfswm-autodoc.lisp (produce-menu-doc,
1044         (produce-menu-doc-html): New functions.
1045         (produce-doc-*): Moved to clfswm-autodoc.lisp.
1047         * src/clfswm-util.lisp (paste-selection-no-clear): Prevent to
1048         paste a child on one of its own children. (this prevent a
1049         recursive bug).
1050         (move-child-to): Rename move/copy-current-child-by to
1051         move/copy-child-to.
1052         (mouse-move-window-over-frame): New function to move the window
1053         under the mouse cursor to another frame.
1055         * src/clfswm-internal.lisp (find-child-in-parent): New function.
1057 2008-04-29  Philippe Brochard  <pbrochard@common-lisp.net>
1059         * src/clfswm-internal.lisp (show-all-children): Display unmanaged
1060         windows only when its window parent is the current child.
1062 2008-04-28  Philippe Brochard  <pbrochard@common-lisp.net>
1064         * src/clfswm-util.lisp (manage-current-window)
1065         (unmanage-current-window): New functions: Allow to force to manage
1066         or unmanage a window by its parent frame.
1068         * src/bindings-second-mode.lisp (#\o): binded to
1069         set-open-in-new-frame-in-parent-frame-nw-hook and
1070         (#\o :control) to set-open-in-new-frame-in-root-frame-nw-hook
1072         * src/clfswm-util.lisp (with-current-window): New macro.
1074         * src/xlib-util.lisp (move-window, resize-window): Remove uneeded
1075         exposure and enter-window handle event.
1077         * src/clfswm-util.lisp (move-frame, resize-frame): Show all
1078         children for the current child after the move/resize.
1080 2008-04-27  Philippe Brochard  <pbrochard@common-lisp.net>
1082         * src/xlib-util.lisp (resize-window): Take care of window size
1083         hints.
1085         * src/clfswm-util.lisp (mouse-focus-move/resize-generic): Allow to
1086         move/resize unmanaged windows.
1088         * src/xlib-util.lisp (move-window, resize-window): New functions.
1090 2008-04-25  Philippe Brochard  <pbrochard@common-lisp.net>
1092         * src/clfswm-util.lisp (current-frame-manage-window-type): Let the
1093         user choose what window type the current frame must handle.
1094         (display-current-window-info): New function.
1095         (current-frame-manage-all-window-type)
1096         (current-frame-manage-only-normal-window-type)
1097         (current-frame-manage-no-window-type): New functions.
1099         * src/clfswm-internal.lisp (managed-window-p): New function.
1101         * src/package.lisp (frame): Managed type: new frame
1102         parameter. This allow to choose what window type a frame must
1103         handle.
1105         * src/*.lisp: Rename all 'father' occurrences to 'parent'.
1107         * src/clfswm-nw-hooks.lisp
1108         (open-in-new-frame-in-parent-frame-nw-hook): New new window hook.
1110         * src/clfswm-util.lisp (adapt-current-frame-to-window-hints): New
1111         function.
1113         * src/tools.lisp (ensure-printable): Return always a string even
1114         with a null string.
1116 2008-04-24  Philippe Brochard  <pbrochard@common-lisp.net>
1118         * src/config.lisp (*default-nw-hook*): New variable to change the
1119         default new window hook.
1121 2008-04-22  Philippe Brochard  <pbrochard@common-lisp.net>
1123         * clfswm.asd (clfswm): Add a dependency from
1124         clfswm-second-mode.lisp to clfswm.lisp.
1126         * src/clfswm-util.lisp (identify-key): Show the documentation for
1127         the function bound on a key.
1128         (with-movement): Move with-movement,
1129         current-frame-fill/pack/resize-*  from bindings-second-mode.lisp
1130         to clfswm-util.lisp.
1132         * src/clfswm-menu.lisp: New menu system that let user change keys
1133         or functions associated to keys.
1135 2008-04-18  Philippe Brochard  <pbrochard@common-lisp.net>
1137         * src/clfswm-internal.lisp (show-all-children): Display-child is
1138         the first child by default. Solve a bug with father-p.
1140 2008-04-17  Philippe Brochard  <pbrochard@common-lisp.net>
1142         * src/clfswm-internal.lisp (add-frame): Add frame return the
1143         created frame.
1144         (show-all-children): Move the size computation outside the
1145         show-child part.
1147         * src/bindings-second-mode.lisp (with-movement): Redisplay only
1148         the current child.
1150         * src/clfswm-util.lisp (mouse-click-to-focus-generic): Redisplay
1151         only the current child.
1153         * src/clfswm-internal.lisp (show-all-children): New display-child
1154         parameter to display only the desired child and its children.
1155         (select-next/previous-child): Only display the current child.
1157 2008-04-14  Philippe Brochard  <pbrochard@common-lisp.net>
1159         * src/clfswm.lisp (init-display): Move the default frame creation
1160         on the default init hook.
1162         * src/clfswm-keys.lisp (define-ungrab/grab): Handle all keysyms in
1163         the main mode (for example: "1" on an azerty keyboard).
1165 2008-04-13  Philippe Brochard  <pbrochard@common-lisp.net>
1167         * src/clfswm-keys.lisp (find-key-from-code): Better handle of
1168         keysyms. Revert to old grabbing method for the main mode.
1170 2008-04-12  Philippe Brochard  <pbrochard@common-lisp.net>
1172         * src/clfswm.lisp (init-display): Add key handling on no focus
1173         window and on frame windows.
1175 2008-04-11  Philippe Brochard  <pbrochard@common-lisp.net>
1177         * src/clfswm.lisp (main): Keyboard handle strategie change: Grab
1178         all keys by default and replay just what is needed. No change for
1179         the second mode.
1181         * src/clfswm-keys.lisp: remove grab/ungrab main keys.
1182         (find-key-from-code): Test for shift and not shift presence.
1184 2008-04-09  Philippe Brochard  <pbrochard@common-lisp.net>
1186         * src/clfswm-internal.lisp (switch-to-root-frame): show later -
1187         new key parameter to have less flickering.
1189 2008-04-07  Philippe Brochard  <pbrochard@common-lisp.net>
1191         * src/bindings-second-mode.lisp (frame-layout-once-menu): Set the
1192         layout only one time and revert to no-layout to freely handle
1193         frames.
1195         * src/clfswm-nw-hooks.lisp
1196         (open-in-new-frame-in-root-frame-nw-hook): Tile layout with spaces
1197         with new created window.
1199         * src/clfswm-layout.lisp (register-layout): Now register
1200         automatically a once layout to set the layout only one time and
1201         revert to no-layout to freely handle frames.
1203 2008-04-05  Philippe Brochard  <pbrochard@common-lisp.net>
1205         * src/clfswm-nw-hooks.lisp (leave-focus-frame-nw-hook): New
1206         nw-hook: Open the next window in the current frame and leave the
1207         focus to the current child.
1209 2008-04-04  Philippe Brochard  <pbrochard@common-lisp.net>
1211         * src/bindings-second-mode.lisp: Add keys definitions to
1212         bind-or-jump in the second mode.
1214         * src/clfswm-util.lisp (bind-or-jump): remove the auto-defining
1215         macro for bind-or-jump-(1|2|3...).
1217         * src/clfswm-keys.lisp (define-define-key/mouse): Allow additional
1218         arguments to function. This allow to do things like:
1219         (define-main-key (key) 'my-function 10 20 'foo) -> 10 20 and 'foo
1220         are passed to my-function on key press.
1222 2008-04-03  Philippe Brochard  <pbrochard@common-lisp.net>
1224         * src/clfswm-util.lisp (bind-or-jump): New (great) function.
1226 2008-04-02  Philippe Brochard  <pbrochard@common-lisp.net>
1228         * src/clfswm-internal.lisp (child-fullname): New function
1230         * src/clfswm-info.lisp (info-mode-menu): Add an explicit optional
1231         docstring in info-mode-menu. An item can be
1232         '((key function) (key function)) or with docstring
1233         '((key function "documentation 1") (key function "bla bla") (key function))
1235         * src/tools.lisp (ensure-n-elems): New function.
1237         * src/bindings-second-mode.lisp: Bind Alt+mouse-1/3 to move or
1238         resize a frame or the window's father.
1240         * src/clfswm.lisp (init-display): Remove tile-space-layout by
1241         default on the root frame.
1243         * src/clfswm-util.lisp (move/resize-frame): Add standard event
1244         hooks handlers (map-request, configure-notify...)
1246         * src/clfswm-internal.lisp (adapt-child-to-father): Limit minimal
1247         child size to 1x1.
1249 2008-04-01  Philippe Brochard  <pbrochard@common-lisp.net>
1251         * src/bindings.lisp: Bind Alt+mouse-1/3 to move or resize a frame
1252         or the window's father.
1254         * src/clfswm-util.lisp (mouse-click-to-focus-generic): Stop button
1255         event only if there is a geometry change.
1256         (mouse-focus-move/resize-generic): Generic function to move or
1257         resize a frame or a window father frame.
1259 2008-04-01  Philippe Brochard  <pbrochard@common-lisp.net>
1261         * src/clfswm-internal.lisp (show-all-children): Return t if there
1262         is a geometry change.
1264 2008-03-30  Philippe Brochard  <pbrochard@common-lisp.net>
1266         * src/bindings.lisp (Up/Down): Swap select previous/next level.
1268         * src/bindings-second-mode.lisp (Up/Down): Swap select previous/next level.
1270         * src/clfswm.lisp (init-display): Create a default frame in the root frame.
1272         * src/clfswm-internal.lisp (place-frame): Place frame from real (pixel) coordinates.
1273         (with-all-*): Reverse the child list to manage the first child last (like in
1274         show-all-children).
1276         * src/config.lisp (*create-frame-on-root*): New variable: Create a new frame on the
1277         root window only if true.
1279         * src/clfswm-util.lisp (mouse-click-to-focus-generic): Create a new frame on the
1280         root window only if *create-frame-on-root* is true.
1282         * src/bindings-second-mode.lisp (sm-mouse-click-to-focus-generic): Create a new frame
1283         on the root window.
1285 2008-03-29  Philippe Brochard  <pbrochard@common-lisp.net>
1287         * src/bindings-second-mode.lisp (sm-mouse-click-to-focus-generic): Focus, move and resize
1288         the current child (even if it's a window).
1290 2008-03-28  Philippe Brochard  <pbrochard@common-lisp.net>
1292         * src/clfswm-util.lisp (mouse-click-to-focus-and-move)
1293         (mouse-click-to-focus-and-resize): New functions.
1295         * src/clfswm-internal.lisp (*-fl->px): Convert float coordinates to pixel.
1296         (*-px->fl): Convert pixel coordinates to float.
1298         * src/tools.lisp (call-hook): Move call-hook to tools.lisp.
1300 2008-03-27  Philippe Brochard  <pbrochard@common-lisp.net>
1302         * src/clfswm-layout.lisp (no-layout): Use :first-only to raise only the
1303         first child.
1305         * src/clfswm-internal.lisp (hide-all): Split hide-all-children in hide-all
1306         and hide-all-children.
1307         (raise-if-needed): New function.
1308         (show-child): Use a first-p parameter to raise windows only when they are
1309         first child.
1311 2008-03-26  Philippe Brochard  <pbrochard@common-lisp.net>
1313         * src/clfswm-internal.lisp (select-next/previous-level): Don't use show-all-children
1314         -> less flickering.
1316 2008-03-25  Philippe Brochard  <pbrochard@common-lisp.net>
1318         * src/clfswm-info.lisp (keys-from-list): new function.
1320         * src/*: rename 'childs' in 'children'.
1322         * src/*: rename 'group' in 'frame'.
1324 2008-03-22  Philippe Brochard  <pbrochard@common-lisp.net>
1326         * src/clfswm-pack.lisp (explode-group/explode-current-group): new functions.
1328 2008-03-21  Philippe Brochard  <pbrochard@common-lisp.net>
1330         * src/clfswm-pack.lisp: Pack, Fill, Resize functions.
1332 2008-03-16  Philippe Brochard  <pbrochard@common-lisp.net>
1334         * src/clfswm-nw-hooks.lisp: Register system for new window hooks.
1335         Bind control+o to open the next window in a new group in the root group
1336          (as open in next window in a new workspace in 0801 version).
1338 2008-03-15  Philippe Brochard  <pbrochard@common-lisp.net>
1340         * src/clfswm-util.lisp (show/hide-all-groups-info/key): Show/hide all groups info
1341         window.
1343 2008-03-14  Philippe Brochard  <pbrochard@common-lisp.net>
1345         * bindings-second-mode.lisp ("ISO_Left_Tab"): Use ISO_Left_Tab
1346         instead of Tab for select-previous-child.
1348 2008-03-13  Philippe Brochard  <pbrochard@common-lisp.net>
1350         * clfswm-util.lisp (force-window-in-group/force-window-center-in-group):
1351         new functions.
1353 2008-03-11  Philippe Brochard  <pbrochard@common-lisp.net>
1355         * clfswm-util.lisp (identify-key): Display the documentation
1356         associated to keys when identifying a key.
1358 2008-03-10  Xavier Maillard  <xma@gnu.org>
1360         * contrib/clfswm: Complete rewrite of the script. Detect error and
1361         act accordingly. Add command line arguments to configure the
1362         script execution. User can now choose different common lisp
1363         implementation (clisp and sbcl only), choose where to store the
1364         dumped image, where to find clfswm source.
1366 2008-03-09  Philippe Brochard  <pbrochard@common-lisp.net>
1368         * clfswm-internal.lisp (process-new-window): Beginning of new
1369         window hook: each group have a hook to tell what he wants to do
1370         with the new created window.
1372 2008-03-08  Xavier Maillard  <xma@gnu.org>
1374         * contrib/clfswm: New script. Dump a CLISP image of CLFSWM then
1375         call the resulting executable.
1377         * clfswm.lisp (read-conf-file): Check for the user config file in
1378         XDG_CONFIG_HOME *first*. Freedesktop.org standards should be
1379         prefered whenever possible.
1381 2008-02-27  Philippe Brochard  <pbrochard@common-lisp.net>
1383         * clfswm-layout.lisp (*-layout): Add an optional raise-p
1384         parameter in each layout.
1386 2008-02-26  Philippe Brochard  <pbrochard@common-lisp.net>
1388         * clfswm-util.lisp (copy/cut-current-child): Does not affect the
1389         root group.
1390         (copy/move-current-child-by-name/number): new functions
1391         (focus-group-by-name/number): new functions
1392         (delete-group-by-name/number): new functions
1394 2008-02-24  Philippe Brochard  <pbrochard@common-lisp.net>
1396         * ************************************************************ *
1397         *: Major update - No more reference  to workspaces. The main   *
1398         structure is a tree of groups or application windows.          *
1399         * ************************************************************ *
1401 2008-02-07  Philippe Brochard  <pbrochard@common-lisp.net>
1403         * clfswm.lisp (read-conf-file): Read configuration in
1404         $HOME/.clfswmrc or in /etc/clfswmrc or in
1405         $XDG_CONFIG_HOME/clfswm/clfswmrc.
1406         (xdg-config-home): Return the content of $XDG-CONFIG-HOME (default
1407         to $HOME/.config/).
1409 2008-01-18  Philippe Brochard  <pbrochard@common-lisp.net>
1411         * clfswm-internal.lisp (show-all-group): Use *root* and *root-gc*
1412         by default.
1414 2008-01-03  Philippe Brochard  <pbrochard@common-lisp.net>
1416         * clfswm-internal.lisp (find-window-group): New function.
1418         * clfswm*: Change to make clfswm run with clisp/new-clx.
1420 2008-01-01  Philippe Brochard  <pbrochard@common-lisp.net>
1422         * clfswm-util.lisp (query-show-paren): Add show parent matching in
1423         query string.
1424         (query-string): Bind control+k to delete end of line.
1426         * clfswm-second-mode.lisp (draw-second-mode-window): Display
1427         the action on mouse motion in second mode.
1429         * clfswm.lisp (handle-exposure): Redisplay groups on exposure
1430         event but do not clear the root window.
1431         (handle-configure-request): Adjust unmanaged window from there
1432         request.
1434         * clfswm-internal.lisp (process-new-window): Adjust new window
1435         with the specified hints (max/min/base width/height).
1437 2007-12-31  Philippe Brochard  <pbrochard@common-lisp.net>
1439         * clfswm.lisp (handle-configure-request): Send an Configuration
1440         Notify event. This solve a bug with xterm and rxvt who takes some
1441         times to be mapped. Now there is no delay.
1443         * bindings-second-mode.lisp (define-shell): Run programs after
1444         living the second mode.
1446 2007-12-30  Philippe Brochard  <pbrochard@common-lisp.net>
1448         * clfswm-internal.lisp (process-new-window): Do not crop transient
1449         window to group size.
1450         (adapt-window-to-group): Do not crop transient window to group
1451         size.
1453         * clfswm.lisp (handle-configure-request): Adapt just the window to
1454         its group and don't take care of the configure request. Remove the
1455         bug with the Gimp outside the group and speed up the window
1456         manipulation.
1457         (handle-exposure): Remove show-all-group on exposure event
1458         -> Speed up.
1460 2007-12-29  Philippe Brochard  <pbrochard@common-lisp.net>
1462         * clfswm-util.lisp (circulate-group-up-copy-window)
1463         (circulate-group-down-copy-window)
1464         (circulate-workspace-up-copy-group)
1465         (circulate-workspace-down-copy-group): Prevent the copy of the
1466         same window in the same workspace.
1468         * bindings-second-mode.lisp (release-copy-selected-window)
1469         (release-copy-selected-group): Prevent the copy of the same window
1470         in the same workspace.
1472         * clfswm-pager.lisp (generic-pager-move-window-on-previous-line)
1473         (generic-pager-move-window-on-next-line): Remove the copy
1474         property.
1475         (generic-pager-move-group-on-next-workspace)
1476         (generic-pager-move-group-on-previous-workspace): Prevent the copy
1477         of the same window in the same workspace.
1479         * bindings-pager.lisp (mouse-pager-copy-selected-window-release)
1480         (mouse-pager-copy-selected-group-release): Prevent the copy of the
1481         same window in the same workspace.
1483         * tools.lisp (setf/=): new macro to set a variable only when
1484         necessary.
1486         * clfswm-internal.lisp (adapt-window-to-group): use set/= to set
1487         x, y... only when necessary.
1489 2007-12-28  Philippe Brochard  <pbrochard@common-lisp.net>
1491         * clfswm.lisp (handle-configure-notify, *configure-notify-hook*):
1492         new function and hook: force windows to stay in its group (solve a
1493         bug with the Gimp).
1495 2007-12-25  Philippe Brochard  <pbrochard@common-lisp.net>
1497         * bindings-second-mode.lisp (mouse-motion): use hide-group to have
1498         less flickering when moving/resizing groups.
1500         * clfswm-internal.lisp (hide-group): new function.
1501         (show-all-group): clear-all: new parameter.
1503 2007-12-22  Philippe Brochard  <pbrochard@common-lisp.net>
1505         * clfswm-keys.lisp (define-define-key): undefine-*-multi-name: new
1506         macro.
1507         * clfswm*: Color change for the pager. Typo or better description
1508         in bindings definitions. Define bindings for a qwerty keyboard by
1509         default. dot-clfswmrc show examples to switch to an azerty
1510         keyboard.
1511         License change to GPL v3.
1512         * config.lisp: new file - group all globals variables in this
1513         file.
1515 2007-08-26  Philippe Brochard  <pbrochard@common-lisp.net>
1517         * xlib-util.lisp (hide-window): Remove structure-notivy events
1518         when hidding a window.
1520 2007-05-16  Philippe Brochard  <pbrochard@common-lisp.net>
1522         * package.lisp (*sm-property-notify-hook*): Readded
1523         property-notify-hook in second mode.
1525 2007-05-15  Philippe Brochard  <pbrochard@common-lisp.net>
1527         * clfswm-keys.lisp (produce-doc-html): Better clean up for strings.
1529 2007-05-13  Philippe Brochard  <pbrochard@common-lisp.net>
1531         * clfswm-pack.lisp (tile-current-workspace-to/right/left/top/bottom):
1532         Tile the current workspace with the current window on one side and
1533         others on the other (this emulate the larswm, dwm, wmii way). See
1534         the default configuration file to enable this mode by default.
1536         * clfswm-pager.lisp (pager-tile-current-workspace-to): idem for
1537         the pager.
1539 2007-05-12  Philippe Brochard  <pbrochard@common-lisp.net>
1541         * clfswm-pager.lisp (pager-draw-window-in-group): Add
1542         ensure-printable to print windows name even with non-ascii
1543         characters.
1545 2007-05-11  Philippe Brochard  <pbrochard@common-lisp.net>
1547         * clfswm-pager.lisp (pager-explode-current-group): Create a new
1548         group for each window in group.
1549         (pager-implode-current-group): Move all windows in workspace to
1550         one group and remove other groups.
1552         * clfswm-pack.lisp (explode-group): Create a new group for each
1553         window in group.
1554         (implode-group): Move all windows in workspace to one group and
1555         remove other groups.
1557         * clfswm-util.lisp (identify-key): Remove local configuration
1558         variables and made them available for configuration from
1559         package.lisp.
1560         (query-string): idem.
1562 2007-04-29  Philippe Brochard  <pbrochard@common-lisp.net>
1564         * netwm-util.lisp: Start of NetWM compliance.
1565         Add a Netwm client list gestion.
1567 2007-04-28  Philippe Brochard  <pbrochard@common-lisp.net>
1569         * clfswm-internal.lisp (create-group-on-request): open a new group
1570         only when the current group is not empty.
1572         * bindings-second-mode.lisp (define-second-key-#\o-control): Fix a
1573         bug with null workspace.
1575         * clfswm-pager.lisp (pager-handle-event): Add a hook
1576         system. This hooks can be changed in the user configuration file.
1578         * package.lisp: All colors and font variables are set in
1579         package.lisp and can be configured in the user configuration
1580         file.
1581         Note: If you have configured some less ugly colors (esp. for the
1582         pager) don't hesitate to let me know :)
1584         * clfswm-second-mode.lisp (sm-handle-event): Add a hook
1585         system. This hooks can be changed in the user configuration file.
1587         * clfswm.lisp (handle-event): Add a hook system. This hooks can be
1588         changed in the user configuration file (~/.clfswmrc)
1590 2007-04-25  Philippe Brochard  <pbrochard@common-lisp.net>
1592         * clfswm-util.lisp (stop-all-pending-actions): new function: reset
1593         arrow action, open next window in new workspace/group.
1595         * bindings.lisp (stop-all-pending-actions): new binding.
1596         (open-next-window-in-new-group-once): Open the next windows in a
1597         new group (only once) or open all new windows in a new group (like
1598         others windows managers).
1600 2007-04-22  Philippe Brochard  <pbrochard@common-lisp.net>
1602         * clfswm.lisp (read-conf-file): New function to read a lisp
1603         configuration file at startup.
1604         (focus-group-under-mouse): Check if group isn't the current group
1605         ( prevent a bug with unclutter ).
1607 2007-03-02  Philippe Brochard  <pbrochard@common-lisp.net>
1609         * bindings.lisp (run-program-from-query-string): A program can be
1610         launch from a input query window.
1612 2007-03-01  Philippe Brochard  <pbrochard@common-lisp.net>
1614         * clfswm-info.lisp: Fix a bug with banish pointer in info mode.
1616 2007-02-28  Philippe Brochard  <pbrochard@common-lisp.net>
1618         * clfswm.lisp (process-new-window): One can now open the next
1619         window in a workspace called by its number.
1621         * clfswm-util.lisp (query-font-string): Minimal editing
1622         capabilities.
1623         (eval-from-string): And an REPL in the window manager... :)
1625 2007-02-26  Philippe Brochard  <pbrochard@common-lisp.net>
1627         * clfswm.lisp (process-new-window): One can now open the next
1628         window in a new workspace or a new group.
1630         * clfswm-pager.lisp (pager-mode): Display the next arrow action
1631         with the hidden windows.
1633         * clfswm.lisp (second-key-mode): Display the current workspace
1634         number and the next arrow action in the state window.
1636         * clfswm-pager.lisp (pager-mode): Hide all windows before leaving
1637         the pager mode and then redisplay only the current workspace.
1639 2007-02-25  Philippe Brochard  <pbrochard@common-lisp.net>
1641         * clfswm.lisp (add-workspace): Workspaces are now numbered. So
1642         they can be focused with a keypress, sorted or renumbered.
1644 2007-02-24  Philippe Brochard  <pbrochard@common-lisp.net>
1646         * clfswm-pager.lisp (pager-mode): Remove multiple silly
1647         pager-draw-display. This prevent a lot of flickering in the
1648         pager.
1650         * clfswm.lisp: Remove all display-force-output and replace them
1651         with only one display-finish-output in the event loop.
1653 2006-11-06  Philippe Brochard  <pbrochard@common-lisp.net>
1655         * clfswm-pager.lisp (pager-center-group): New function - center a
1656         group at the middle of the screen.
1658         * clfswm-pack.lisp (center-group): New function - center a group
1659         at the middle of the screen.
1661         * clfswm.lisp (show-group): Add a cross line under the group.
1662         (show-group): Group are showned even if fullscreened.
1663         (init-display): Add an exposure event on the root window.
1665 2006-11-05  Philippe Brochard  <pbrochard@common-lisp.net>
1667         * package.lisp (*default-group*): Default group is the same size
1668         of a fullscreened group.
1670         * bindings*: Use shift to move, control+shift to copy.
1672         * *.lisp: Add comments for configuration or alternatives. So grep
1673         for CONFIG to see where you can configure clfswm. And grep for
1674         Alternative to use some commented code.
1676         * clfswm.lisp (second-key-mode): Use a single window to show the
1677         second mode. See for alternatives at the end of this file.
1679 2006-11-03  Philippe Brochard  <pbrochard@common-lisp.net>
1681         * clfswm-keys.lisp (define-define-key/mouse): Factorisation in a
1682         macro of key and mouse definitions.
1683         (define-define-key/mouse): Use state instead of modifiers list
1684         this fix a bug when the modifiers list is not in the rigth order.
1686         * clfswm.lisp (second-key-mode): Add a colored border in second mode.
1688 2006-11-02  Philippe Brochard  <pbrochard@common-lisp.net>
1690         * clfswm-info.lisp (info-mode): Add an info mode.
1692 2006-11-01  Philippe Brochard  <pbrochard@common-lisp.net>
1694         * clfswm.lisp (process-new-window): Change border size for
1695         transient windows.
1696         (show-all-windows-in-workspace): Unhide all windows even when the
1697         current group is in fullscreen mode.
1699 2006-10-26  Philippe Brochard  <pbrochard@common-lisp.net>
1701         * clfswm-util.lisp (identify-key): Add an exposure handle-event to
1702         redisplay the identify window after a terminal switch.
1704         * clfswm-pager.lisp (pager-mode): Add an exposure handle-event to
1705         redisplay the pager after a terminal switch.
1707 2006-10-24  Philippe Brochard  <pbrochard@common-lisp.net>
1709         * clfswm-util.lisp (identify-key): Add a window to display
1710         the keys to identify on screen.
1712         * bindings.lisp, bindings-pager.lisp: Define same keys to
1713         move/copy groups/windows in second mode and in pager.
1715         * clfswm.lisp (handle-event*): Same version in all clfswm (fix some
1716         drawing lags).
1717         (show-all-windows-in-workspace): unhide window before adapting it
1718         to group.
1720 2006-10-23  Philippe Brochard  <pbrochard@common-lisp.net>
1722         * clfswm.lisp (handle-event): Revert to an older version.
1724 2006-10-18  Philippe Brochard  <pbrochard@common-lisp.net>
1726         * clfswm-util.lisp (force-window-in-group)
1727         (force-window-center-in-group): New functions for transient windows.
1729         * clfswm-pager.lisp (pager-remove-current-workspace/group):
1730         bugfix: hide all windows before removing group or workspace.
1732 2006-10-17  Philippe Brochard  <pbrochard@common-lisp.net>
1734         * bindings-pager.lisp (mouse-pager-move-selected-group)
1735         (mouse-pager-copy-selected-group)
1736         (mouse-pager-move-selected-window)
1737         (mouse-pager-copy-selected-window, mouse-pager-rotate-window-up)
1738         (mouse-pager-rotate-window-down): New functions to have mouse in
1739         pager mode.
1741         * clfswm-pager.lisp (pager-swap-window)
1742         (pager-copy-group-on-next/previous-workspace)
1743         (pager-copy-window-on-next/previous-line): New functions
1745 2006-10-15  Philippe Brochard  <pbrochard@common-lisp.net>
1747         * clfswm-pager.lisp (pager-move-window-on-next/previous-line,
1748         (pager-move-group-on-next/previous-workspace): new functions.
1750         * clfswm-pack.lisp (resize-half-x-x-current-group): resize group
1751         to its half size (new functions).
1753 2006-10-11  Philippe Brochard  <pbrochard@common-lisp.net>
1755         * clfswm-pager.lisp: workspaces, groups and windows can now be
1756         selectionned with the keyboard or the mouse.
1758 2006-10-09  Philippe Brochard  <pbrochard@common-lisp.net>
1760         * clfswm-pager.lisp (pager-select-workspace-right/left):
1761         workspaces can now be selectionned with the keyboard.
1763 2006-10-08  Philippe Brochard  <pbrochard@common-lisp.net>
1765         * clfswm-keys.lisp (undefine-main-key, undefine-second-key, undefine-mouse-action):
1766         new function to remove a previous defined key or mouse combination.
1768 2006-10-07  Philippe Brochard  <pbrochard@common-lisp.net>
1770         * clfswm.lisp (main): Check for access error in init-display.
1772         * clfswm-keys.lisp (define-ungrab/grab): check for keysym and
1773         keycode before grabbing.
1775         * bindings.lisp: Remove nlambda and use defun to keep the function
1776         documentation with clisp.
1777         (define-shell): new macro to define shell command for the second
1778         mode.
1780 2006-10-06  Philippe Brochard  <pbrochard@common-lisp.net>
1782         * clfswm-keys.lisp (define-ungrab/grab): use a cond instead of a
1783         boggus typecase.
1785 2006-10-05  Philippe Brochard  <pbrochard@common-lisp.net>
1787         * bindings.lisp (accept-motion): Move group bugfix in upper mouse
1788         workspace circulation.
1790         * clfswm-util.lisp (absorb-orphan-window): new function.
1792         * clfswm-keys.lisp: Keysyms support.
1794 2006-10-02  Philippe Brochard  <pbrochard@common-lisp.net>
1796         * clfswm.lisp (show-group): Use one gc for all groups and not one
1797         per group.
1799 2006-10-01  Philippe Brochard  <pbrochard@common-lisp.net>
1801         * bindings.lisp (define-second-key (#\l :mod-1)): fix a typo.
1803         * clfswm.lisp (adapt-window-to-group): Adapt only windows with
1804         width and height outside group.
1806 2006-09-28  Philippe Brochard  <pbrochard@common-lisp.net>
1808         * clfswm.lisp: First public release.