1 2010-08-26 Philippe Brochard <pbrochard@common-lisp.net>
3 * src/clfswm-circulate-mode.lisp (circulate-loop-function):
4 Use is-a-key-pressed-p.
6 * src/xlib-util.lisp (is-a-key-pressed-p): New predicate.
8 * src/clfswm-keys.lisp (define-ungrab/grab): Use all values
9 returned by xlib:keysym->keycodes.
11 * src/*.lisp: Use the new child-equal-p to compare children. This
12 prevent a bug with sbcl/cmucl when the standard equal function
13 does not work with xlib:window.
15 * src/clfswm-internal.lisp (child-equal-p): New predicate.
17 2010-08-25 Philippe Brochard <pbrochard@common-lisp.net>
19 * src/clfswm-generic-mode.lisp (generic-mode): Use an
20 xlib:event-listen before processing event with
21 xlib:process-event. This prevent a bug with CLX threaded
22 implementation like sbcl.
24 * src/clfswm.lisp (main-loop): Use an xlib:event-listen before
25 processing event with xlib:process-event. This prevent a bug with
26 CLX threaded implementation like sbcl.
28 2010-08-17 Philippe Brochard <pbrochard@common-lisp.net>
30 * contrib/server/key.lisp (ushell-sh): Add ccl and ecl support.
32 * src/xlib-util.lisp (compress-motion-notify): Use a loop instead
35 * src/clfswm-internal.lisp (with-find-in-all-frames): New macro.
36 (find-parent-frame, find-frame-window, find-frame-by-name)
37 (find-frame-by-number): Use with-find-in-all-frames to search in
38 frames in the right order.
40 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Fix an
41 unwanted flickering with unmanaged windows.
43 2010-08-16 Philippe Brochard <pbrochard@common-lisp.net>
45 * src/package.lisp: Remove event handler hooks as they're not
46 needed anymore (To replace them: use closure and define-handler).
48 * src/xlib-util.lisp (move-window, resize-window)
49 (wait-mouse-button-release): Use a generic mode.
51 * src/*.lisp: Replace the case to handle event with a more (tricky)
52 lispy method which bind a function to each keywords associated
55 2010-07-23 Philippe Brochard <pbrochard@common-lisp.net>
57 * src/clfswm-util.lisp (delete-current-child): Invert bindings and
58 menu entry between delete-current-child and remove-current-child.
59 ie: Delete a child and its children in all frames by default.
61 2010-07-21 Philippe Brochard <pbrochard@common-lisp.net>
63 * src/package.lisp: Add a placement configuration group.
65 * src/binding*.lisp: Bind control+g to escape the current action
68 * src/clfswm-internal.lisp
69 (delete-child-and-children-in-all-frames): New function and
70 binding: Second mode - Control+Delete delete the current child and
71 its children in all frames (ie: close the current child and its
74 2010-07-20 Philippe Brochard <pbrochard@common-lisp.net>
76 * src/clfswm-internal.lisp (remove-child-in-frame): Do not destroy
77 the frame window and the frame gc. Close a very annoying bug when
78 cuting/pasting a frame or moving a child over frames with the
81 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Redisplay
82 all children in *current-root* after moving/resizing a frame.
84 2010-07-18 Philippe Brochard <pbrochard@common-lisp.net>
86 * src/clfswm-util.lisp (delete-focus-window)
87 (destroy-focus-window): Remove child in parent frame before
90 2010-07-16 Philippe Brochard <pbrochard@common-lisp.net>
92 * src/clfswm-util.lisp (identify-key): Add a timeout in
94 (mouse-click-to-focus-generic): Use find-child-under-mouse instead
95 of the window passed by xlib:process-event.
97 * src/xlib-util.lisp (move-window, resize-window)
98 (wait-mouse-button-release): Add a timeout in xlib:process-event.
100 2010-04-11 Philippe Brochard <pbrochard@common-lisp.net>
102 * src/clfswm-util.lisp (run-other-window-manager): Add the ability
103 to launch an other window manager and to return to clfswm.
105 2010-03-18 Philippe Brochard <pbrochard@common-lisp.net>
107 * src/clfswm-layout.lisp (set-tile-space-layout): Set default
110 2009-12-15 Philippe Brochard <pbrochard@common-lisp.net>
112 * src/clfswm.lisp (main-loop): Add a *loop-hook* parameter and a
115 * src/clfswm-generic-mode.lisp (generic-mode): Add a loop-hook
116 parameter and a loop timeout.
118 2009-12-05 Philippe Brochard <pbrochard@common-lisp.net>
120 * src/clfswm.lisp (main): Add an alternate configuration filename
123 * load.lisp: Add a debuging code example.
125 2009-11-14 Philippe Brochard <pbrochard@common-lisp.net>
127 * src/clfswm-configuration.lisp (create-configuration-menu): New
128 menu to configure all clfswm variables while clfswm is running.
130 2009-11-12 Philippe Brochard <pbrochard@common-lisp.net>
132 * src/clfswm-util.lisp (save-configuration-variables): New
133 function to save all configuration variables in clfswmrc.
135 2009-11-11 Philippe Brochard <pbrochard@common-lisp.net>
137 * src/clfswm-info.lisp (info-mode): Begining of mouse support in
139 (set-default-info-keys): Add cursor key support in info mode.
141 2009-11-08 Philippe Brochard <pbrochard@common-lisp.net>
143 * contrib/reboot-halt.lisp: Add a Suspend/Reboot/Halt menu in
146 * src/clfswm.lisp (main): Add a read-conf-file-p parameter to
147 prevent reading the configuration file (this may be useful to
148 produce the original documentation without user modifications
149 with the rc configuration file).
151 2009-11-07 Philippe Brochard <pbrochard@common-lisp.net>
153 * src/bindings-second-mode.lisp (set-default-second-keys):
154 Simplification of Escape key to close/kill/remove the focus window
155 and unhide all windows.
157 * src/bindings.lisp (set-default-main-keys): Simplification of
158 Escape key to close/kill/remove the focus window and unhide all
161 * src/clfswm-util.lisp (ask-close/kill-current-window): Add remove
162 focus and unhide all windows capabilities.
164 2009-10-10 Philippe Brochard <pbrochard@common-lisp.net>
166 * contrib/mpd.lisp (start-gmpc): Add gmpc in the mpd menu.
168 2009-07-29 Philippe Brochard <pbrochard@common-lisp.net>
170 * src/clfswm-layout.lisp (tile-layout, tile-horizontal-layout):
171 Keep child order and don't make unnecessary child movement.
172 (one-column-layout, one-line-layout): New layouts.
174 2009-06-29 Philippe Brochard <pbrochard@common-lisp.net>
176 * contrib/cd-player.lisp: New file to handle the CD player.
178 * contrib/xmms.lisp: New file to handle the xmms player.
180 2009-06-28 Philippe Brochard <pbrochard@common-lisp.net>
182 * src/clfswm-layout.lisp (set-no-layout-remember-size): New layout:
183 Maximize windows in there frame - Leave frames to there actual
186 * src/bindings-second-mode.lisp (set-default-second-keys): Bind
187 "o" on set-open-in-new-frame-in-parent-frame-nw-hook.
189 2009-06-27 Philippe Brochard <pbrochard@common-lisp.net>
191 * contrib/keyb_fr.lisp: New file to handle an azerty keyboard.
193 2009-06-24 Philippe Brochard <pbrochard@common-lisp.net>
195 * contrib/mpd.lisp: Use a standard menu.
197 * src/clfswm-info.lisp: Use a standard menu for the help-menu.
199 2009-06-22 Philippe Brochard <pbrochard@common-lisp.net>
201 * contrib/mpd.lisp: New file to handle the Music Player Daemon (MPD)
203 2009-06-19 Philippe Brochard <pbrochard@common-lisp.net>
205 * src/clfswm-autodoc.lisp (produce-doc, produce-doc-html): Minor
208 2009-06-18 Philippe Brochard <pbrochard@common-lisp.net>
210 * src/config.lisp (get-fullscreen-size): One pixel adjustment
213 * src/clfswm-placement.lisp (*-child-placement): One pixel
216 2009-06-16 Philippe Brochard <pbrochard@common-lisp.net>
218 * src/clfswm-circulate-mode.lisp (draw-circulate-mode-window):
219 Ensure that all characters are printable.
221 * src/config.lisp (get-fullscreen-size): Adjust default fullscreen
224 * src/clfswm-placement.lisp (*-child-placement): Adjust
225 coordinates to one pixel in the current child.
227 2009-06-04 Philippe Brochard <pbrochard@common-lisp.net>
229 * src/clfswm-query.lisp (query-enter-function): Assign font before
230 width and height calculation.
232 2009-06-03 Philippe Brochard <pbrochard@common-lisp.net>
234 * src/xlib-util.lisp (banish-pointer): Use with-placement macro to
235 bannish the pointer in an arbitrary place.
237 * src/clfswm-info.lisp (info-mode): Use with-placement macro to
238 place the info window in an arbitrary place.
240 * src/clfswm-query.lisp (query-enter-function): Use with-placement
241 macro to place the query window in an arbitrary place.
243 * src/clfswm-placement.lisp: New file. Allow to place info windows
244 or query windows on an arbitrary place. Allow to bannish the
245 pointer on an arbitrary place.
247 2009-05-16 Philippe Brochard <pbrochard@common-lisp.net>
249 * src/clfswm-circulate-mode.lisp (reorder-child)
250 (reorder-brother): Unfocus windows before reordering children or
253 2009-05-13 Philippe Brochard <pbrochard@common-lisp.net>
255 * src/clfswm-circulate-mode.lisp (reorder-brother): Ensure that
256 the parent is a frame.
258 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Handle
259 motion with a default modifier.
261 * src/clfswm.lisp (handle-motion-notify): Handle motion with a
264 * src/clfswm-info.lisp (info-mode): Handle motion with a default
266 (info-mode): Optimization in loop function.
268 2009-05-10 Philippe Brochard <pbrochard@common-lisp.net>
270 * src/clfswm-circulate-mode.lisp (reorder-brother): Handle
271 root-frame correctly.
273 * clfswm.asd: Dependency fix for clfswm-generic-mode.
275 * src/clfswm-circulate-mode.lisp (reorder-child)
276 (reorder-brother): Handle empty frames.
277 (reorder-brother): Redisplay only the parent frame of the current
280 * src/clfswm-util.lisp (frame-toggle-maximize): Redisplay only the
281 parent frame of the current frame.
283 2009-05-09 Philippe Brochard <pbrochard@common-lisp.net>
285 * src/clfswm-util.lisp (frame-toggle-maximize): New function:
286 Maximize/Unmaximize the current frame in its parent frame.
288 * src/clfswm-layout.lisp (maximize-layout): New layout: Maximize
289 windows and frames in there parent frame.
291 2009-05-05 Philippe Brochard <pbrochard@common-lisp.net>
293 * src/*.lisp: Add support for Clozure Common Lisp (CCL).
295 * src/clfswm-circulate-mode.lisp (reorder-child)
296 (reorder-brother): Reinitialise on circulate type change
297 child to brother or brother to child.
299 * src/*.lisp (*): Use map-window instead of xlib:map-window. So
300 calls xlib:display-finish-output on each map-request. So speed up
303 * src/xlib-util.lisp (map-window): New function. Call
304 xlib:display-finish-output on each map request.
306 2009-04-28 Philippe Brochard <pbrochard@common-lisp.net>
308 * src/clfswm-second-mode.lisp (sm-handle-motion-notify):
309 Optimisation when drawing second mode window.
311 2009-04-27 Philippe Brochard <pbrochard@common-lisp.net>
313 * src/clfswm-circulate-mode.lisp (circulate-mode): Optimisation in
316 2009-04-22 Philippe Brochard <pbrochard@common-lisp.net>
318 * src/clfswm-util.lisp (run-program-from-query-string): Launch
319 command only with a return validation.
321 2009-04-22 Xavier Maillard <xma@gnu.org>
323 * src/clfswm-query.lisp (query-string): Use a generic mode.
325 2009-04-19 Xavier Maillard <xma@gnu.org>
327 * src/clfswm-info.lisp (info-mode): Use generic-mode for info-mode.
329 2009-04-18 Xavier Maillard <xma@gnu.org>
331 * src/clfswm-generic-mode.lisp (generic-mode): Add a generic mode
332 to define all other modes.
334 2009-04-05 Philippe Brochard <pbrochard@common-lisp.net>
336 * src/package.lisp (): Use *default-font-string* for all
339 * src/clfswm-info.lisp (info-mode): Ensure integer windows size.
341 2009-02-17 Philippe Brochard <pbrochard@common-lisp.net>
343 * src/xlib-util.lisp (null-size-window-p): Better check of null
346 2009-02-14 Philippe Brochard <pbrochard@common-lisp.net>
348 * src/clfswm.lisp (handle-map-request): Add a fix to manage
349 correctly fullscreen windows (SDL particularly).
351 2008-12-20 Philippe Brochard <pbrochard@common-lisp.net>
353 * src/xlib-util.lisp (get-color): Allocate colors only once -> fix
354 a segfault with clisp/new-clx.
356 * src/clfswm.lisp (handle-motion-notify): Add a needed window
359 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Add a
360 needed window argument.
362 2008-10-30 Philippe Brochard <pbrochard@common-lisp.net>
364 * src/xlib-util.lisp (wait-no-key-or-button-press)
365 (wait-a-key-or-button-press): Check buttons press/release correctly"
367 2008-10-28 Philippe Brochard <pbrochard@common-lisp.net>
369 * src/menu-def.lisp: Add children navigation menu in the movement
370 menu (select next/previous child/brother/level).
372 2008-10-26 Philippe Brochard <pbrochard@common-lisp.net>
374 * *: Rename 'sister' frame to 'brother' frame.
376 * src/clfswm-keys.lisp (unalias-modifiers): Convert a modifier
377 alias in a real modifier.
379 * src/package.lisp (*modifier-alias*): New list of modifier alias
380 For example: :alt is :mod-1, :numlock is :mod-2...
382 * src/tools.lisp (remove-hook): New function.
384 * src/clfswm-keys.lisp (with-capslock, without-capslock)
385 (with-numlock, without-cnumlock): New functions.
387 2008-10-25 Philippe Brochard <pbrochard@common-lisp.net>
389 * src/clfswm-info.lisp: Use the *binding-hook* to create info
390 keys and mouse bindings.
392 * src/bindings-second-mode.lisp: Use the *binding-hook* to create
393 second keys and mouse bindings.
395 * src/bindings.lisp: Use the *binding-hook* to create main keys
398 2008-10-10 Philippe Brochard <pbrochard@common-lisp.net>
400 * src/clfswm-menu.lisp (open-menu): Remember parent menu to undo
403 2008-10-09 Philippe Brochard <pbrochard@common-lisp.net>
405 * src/menu-def.lisp: Use a menu instead of a function for the
408 2008-10-08 Philippe Brochard <pbrochard@common-lisp.net>
410 * src/clfswm-util.lisp (show-standard-menu): Display the standard
411 menu from the 'update-menus' command.
413 2008-10-07 Philippe Brochard <pbrochard@common-lisp.net>
415 * src/clfswm-query.lisp (query-string): Do not ungrab keyboard if
416 it's already grabbed.
418 * src/clfswm-internal.lisp (display-frame-info): Use configurable
419 colors and fix a bug with background.
420 (display-frame-info): Set window background when displaying info.
422 2008-10-06 Philippe Brochard <pbrochard@common-lisp.net>
424 * src/xlib-util.lisp (my-character->keysyms): Use a macro to avoid
425 warning with clisp/new-clx.
427 2008-10-04 Philippe Brochard <pbrochard@common-lisp.net>
429 * src/clfswm-util.lisp (jump-to-slot): Prevent to jump on a
432 2008-09-23 Philippe Brochard <pbrochard@common-lisp.net>
433 * *: **** Release 0809 ****
435 2008-09-23 Philippe Brochard <pbrochard@common-lisp.net>
437 * src/clfswm-util.lisp (ensure-unique-name): New function and menu
439 (ensure-unique-number): New function and menu entry.
441 2008-09-22 Philippe Brochard <pbrochard@common-lisp.net>
443 * src/clfswm-nw-hooks.lisp (named-frame-nw-hook): New new window
444 hook: open the next window in a named frame.
445 (numbered-frame-nw-hook): New new window hook: open the next
446 window in a numbered frame.
448 * src/clfswm-query.lisp (query-string): Grab the keyboard in all
449 cases. So query-string can be called even in the main mode.
451 * src/clfswm-internal.lisp (show-all-children): Do not raise a
452 child by default => far less flickering.
454 2008-09-19 Philippe Brochard <pbrochard@common-lisp.net>
456 * src/bindings-second-mode.lisp: Bind "t" to tile-current-frame.
458 * src/menu-def.lisp: Change key binding for the CLFSWM menu
461 * src/xlib-util.lisp (xgrab-pointer): Handle the case where cursor
462 is nil. (workaround on some CLX implementation).
464 2008-09-12 Philippe Brochard <pbrochard@common-lisp.net>
466 * src/menu-def.lisp: Add a menu to set a focus policy for all
469 * src/clfswm-util.lisp (set-focus-policy-generic-for-all)
470 (all-frames-set-*-focus-policy): Set a focus policy for all
473 * src/clfswm.lisp (handle-enter-notify): sloppy-select
474 mode. Select a child and its parents on mouse over.
476 2008-09-03 Philippe Brochard <pbrochard@common-lisp.net>
478 * src/clfswm.lisp (handle-enter-notify): Add a sloppy strict focus
479 policy -> Sloppy focus only for windows in the current frame.
480 (main-unprotected): Exit clfswm on init error (ie: when another
481 window manager is running).
483 * src/clfswm-util.lisp (reset-clfswm): New function.
485 2008-09-02 Philippe Brochard <pbrochard@common-lisp.net>
487 * src/clfswm-menu.lisp (init-menu): New function.
489 * src/clfswm-util.lisp (reload-clfswm): New function to reload
491 (exit-clfswm): Rename quit-clfswm to exit-clfswm.
493 * src/clfswm.lisp (main, main-unprotected): Handle error in a
494 superior main function. Now CLFSWM can't break the X session. It
495 just reinitialize the display and run a new main loop.
497 * src/clfswm-corner.lisp: Make *clfswm-terminal* and
498 *vt-keyboard-on* global to avoid warnings when loading clfswm.
500 * src/clfswm-layout.lisp: Add a specific GIMP layout menu.
501 (help-on-gimp-layout): Describe how to use the GIMP layout.
503 2008-09-01 Philippe Brochard <pbrochard@common-lisp.net>
505 * src/clfswm-layout.lisp (set-gimp-layout): Change the layout to
506 main-window-right-layout. Change the keybinding for (shift)alt+tab
507 to not select windows in the main window lisst.
508 Bind F8 to add a window in the main window list.
509 Bind F9 to remove a window in the main window list.
510 Change the focus policy to :sloppy.
511 (set-previous-layout): Restore the previous layout, keybinding and
514 2008-08-31 Philippe Brochard <pbrochard@common-lisp.net>
516 * src/clfswm-menu.lisp (add-menu-comment): Add comments in menu.
518 * src/clfswm-layout.lisp (main-window-left-layout)
519 (main-window-bottom-layout, main-window-top-layout): New
521 Factorize layouts in menu.
523 2008-08-30 Philippe Brochard <pbrochard@common-lisp.net>
525 * src/clfswm-layout.lisp (main-window-right-layout): A possible
526 GIMP layout: one or more main windows on one side of the
527 frame. Others on the other size.
529 * src/clfswm-util.lisp
530 (current-frame-set-click/sloppy-focus-policy): Each frame can have
531 a different focus policy (one of :click or :sloppy).
532 The default focus policy is set with *default-focus-policy*.
534 2008-08-23 Philippe Brochard <pbrochard@common-lisp.net>
536 * src/clfswm-info.lisp (show-config-variable): New function.
538 2008-08-19 Philippe Brochard <pbrochard@common-lisp.net>
540 * src/clfswm-layout.lisp (tile-horizontal-layout): New layout.
542 * src/clfswm-info.lisp: Colored help for key binding and corners
545 2008-08-18 Philippe Brochard <pbrochard@common-lisp.net>
547 * src/clfswm-util.lisp (delete-focus-window)
548 (destroy-focus-window): Remove chid only in
549 handle-unmap/destroy-notify. Focus *current-root* only when
550 closing/killing the current child.
552 * src/clfswm-autodoc.lisp (produce-corner-*-doc): New autodoc
553 functions or corners.
555 2008-08-17 Philippe Brochard <pbrochard@common-lisp.net>
557 * src/clfswm-corner.lisp (present-clfswm-terminal): New corner
558 action: Hide/Unhide a terminal on mouse corner action. (By default
559 right mouse button on the top left corner).
561 * src/config.lisp (*never-managed-window-list*): New config
564 * src/clfswm-internal.lisp (never-managed-window-p): New function:
565 Handle never managed window in a more simple way.
567 * src/clfswm-corner.lisp: New file and new and more simple method
568 to define corners actions.
570 2008-08-15 Philippe Brochard <pbrochard@common-lisp.net>
572 * src/clfswm-info.lisp (info-mode): Info line can now be colored.
574 * src/clfswm-layout.lisp (fast-layout-switch)
575 (define-fast-layout-switch): New functions: Switch between two
578 * src/clfswm-second-mode.lisp (leave-second-mode): Takes care if
579 really in the second mode. So leave-second-mode can be used even
582 * src/clfswm-util.lisp (switch-to-last-child): New function:
583 Store the current child and switch to the previous one.
585 2008-07-16 Philippe Brochard <pbrochard@common-lisp.net>
587 * src/clfswm-util.lisp (display-current-window-info): Display the
589 (have-to-present-virtual-keyboard): Add a virtual keyboard corner
590 (top right by default). By default 'xvkbd' is used.
592 2008-06-28 Philippe Brochard <pbrochard@common-lisp.net>
594 * src/xlib-util.lisp (move-window, resize-window): Compress motion
597 * src/clfswm.lisp (handle-motion-notify): Compress motion events.
599 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Compress
602 * src/clfswm-info.lisp (info-mode): Compress motion events.
604 2008-06-21 Philippe Brochard <pbrochard@common-lisp.net>
606 * src/clfswm-internal.lisp (show-all-children): Compute geometry
607 and selection first and then show only necessary children.
608 (show-child): remove unneeded display-p parameter.
610 * src/config.lisp (get-fullscreen-size): Place the frame border
611 outside the screen (this prevent the loose of 2 pixels per
614 2008-06-12 Philippe Brochard <pbrochard@common-lisp.net>
616 * src/clfswm-internal.lisp (focus-child): Algorithm change to
617 raise only the selected child.
619 2008-06-08 Philippe Brochard <pbrochard@common-lisp.net>
621 * src/clfswm-internal.lisp (raise-p-list, show-all-children):
622 Raise only viewable children.
624 2008-06-06 Philippe Brochard <pbrochard@common-lisp.net>
626 * src/clfswm-internal.lisp (show-all-children): Always raise all
627 displayed children. Remove all references to raise-p.
629 2008-06-04 Philippe Brochard <pbrochard@common-lisp.net>
631 * src/menu-def.lisp (child-menu): New menu entry on raise/lower
634 * src/bindings-second-mode.lisp ("Page_Down", "Page_Up"): New
635 second mode binding on raise/lower child in its frame.
637 * src/clfswm-nw-hooks.lisp (leave-focus-frame-nw-hook): Adapt
638 behaviour to the new raise/lower property.
639 Call clear-nw-hook before the rest of the hook.
641 * src/bindings.lisp (mouse-click-to-focus-and-move-window)
642 (mouse-click-to-focus-and-resize-window): Stop button event. This
643 prevent a keyboard/pointer freeze.
645 2008-06-03 Philippe Brochard <pbrochard@common-lisp.net>
647 * src/clfswm-internal.lisp (frame-lower-child)
648 (frame-raise-child): New functions to raise/lower a child in its
651 * src/clfswm-util.lisp (have-to-present-windows)
652 (have-to-present-all-windows): New functions to have an MaxOS
653 expose like on mouse click in screen corner.
655 * src/clfswm-info.lisp ("Page_Down", "Page_Up"): Add boundaries.
657 2008-05-30 Philippe Brochard <pbrochard@common-lisp.net>
659 * src/clfswm-util.lisp (unhide-a-child-from-all-frames): Unhide a
660 child from a choice in all frames with hidden children.
662 * src/clfswm-info.lisp (info-mode-menu): Handle separators.
664 2008-05-28 Philippe Brochard <pbrochard@common-lisp.net>
666 * src/clfswm-util.lisp (hide-current-child, unhide-a-child)
667 (unhide-all-children): New functions.
669 * src/clfswm-info.lisp (info-mode-menu): Handle symbols and
672 * src/clfswm-util.lisp (hide/show-frame-window): new function and
675 2008-05-23 Philippe Brochard <pbrochard@common-lisp.net>
677 * src/clfswm-util.lisp (rename-current-child): Do not display the
678 frame info for a window.
680 2008-05-20 Philippe Brochard <pbrochard@common-lisp.net>
682 * src/clfswm-internal.lisp (remove-child-in-frame): Destroy the
683 frame window for the removed child and its children.
685 2008-05-18 Philippe Brochard <pbrochard@common-lisp.net>
687 * src/clfswm-autodoc.lisp (produce-*-doc-*): Add a note to use the
690 2008-05-17 Philippe Brochard <pbrochard@common-lisp.net>
692 * src/clfswm-nw-hooks.lisp (default-frame-nw-hook): Do not handle
693 the ROX pinboard (ie: leave it lowered in the root window as
696 * src/clfswm-layout.lisp (tile-left-space-layout): New layout.
697 (tile-left-layout, tile-right-layout, tile-top-layout)
698 (tile-bottom-layout): Use all the frame space when there is only
701 * src/clfswm-internal.lisp (place-window-from-hints): Center
702 unmanaged windows in the root screen.
704 * src/clfswm-nw-hooks.lisp (clear-nw-hook, clear-all-nw-hooks):
707 2008-05-15 Philippe Brochard <pbrochard@common-lisp.net>
709 * src/clfswm-util.lisp (current-frame-manage-window-type): Fix a
710 typo in managed types.
712 * src/clfswm-internal.lisp (show-child): Always display frame info
713 even if the frame is hidden.
715 * src/xlib-util.lisp (resize-window): Use a better algorithme to
718 2008-05-13 Philippe Brochard <pbrochard@common-lisp.net>
720 * src/clfswm-util.lisp (with-movement): Display frame info for all
721 frames in current root.
723 2008-05-12 Philippe Brochard <pbrochard@common-lisp.net>
725 * src/*.lisp: Rename 'brother' frames to 'sister' frames.
727 * src/bindings-second-mode.lisp (define-second-key #\a): New
728 binding on 'add-default-frame'.
730 * src/clfswm-autodoc.lisp (produce-*-doc-*-in-file): Show a
731 message to follow the autodocumentation process.
733 2008-05-10 Philippe Brochard <pbrochard@common-lisp.net>
735 * src/clfswm-util.lisp (bind-or-jump): Bind "Tab", "Return" and
736 "Space" to jump to a child. "B" to bind a slot on the current
739 * src/bindings-second-mode.lisp: Use "Tab" instead of
742 2008-05-07 Philippe Brochard <pbrochard@common-lisp.net>
744 * src/clfswm-util.lisp (find-child-under-mouse): Take care of
745 unmanaged (hidden) windows.
747 * src/clfswm-internal.lisp (place-window-from-hints): Give a
748 minimal size for windows.
749 (with-all-windows-frames-and-parent): New function.
751 * src/config.lisp (*default-window-width/height*): New parameters.
753 * src/clfswm-internal.lisp (place-window-from-hints): Center
754 windows in the screen instead of in there frame.
756 * src/bindings-second-mode.lisp (tile-space-current-frame): New
759 * src/clfswm-layout.lisp (register-layout): Intern the once name
760 in the right package.
762 2008-05-05 Philippe Brochard <pbrochard@common-lisp.net>
764 * doc/dot-clfswmrc: Update to follow the new clfswm way.
766 2008-05-03 Philippe Brochard <pbrochard@common-lisp.net>
768 * src/clfswm-internal.lisp (set-current-child)
769 (adapt-child-to-parent, show-child, hide-child): Handle the case
770 where child is not a frame or a window.
772 * src/clfswm-util.lisp
773 (mouse-click-to-focus-generic,mouse-focus-move/resize-generic):
774 Check if child is a frame.
776 * src/clfswm-internal.lisp (managed-window-p): Handle the case
778 (place-frame): Check if frame and parent are frames.
780 * src/clfswm-info.lisp (info-mode): display all frame info before
783 * src/clfswm-second-mode.lisp (second-key-mode): display all frame
786 * src/clfswm-internal.lisp (display-all-frame-info): New function.
788 2008-05-02 Philippe Brochard <pbrochard@common-lisp.net>
790 * src/tools.lisp (getenv): Implemented for ECL.
791 (urun-prog): Implemented for ECL.
793 * src/clfswm-util.lisp (identify-key): Use a double buffer to
796 * src/clfswm-query.lisp (query-string): Use a double buffer to
799 * src/clfswm-info.lisp (draw-info-window): Use a double buffer to
802 * src/xlib-util.lisp (clear-pixmap-buffer, copy-pixmap-buffer):
805 2008-05-01 Philippe Brochard <pbrochard@common-lisp.net>
807 * src/clfswm-info.lisp (info-mode): Add boundaries in the info mode window.
809 * src/menu-def.lisp: New file: move all menu definition in
812 * src/clfswm-layout.lisp (register-layout): Use a function instead
815 2008-04-30 Philippe Brochard <pbrochard@common-lisp.net>
817 * src/clfswm-autodoc.lisp (produce-menu-doc,
818 (produce-menu-doc-html): New functions.
819 (produce-doc-*): Moved to clfswm-autodoc.lisp.
821 * src/clfswm-util.lisp (paste-selection-no-clear): Prevent to
822 paste a child on one of its own children. (this prevent a
824 (move-child-to): Rename move/copy-current-child-by to
826 (mouse-move-window-over-frame): New function to move the window
827 under the mouse cursor to another frame.
829 * src/clfswm-internal.lisp (find-child-in-parent): New function.
831 2008-04-29 Philippe Brochard <pbrochard@common-lisp.net>
833 * src/clfswm-internal.lisp (show-all-children): Display unmanaged
834 windows only when its window parent is the current child.
836 2008-04-28 Philippe Brochard <pbrochard@common-lisp.net>
838 * src/clfswm-util.lisp (manage-current-window)
839 (unmanage-current-window): New functions: Allow to force to manage
840 or unmanage a window by its parent frame.
842 * src/bindings-second-mode.lisp (#\o): binded to
843 set-open-in-new-frame-in-parent-frame-nw-hook and
844 (#\o :control) to set-open-in-new-frame-in-root-frame-nw-hook
846 * src/clfswm-util.lisp (with-current-window): New macro.
848 * src/xlib-util.lisp (move-window, resize-window): Remove uneeded
849 exposure and enter-window handle event.
851 * src/clfswm-util.lisp (move-frame, resize-frame): Show all
852 children for the current child after the move/resize.
854 2008-04-27 Philippe Brochard <pbrochard@common-lisp.net>
856 * src/xlib-util.lisp (resize-window): Take care of window size
859 * src/clfswm-util.lisp (mouse-focus-move/resize-generic): Allow to
860 move/resize unmanaged windows.
862 * src/xlib-util.lisp (move-window, resize-window): New functions.
864 2008-04-25 Philippe Brochard <pbrochard@common-lisp.net>
866 * src/clfswm-util.lisp (current-frame-manage-window-type): Let the
867 user choose what window type the current frame must handle.
868 (display-current-window-info): New function.
869 (current-frame-manage-all-window-type)
870 (current-frame-manage-only-normal-window-type)
871 (current-frame-manage-no-window-type): New functions.
873 * src/clfswm-internal.lisp (managed-window-p): New function.
875 * src/package.lisp (frame): Managed type: new frame
876 parameter. This allow to choose what window type a frame must
879 * src/*.lisp: Rename all 'father' occurrences to 'parent'.
881 * src/clfswm-nw-hooks.lisp
882 (open-in-new-frame-in-parent-frame-nw-hook): New new window hook.
884 * src/clfswm-util.lisp (adapt-current-frame-to-window-hints): New
887 * src/tools.lisp (ensure-printable): Return always a string even
890 2008-04-24 Philippe Brochard <pbrochard@common-lisp.net>
892 * src/config.lisp (*default-nw-hook*): New variable to change the
893 default new window hook.
895 2008-04-22 Philippe Brochard <pbrochard@common-lisp.net>
897 * clfswm.asd (clfswm): Add a dependency from
898 clfswm-second-mode.lisp to clfswm.lisp.
900 * src/clfswm-util.lisp (identify-key): Show the documentation for
901 the function bound on a key.
902 (with-movement): Move with-movement,
903 current-frame-fill/pack/resize-* from bindings-second-mode.lisp
906 * src/clfswm-menu.lisp: New menu system that let user change keys
907 or functions associated to keys.
909 2008-04-18 Philippe Brochard <pbrochard@common-lisp.net>
911 * src/clfswm-internal.lisp (show-all-children): Display-child is
912 the first child by default. Solve a bug with father-p.
914 2008-04-17 Philippe Brochard <pbrochard@common-lisp.net>
916 * src/clfswm-internal.lisp (add-frame): Add frame return the
918 (show-all-children): Move the size computation outside the
921 * src/bindings-second-mode.lisp (with-movement): Redisplay only
924 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Redisplay
925 only the current child.
927 * src/clfswm-internal.lisp (show-all-children): New display-child
928 parameter to display only the desired child and its children.
929 (select-next/previous-child): Only display the current child.
931 2008-04-14 Philippe Brochard <pbrochard@common-lisp.net>
933 * src/clfswm.lisp (init-display): Move the default frame creation
934 on the default init hook.
936 * src/clfswm-keys.lisp (define-ungrab/grab): Handle all keysyms in
937 the main mode (for example: "1" on an azerty keyboard).
939 2008-04-13 Philippe Brochard <pbrochard@common-lisp.net>
941 * src/clfswm-keys.lisp (find-key-from-code): Better handle of
942 keysyms. Revert to old grabbing method for the main mode.
944 2008-04-12 Philippe Brochard <pbrochard@common-lisp.net>
946 * src/clfswm.lisp (init-display): Add key handling on no focus
947 window and on frame windows.
949 2008-04-11 Philippe Brochard <pbrochard@common-lisp.net>
951 * src/clfswm.lisp (main): Keyboard handle strategie change: Grab
952 all keys by default and replay just what is needed. No change for
955 * src/clfswm-keys.lisp: remove grab/ungrab main keys.
956 (find-key-from-code): Test for shift and not shift presence.
958 2008-04-09 Philippe Brochard <pbrochard@common-lisp.net>
960 * src/clfswm-internal.lisp (switch-to-root-frame): show later -
961 new key parameter to have less flickering.
963 2008-04-07 Philippe Brochard <pbrochard@common-lisp.net>
965 * src/bindings-second-mode.lisp (frame-layout-once-menu): Set the
966 layout only one time and revert to no-layout to freely handle
969 * src/clfswm-nw-hooks.lisp
970 (open-in-new-frame-in-root-frame-nw-hook): Tile layout with spaces
971 with new created window.
973 * src/clfswm-layout.lisp (register-layout): Now register
974 automatically a once layout to set the layout only one time and
975 revert to no-layout to freely handle frames.
977 2008-04-05 Philippe Brochard <pbrochard@common-lisp.net>
979 * src/clfswm-nw-hooks.lisp (leave-focus-frame-nw-hook): New
980 nw-hook: Open the next window in the current frame and leave the
981 focus to the current child.
983 2008-04-04 Philippe Brochard <pbrochard@common-lisp.net>
985 * src/bindings-second-mode.lisp: Add keys definitions to
986 bind-or-jump in the second mode.
988 * src/clfswm-util.lisp (bind-or-jump): remove the auto-defining
989 macro for bind-or-jump-(1|2|3...).
991 * src/clfswm-keys.lisp (define-define-key/mouse): Allow additional
992 arguments to function. This allow to do things like:
993 (define-main-key (key) 'my-function 10 20 'foo) -> 10 20 and 'foo
994 are passed to my-function on key press.
996 2008-04-03 Philippe Brochard <pbrochard@common-lisp.net>
998 * src/clfswm-util.lisp (bind-or-jump): New (great) function.
1000 2008-04-02 Philippe Brochard <pbrochard@common-lisp.net>
1002 * src/clfswm-internal.lisp (child-fullname): New function
1004 * src/clfswm-info.lisp (info-mode-menu): Add an explicit optional
1005 docstring in info-mode-menu. An item can be
1006 '((key function) (key function)) or with docstring
1007 '((key function "documentation 1") (key function "bla bla") (key function))
1009 * src/tools.lisp (ensure-n-elems): New function.
1011 * src/bindings-second-mode.lisp: Bind Alt+mouse-1/3 to move or
1012 resize a frame or the window's father.
1014 * src/clfswm.lisp (init-display): Remove tile-space-layout by
1015 default on the root frame.
1017 * src/clfswm-util.lisp (move/resize-frame): Add standard event
1018 hooks handlers (map-request, configure-notify...)
1020 * src/clfswm-internal.lisp (adapt-child-to-father): Limit minimal
1023 2008-04-01 Philippe Brochard <pbrochard@common-lisp.net>
1025 * src/bindings.lisp: Bind Alt+mouse-1/3 to move or resize a frame
1026 or the window's father.
1028 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Stop button
1029 event only if there is a geometry change.
1030 (mouse-focus-move/resize-generic): Generic function to move or
1031 resize a frame or a window father frame.
1033 2008-04-01 Philippe Brochard <pbrochard@common-lisp.net>
1035 * src/clfswm-internal.lisp (show-all-children): Return t if there
1036 is a geometry change.
1038 2008-03-30 Philippe Brochard <pbrochard@common-lisp.net>
1040 * src/bindings.lisp (Up/Down): Swap select previous/next level.
1042 * src/bindings-second-mode.lisp (Up/Down): Swap select previous/next level.
1044 * src/clfswm.lisp (init-display): Create a default frame in the root frame.
1046 * src/clfswm-internal.lisp (place-frame): Place frame from real (pixel) coordinates.
1047 (with-all-*): Reverse the child list to manage the first child last (like in
1050 * src/config.lisp (*create-frame-on-root*): New variable: Create a new frame on the
1051 root window only if true.
1053 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Create a new frame on the
1054 root window only if *create-frame-on-root* is true.
1056 * src/bindings-second-mode.lisp (sm-mouse-click-to-focus-generic): Create a new frame
1059 2008-03-29 Philippe Brochard <pbrochard@common-lisp.net>
1061 * src/bindings-second-mode.lisp (sm-mouse-click-to-focus-generic): Focus, move and resize
1062 the current child (even if it's a window).
1064 2008-03-28 Philippe Brochard <pbrochard@common-lisp.net>
1066 * src/clfswm-util.lisp (mouse-click-to-focus-and-move)
1067 (mouse-click-to-focus-and-resize): New functions.
1069 * src/clfswm-internal.lisp (*-fl->px): Convert float coordinates to pixel.
1070 (*-px->fl): Convert pixel coordinates to float.
1072 * src/tools.lisp (call-hook): Move call-hook to tools.lisp.
1074 2008-03-27 Philippe Brochard <pbrochard@common-lisp.net>
1076 * src/clfswm-layout.lisp (no-layout): Use :first-only to raise only the
1079 * src/clfswm-internal.lisp (hide-all): Split hide-all-children in hide-all
1080 and hide-all-children.
1081 (raise-if-needed): New function.
1082 (show-child): Use a first-p parameter to raise windows only when they are
1085 2008-03-26 Philippe Brochard <pbrochard@common-lisp.net>
1087 * src/clfswm-internal.lisp (select-next/previous-level): Don't use show-all-children
1090 2008-03-25 Philippe Brochard <pbrochard@common-lisp.net>
1092 * src/clfswm-info.lisp (keys-from-list): new function.
1094 * src/*: rename 'childs' in 'children'.
1096 * src/*: rename 'group' in 'frame'.
1098 2008-03-22 Philippe Brochard <pbrochard@common-lisp.net>
1100 * src/clfswm-pack.lisp (explode-group/explode-current-group): new functions.
1102 2008-03-21 Philippe Brochard <pbrochard@common-lisp.net>
1104 * src/clfswm-pack.lisp: Pack, Fill, Resize functions.
1106 2008-03-16 Philippe Brochard <pbrochard@common-lisp.net>
1108 * src/clfswm-nw-hooks.lisp: Register system for new window hooks.
1109 Bind control+o to open the next window in a new group in the root group
1110 (as open in next window in a new workspace in 0801 version).
1112 2008-03-15 Philippe Brochard <pbrochard@common-lisp.net>
1114 * src/clfswm-util.lisp (show/hide-all-groups-info/key): Show/hide all groups info
1117 2008-03-14 Philippe Brochard <pbrochard@common-lisp.net>
1119 * bindings-second-mode.lisp ("ISO_Left_Tab"): Use ISO_Left_Tab
1120 instead of Tab for select-previous-child.
1122 2008-03-13 Philippe Brochard <pbrochard@common-lisp.net>
1124 * clfswm-util.lisp (force-window-in-group/force-window-center-in-group):
1127 2008-03-11 Philippe Brochard <pbrochard@common-lisp.net>
1129 * clfswm-util.lisp (identify-key): Display the documentation
1130 associated to keys when identifying a key.
1132 2008-03-10 Xavier Maillard <xma@gnu.org>
1134 * contrib/clfswm: Complete rewrite of the script. Detect error and
1135 act accordingly. Add command line arguments to configure the
1136 script execution. User can now choose different common lisp
1137 implementation (clisp and sbcl only), choose where to store the
1138 dumped image, where to find clfswm source.
1140 2008-03-09 Philippe Brochard <pbrochard@common-lisp.net>
1142 * clfswm-internal.lisp (process-new-window): Beginning of new
1143 window hook: each group have a hook to tell what he wants to do
1144 with the new created window.
1146 2008-03-08 Xavier Maillard <xma@gnu.org>
1148 * contrib/clfswm: New script. Dump a CLISP image of CLFSWM then
1149 call the resulting executable.
1151 * clfswm.lisp (read-conf-file): Check for the user config file in
1152 XDG_CONFIG_HOME *first*. Freedesktop.org standards should be
1153 prefered whenever possible.
1155 2008-02-27 Philippe Brochard <pbrochard@common-lisp.net>
1157 * clfswm-layout.lisp (*-layout): Add an optional raise-p
1158 parameter in each layout.
1160 2008-02-26 Philippe Brochard <pbrochard@common-lisp.net>
1162 * clfswm-util.lisp (copy/cut-current-child): Does not affect the
1164 (copy/move-current-child-by-name/number): new functions
1165 (focus-group-by-name/number): new functions
1166 (delete-group-by-name/number): new functions
1168 2008-02-24 Philippe Brochard <pbrochard@common-lisp.net>
1170 * ************************************************************ *
1171 *: Major update - No more reference to workspaces. The main *
1172 structure is a tree of groups or application windows. *
1173 * ************************************************************ *
1175 2008-02-07 Philippe Brochard <pbrochard@common-lisp.net>
1177 * clfswm.lisp (read-conf-file): Read configuration in
1178 $HOME/.clfswmrc or in /etc/clfswmrc or in
1179 $XDG_CONFIG_HOME/clfswm/clfswmrc.
1180 (xdg-config-home): Return the content of $XDG-CONFIG-HOME (default
1183 2008-01-18 Philippe Brochard <pbrochard@common-lisp.net>
1185 * clfswm-internal.lisp (show-all-group): Use *root* and *root-gc*
1188 2008-01-03 Philippe Brochard <pbrochard@common-lisp.net>
1190 * clfswm-internal.lisp (find-window-group): New function.
1192 * clfswm*: Change to make clfswm run with clisp/new-clx.
1194 2008-01-01 Philippe Brochard <pbrochard@common-lisp.net>
1196 * clfswm-util.lisp (query-show-paren): Add show parent matching in
1198 (query-string): Bind control+k to delete end of line.
1200 * clfswm-second-mode.lisp (draw-second-mode-window): Display
1201 the action on mouse motion in second mode.
1203 * clfswm.lisp (handle-exposure): Redisplay groups on exposure
1204 event but do not clear the root window.
1205 (handle-configure-request): Adjust unmanaged window from there
1208 * clfswm-internal.lisp (process-new-window): Adjust new window
1209 with the specified hints (max/min/base width/height).
1211 2007-12-31 Philippe Brochard <pbrochard@common-lisp.net>
1213 * clfswm.lisp (handle-configure-request): Send an Configuration
1214 Notify event. This solve a bug with xterm and rxvt who takes some
1215 times to be mapped. Now there is no delay.
1217 * bindings-second-mode.lisp (define-shell): Run programs after
1218 living the second mode.
1220 2007-12-30 Philippe Brochard <pbrochard@common-lisp.net>
1222 * clfswm-internal.lisp (process-new-window): Do not crop transient
1223 window to group size.
1224 (adapt-window-to-group): Do not crop transient window to group
1227 * clfswm.lisp (handle-configure-request): Adapt just the window to
1228 its group and don't take care of the configure request. Remove the
1229 bug with the Gimp outside the group and speed up the window
1231 (handle-exposure): Remove show-all-group on exposure event
1234 2007-12-29 Philippe Brochard <pbrochard@common-lisp.net>
1236 * clfswm-util.lisp (circulate-group-up-copy-window)
1237 (circulate-group-down-copy-window)
1238 (circulate-workspace-up-copy-group)
1239 (circulate-workspace-down-copy-group): Prevent the copy of the
1240 same window in the same workspace.
1242 * bindings-second-mode.lisp (release-copy-selected-window)
1243 (release-copy-selected-group): Prevent the copy of the same window
1244 in the same workspace.
1246 * clfswm-pager.lisp (generic-pager-move-window-on-previous-line)
1247 (generic-pager-move-window-on-next-line): Remove the copy
1249 (generic-pager-move-group-on-next-workspace)
1250 (generic-pager-move-group-on-previous-workspace): Prevent the copy
1251 of the same window in the same workspace.
1253 * bindings-pager.lisp (mouse-pager-copy-selected-window-release)
1254 (mouse-pager-copy-selected-group-release): Prevent the copy of the
1255 same window in the same workspace.
1257 * tools.lisp (setf/=): new macro to set a variable only when
1260 * clfswm-internal.lisp (adapt-window-to-group): use set/= to set
1261 x, y... only when necessary.
1263 2007-12-28 Philippe Brochard <pbrochard@common-lisp.net>
1265 * clfswm.lisp (handle-configure-notify, *configure-notify-hook*):
1266 new function and hook: force windows to stay in its group (solve a
1269 2007-12-25 Philippe Brochard <pbrochard@common-lisp.net>
1271 * bindings-second-mode.lisp (mouse-motion): use hide-group to have
1272 less flickering when moving/resizing groups.
1274 * clfswm-internal.lisp (hide-group): new function.
1275 (show-all-group): clear-all: new parameter.
1277 2007-12-22 Philippe Brochard <pbrochard@common-lisp.net>
1279 * clfswm-keys.lisp (define-define-key): undefine-*-multi-name: new
1281 * clfswm*: Color change for the pager. Typo or better description
1282 in bindings definitions. Define bindings for a qwerty keyboard by
1283 default. dot-clfswmrc show examples to switch to an azerty
1285 License change to GPL v3.
1286 * config.lisp: new file - group all globals variables in this
1289 2007-08-26 Philippe Brochard <pbrochard@common-lisp.net>
1291 * xlib-util.lisp (hide-window): Remove structure-notivy events
1292 when hidding a window.
1294 2007-05-16 Philippe Brochard <pbrochard@common-lisp.net>
1296 * package.lisp (*sm-property-notify-hook*): Readded
1297 property-notify-hook in second mode.
1299 2007-05-15 Philippe Brochard <pbrochard@common-lisp.net>
1301 * clfswm-keys.lisp (produce-doc-html): Better clean up for strings.
1303 2007-05-13 Philippe Brochard <pbrochard@common-lisp.net>
1305 * clfswm-pack.lisp (tile-current-workspace-to/right/left/top/bottom):
1306 Tile the current workspace with the current window on one side and
1307 others on the other (this emulate the larswm, dwm, wmii way). See
1308 the default configuration file to enable this mode by default.
1310 * clfswm-pager.lisp (pager-tile-current-workspace-to): idem for
1313 2007-05-12 Philippe Brochard <pbrochard@common-lisp.net>
1315 * clfswm-pager.lisp (pager-draw-window-in-group): Add
1316 ensure-printable to print windows name even with non-ascii
1319 2007-05-11 Philippe Brochard <pbrochard@common-lisp.net>
1321 * clfswm-pager.lisp (pager-explode-current-group): Create a new
1322 group for each window in group.
1323 (pager-implode-current-group): Move all windows in workspace to
1324 one group and remove other groups.
1326 * clfswm-pack.lisp (explode-group): Create a new group for each
1328 (implode-group): Move all windows in workspace to one group and
1329 remove other groups.
1331 * clfswm-util.lisp (identify-key): Remove local configuration
1332 variables and made them available for configuration from
1334 (query-string): idem.
1336 2007-04-29 Philippe Brochard <pbrochard@common-lisp.net>
1338 * netwm-util.lisp: Start of NetWM compliance.
1339 Add a Netwm client list gestion.
1341 2007-04-28 Philippe Brochard <pbrochard@common-lisp.net>
1343 * clfswm-internal.lisp (create-group-on-request): open a new group
1344 only when the current group is not empty.
1346 * bindings-second-mode.lisp (define-second-key-#\o-control): Fix a
1347 bug with null workspace.
1349 * clfswm-pager.lisp (pager-handle-event): Add a hook
1350 system. This hooks can be changed in the user configuration file.
1352 * package.lisp: All colors and font variables are set in
1353 package.lisp and can be configured in the user configuration
1355 Note: If you have configured some less ugly colors (esp. for the
1356 pager) don't hesitate to let me know :)
1358 * clfswm-second-mode.lisp (sm-handle-event): Add a hook
1359 system. This hooks can be changed in the user configuration file.
1361 * clfswm.lisp (handle-event): Add a hook system. This hooks can be
1362 changed in the user configuration file (~/.clfswmrc)
1364 2007-04-25 Philippe Brochard <pbrochard@common-lisp.net>
1366 * clfswm-util.lisp (stop-all-pending-actions): new function: reset
1367 arrow action, open next window in new workspace/group.
1369 * bindings.lisp (stop-all-pending-actions): new binding.
1370 (open-next-window-in-new-group-once): Open the next windows in a
1371 new group (only once) or open all new windows in a new group (like
1372 others windows managers).
1374 2007-04-22 Philippe Brochard <pbrochard@common-lisp.net>
1376 * clfswm.lisp (read-conf-file): New function to read a lisp
1377 configuration file at startup.
1378 (focus-group-under-mouse): Check if group isn't the current group
1379 ( prevent a bug with unclutter ).
1381 2007-03-02 Philippe Brochard <pbrochard@common-lisp.net>
1383 * bindings.lisp (run-program-from-query-string): A program can be
1384 launch from a input query window.
1386 2007-03-01 Philippe Brochard <pbrochard@common-lisp.net>
1388 * clfswm-info.lisp: Fix a bug with banish pointer in info mode.
1390 2007-02-28 Philippe Brochard <pbrochard@common-lisp.net>
1392 * clfswm.lisp (process-new-window): One can now open the next
1393 window in a workspace called by its number.
1395 * clfswm-util.lisp (query-font-string): Minimal editing
1397 (eval-from-string): And an REPL in the window manager... :)
1399 2007-02-26 Philippe Brochard <pbrochard@common-lisp.net>
1401 * clfswm.lisp (process-new-window): One can now open the next
1402 window in a new workspace or a new group.
1404 * clfswm-pager.lisp (pager-mode): Display the next arrow action
1405 with the hidden windows.
1407 * clfswm.lisp (second-key-mode): Display the current workspace
1408 number and the next arrow action in the state window.
1410 * clfswm-pager.lisp (pager-mode): Hide all windows before leaving
1411 the pager mode and then redisplay only the current workspace.
1413 2007-02-25 Philippe Brochard <pbrochard@common-lisp.net>
1415 * clfswm.lisp (add-workspace): Workspaces are now numbered. So
1416 they can be focused with a keypress, sorted or renumbered.
1418 2007-02-24 Philippe Brochard <pbrochard@common-lisp.net>
1420 * clfswm-pager.lisp (pager-mode): Remove multiple silly
1421 pager-draw-display. This prevent a lot of flickering in the
1424 * clfswm.lisp: Remove all display-force-output and replace them
1425 with only one display-finish-output in the event loop.
1427 2006-11-06 Philippe Brochard <pbrochard@common-lisp.net>
1429 * clfswm-pager.lisp (pager-center-group): New function - center a
1430 group at the middle of the screen.
1432 * clfswm-pack.lisp (center-group): New function - center a group
1433 at the middle of the screen.
1435 * clfswm.lisp (show-group): Add a cross line under the group.
1436 (show-group): Group are showned even if fullscreened.
1437 (init-display): Add an exposure event on the root window.
1439 2006-11-05 Philippe Brochard <pbrochard@common-lisp.net>
1441 * package.lisp (*default-group*): Default group is the same size
1442 of a fullscreened group.
1444 * bindings*: Use shift to move, control+shift to copy.
1446 * *.lisp: Add comments for configuration or alternatives. So grep
1447 for CONFIG to see where you can configure clfswm. And grep for
1448 Alternative to use some commented code.
1450 * clfswm.lisp (second-key-mode): Use a single window to show the
1451 second mode. See for alternatives at the end of this file.
1453 2006-11-03 Philippe Brochard <pbrochard@common-lisp.net>
1455 * clfswm-keys.lisp (define-define-key/mouse): Factorisation in a
1456 macro of key and mouse definitions.
1457 (define-define-key/mouse): Use state instead of modifiers list
1458 this fix a bug when the modifiers list is not in the rigth order.
1460 * clfswm.lisp (second-key-mode): Add a colored border in second mode.
1462 2006-11-02 Philippe Brochard <pbrochard@common-lisp.net>
1464 * clfswm-info.lisp (info-mode): Add an info mode.
1466 2006-11-01 Philippe Brochard <pbrochard@common-lisp.net>
1468 * clfswm.lisp (process-new-window): Change border size for
1470 (show-all-windows-in-workspace): Unhide all windows even when the
1471 current group is in fullscreen mode.
1473 2006-10-26 Philippe Brochard <pbrochard@common-lisp.net>
1475 * clfswm-util.lisp (identify-key): Add an exposure handle-event to
1476 redisplay the identify window after a terminal switch.
1478 * clfswm-pager.lisp (pager-mode): Add an exposure handle-event to
1479 redisplay the pager after a terminal switch.
1481 2006-10-24 Philippe Brochard <pbrochard@common-lisp.net>
1483 * clfswm-util.lisp (identify-key): Add a window to display
1484 the keys to identify on screen.
1486 * bindings.lisp, bindings-pager.lisp: Define same keys to
1487 move/copy groups/windows in second mode and in pager.
1489 * clfswm.lisp (handle-event*): Same version in all clfswm (fix some
1491 (show-all-windows-in-workspace): unhide window before adapting it
1494 2006-10-23 Philippe Brochard <pbrochard@common-lisp.net>
1496 * clfswm.lisp (handle-event): Revert to an older version.
1498 2006-10-18 Philippe Brochard <pbrochard@common-lisp.net>
1500 * clfswm-util.lisp (force-window-in-group)
1501 (force-window-center-in-group): New functions for transient windows.
1503 * clfswm-pager.lisp (pager-remove-current-workspace/group):
1504 bugfix: hide all windows before removing group or workspace.
1506 2006-10-17 Philippe Brochard <pbrochard@common-lisp.net>
1508 * bindings-pager.lisp (mouse-pager-move-selected-group)
1509 (mouse-pager-copy-selected-group)
1510 (mouse-pager-move-selected-window)
1511 (mouse-pager-copy-selected-window, mouse-pager-rotate-window-up)
1512 (mouse-pager-rotate-window-down): New functions to have mouse in
1515 * clfswm-pager.lisp (pager-swap-window)
1516 (pager-copy-group-on-next/previous-workspace)
1517 (pager-copy-window-on-next/previous-line): New functions
1519 2006-10-15 Philippe Brochard <pbrochard@common-lisp.net>
1521 * clfswm-pager.lisp (pager-move-window-on-next/previous-line,
1522 (pager-move-group-on-next/previous-workspace): new functions.
1524 * clfswm-pack.lisp (resize-half-x-x-current-group): resize group
1525 to its half size (new functions).
1527 2006-10-11 Philippe Brochard <pbrochard@common-lisp.net>
1529 * clfswm-pager.lisp: workspaces, groups and windows can now be
1530 selectionned with the keyboard or the mouse.
1532 2006-10-09 Philippe Brochard <pbrochard@common-lisp.net>
1534 * clfswm-pager.lisp (pager-select-workspace-right/left):
1535 workspaces can now be selectionned with the keyboard.
1537 2006-10-08 Philippe Brochard <pbrochard@common-lisp.net>
1539 * clfswm-keys.lisp (undefine-main-key, undefine-second-key, undefine-mouse-action):
1540 new function to remove a previous defined key or mouse combination.
1542 2006-10-07 Philippe Brochard <pbrochard@common-lisp.net>
1544 * clfswm.lisp (main): Check for access error in init-display.
1546 * clfswm-keys.lisp (define-ungrab/grab): check for keysym and
1547 keycode before grabbing.
1549 * bindings.lisp: Remove nlambda and use defun to keep the function
1550 documentation with clisp.
1551 (define-shell): new macro to define shell command for the second
1554 2006-10-06 Philippe Brochard <pbrochard@common-lisp.net>
1556 * clfswm-keys.lisp (define-ungrab/grab): use a cond instead of a
1559 2006-10-05 Philippe Brochard <pbrochard@common-lisp.net>
1561 * bindings.lisp (accept-motion): Move group bugfix in upper mouse
1562 workspace circulation.
1564 * clfswm-util.lisp (absorb-orphan-window): new function.
1566 * clfswm-keys.lisp: Keysyms support.
1568 2006-10-02 Philippe Brochard <pbrochard@common-lisp.net>
1570 * clfswm.lisp (show-group): Use one gc for all groups and not one
1573 2006-10-01 Philippe Brochard <pbrochard@common-lisp.net>
1575 * bindings.lisp (define-second-key (#\l :mod-1)): fix a typo.
1577 * clfswm.lisp (adapt-window-to-group): Adapt only windows with
1578 width and height outside group.
1580 2006-09-28 Philippe Brochard <pbrochard@common-lisp.net>
1582 * clfswm.lisp: First public release.