1 2011-02-27 Philippe Brochard <pbrochard@common-lisp.net>
3 * src/clfswm-util.lisp (query-yes-or-no): New function.
5 * src/clfswm-configuration.lisp (reset-all-config-variables): New
6 function and menu entry.
7 (query-conf-value): Add the ability to leave the field blank to
8 reset the variable to its default value.
10 2011-02-26 Philippe Brochard <pbrochard@common-lisp.net>
12 * src/clfswm-configuration.lisp
13 (add-all-configuration-default-value): Add a default value to
14 configurable variables.
16 2011-02-23 Philippe Brochard <pbrochard@common-lisp.net>
18 * src/clfswm.lisp (main-unprotected): Create the configuration
19 menu only once at startup.
21 2011-02-22 Desmond O. Chang <dochang@gmail.com>
23 * contrib/amixer.lisp: Add a volume mode inspired by the emms
24 volume package. Alsa mixer interface.
26 * contrib/volume-mode.lisp: Add a volume mode inspired by the emms
29 2011-02-22 Desmond O. Chang <dochang@gmail.com>
31 * src/clfswm.lisp (main): Use ASDF:SYSTEM-SOURCE-DIRECTORY instead
32 of *LOAD-TRUENAME*. *LOAD-TRUENAME* is only bound during a call to
33 LOAD. If one eval CLFSWM:MAIN in repl, BASE-DIR will be an empty
34 string. Use ASDF:SYSTEM-SOURCE-DIRECTORY to fix it.
36 2011-02-16 Philippe Brochard <pbrochard@common-lisp.net>
38 * src/clfswm.lisp (main-unprotected): Add a close hook. And close
39 the notify window, the virtual keyboard and the clfswm terminal by
42 2011-02-15 Philippe Brochard <pbrochard@common-lisp.net>
44 * src/clfswm.lisp (main-unprotected): Destroy the notify window
45 before closing the display. This fix a bug when resetting/reloading
48 2011-02-12 Philippe Brochard <pbrochard@common-lisp.net>
50 * src/xlib-util.lisp (equal-wm-class-fun, equal-wm-name-fun)
51 (raise-window-fun, raise-and-focus-window-fun): New functions.
53 * src/config.lisp (*clfswm-terminal-cmd*): Switch from xterm to
55 (*never-managed-window-list*): Structure change to be more
56 flexible. Let the choice to focus, raise and do nothing on never
59 2011-02-09 Philippe Brochard <pbrochard@common-lisp.net>
61 * src/clfswm-util.lisp (mouse-focus-move/resize-generic): Take
62 care of never managed windows to move or resize them if the raise
65 * src/clfswm-internal.lisp (in-frame, in-window, in-child): New
68 2011-02-08 Philippe Brochard <pbrochard@common-lisp.net>
70 * src/clfswm.lisp (main-mode): Raise or not unmanaged windows
71 following request in *never-managed-window-list*.
73 2011-02-05 Philippe Brochard <pbrochard@common-lisp.net>
75 * *: **** Release 1102 ****
77 2011-02-05 Desmond O. Chang <dochang@gmail.com>
79 * src/keysyms.lisp: Add extended keysyms from stumpwm.
81 2011-02-01 Desmond O. Chang <dochang@gmail.com>
83 * src/clfswm-util.lisp (run-or-raise): New function (thanks to
86 * src/clfswm-internal.lisp (with-all-*): add a nil block.
88 2011-01-28 Desmond O. Chang <dochang@gmail.com>
90 * src/clfswm-util.lisp (xdg-config-home): XDG_CONFIG_HOME should
91 be $HOME/.config by default.
93 2010-12-29 Philippe Brochard <pbrochard@common-lisp.net>
95 * contrib/osd.lisp (display-doc): Add another method where a
96 CLFSWM native window is used to display the key documentation.
98 2010-12-27 Philippe Brochard <pbrochard@common-lisp.net>
100 * src/xlib-util.lisp (with-xlib-protect): Force to revert to the
103 2010-12-25 Philippe Brochard <pbrochard@common-lisp.net>
105 * src/clfswm-second-mode.lisp (second-key-mode): Call the second
106 mode leave function only when the generic mode was ended.
108 2010-12-08 Philippe Brochard <pbrochard@common-lisp.net>
110 * src/clfswm-second-mode.lisp (sm-leave-function): Do not use
111 *second-mode-program* anymore.
113 2010-12-07 Philippe Brochard <pbrochard@common-lisp.net>
115 * src/clfswm-second-mode.lisp (*second-mode-leave-function*): New
116 variable bound to a function executed (when not null) on second
119 2010-11-14 Philippe Brochard <pbrochard@common-lisp.net>
121 * src/clfswm-util.lisp (find-child-under-mouse): Do not find
124 2010-11-13 Philippe Brochard <pbrochard@common-lisp.net>
126 * src/clfswm-expose-mode.lisp (expose-mode-display-accel-windows):
127 Do not display the accel window for unmanaged windows.
129 2010-11-11 Philippe Brochard <pbrochard@common-lisp.net>
131 * src/clfswm-internal.lisp (set-current-root): Handle
132 window-parent in set-current-root.
134 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Do not
135 focus the parent child when the current root is a window.
137 2010-11-09 Philippe Brochard <pbrochard@common-lisp.net>
139 * src/clfswm-expose-mode.lisp (expose-windows-current-child-mode):
140 New function an bindings.
142 * src/clfswm-layout.lisp (tile-layout, set-tile-layout): Fill
145 2010-11-07 Philippe Brochard <pbrochard@common-lisp.net>
147 * src/clfswm-layout.lisp (tile-layout-ask-keep-position): New
148 function to let the user choose to keep child position with
151 * src/clfswm-internal.lisp (remove-frame-data-slot): New
154 2010-11-05 Philippe Brochard <pbrochard@common-lisp.net>
156 * src/clfswm-internal.lisp (frame-select-next-child)
157 (frame-select-previous-child): New functions and bindings. Select
158 the next/previous child in the current frame.
160 2010-10-31 Philippe Brochard <pbrochard@common-lisp.net>
162 * src/clfswm-query.lisp (query-mode-complet): New function: Handle
163 completion in query-mode.
165 2010-10-30 Philippe Brochard <pbrochard@common-lisp.net>
167 * src/clfswm-query.lisp (query-print-string): Handle long lines
170 2010-10-27 Philippe Brochard <pbrochard@common-lisp.net>
172 * src/clfswm-expose-mode.lisp (expose-create-window): Ensure that
173 all characters are printable.
175 2010-10-25 Philippe Brochard <pbrochard@common-lisp.net>
177 * contrib/server/server.lisp: Load clfswm client code in the main
178 program and let the user start it with a --client command line
181 * src/package.lisp (*main-entrance-hook*): New hook executed after
182 loading configuration file and before opening the display.
184 2010-10-23 Philippe Brochard <pbrochard@common-lisp.net>
186 * src/xlib-util.lisp: Remove unnecessary xlib:display-finish-output.
188 * src/clfswm-internal.lisp (show-child): Show window only if not
191 * src/clfswm-keys.lisp (binding-substitute-modifier): Utility to
192 change modifiers after binding definition.
194 2010-10-21 Philippe Brochard <pbrochard@common-lisp.net>
196 * contrib/osd.lisp: New file: OSD (On Screen Display) for
199 * src/clfswm-menu.lisp (open-menu): Modularise function.
201 2010-10-13 Philippe Brochard <pbrochard@common-lisp.net>
203 * src/clfswm-info.lisp (show-first-aid-kit): Display the essential
204 key binding in main and second mode.
206 2010-10-10 Philippe Brochard <pbrochard@common-lisp.net>
208 * src/clfswm-util.lisp (open-notify-window): Convert hello-window
209 functions to a more generic Notify-window system.
211 * src/tools.lisp (add-timer): Add an id to identify the timer.
213 2010-10-09 Philippe Brochard <pbrochard@common-lisp.net>
215 * src/tools.lisp (erase-timer): New function.
217 * src/clfswm-util.lisp (display-hello-window): Add a timer to hide
218 the hello window. Add Configuration variables.
220 2010-10-08 Philippe Brochard <pbrochard@common-lisp.net>
222 * src/clfswm-util.lisp (): Add an Hello window at startup.
224 * src/tools.lisp (process-timers): Add a timer system.
226 2010-10-07 Philippe Brochard <pbrochard@common-lisp.net>
228 * src/clfswm-query.lisp (add-in-query-string): Handle correctly
231 2010-10-06 Philippe Brochard <pbrochard@common-lisp.net>
233 * src/clfswm-query.lisp (query-print-string): Change cursor color
234 and show parenthesis matching with colors (on match and on
237 2010-10-05 Philippe Brochard <pbrochard@common-lisp.net>
239 * src/clfswm-internal.lisp (show-all-children): Do not raise a
240 child when its parent is hidden.
242 2010-10-02 Philippe Brochard <pbrochard@common-lisp.net>
244 * src/clfswm-circulate-mode.lisp (select-next-subchild): Add the
245 possibility to circulate over subchild of the current child.
247 * src/clfswm-expose-mode.lisp (expose-all-windows-mode)
248 (expose-windows-generic): Add an escape-body function to return to
249 the original state on escape key.
251 * src/clfswm-util.lisp (bind-on-slot): Add an optional parameter
252 to bind the current child from the configuration file.
254 2010-10-01 Philippe Brochard <pbrochard@common-lisp.net>
256 * src/clfswm-nw-hooks.lisp (absorb-window-nw-hook): Absorb new
257 window hook: the frame absorb all new windows that match
258 nw-absorb-test frame data slot.
260 2010-09-30 Philippe Brochard <pbrochard@common-lisp.net>
262 * src/clfswm-expose-mode.lisp (expose-create-window): Show window
263 title in accel window.
265 2010-09-29 Philippe Brochard <pbrochard@common-lisp.net>
267 * configure: Use the Xavier Maillard clfswm script in contrib to
268 build an executable in the standard way.
270 2010-09-26 Philippe Brochard <pbrochard@common-lisp.net>
272 * src/clfswm-expose-mode.lisp (expose-mode-display-accel-windows):
273 New functions. Add a window on each child in the expose mode to
276 * src/clfswm-internal.lisp (child-x, child-y, child-width)
277 (child-height): New methods to get real child coordinates.
279 2010-09-25 Philippe Brochard <pbrochard@common-lisp.net>
281 * src/clfswm-layout.lisp (*-layout): Use child-position.
283 * src/clfswm-internal.lisp (child-position): New function.
285 * src/clfswm-expose-mode.lisp (expose-windows-mode)
286 (expose-all-windows-mode): Use a generic mode.
288 * src/xlib-util.lisp (with-handle-event-symbol): Use a filled list
289 with handle-event-fun symbols instead of inspecting clfswm
290 internals symbols on each mode change.
292 * src/clfswm-expose-mode.lisp: Move and rename present*-windows in
293 a separate clfswm-expose-mode.lisp file.
295 * src/clfswm-util.lisp (speed-mouse-right, speed-mouse-down): Use
296 screen size instead of hardcoded test coordinates.
298 2010-09-24 Philippe Brochard <pbrochard@common-lisp.net>
300 * src/clfswm-util.lisp (speed-mouse-reset, speed-mouse-left)
301 (speed-mouse-right, speed-mouse-up, speed-mouse-down)
302 (speed-mouse-undo, speed-mouse-first-history): New functions to
303 quickly move the mouse. Implemented for the second mode.
305 2010-09-16 Philippe Brochard <pbrochard@common-lisp.net>
307 * contrib/clfswm: Move clfswm sources to $tmp_dir if there is no
308 write permission on $clfswm_asd_path. So anybody can start clfswm
309 even if there is no write permission on the source directory.
311 2010-09-12 Philippe Brochard <pbrochard@common-lisp.net>
313 * contrib/clfswm: Add support to cmucl, ccl and ecl.
315 2010-09-11 Philippe Brochard <pbrochard@common-lisp.net>
317 * src/clfswm-util.lisp (set-hide-unmanaged-window)
318 (set-show-unmanaged-window, set-default-hide-unmanaged-window):
319 New functions and menu entry.
320 (set-globally-hide-unmanaged-window)
321 (set-globally-show-unmanaged-window): New functions and menu
324 * src/clfswm-internal.lisp (hide-unmanager-window-p): New
326 (show-child): Add a data slot on frame to hide or not unmanaged
329 * src/clfswm-corner.lisp (present-clfswm-terminal)
330 (present-virtual-keyboard): Use a function (generic-present-body)
331 instead of a macro (generate-present-body).
333 * src/clfswm-util.lisp (update-menus): List all directories and
334 subdirectories in $XDG_DATA_DIRS/applications.
336 2010-09-10 Philippe Brochard <pbrochard@common-lisp.net>
338 * src/clfswm-corner.lisp (generate-present-body): New macro.
339 (present-clfswm-terminal, present-virtual-keyboard): Use
340 generate-present-body.
342 2010-09-09 Philippe Brochard <pbrochard@common-lisp.net>
344 * src/clfswm-util.lisp (update-menus): Follow XDG specifications
345 instead of the non-portable Debian update-menu.
347 2010-09-07 Philippe Brochard <pbrochard@common-lisp.net>
349 * src/clfswm.lisp (error-handler): New function do handle
350 asynchronous errors and ignore them.
351 (open-display): Install the new error-handler on display.
353 2010-09-05 Philippe Brochard <pbrochard@common-lisp.net>
355 * src/xlib-util.lisp (with-xlib-protect): Add a
356 with-simple-restart on top of body execution.
358 2010-09-04 Philippe Brochard <pbrochard@common-lisp.net>
360 * src/clfswm.lisp (main-loop): Protect all xlib functions with an
363 * src/xlib-util.lisp (handle-event): use with-xlib-protect only in
364 handle-event. Add a with-simple-restart to prevent a
365 clisp/new-lisp infinite loop.
367 2010-08-30 Philippe Brochard <pbrochard@common-lisp.net>
369 * src/clfswm-corner.lisp (present-clfswm-terminal): Make the
370 clfswm terminal working even on xterm title changes.
372 2010-08-29 Philippe Brochard <pbrochard@common-lisp.net>
374 * src/clfswm-util.lisp (run-other-window-manager): Update for
377 * src/tools.lisp (do-execute): New parameter io to change the
380 * src/clfswm-util.lisp (hide-current-child): Prevent from removing
383 * src/clfswm-internal.lisp (child-member): New predicate.
384 (child-remove): New function.
386 * src/*.lisp: Use child-member and child-remove everywhere it's
389 2010-08-28 Philippe Brochard <pbrochard@common-lisp.net>
391 * src/clfswm.lisp (main-loop): Ensure that all events have been
392 processed after a process-event.
394 * src/clfswm-internal.lisp (is-in-current-child-p): New function.
396 2010-08-27 Philippe Brochard <pbrochard@common-lisp.net>
398 * src/clfswm.lisp (main-mode:configure-request): Raise the window
399 only when present on the current child and focus it accordingly.
401 2010-08-26 Philippe Brochard <pbrochard@common-lisp.net>
403 * src/clfswm-circulate-mode.lisp (circulate-loop-function):
404 Use is-a-key-pressed-p.
406 * src/xlib-util.lisp (is-a-key-pressed-p): New predicate.
408 * src/clfswm-keys.lisp (define-ungrab/grab): Use all values
409 returned by xlib:keysym->keycodes.
411 * src/*.lisp: Use the new child-equal-p to compare children. This
412 prevent a bug with sbcl/cmucl when the standard equal function
413 does not work with xlib:window.
415 * src/clfswm-internal.lisp (child-equal-p): New predicate.
417 2010-08-25 Philippe Brochard <pbrochard@common-lisp.net>
419 * src/clfswm-generic-mode.lisp (generic-mode): Use an
420 xlib:event-listen before processing event with
421 xlib:process-event. This prevent a bug with CLX threaded
422 implementation like sbcl.
424 * src/clfswm.lisp (main-loop): Use an xlib:event-listen before
425 processing event with xlib:process-event. This prevent a bug with
426 CLX threaded implementation like sbcl.
428 2010-08-17 Philippe Brochard <pbrochard@common-lisp.net>
430 * contrib/server/key.lisp (ushell-sh): Add ccl and ecl support.
432 * src/xlib-util.lisp (compress-motion-notify): Use a loop instead
435 * src/clfswm-internal.lisp (with-find-in-all-frames): New macro.
436 (find-parent-frame, find-frame-window, find-frame-by-name)
437 (find-frame-by-number): Use with-find-in-all-frames to search in
438 frames in the right order.
440 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Fix an
441 unwanted flickering with unmanaged windows.
443 2010-08-16 Philippe Brochard <pbrochard@common-lisp.net>
445 * src/package.lisp: Remove event handler hooks as they're not
446 needed anymore (To replace them: use closure and define-handler).
448 * src/xlib-util.lisp (move-window, resize-window)
449 (wait-mouse-button-release): Use a generic mode.
451 * src/*.lisp: Replace the case to handle event with a more (tricky)
452 lispy method which bind a function to each keywords associated
455 2010-07-23 Philippe Brochard <pbrochard@common-lisp.net>
457 * src/clfswm-util.lisp (delete-current-child): Invert bindings and
458 menu entry between delete-current-child and remove-current-child.
459 ie: Delete a child and its children in all frames by default.
461 2010-07-21 Philippe Brochard <pbrochard@common-lisp.net>
463 * src/package.lisp: Add a placement configuration group.
465 * src/binding*.lisp: Bind control+g to escape the current action
468 * src/clfswm-internal.lisp
469 (delete-child-and-children-in-all-frames): New function and
470 binding: Second mode - Control+Delete delete the current child and
471 its children in all frames (ie: close the current child and its
474 2010-07-20 Philippe Brochard <pbrochard@common-lisp.net>
476 * src/clfswm-internal.lisp (remove-child-in-frame): Do not destroy
477 the frame window and the frame gc. Close a very annoying bug when
478 cuting/pasting a frame or moving a child over frames with the
481 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Redisplay
482 all children in *current-root* after moving/resizing a frame.
484 2010-07-18 Philippe Brochard <pbrochard@common-lisp.net>
486 * src/clfswm-util.lisp (delete-focus-window)
487 (destroy-focus-window): Remove child in parent frame before
490 2010-07-16 Philippe Brochard <pbrochard@common-lisp.net>
492 * src/clfswm-util.lisp (identify-key): Add a timeout in
494 (mouse-click-to-focus-generic): Use find-child-under-mouse instead
495 of the window passed by xlib:process-event.
497 * src/xlib-util.lisp (move-window, resize-window)
498 (wait-mouse-button-release): Add a timeout in xlib:process-event.
500 2010-04-11 Philippe Brochard <pbrochard@common-lisp.net>
502 * src/clfswm-util.lisp (run-other-window-manager): Add the ability
503 to launch an other window manager and to return to clfswm.
505 2010-03-18 Philippe Brochard <pbrochard@common-lisp.net>
507 * src/clfswm-layout.lisp (set-tile-space-layout): Set default
510 2009-12-15 Philippe Brochard <pbrochard@common-lisp.net>
512 * src/clfswm.lisp (main-loop): Add a *loop-hook* parameter and a
515 * src/clfswm-generic-mode.lisp (generic-mode): Add a loop-hook
516 parameter and a loop timeout.
518 2009-12-05 Philippe Brochard <pbrochard@common-lisp.net>
520 * src/clfswm.lisp (main): Add an alternate configuration filename
523 * load.lisp: Add a debuging code example.
525 2009-11-14 Philippe Brochard <pbrochard@common-lisp.net>
527 * src/clfswm-configuration.lisp (create-configuration-menu): New
528 menu to configure all clfswm variables while clfswm is running.
530 2009-11-12 Philippe Brochard <pbrochard@common-lisp.net>
532 * src/clfswm-util.lisp (save-configuration-variables): New
533 function to save all configuration variables in clfswmrc.
535 2009-11-11 Philippe Brochard <pbrochard@common-lisp.net>
537 * src/clfswm-info.lisp (info-mode): Begining of mouse support in
539 (set-default-info-keys): Add cursor key support in info mode.
541 2009-11-08 Philippe Brochard <pbrochard@common-lisp.net>
543 * contrib/reboot-halt.lisp: Add a Suspend/Reboot/Halt menu in
546 * src/clfswm.lisp (main): Add a read-conf-file-p parameter to
547 prevent reading the configuration file (this may be useful to
548 produce the original documentation without user modifications
549 with the rc configuration file).
551 2009-11-07 Philippe Brochard <pbrochard@common-lisp.net>
553 * src/bindings-second-mode.lisp (set-default-second-keys):
554 Simplification of Escape key to close/kill/remove the focus window
555 and unhide all windows.
557 * src/bindings.lisp (set-default-main-keys): Simplification of
558 Escape key to close/kill/remove the focus window and unhide all
561 * src/clfswm-util.lisp (ask-close/kill-current-window): Add remove
562 focus and unhide all windows capabilities.
564 2009-10-10 Philippe Brochard <pbrochard@common-lisp.net>
566 * contrib/mpd.lisp (start-gmpc): Add gmpc in the mpd menu.
568 2009-07-29 Philippe Brochard <pbrochard@common-lisp.net>
570 * src/clfswm-layout.lisp (tile-layout, tile-horizontal-layout):
571 Keep child order and don't make unnecessary child movement.
572 (one-column-layout, one-line-layout): New layouts.
574 2009-06-29 Philippe Brochard <pbrochard@common-lisp.net>
576 * *: **** Release 0906 ****
578 * contrib/cd-player.lisp: New file to handle the CD player.
580 * contrib/xmms.lisp: New file to handle the xmms player.
582 2009-06-28 Philippe Brochard <pbrochard@common-lisp.net>
584 * src/clfswm-layout.lisp (set-no-layout-remember-size): New layout:
585 Maximize windows in there frame - Leave frames to there actual
588 * src/bindings-second-mode.lisp (set-default-second-keys): Bind
589 "o" on set-open-in-new-frame-in-parent-frame-nw-hook.
591 2009-06-27 Philippe Brochard <pbrochard@common-lisp.net>
593 * contrib/keyb_fr.lisp: New file to handle an azerty keyboard.
595 2009-06-24 Philippe Brochard <pbrochard@common-lisp.net>
597 * contrib/mpd.lisp: Use a standard menu.
599 * src/clfswm-info.lisp: Use a standard menu for the help-menu.
601 2009-06-22 Philippe Brochard <pbrochard@common-lisp.net>
603 * contrib/mpd.lisp: New file to handle the Music Player Daemon (MPD)
605 2009-06-19 Philippe Brochard <pbrochard@common-lisp.net>
607 * src/clfswm-autodoc.lisp (produce-doc, produce-doc-html): Minor
610 2009-06-18 Philippe Brochard <pbrochard@common-lisp.net>
612 * src/config.lisp (get-fullscreen-size): One pixel adjustment
615 * src/clfswm-placement.lisp (*-child-placement): One pixel
618 2009-06-16 Philippe Brochard <pbrochard@common-lisp.net>
620 * src/clfswm-circulate-mode.lisp (draw-circulate-mode-window):
621 Ensure that all characters are printable.
623 * src/config.lisp (get-fullscreen-size): Adjust default fullscreen
626 * src/clfswm-placement.lisp (*-child-placement): Adjust
627 coordinates to one pixel in the current child.
629 2009-06-04 Philippe Brochard <pbrochard@common-lisp.net>
631 * src/clfswm-query.lisp (query-enter-function): Assign font before
632 width and height calculation.
634 2009-06-03 Philippe Brochard <pbrochard@common-lisp.net>
636 * src/xlib-util.lisp (banish-pointer): Use with-placement macro to
637 bannish the pointer in an arbitrary place.
639 * src/clfswm-info.lisp (info-mode): Use with-placement macro to
640 place the info window in an arbitrary place.
642 * src/clfswm-query.lisp (query-enter-function): Use with-placement
643 macro to place the query window in an arbitrary place.
645 * src/clfswm-placement.lisp: New file. Allow to place info windows
646 or query windows on an arbitrary place. Allow to bannish the
647 pointer on an arbitrary place.
649 2009-05-16 Philippe Brochard <pbrochard@common-lisp.net>
651 * src/clfswm-circulate-mode.lisp (reorder-child)
652 (reorder-brother): Unfocus windows before reordering children or
655 2009-05-13 Philippe Brochard <pbrochard@common-lisp.net>
657 * src/clfswm-circulate-mode.lisp (reorder-brother): Ensure that
658 the parent is a frame.
660 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Handle
661 motion with a default modifier.
663 * src/clfswm.lisp (handle-motion-notify): Handle motion with a
666 * src/clfswm-info.lisp (info-mode): Handle motion with a default
668 (info-mode): Optimization in loop function.
670 2009-05-10 Philippe Brochard <pbrochard@common-lisp.net>
672 * src/clfswm-circulate-mode.lisp (reorder-brother): Handle
673 root-frame correctly.
675 * clfswm.asd: Dependency fix for clfswm-generic-mode.
677 * src/clfswm-circulate-mode.lisp (reorder-child)
678 (reorder-brother): Handle empty frames.
679 (reorder-brother): Redisplay only the parent frame of the current
682 * src/clfswm-util.lisp (frame-toggle-maximize): Redisplay only the
683 parent frame of the current frame.
685 2009-05-09 Philippe Brochard <pbrochard@common-lisp.net>
687 * src/clfswm-util.lisp (frame-toggle-maximize): New function:
688 Maximize/Unmaximize the current frame in its parent frame.
690 * src/clfswm-layout.lisp (maximize-layout): New layout: Maximize
691 windows and frames in there parent frame.
693 2009-05-05 Philippe Brochard <pbrochard@common-lisp.net>
695 * src/*.lisp: Add support for Clozure Common Lisp (CCL).
697 * src/clfswm-circulate-mode.lisp (reorder-child)
698 (reorder-brother): Reinitialise on circulate type change
699 child to brother or brother to child.
701 * src/*.lisp (*): Use map-window instead of xlib:map-window. So
702 calls xlib:display-finish-output on each map-request. So speed up
705 * src/xlib-util.lisp (map-window): New function. Call
706 xlib:display-finish-output on each map request.
708 2009-04-28 Philippe Brochard <pbrochard@common-lisp.net>
710 * src/clfswm-second-mode.lisp (sm-handle-motion-notify):
711 Optimisation when drawing second mode window.
713 2009-04-27 Philippe Brochard <pbrochard@common-lisp.net>
715 * src/clfswm-circulate-mode.lisp (circulate-mode): Optimisation in
718 2009-04-22 Philippe Brochard <pbrochard@common-lisp.net>
720 * src/clfswm-util.lisp (run-program-from-query-string): Launch
721 command only with a return validation.
723 2009-04-22 Xavier Maillard <xma@gnu.org>
725 * src/clfswm-query.lisp (query-string): Use a generic mode.
727 2009-04-19 Xavier Maillard <xma@gnu.org>
729 * src/clfswm-info.lisp (info-mode): Use generic-mode for info-mode.
731 2009-04-18 Xavier Maillard <xma@gnu.org>
733 * src/clfswm-generic-mode.lisp (generic-mode): Add a generic mode
734 to define all other modes.
736 2009-04-05 Philippe Brochard <pbrochard@common-lisp.net>
738 * src/package.lisp (): Use *default-font-string* for all
741 * src/clfswm-info.lisp (info-mode): Ensure integer windows size.
743 2009-02-17 Philippe Brochard <pbrochard@common-lisp.net>
745 * src/xlib-util.lisp (null-size-window-p): Better check of null
748 2009-02-14 Philippe Brochard <pbrochard@common-lisp.net>
750 * src/clfswm.lisp (handle-map-request): Add a fix to manage
751 correctly fullscreen windows (SDL particularly).
753 2008-12-20 Philippe Brochard <pbrochard@common-lisp.net>
755 * src/xlib-util.lisp (get-color): Allocate colors only once -> fix
756 a segfault with clisp/new-clx.
758 * src/clfswm.lisp (handle-motion-notify): Add a needed window
761 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Add a
762 needed window argument.
764 2008-10-30 Philippe Brochard <pbrochard@common-lisp.net>
766 * src/xlib-util.lisp (wait-no-key-or-button-press)
767 (wait-a-key-or-button-press): Check buttons press/release correctly"
769 2008-10-28 Philippe Brochard <pbrochard@common-lisp.net>
771 * src/menu-def.lisp: Add children navigation menu in the movement
772 menu (select next/previous child/brother/level).
774 2008-10-26 Philippe Brochard <pbrochard@common-lisp.net>
776 * *: Rename 'sister' frame to 'brother' frame.
778 * src/clfswm-keys.lisp (unalias-modifiers): Convert a modifier
779 alias in a real modifier.
781 * src/package.lisp (*modifier-alias*): New list of modifier alias
782 For example: :alt is :mod-1, :numlock is :mod-2...
784 * src/tools.lisp (remove-hook): New function.
786 * src/clfswm-keys.lisp (with-capslock, without-capslock)
787 (with-numlock, without-cnumlock): New functions.
789 2008-10-25 Philippe Brochard <pbrochard@common-lisp.net>
791 * src/clfswm-info.lisp: Use the *binding-hook* to create info
792 keys and mouse bindings.
794 * src/bindings-second-mode.lisp: Use the *binding-hook* to create
795 second keys and mouse bindings.
797 * src/bindings.lisp: Use the *binding-hook* to create main keys
800 2008-10-10 Philippe Brochard <pbrochard@common-lisp.net>
802 * src/clfswm-menu.lisp (open-menu): Remember parent menu to undo
805 2008-10-09 Philippe Brochard <pbrochard@common-lisp.net>
807 * src/menu-def.lisp: Use a menu instead of a function for the
810 2008-10-08 Philippe Brochard <pbrochard@common-lisp.net>
812 * src/clfswm-util.lisp (show-standard-menu): Display the standard
813 menu from the 'update-menus' command.
815 2008-10-07 Philippe Brochard <pbrochard@common-lisp.net>
817 * src/clfswm-query.lisp (query-string): Do not ungrab keyboard if
818 it's already grabbed.
820 * src/clfswm-internal.lisp (display-frame-info): Use configurable
821 colors and fix a bug with background.
822 (display-frame-info): Set window background when displaying info.
824 2008-10-06 Philippe Brochard <pbrochard@common-lisp.net>
826 * src/xlib-util.lisp (my-character->keysyms): Use a macro to avoid
827 warning with clisp/new-clx.
829 2008-10-04 Philippe Brochard <pbrochard@common-lisp.net>
831 * src/clfswm-util.lisp (jump-to-slot): Prevent to jump on a
834 2008-09-23 Philippe Brochard <pbrochard@common-lisp.net>
836 * *: **** Release 0809 ****
838 2008-09-23 Philippe Brochard <pbrochard@common-lisp.net>
840 * src/clfswm-util.lisp (ensure-unique-name): New function and menu
842 (ensure-unique-number): New function and menu entry.
844 2008-09-22 Philippe Brochard <pbrochard@common-lisp.net>
846 * src/clfswm-nw-hooks.lisp (named-frame-nw-hook): New new window
847 hook: open the next window in a named frame.
848 (numbered-frame-nw-hook): New new window hook: open the next
849 window in a numbered frame.
851 * src/clfswm-query.lisp (query-string): Grab the keyboard in all
852 cases. So query-string can be called even in the main mode.
854 * src/clfswm-internal.lisp (show-all-children): Do not raise a
855 child by default => far less flickering.
857 2008-09-19 Philippe Brochard <pbrochard@common-lisp.net>
859 * src/bindings-second-mode.lisp: Bind "t" to tile-current-frame.
861 * src/menu-def.lisp: Change key binding for the CLFSWM menu
864 * src/xlib-util.lisp (xgrab-pointer): Handle the case where cursor
865 is nil. (workaround on some CLX implementation).
867 2008-09-12 Philippe Brochard <pbrochard@common-lisp.net>
869 * src/menu-def.lisp: Add a menu to set a focus policy for all
872 * src/clfswm-util.lisp (set-focus-policy-generic-for-all)
873 (all-frames-set-*-focus-policy): Set a focus policy for all
876 * src/clfswm.lisp (handle-enter-notify): sloppy-select
877 mode. Select a child and its parents on mouse over.
879 2008-09-03 Philippe Brochard <pbrochard@common-lisp.net>
881 * src/clfswm.lisp (handle-enter-notify): Add a sloppy strict focus
882 policy -> Sloppy focus only for windows in the current frame.
883 (main-unprotected): Exit clfswm on init error (ie: when another
884 window manager is running).
886 * src/clfswm-util.lisp (reset-clfswm): New function.
888 2008-09-02 Philippe Brochard <pbrochard@common-lisp.net>
890 * src/clfswm-menu.lisp (init-menu): New function.
892 * src/clfswm-util.lisp (reload-clfswm): New function to reload
894 (exit-clfswm): Rename quit-clfswm to exit-clfswm.
896 * src/clfswm.lisp (main, main-unprotected): Handle error in a
897 superior main function. Now CLFSWM can't break the X session. It
898 just reinitialize the display and run a new main loop.
900 * src/clfswm-corner.lisp: Make *clfswm-terminal* and
901 *vt-keyboard-on* global to avoid warnings when loading clfswm.
903 * src/clfswm-layout.lisp: Add a specific GIMP layout menu.
904 (help-on-gimp-layout): Describe how to use the GIMP layout.
906 2008-09-01 Philippe Brochard <pbrochard@common-lisp.net>
908 * src/clfswm-layout.lisp (set-gimp-layout): Change the layout to
909 main-window-right-layout. Change the keybinding for (shift)alt+tab
910 to not select windows in the main window lisst.
911 Bind F8 to add a window in the main window list.
912 Bind F9 to remove a window in the main window list.
913 Change the focus policy to :sloppy.
914 (set-previous-layout): Restore the previous layout, keybinding and
917 2008-08-31 Philippe Brochard <pbrochard@common-lisp.net>
919 * src/clfswm-menu.lisp (add-menu-comment): Add comments in menu.
921 * src/clfswm-layout.lisp (main-window-left-layout)
922 (main-window-bottom-layout, main-window-top-layout): New
924 Factorize layouts in menu.
926 2008-08-30 Philippe Brochard <pbrochard@common-lisp.net>
928 * src/clfswm-layout.lisp (main-window-right-layout): A possible
929 GIMP layout: one or more main windows on one side of the
930 frame. Others on the other size.
932 * src/clfswm-util.lisp
933 (current-frame-set-click/sloppy-focus-policy): Each frame can have
934 a different focus policy (one of :click or :sloppy).
935 The default focus policy is set with *default-focus-policy*.
937 2008-08-23 Philippe Brochard <pbrochard@common-lisp.net>
939 * src/clfswm-info.lisp (show-config-variable): New function.
941 2008-08-19 Philippe Brochard <pbrochard@common-lisp.net>
943 * src/clfswm-layout.lisp (tile-horizontal-layout): New layout.
945 * src/clfswm-info.lisp: Colored help for key binding and corners
948 2008-08-18 Philippe Brochard <pbrochard@common-lisp.net>
950 * src/clfswm-util.lisp (delete-focus-window)
951 (destroy-focus-window): Remove chid only in
952 handle-unmap/destroy-notify. Focus *current-root* only when
953 closing/killing the current child.
955 * src/clfswm-autodoc.lisp (produce-corner-*-doc): New autodoc
956 functions or corners.
958 2008-08-17 Philippe Brochard <pbrochard@common-lisp.net>
960 * src/clfswm-corner.lisp (present-clfswm-terminal): New corner
961 action: Hide/Unhide a terminal on mouse corner action. (By default
962 right mouse button on the top left corner).
964 * src/config.lisp (*never-managed-window-list*): New config
967 * src/clfswm-internal.lisp (never-managed-window-p): New function:
968 Handle never managed window in a more simple way.
970 * src/clfswm-corner.lisp: New file and new and more simple method
971 to define corners actions.
973 2008-08-15 Philippe Brochard <pbrochard@common-lisp.net>
975 * src/clfswm-info.lisp (info-mode): Info line can now be colored.
977 * src/clfswm-layout.lisp (fast-layout-switch)
978 (define-fast-layout-switch): New functions: Switch between two
981 * src/clfswm-second-mode.lisp (leave-second-mode): Takes care if
982 really in the second mode. So leave-second-mode can be used even
985 * src/clfswm-util.lisp (switch-to-last-child): New function:
986 Store the current child and switch to the previous one.
988 2008-07-16 Philippe Brochard <pbrochard@common-lisp.net>
990 * src/clfswm-util.lisp (display-current-window-info): Display the
992 (have-to-present-virtual-keyboard): Add a virtual keyboard corner
993 (top right by default). By default 'xvkbd' is used.
995 2008-06-28 Philippe Brochard <pbrochard@common-lisp.net>
997 * src/xlib-util.lisp (move-window, resize-window): Compress motion
1000 * src/clfswm.lisp (handle-motion-notify): Compress motion events.
1002 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Compress
1005 * src/clfswm-info.lisp (info-mode): Compress motion events.
1007 2008-06-21 Philippe Brochard <pbrochard@common-lisp.net>
1009 * src/clfswm-internal.lisp (show-all-children): Compute geometry
1010 and selection first and then show only necessary children.
1011 (show-child): remove unneeded display-p parameter.
1013 * src/config.lisp (get-fullscreen-size): Place the frame border
1014 outside the screen (this prevent the loose of 2 pixels per
1017 2008-06-12 Philippe Brochard <pbrochard@common-lisp.net>
1019 * src/clfswm-internal.lisp (focus-child): Algorithm change to
1020 raise only the selected child.
1022 2008-06-08 Philippe Brochard <pbrochard@common-lisp.net>
1024 * src/clfswm-internal.lisp (raise-p-list, show-all-children):
1025 Raise only viewable children.
1027 2008-06-06 Philippe Brochard <pbrochard@common-lisp.net>
1029 * src/clfswm-internal.lisp (show-all-children): Always raise all
1030 displayed children. Remove all references to raise-p.
1032 2008-06-04 Philippe Brochard <pbrochard@common-lisp.net>
1034 * src/menu-def.lisp (child-menu): New menu entry on raise/lower
1037 * src/bindings-second-mode.lisp ("Page_Down", "Page_Up"): New
1038 second mode binding on raise/lower child in its frame.
1040 * src/clfswm-nw-hooks.lisp (leave-focus-frame-nw-hook): Adapt
1041 behaviour to the new raise/lower property.
1042 Call clear-nw-hook before the rest of the hook.
1044 * src/bindings.lisp (mouse-click-to-focus-and-move-window)
1045 (mouse-click-to-focus-and-resize-window): Stop button event. This
1046 prevent a keyboard/pointer freeze.
1048 2008-06-03 Philippe Brochard <pbrochard@common-lisp.net>
1050 * src/clfswm-internal.lisp (frame-lower-child)
1051 (frame-raise-child): New functions to raise/lower a child in its
1054 * src/clfswm-util.lisp (have-to-present-windows)
1055 (have-to-present-all-windows): New functions to have an MaxOS
1056 expose like on mouse click in screen corner.
1058 * src/clfswm-info.lisp ("Page_Down", "Page_Up"): Add boundaries.
1060 2008-05-30 Philippe Brochard <pbrochard@common-lisp.net>
1062 * src/clfswm-util.lisp (unhide-a-child-from-all-frames): Unhide a
1063 child from a choice in all frames with hidden children.
1065 * src/clfswm-info.lisp (info-mode-menu): Handle separators.
1067 2008-05-28 Philippe Brochard <pbrochard@common-lisp.net>
1069 * src/clfswm-util.lisp (hide-current-child, unhide-a-child)
1070 (unhide-all-children): New functions.
1072 * src/clfswm-info.lisp (info-mode-menu): Handle symbols and
1075 * src/clfswm-util.lisp (hide/show-frame-window): new function and
1078 2008-05-23 Philippe Brochard <pbrochard@common-lisp.net>
1080 * src/clfswm-util.lisp (rename-current-child): Do not display the
1081 frame info for a window.
1083 2008-05-20 Philippe Brochard <pbrochard@common-lisp.net>
1085 * src/clfswm-internal.lisp (remove-child-in-frame): Destroy the
1086 frame window for the removed child and its children.
1088 2008-05-18 Philippe Brochard <pbrochard@common-lisp.net>
1090 * src/clfswm-autodoc.lisp (produce-*-doc-*): Add a note to use the
1093 2008-05-17 Philippe Brochard <pbrochard@common-lisp.net>
1095 * src/clfswm-nw-hooks.lisp (default-frame-nw-hook): Do not handle
1096 the ROX pinboard (ie: leave it lowered in the root window as
1099 * src/clfswm-layout.lisp (tile-left-space-layout): New layout.
1100 (tile-left-layout, tile-right-layout, tile-top-layout)
1101 (tile-bottom-layout): Use all the frame space when there is only
1104 * src/clfswm-internal.lisp (place-window-from-hints): Center
1105 unmanaged windows in the root screen.
1107 * src/clfswm-nw-hooks.lisp (clear-nw-hook, clear-all-nw-hooks):
1110 2008-05-15 Philippe Brochard <pbrochard@common-lisp.net>
1112 * src/clfswm-util.lisp (current-frame-manage-window-type): Fix a
1113 typo in managed types.
1115 * src/clfswm-internal.lisp (show-child): Always display frame info
1116 even if the frame is hidden.
1118 * src/xlib-util.lisp (resize-window): Use a better algorithme to
1121 2008-05-13 Philippe Brochard <pbrochard@common-lisp.net>
1123 * src/clfswm-util.lisp (with-movement): Display frame info for all
1124 frames in current root.
1126 2008-05-12 Philippe Brochard <pbrochard@common-lisp.net>
1128 * src/*.lisp: Rename 'brother' frames to 'sister' frames.
1130 * src/bindings-second-mode.lisp (define-second-key #\a): New
1131 binding on 'add-default-frame'.
1133 * src/clfswm-autodoc.lisp (produce-*-doc-*-in-file): Show a
1134 message to follow the autodocumentation process.
1136 2008-05-10 Philippe Brochard <pbrochard@common-lisp.net>
1138 * src/clfswm-util.lisp (bind-or-jump): Bind "Tab", "Return" and
1139 "Space" to jump to a child. "B" to bind a slot on the current
1142 * src/bindings-second-mode.lisp: Use "Tab" instead of
1145 2008-05-07 Philippe Brochard <pbrochard@common-lisp.net>
1147 * src/clfswm-util.lisp (find-child-under-mouse): Take care of
1148 unmanaged (hidden) windows.
1150 * src/clfswm-internal.lisp (place-window-from-hints): Give a
1151 minimal size for windows.
1152 (with-all-windows-frames-and-parent): New function.
1154 * src/config.lisp (*default-window-width/height*): New parameters.
1156 * src/clfswm-internal.lisp (place-window-from-hints): Center
1157 windows in the screen instead of in there frame.
1159 * src/bindings-second-mode.lisp (tile-space-current-frame): New
1162 * src/clfswm-layout.lisp (register-layout): Intern the once name
1163 in the right package.
1165 2008-05-05 Philippe Brochard <pbrochard@common-lisp.net>
1167 * doc/dot-clfswmrc: Update to follow the new clfswm way.
1169 2008-05-03 Philippe Brochard <pbrochard@common-lisp.net>
1171 * src/clfswm-internal.lisp (set-current-child)
1172 (adapt-child-to-parent, show-child, hide-child): Handle the case
1173 where child is not a frame or a window.
1175 * src/clfswm-util.lisp
1176 (mouse-click-to-focus-generic,mouse-focus-move/resize-generic):
1177 Check if child is a frame.
1179 * src/clfswm-internal.lisp (managed-window-p): Handle the case
1180 where frame is null.
1181 (place-frame): Check if frame and parent are frames.
1183 * src/clfswm-info.lisp (info-mode): display all frame info before
1186 * src/clfswm-second-mode.lisp (second-key-mode): display all frame
1187 info before leaving.
1189 * src/clfswm-internal.lisp (display-all-frame-info): New function.
1191 2008-05-02 Philippe Brochard <pbrochard@common-lisp.net>
1193 * src/tools.lisp (getenv): Implemented for ECL.
1194 (urun-prog): Implemented for ECL.
1196 * src/clfswm-util.lisp (identify-key): Use a double buffer to
1199 * src/clfswm-query.lisp (query-string): Use a double buffer to
1202 * src/clfswm-info.lisp (draw-info-window): Use a double buffer to
1205 * src/xlib-util.lisp (clear-pixmap-buffer, copy-pixmap-buffer):
1208 2008-05-01 Philippe Brochard <pbrochard@common-lisp.net>
1210 * src/clfswm-info.lisp (info-mode): Add boundaries in the info mode window.
1212 * src/menu-def.lisp: New file: move all menu definition in
1215 * src/clfswm-layout.lisp (register-layout): Use a function instead
1218 2008-04-30 Philippe Brochard <pbrochard@common-lisp.net>
1220 * src/clfswm-autodoc.lisp (produce-menu-doc,
1221 (produce-menu-doc-html): New functions.
1222 (produce-doc-*): Moved to clfswm-autodoc.lisp.
1224 * src/clfswm-util.lisp (paste-selection-no-clear): Prevent to
1225 paste a child on one of its own children. (this prevent a
1227 (move-child-to): Rename move/copy-current-child-by to
1229 (mouse-move-window-over-frame): New function to move the window
1230 under the mouse cursor to another frame.
1232 * src/clfswm-internal.lisp (find-child-in-parent): New function.
1234 2008-04-29 Philippe Brochard <pbrochard@common-lisp.net>
1236 * src/clfswm-internal.lisp (show-all-children): Display unmanaged
1237 windows only when its window parent is the current child.
1239 2008-04-28 Philippe Brochard <pbrochard@common-lisp.net>
1241 * src/clfswm-util.lisp (manage-current-window)
1242 (unmanage-current-window): New functions: Allow to force to manage
1243 or unmanage a window by its parent frame.
1245 * src/bindings-second-mode.lisp (#\o): binded to
1246 set-open-in-new-frame-in-parent-frame-nw-hook and
1247 (#\o :control) to set-open-in-new-frame-in-root-frame-nw-hook
1249 * src/clfswm-util.lisp (with-current-window): New macro.
1251 * src/xlib-util.lisp (move-window, resize-window): Remove uneeded
1252 exposure and enter-window handle event.
1254 * src/clfswm-util.lisp (move-frame, resize-frame): Show all
1255 children for the current child after the move/resize.
1257 2008-04-27 Philippe Brochard <pbrochard@common-lisp.net>
1259 * src/xlib-util.lisp (resize-window): Take care of window size
1262 * src/clfswm-util.lisp (mouse-focus-move/resize-generic): Allow to
1263 move/resize unmanaged windows.
1265 * src/xlib-util.lisp (move-window, resize-window): New functions.
1267 2008-04-25 Philippe Brochard <pbrochard@common-lisp.net>
1269 * src/clfswm-util.lisp (current-frame-manage-window-type): Let the
1270 user choose what window type the current frame must handle.
1271 (display-current-window-info): New function.
1272 (current-frame-manage-all-window-type)
1273 (current-frame-manage-only-normal-window-type)
1274 (current-frame-manage-no-window-type): New functions.
1276 * src/clfswm-internal.lisp (managed-window-p): New function.
1278 * src/package.lisp (frame): Managed type: new frame
1279 parameter. This allow to choose what window type a frame must
1282 * src/*.lisp: Rename all 'father' occurrences to 'parent'.
1284 * src/clfswm-nw-hooks.lisp
1285 (open-in-new-frame-in-parent-frame-nw-hook): New new window hook.
1287 * src/clfswm-util.lisp (adapt-current-frame-to-window-hints): New
1290 * src/tools.lisp (ensure-printable): Return always a string even
1293 2008-04-24 Philippe Brochard <pbrochard@common-lisp.net>
1295 * src/config.lisp (*default-nw-hook*): New variable to change the
1296 default new window hook.
1298 2008-04-22 Philippe Brochard <pbrochard@common-lisp.net>
1300 * clfswm.asd (clfswm): Add a dependency from
1301 clfswm-second-mode.lisp to clfswm.lisp.
1303 * src/clfswm-util.lisp (identify-key): Show the documentation for
1304 the function bound on a key.
1305 (with-movement): Move with-movement,
1306 current-frame-fill/pack/resize-* from bindings-second-mode.lisp
1307 to clfswm-util.lisp.
1309 * src/clfswm-menu.lisp: New menu system that let user change keys
1310 or functions associated to keys.
1312 2008-04-18 Philippe Brochard <pbrochard@common-lisp.net>
1314 * src/clfswm-internal.lisp (show-all-children): Display-child is
1315 the first child by default. Solve a bug with father-p.
1317 2008-04-17 Philippe Brochard <pbrochard@common-lisp.net>
1319 * src/clfswm-internal.lisp (add-frame): Add frame return the
1321 (show-all-children): Move the size computation outside the
1324 * src/bindings-second-mode.lisp (with-movement): Redisplay only
1327 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Redisplay
1328 only the current child.
1330 * src/clfswm-internal.lisp (show-all-children): New display-child
1331 parameter to display only the desired child and its children.
1332 (select-next/previous-child): Only display the current child.
1334 2008-04-14 Philippe Brochard <pbrochard@common-lisp.net>
1336 * src/clfswm.lisp (init-display): Move the default frame creation
1337 on the default init hook.
1339 * src/clfswm-keys.lisp (define-ungrab/grab): Handle all keysyms in
1340 the main mode (for example: "1" on an azerty keyboard).
1342 2008-04-13 Philippe Brochard <pbrochard@common-lisp.net>
1344 * src/clfswm-keys.lisp (find-key-from-code): Better handle of
1345 keysyms. Revert to old grabbing method for the main mode.
1347 2008-04-12 Philippe Brochard <pbrochard@common-lisp.net>
1349 * src/clfswm.lisp (init-display): Add key handling on no focus
1350 window and on frame windows.
1352 2008-04-11 Philippe Brochard <pbrochard@common-lisp.net>
1354 * src/clfswm.lisp (main): Keyboard handle strategie change: Grab
1355 all keys by default and replay just what is needed. No change for
1358 * src/clfswm-keys.lisp: remove grab/ungrab main keys.
1359 (find-key-from-code): Test for shift and not shift presence.
1361 2008-04-09 Philippe Brochard <pbrochard@common-lisp.net>
1363 * src/clfswm-internal.lisp (switch-to-root-frame): show later -
1364 new key parameter to have less flickering.
1366 2008-04-07 Philippe Brochard <pbrochard@common-lisp.net>
1368 * src/bindings-second-mode.lisp (frame-layout-once-menu): Set the
1369 layout only one time and revert to no-layout to freely handle
1372 * src/clfswm-nw-hooks.lisp
1373 (open-in-new-frame-in-root-frame-nw-hook): Tile layout with spaces
1374 with new created window.
1376 * src/clfswm-layout.lisp (register-layout): Now register
1377 automatically a once layout to set the layout only one time and
1378 revert to no-layout to freely handle frames.
1380 2008-04-05 Philippe Brochard <pbrochard@common-lisp.net>
1382 * src/clfswm-nw-hooks.lisp (leave-focus-frame-nw-hook): New
1383 nw-hook: Open the next window in the current frame and leave the
1384 focus to the current child.
1386 2008-04-04 Philippe Brochard <pbrochard@common-lisp.net>
1388 * src/bindings-second-mode.lisp: Add keys definitions to
1389 bind-or-jump in the second mode.
1391 * src/clfswm-util.lisp (bind-or-jump): remove the auto-defining
1392 macro for bind-or-jump-(1|2|3...).
1394 * src/clfswm-keys.lisp (define-define-key/mouse): Allow additional
1395 arguments to function. This allow to do things like:
1396 (define-main-key (key) 'my-function 10 20 'foo) -> 10 20 and 'foo
1397 are passed to my-function on key press.
1399 2008-04-03 Philippe Brochard <pbrochard@common-lisp.net>
1401 * src/clfswm-util.lisp (bind-or-jump): New (great) function.
1403 2008-04-02 Philippe Brochard <pbrochard@common-lisp.net>
1405 * src/clfswm-internal.lisp (child-fullname): New function
1407 * src/clfswm-info.lisp (info-mode-menu): Add an explicit optional
1408 docstring in info-mode-menu. An item can be
1409 '((key function) (key function)) or with docstring
1410 '((key function "documentation 1") (key function "bla bla") (key function))
1412 * src/tools.lisp (ensure-n-elems): New function.
1414 * src/bindings-second-mode.lisp: Bind Alt+mouse-1/3 to move or
1415 resize a frame or the window's father.
1417 * src/clfswm.lisp (init-display): Remove tile-space-layout by
1418 default on the root frame.
1420 * src/clfswm-util.lisp (move/resize-frame): Add standard event
1421 hooks handlers (map-request, configure-notify...)
1423 * src/clfswm-internal.lisp (adapt-child-to-father): Limit minimal
1426 2008-04-01 Philippe Brochard <pbrochard@common-lisp.net>
1428 * src/bindings.lisp: Bind Alt+mouse-1/3 to move or resize a frame
1429 or the window's father.
1431 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Stop button
1432 event only if there is a geometry change.
1433 (mouse-focus-move/resize-generic): Generic function to move or
1434 resize a frame or a window father frame.
1436 2008-04-01 Philippe Brochard <pbrochard@common-lisp.net>
1438 * src/clfswm-internal.lisp (show-all-children): Return t if there
1439 is a geometry change.
1441 2008-03-30 Philippe Brochard <pbrochard@common-lisp.net>
1443 * src/bindings.lisp (Up/Down): Swap select previous/next level.
1445 * src/bindings-second-mode.lisp (Up/Down): Swap select previous/next level.
1447 * src/clfswm.lisp (init-display): Create a default frame in the root frame.
1449 * src/clfswm-internal.lisp (place-frame): Place frame from real (pixel) coordinates.
1450 (with-all-*): Reverse the child list to manage the first child last (like in
1453 * src/config.lisp (*create-frame-on-root*): New variable: Create a new frame on the
1454 root window only if true.
1456 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Create a new frame on the
1457 root window only if *create-frame-on-root* is true.
1459 * src/bindings-second-mode.lisp (sm-mouse-click-to-focus-generic): Create a new frame
1462 2008-03-29 Philippe Brochard <pbrochard@common-lisp.net>
1464 * src/bindings-second-mode.lisp (sm-mouse-click-to-focus-generic): Focus, move and resize
1465 the current child (even if it's a window).
1467 2008-03-28 Philippe Brochard <pbrochard@common-lisp.net>
1469 * src/clfswm-util.lisp (mouse-click-to-focus-and-move)
1470 (mouse-click-to-focus-and-resize): New functions.
1472 * src/clfswm-internal.lisp (*-fl->px): Convert float coordinates to pixel.
1473 (*-px->fl): Convert pixel coordinates to float.
1475 * src/tools.lisp (call-hook): Move call-hook to tools.lisp.
1477 2008-03-27 Philippe Brochard <pbrochard@common-lisp.net>
1479 * src/clfswm-layout.lisp (no-layout): Use :first-only to raise only the
1482 * src/clfswm-internal.lisp (hide-all): Split hide-all-children in hide-all
1483 and hide-all-children.
1484 (raise-if-needed): New function.
1485 (show-child): Use a first-p parameter to raise windows only when they are
1488 2008-03-26 Philippe Brochard <pbrochard@common-lisp.net>
1490 * src/clfswm-internal.lisp (select-next/previous-level): Don't use show-all-children
1493 2008-03-25 Philippe Brochard <pbrochard@common-lisp.net>
1495 * src/clfswm-info.lisp (keys-from-list): new function.
1497 * src/*: rename 'childs' in 'children'.
1499 * src/*: rename 'group' in 'frame'.
1501 2008-03-22 Philippe Brochard <pbrochard@common-lisp.net>
1503 * src/clfswm-pack.lisp (explode-group/explode-current-group): new functions.
1505 2008-03-21 Philippe Brochard <pbrochard@common-lisp.net>
1507 * src/clfswm-pack.lisp: Pack, Fill, Resize functions.
1509 2008-03-16 Philippe Brochard <pbrochard@common-lisp.net>
1511 * src/clfswm-nw-hooks.lisp: Register system for new window hooks.
1512 Bind control+o to open the next window in a new group in the root group
1513 (as open in next window in a new workspace in 0801 version).
1515 2008-03-15 Philippe Brochard <pbrochard@common-lisp.net>
1517 * src/clfswm-util.lisp (show/hide-all-groups-info/key): Show/hide all groups info
1520 2008-03-14 Philippe Brochard <pbrochard@common-lisp.net>
1522 * bindings-second-mode.lisp ("ISO_Left_Tab"): Use ISO_Left_Tab
1523 instead of Tab for select-previous-child.
1525 2008-03-13 Philippe Brochard <pbrochard@common-lisp.net>
1527 * clfswm-util.lisp (force-window-in-group/force-window-center-in-group):
1530 2008-03-11 Philippe Brochard <pbrochard@common-lisp.net>
1532 * clfswm-util.lisp (identify-key): Display the documentation
1533 associated to keys when identifying a key.
1535 2008-03-10 Xavier Maillard <xma@gnu.org>
1537 * contrib/clfswm: Complete rewrite of the script. Detect error and
1538 act accordingly. Add command line arguments to configure the
1539 script execution. User can now choose different common lisp
1540 implementation (clisp and sbcl only), choose where to store the
1541 dumped image, where to find clfswm source.
1543 2008-03-09 Philippe Brochard <pbrochard@common-lisp.net>
1545 * clfswm-internal.lisp (process-new-window): Beginning of new
1546 window hook: each group have a hook to tell what he wants to do
1547 with the new created window.
1549 2008-03-08 Xavier Maillard <xma@gnu.org>
1551 * contrib/clfswm: New script. Dump a CLISP image of CLFSWM then
1552 call the resulting executable.
1554 * clfswm.lisp (read-conf-file): Check for the user config file in
1555 XDG_CONFIG_HOME *first*. Freedesktop.org standards should be
1556 prefered whenever possible.
1558 2008-02-27 Philippe Brochard <pbrochard@common-lisp.net>
1560 * clfswm-layout.lisp (*-layout): Add an optional raise-p
1561 parameter in each layout.
1563 2008-02-26 Philippe Brochard <pbrochard@common-lisp.net>
1565 * clfswm-util.lisp (copy/cut-current-child): Does not affect the
1567 (copy/move-current-child-by-name/number): new functions
1568 (focus-group-by-name/number): new functions
1569 (delete-group-by-name/number): new functions
1571 2008-02-24 Philippe Brochard <pbrochard@common-lisp.net>
1573 * ************************************************************ *
1574 *: Major update - No more reference to workspaces. The main *
1575 structure is a tree of groups or application windows. *
1576 * ************************************************************ *
1578 2008-02-07 Philippe Brochard <pbrochard@common-lisp.net>
1580 * clfswm.lisp (read-conf-file): Read configuration in
1581 $HOME/.clfswmrc or in /etc/clfswmrc or in
1582 $XDG_CONFIG_HOME/clfswm/clfswmrc.
1583 (xdg-config-home): Return the content of $XDG-CONFIG-HOME (default
1586 2008-01-18 Philippe Brochard <pbrochard@common-lisp.net>
1588 * clfswm-internal.lisp (show-all-group): Use *root* and *root-gc*
1591 2008-01-03 Philippe Brochard <pbrochard@common-lisp.net>
1593 * clfswm-internal.lisp (find-window-group): New function.
1595 * clfswm*: Change to make clfswm run with clisp/new-clx.
1597 2008-01-01 Philippe Brochard <pbrochard@common-lisp.net>
1599 * clfswm-util.lisp (query-show-paren): Add show parent matching in
1601 (query-string): Bind control+k to delete end of line.
1603 * clfswm-second-mode.lisp (draw-second-mode-window): Display
1604 the action on mouse motion in second mode.
1606 * clfswm.lisp (handle-exposure): Redisplay groups on exposure
1607 event but do not clear the root window.
1608 (handle-configure-request): Adjust unmanaged window from there
1611 * clfswm-internal.lisp (process-new-window): Adjust new window
1612 with the specified hints (max/min/base width/height).
1614 2007-12-31 Philippe Brochard <pbrochard@common-lisp.net>
1616 * clfswm.lisp (handle-configure-request): Send an Configuration
1617 Notify event. This solve a bug with xterm and rxvt who takes some
1618 times to be mapped. Now there is no delay.
1620 * bindings-second-mode.lisp (define-shell): Run programs after
1621 living the second mode.
1623 2007-12-30 Philippe Brochard <pbrochard@common-lisp.net>
1625 * clfswm-internal.lisp (process-new-window): Do not crop transient
1626 window to group size.
1627 (adapt-window-to-group): Do not crop transient window to group
1630 * clfswm.lisp (handle-configure-request): Adapt just the window to
1631 its group and don't take care of the configure request. Remove the
1632 bug with the Gimp outside the group and speed up the window
1634 (handle-exposure): Remove show-all-group on exposure event
1637 2007-12-29 Philippe Brochard <pbrochard@common-lisp.net>
1639 * clfswm-util.lisp (circulate-group-up-copy-window)
1640 (circulate-group-down-copy-window)
1641 (circulate-workspace-up-copy-group)
1642 (circulate-workspace-down-copy-group): Prevent the copy of the
1643 same window in the same workspace.
1645 * bindings-second-mode.lisp (release-copy-selected-window)
1646 (release-copy-selected-group): Prevent the copy of the same window
1647 in the same workspace.
1649 * clfswm-pager.lisp (generic-pager-move-window-on-previous-line)
1650 (generic-pager-move-window-on-next-line): Remove the copy
1652 (generic-pager-move-group-on-next-workspace)
1653 (generic-pager-move-group-on-previous-workspace): Prevent the copy
1654 of the same window in the same workspace.
1656 * bindings-pager.lisp (mouse-pager-copy-selected-window-release)
1657 (mouse-pager-copy-selected-group-release): Prevent the copy of the
1658 same window in the same workspace.
1660 * tools.lisp (setf/=): new macro to set a variable only when
1663 * clfswm-internal.lisp (adapt-window-to-group): use set/= to set
1664 x, y... only when necessary.
1666 2007-12-28 Philippe Brochard <pbrochard@common-lisp.net>
1668 * clfswm.lisp (handle-configure-notify, *configure-notify-hook*):
1669 new function and hook: force windows to stay in its group (solve a
1672 2007-12-25 Philippe Brochard <pbrochard@common-lisp.net>
1674 * bindings-second-mode.lisp (mouse-motion): use hide-group to have
1675 less flickering when moving/resizing groups.
1677 * clfswm-internal.lisp (hide-group): new function.
1678 (show-all-group): clear-all: new parameter.
1680 2007-12-22 Philippe Brochard <pbrochard@common-lisp.net>
1682 * clfswm-keys.lisp (define-define-key): undefine-*-multi-name: new
1684 * clfswm*: Color change for the pager. Typo or better description
1685 in bindings definitions. Define bindings for a qwerty keyboard by
1686 default. dot-clfswmrc show examples to switch to an azerty
1688 License change to GPL v3.
1689 * config.lisp: new file - group all globals variables in this
1692 2007-08-26 Philippe Brochard <pbrochard@common-lisp.net>
1694 * xlib-util.lisp (hide-window): Remove structure-notivy events
1695 when hidding a window.
1697 2007-05-16 Philippe Brochard <pbrochard@common-lisp.net>
1699 * package.lisp (*sm-property-notify-hook*): Readded
1700 property-notify-hook in second mode.
1702 2007-05-15 Philippe Brochard <pbrochard@common-lisp.net>
1704 * clfswm-keys.lisp (produce-doc-html): Better clean up for strings.
1706 2007-05-13 Philippe Brochard <pbrochard@common-lisp.net>
1708 * clfswm-pack.lisp (tile-current-workspace-to/right/left/top/bottom):
1709 Tile the current workspace with the current window on one side and
1710 others on the other (this emulate the larswm, dwm, wmii way). See
1711 the default configuration file to enable this mode by default.
1713 * clfswm-pager.lisp (pager-tile-current-workspace-to): idem for
1716 2007-05-12 Philippe Brochard <pbrochard@common-lisp.net>
1718 * clfswm-pager.lisp (pager-draw-window-in-group): Add
1719 ensure-printable to print windows name even with non-ascii
1722 2007-05-11 Philippe Brochard <pbrochard@common-lisp.net>
1724 * clfswm-pager.lisp (pager-explode-current-group): Create a new
1725 group for each window in group.
1726 (pager-implode-current-group): Move all windows in workspace to
1727 one group and remove other groups.
1729 * clfswm-pack.lisp (explode-group): Create a new group for each
1731 (implode-group): Move all windows in workspace to one group and
1732 remove other groups.
1734 * clfswm-util.lisp (identify-key): Remove local configuration
1735 variables and made them available for configuration from
1737 (query-string): idem.
1739 2007-04-29 Philippe Brochard <pbrochard@common-lisp.net>
1741 * netwm-util.lisp: Start of NetWM compliance.
1742 Add a Netwm client list gestion.
1744 2007-04-28 Philippe Brochard <pbrochard@common-lisp.net>
1746 * clfswm-internal.lisp (create-group-on-request): open a new group
1747 only when the current group is not empty.
1749 * bindings-second-mode.lisp (define-second-key-#\o-control): Fix a
1750 bug with null workspace.
1752 * clfswm-pager.lisp (pager-handle-event): Add a hook
1753 system. This hooks can be changed in the user configuration file.
1755 * package.lisp: All colors and font variables are set in
1756 package.lisp and can be configured in the user configuration
1758 Note: If you have configured some less ugly colors (esp. for the
1759 pager) don't hesitate to let me know :)
1761 * clfswm-second-mode.lisp (sm-handle-event): Add a hook
1762 system. This hooks can be changed in the user configuration file.
1764 * clfswm.lisp (handle-event): Add a hook system. This hooks can be
1765 changed in the user configuration file (~/.clfswmrc)
1767 2007-04-25 Philippe Brochard <pbrochard@common-lisp.net>
1769 * clfswm-util.lisp (stop-all-pending-actions): new function: reset
1770 arrow action, open next window in new workspace/group.
1772 * bindings.lisp (stop-all-pending-actions): new binding.
1773 (open-next-window-in-new-group-once): Open the next windows in a
1774 new group (only once) or open all new windows in a new group (like
1775 others windows managers).
1777 2007-04-22 Philippe Brochard <pbrochard@common-lisp.net>
1779 * clfswm.lisp (read-conf-file): New function to read a lisp
1780 configuration file at startup.
1781 (focus-group-under-mouse): Check if group isn't the current group
1782 ( prevent a bug with unclutter ).
1784 2007-03-02 Philippe Brochard <pbrochard@common-lisp.net>
1786 * bindings.lisp (run-program-from-query-string): A program can be
1787 launch from a input query window.
1789 2007-03-01 Philippe Brochard <pbrochard@common-lisp.net>
1791 * clfswm-info.lisp: Fix a bug with banish pointer in info mode.
1793 2007-02-28 Philippe Brochard <pbrochard@common-lisp.net>
1795 * clfswm.lisp (process-new-window): One can now open the next
1796 window in a workspace called by its number.
1798 * clfswm-util.lisp (query-font-string): Minimal editing
1800 (eval-from-string): And an REPL in the window manager... :)
1802 2007-02-26 Philippe Brochard <pbrochard@common-lisp.net>
1804 * clfswm.lisp (process-new-window): One can now open the next
1805 window in a new workspace or a new group.
1807 * clfswm-pager.lisp (pager-mode): Display the next arrow action
1808 with the hidden windows.
1810 * clfswm.lisp (second-key-mode): Display the current workspace
1811 number and the next arrow action in the state window.
1813 * clfswm-pager.lisp (pager-mode): Hide all windows before leaving
1814 the pager mode and then redisplay only the current workspace.
1816 2007-02-25 Philippe Brochard <pbrochard@common-lisp.net>
1818 * clfswm.lisp (add-workspace): Workspaces are now numbered. So
1819 they can be focused with a keypress, sorted or renumbered.
1821 2007-02-24 Philippe Brochard <pbrochard@common-lisp.net>
1823 * clfswm-pager.lisp (pager-mode): Remove multiple silly
1824 pager-draw-display. This prevent a lot of flickering in the
1827 * clfswm.lisp: Remove all display-force-output and replace them
1828 with only one display-finish-output in the event loop.
1830 2006-11-06 Philippe Brochard <pbrochard@common-lisp.net>
1832 * clfswm-pager.lisp (pager-center-group): New function - center a
1833 group at the middle of the screen.
1835 * clfswm-pack.lisp (center-group): New function - center a group
1836 at the middle of the screen.
1838 * clfswm.lisp (show-group): Add a cross line under the group.
1839 (show-group): Group are showned even if fullscreened.
1840 (init-display): Add an exposure event on the root window.
1842 2006-11-05 Philippe Brochard <pbrochard@common-lisp.net>
1844 * package.lisp (*default-group*): Default group is the same size
1845 of a fullscreened group.
1847 * bindings*: Use shift to move, control+shift to copy.
1849 * *.lisp: Add comments for configuration or alternatives. So grep
1850 for CONFIG to see where you can configure clfswm. And grep for
1851 Alternative to use some commented code.
1853 * clfswm.lisp (second-key-mode): Use a single window to show the
1854 second mode. See for alternatives at the end of this file.
1856 2006-11-03 Philippe Brochard <pbrochard@common-lisp.net>
1858 * clfswm-keys.lisp (define-define-key/mouse): Factorisation in a
1859 macro of key and mouse definitions.
1860 (define-define-key/mouse): Use state instead of modifiers list
1861 this fix a bug when the modifiers list is not in the rigth order.
1863 * clfswm.lisp (second-key-mode): Add a colored border in second mode.
1865 2006-11-02 Philippe Brochard <pbrochard@common-lisp.net>
1867 * clfswm-info.lisp (info-mode): Add an info mode.
1869 2006-11-01 Philippe Brochard <pbrochard@common-lisp.net>
1871 * clfswm.lisp (process-new-window): Change border size for
1873 (show-all-windows-in-workspace): Unhide all windows even when the
1874 current group is in fullscreen mode.
1876 2006-10-26 Philippe Brochard <pbrochard@common-lisp.net>
1878 * clfswm-util.lisp (identify-key): Add an exposure handle-event to
1879 redisplay the identify window after a terminal switch.
1881 * clfswm-pager.lisp (pager-mode): Add an exposure handle-event to
1882 redisplay the pager after a terminal switch.
1884 2006-10-24 Philippe Brochard <pbrochard@common-lisp.net>
1886 * clfswm-util.lisp (identify-key): Add a window to display
1887 the keys to identify on screen.
1889 * bindings.lisp, bindings-pager.lisp: Define same keys to
1890 move/copy groups/windows in second mode and in pager.
1892 * clfswm.lisp (handle-event*): Same version in all clfswm (fix some
1894 (show-all-windows-in-workspace): unhide window before adapting it
1897 2006-10-23 Philippe Brochard <pbrochard@common-lisp.net>
1899 * clfswm.lisp (handle-event): Revert to an older version.
1901 2006-10-18 Philippe Brochard <pbrochard@common-lisp.net>
1903 * clfswm-util.lisp (force-window-in-group)
1904 (force-window-center-in-group): New functions for transient windows.
1906 * clfswm-pager.lisp (pager-remove-current-workspace/group):
1907 bugfix: hide all windows before removing group or workspace.
1909 2006-10-17 Philippe Brochard <pbrochard@common-lisp.net>
1911 * bindings-pager.lisp (mouse-pager-move-selected-group)
1912 (mouse-pager-copy-selected-group)
1913 (mouse-pager-move-selected-window)
1914 (mouse-pager-copy-selected-window, mouse-pager-rotate-window-up)
1915 (mouse-pager-rotate-window-down): New functions to have mouse in
1918 * clfswm-pager.lisp (pager-swap-window)
1919 (pager-copy-group-on-next/previous-workspace)
1920 (pager-copy-window-on-next/previous-line): New functions
1922 2006-10-15 Philippe Brochard <pbrochard@common-lisp.net>
1924 * clfswm-pager.lisp (pager-move-window-on-next/previous-line,
1925 (pager-move-group-on-next/previous-workspace): new functions.
1927 * clfswm-pack.lisp (resize-half-x-x-current-group): resize group
1928 to its half size (new functions).
1930 2006-10-11 Philippe Brochard <pbrochard@common-lisp.net>
1932 * clfswm-pager.lisp: workspaces, groups and windows can now be
1933 selectionned with the keyboard or the mouse.
1935 2006-10-09 Philippe Brochard <pbrochard@common-lisp.net>
1937 * clfswm-pager.lisp (pager-select-workspace-right/left):
1938 workspaces can now be selectionned with the keyboard.
1940 2006-10-08 Philippe Brochard <pbrochard@common-lisp.net>
1942 * clfswm-keys.lisp (undefine-main-key, undefine-second-key, undefine-mouse-action):
1943 new function to remove a previous defined key or mouse combination.
1945 2006-10-07 Philippe Brochard <pbrochard@common-lisp.net>
1947 * clfswm.lisp (main): Check for access error in init-display.
1949 * clfswm-keys.lisp (define-ungrab/grab): check for keysym and
1950 keycode before grabbing.
1952 * bindings.lisp: Remove nlambda and use defun to keep the function
1953 documentation with clisp.
1954 (define-shell): new macro to define shell command for the second
1957 2006-10-06 Philippe Brochard <pbrochard@common-lisp.net>
1959 * clfswm-keys.lisp (define-ungrab/grab): use a cond instead of a
1962 2006-10-05 Philippe Brochard <pbrochard@common-lisp.net>
1964 * bindings.lisp (accept-motion): Move group bugfix in upper mouse
1965 workspace circulation.
1967 * clfswm-util.lisp (absorb-orphan-window): new function.
1969 * clfswm-keys.lisp: Keysyms support.
1971 2006-10-02 Philippe Brochard <pbrochard@common-lisp.net>
1973 * clfswm.lisp (show-group): Use one gc for all groups and not one
1976 2006-10-01 Philippe Brochard <pbrochard@common-lisp.net>
1978 * bindings.lisp (define-second-key (#\l :mod-1)): fix a typo.
1980 * clfswm.lisp (adapt-window-to-group): Adapt only windows with
1981 width and height outside group.
1983 2006-09-28 Philippe Brochard <pbrochard@common-lisp.net>
1985 * clfswm.lisp: First public release.