1 2010-08-28 Philippe Brochard <pbrochard@common-lisp.net>
3 * src/clfswm.lisp (main-loop): Ensure that all events have been
4 processed after a process-event.
6 * src/clfswm-internal.lisp (is-in-current-child-p): New function.
8 2010-08-27 Philippe Brochard <pbrochard@common-lisp.net>
10 * src/clfswm.lisp (main-mode:configure-request): Raise the window
11 only when present on the current child and focus it accordingly.
13 2010-08-26 Philippe Brochard <pbrochard@common-lisp.net>
15 * src/clfswm-circulate-mode.lisp (circulate-loop-function):
16 Use is-a-key-pressed-p.
18 * src/xlib-util.lisp (is-a-key-pressed-p): New predicate.
20 * src/clfswm-keys.lisp (define-ungrab/grab): Use all values
21 returned by xlib:keysym->keycodes.
23 * src/*.lisp: Use the new child-equal-p to compare children. This
24 prevent a bug with sbcl/cmucl when the standard equal function
25 does not work with xlib:window.
27 * src/clfswm-internal.lisp (child-equal-p): New predicate.
29 2010-08-25 Philippe Brochard <pbrochard@common-lisp.net>
31 * src/clfswm-generic-mode.lisp (generic-mode): Use an
32 xlib:event-listen before processing event with
33 xlib:process-event. This prevent a bug with CLX threaded
34 implementation like sbcl.
36 * src/clfswm.lisp (main-loop): Use an xlib:event-listen before
37 processing event with xlib:process-event. This prevent a bug with
38 CLX threaded implementation like sbcl.
40 2010-08-17 Philippe Brochard <pbrochard@common-lisp.net>
42 * contrib/server/key.lisp (ushell-sh): Add ccl and ecl support.
44 * src/xlib-util.lisp (compress-motion-notify): Use a loop instead
47 * src/clfswm-internal.lisp (with-find-in-all-frames): New macro.
48 (find-parent-frame, find-frame-window, find-frame-by-name)
49 (find-frame-by-number): Use with-find-in-all-frames to search in
50 frames in the right order.
52 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Fix an
53 unwanted flickering with unmanaged windows.
55 2010-08-16 Philippe Brochard <pbrochard@common-lisp.net>
57 * src/package.lisp: Remove event handler hooks as they're not
58 needed anymore (To replace them: use closure and define-handler).
60 * src/xlib-util.lisp (move-window, resize-window)
61 (wait-mouse-button-release): Use a generic mode.
63 * src/*.lisp: Replace the case to handle event with a more (tricky)
64 lispy method which bind a function to each keywords associated
67 2010-07-23 Philippe Brochard <pbrochard@common-lisp.net>
69 * src/clfswm-util.lisp (delete-current-child): Invert bindings and
70 menu entry between delete-current-child and remove-current-child.
71 ie: Delete a child and its children in all frames by default.
73 2010-07-21 Philippe Brochard <pbrochard@common-lisp.net>
75 * src/package.lisp: Add a placement configuration group.
77 * src/binding*.lisp: Bind control+g to escape the current action
80 * src/clfswm-internal.lisp
81 (delete-child-and-children-in-all-frames): New function and
82 binding: Second mode - Control+Delete delete the current child and
83 its children in all frames (ie: close the current child and its
86 2010-07-20 Philippe Brochard <pbrochard@common-lisp.net>
88 * src/clfswm-internal.lisp (remove-child-in-frame): Do not destroy
89 the frame window and the frame gc. Close a very annoying bug when
90 cuting/pasting a frame or moving a child over frames with the
93 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Redisplay
94 all children in *current-root* after moving/resizing a frame.
96 2010-07-18 Philippe Brochard <pbrochard@common-lisp.net>
98 * src/clfswm-util.lisp (delete-focus-window)
99 (destroy-focus-window): Remove child in parent frame before
102 2010-07-16 Philippe Brochard <pbrochard@common-lisp.net>
104 * src/clfswm-util.lisp (identify-key): Add a timeout in
106 (mouse-click-to-focus-generic): Use find-child-under-mouse instead
107 of the window passed by xlib:process-event.
109 * src/xlib-util.lisp (move-window, resize-window)
110 (wait-mouse-button-release): Add a timeout in xlib:process-event.
112 2010-04-11 Philippe Brochard <pbrochard@common-lisp.net>
114 * src/clfswm-util.lisp (run-other-window-manager): Add the ability
115 to launch an other window manager and to return to clfswm.
117 2010-03-18 Philippe Brochard <pbrochard@common-lisp.net>
119 * src/clfswm-layout.lisp (set-tile-space-layout): Set default
122 2009-12-15 Philippe Brochard <pbrochard@common-lisp.net>
124 * src/clfswm.lisp (main-loop): Add a *loop-hook* parameter and a
127 * src/clfswm-generic-mode.lisp (generic-mode): Add a loop-hook
128 parameter and a loop timeout.
130 2009-12-05 Philippe Brochard <pbrochard@common-lisp.net>
132 * src/clfswm.lisp (main): Add an alternate configuration filename
135 * load.lisp: Add a debuging code example.
137 2009-11-14 Philippe Brochard <pbrochard@common-lisp.net>
139 * src/clfswm-configuration.lisp (create-configuration-menu): New
140 menu to configure all clfswm variables while clfswm is running.
142 2009-11-12 Philippe Brochard <pbrochard@common-lisp.net>
144 * src/clfswm-util.lisp (save-configuration-variables): New
145 function to save all configuration variables in clfswmrc.
147 2009-11-11 Philippe Brochard <pbrochard@common-lisp.net>
149 * src/clfswm-info.lisp (info-mode): Begining of mouse support in
151 (set-default-info-keys): Add cursor key support in info mode.
153 2009-11-08 Philippe Brochard <pbrochard@common-lisp.net>
155 * contrib/reboot-halt.lisp: Add a Suspend/Reboot/Halt menu in
158 * src/clfswm.lisp (main): Add a read-conf-file-p parameter to
159 prevent reading the configuration file (this may be useful to
160 produce the original documentation without user modifications
161 with the rc configuration file).
163 2009-11-07 Philippe Brochard <pbrochard@common-lisp.net>
165 * src/bindings-second-mode.lisp (set-default-second-keys):
166 Simplification of Escape key to close/kill/remove the focus window
167 and unhide all windows.
169 * src/bindings.lisp (set-default-main-keys): Simplification of
170 Escape key to close/kill/remove the focus window and unhide all
173 * src/clfswm-util.lisp (ask-close/kill-current-window): Add remove
174 focus and unhide all windows capabilities.
176 2009-10-10 Philippe Brochard <pbrochard@common-lisp.net>
178 * contrib/mpd.lisp (start-gmpc): Add gmpc in the mpd menu.
180 2009-07-29 Philippe Brochard <pbrochard@common-lisp.net>
182 * src/clfswm-layout.lisp (tile-layout, tile-horizontal-layout):
183 Keep child order and don't make unnecessary child movement.
184 (one-column-layout, one-line-layout): New layouts.
186 2009-06-29 Philippe Brochard <pbrochard@common-lisp.net>
188 * contrib/cd-player.lisp: New file to handle the CD player.
190 * contrib/xmms.lisp: New file to handle the xmms player.
192 2009-06-28 Philippe Brochard <pbrochard@common-lisp.net>
194 * src/clfswm-layout.lisp (set-no-layout-remember-size): New layout:
195 Maximize windows in there frame - Leave frames to there actual
198 * src/bindings-second-mode.lisp (set-default-second-keys): Bind
199 "o" on set-open-in-new-frame-in-parent-frame-nw-hook.
201 2009-06-27 Philippe Brochard <pbrochard@common-lisp.net>
203 * contrib/keyb_fr.lisp: New file to handle an azerty keyboard.
205 2009-06-24 Philippe Brochard <pbrochard@common-lisp.net>
207 * contrib/mpd.lisp: Use a standard menu.
209 * src/clfswm-info.lisp: Use a standard menu for the help-menu.
211 2009-06-22 Philippe Brochard <pbrochard@common-lisp.net>
213 * contrib/mpd.lisp: New file to handle the Music Player Daemon (MPD)
215 2009-06-19 Philippe Brochard <pbrochard@common-lisp.net>
217 * src/clfswm-autodoc.lisp (produce-doc, produce-doc-html): Minor
220 2009-06-18 Philippe Brochard <pbrochard@common-lisp.net>
222 * src/config.lisp (get-fullscreen-size): One pixel adjustment
225 * src/clfswm-placement.lisp (*-child-placement): One pixel
228 2009-06-16 Philippe Brochard <pbrochard@common-lisp.net>
230 * src/clfswm-circulate-mode.lisp (draw-circulate-mode-window):
231 Ensure that all characters are printable.
233 * src/config.lisp (get-fullscreen-size): Adjust default fullscreen
236 * src/clfswm-placement.lisp (*-child-placement): Adjust
237 coordinates to one pixel in the current child.
239 2009-06-04 Philippe Brochard <pbrochard@common-lisp.net>
241 * src/clfswm-query.lisp (query-enter-function): Assign font before
242 width and height calculation.
244 2009-06-03 Philippe Brochard <pbrochard@common-lisp.net>
246 * src/xlib-util.lisp (banish-pointer): Use with-placement macro to
247 bannish the pointer in an arbitrary place.
249 * src/clfswm-info.lisp (info-mode): Use with-placement macro to
250 place the info window in an arbitrary place.
252 * src/clfswm-query.lisp (query-enter-function): Use with-placement
253 macro to place the query window in an arbitrary place.
255 * src/clfswm-placement.lisp: New file. Allow to place info windows
256 or query windows on an arbitrary place. Allow to bannish the
257 pointer on an arbitrary place.
259 2009-05-16 Philippe Brochard <pbrochard@common-lisp.net>
261 * src/clfswm-circulate-mode.lisp (reorder-child)
262 (reorder-brother): Unfocus windows before reordering children or
265 2009-05-13 Philippe Brochard <pbrochard@common-lisp.net>
267 * src/clfswm-circulate-mode.lisp (reorder-brother): Ensure that
268 the parent is a frame.
270 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Handle
271 motion with a default modifier.
273 * src/clfswm.lisp (handle-motion-notify): Handle motion with a
276 * src/clfswm-info.lisp (info-mode): Handle motion with a default
278 (info-mode): Optimization in loop function.
280 2009-05-10 Philippe Brochard <pbrochard@common-lisp.net>
282 * src/clfswm-circulate-mode.lisp (reorder-brother): Handle
283 root-frame correctly.
285 * clfswm.asd: Dependency fix for clfswm-generic-mode.
287 * src/clfswm-circulate-mode.lisp (reorder-child)
288 (reorder-brother): Handle empty frames.
289 (reorder-brother): Redisplay only the parent frame of the current
292 * src/clfswm-util.lisp (frame-toggle-maximize): Redisplay only the
293 parent frame of the current frame.
295 2009-05-09 Philippe Brochard <pbrochard@common-lisp.net>
297 * src/clfswm-util.lisp (frame-toggle-maximize): New function:
298 Maximize/Unmaximize the current frame in its parent frame.
300 * src/clfswm-layout.lisp (maximize-layout): New layout: Maximize
301 windows and frames in there parent frame.
303 2009-05-05 Philippe Brochard <pbrochard@common-lisp.net>
305 * src/*.lisp: Add support for Clozure Common Lisp (CCL).
307 * src/clfswm-circulate-mode.lisp (reorder-child)
308 (reorder-brother): Reinitialise on circulate type change
309 child to brother or brother to child.
311 * src/*.lisp (*): Use map-window instead of xlib:map-window. So
312 calls xlib:display-finish-output on each map-request. So speed up
315 * src/xlib-util.lisp (map-window): New function. Call
316 xlib:display-finish-output on each map request.
318 2009-04-28 Philippe Brochard <pbrochard@common-lisp.net>
320 * src/clfswm-second-mode.lisp (sm-handle-motion-notify):
321 Optimisation when drawing second mode window.
323 2009-04-27 Philippe Brochard <pbrochard@common-lisp.net>
325 * src/clfswm-circulate-mode.lisp (circulate-mode): Optimisation in
328 2009-04-22 Philippe Brochard <pbrochard@common-lisp.net>
330 * src/clfswm-util.lisp (run-program-from-query-string): Launch
331 command only with a return validation.
333 2009-04-22 Xavier Maillard <xma@gnu.org>
335 * src/clfswm-query.lisp (query-string): Use a generic mode.
337 2009-04-19 Xavier Maillard <xma@gnu.org>
339 * src/clfswm-info.lisp (info-mode): Use generic-mode for info-mode.
341 2009-04-18 Xavier Maillard <xma@gnu.org>
343 * src/clfswm-generic-mode.lisp (generic-mode): Add a generic mode
344 to define all other modes.
346 2009-04-05 Philippe Brochard <pbrochard@common-lisp.net>
348 * src/package.lisp (): Use *default-font-string* for all
351 * src/clfswm-info.lisp (info-mode): Ensure integer windows size.
353 2009-02-17 Philippe Brochard <pbrochard@common-lisp.net>
355 * src/xlib-util.lisp (null-size-window-p): Better check of null
358 2009-02-14 Philippe Brochard <pbrochard@common-lisp.net>
360 * src/clfswm.lisp (handle-map-request): Add a fix to manage
361 correctly fullscreen windows (SDL particularly).
363 2008-12-20 Philippe Brochard <pbrochard@common-lisp.net>
365 * src/xlib-util.lisp (get-color): Allocate colors only once -> fix
366 a segfault with clisp/new-clx.
368 * src/clfswm.lisp (handle-motion-notify): Add a needed window
371 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Add a
372 needed window argument.
374 2008-10-30 Philippe Brochard <pbrochard@common-lisp.net>
376 * src/xlib-util.lisp (wait-no-key-or-button-press)
377 (wait-a-key-or-button-press): Check buttons press/release correctly"
379 2008-10-28 Philippe Brochard <pbrochard@common-lisp.net>
381 * src/menu-def.lisp: Add children navigation menu in the movement
382 menu (select next/previous child/brother/level).
384 2008-10-26 Philippe Brochard <pbrochard@common-lisp.net>
386 * *: Rename 'sister' frame to 'brother' frame.
388 * src/clfswm-keys.lisp (unalias-modifiers): Convert a modifier
389 alias in a real modifier.
391 * src/package.lisp (*modifier-alias*): New list of modifier alias
392 For example: :alt is :mod-1, :numlock is :mod-2...
394 * src/tools.lisp (remove-hook): New function.
396 * src/clfswm-keys.lisp (with-capslock, without-capslock)
397 (with-numlock, without-cnumlock): New functions.
399 2008-10-25 Philippe Brochard <pbrochard@common-lisp.net>
401 * src/clfswm-info.lisp: Use the *binding-hook* to create info
402 keys and mouse bindings.
404 * src/bindings-second-mode.lisp: Use the *binding-hook* to create
405 second keys and mouse bindings.
407 * src/bindings.lisp: Use the *binding-hook* to create main keys
410 2008-10-10 Philippe Brochard <pbrochard@common-lisp.net>
412 * src/clfswm-menu.lisp (open-menu): Remember parent menu to undo
415 2008-10-09 Philippe Brochard <pbrochard@common-lisp.net>
417 * src/menu-def.lisp: Use a menu instead of a function for the
420 2008-10-08 Philippe Brochard <pbrochard@common-lisp.net>
422 * src/clfswm-util.lisp (show-standard-menu): Display the standard
423 menu from the 'update-menus' command.
425 2008-10-07 Philippe Brochard <pbrochard@common-lisp.net>
427 * src/clfswm-query.lisp (query-string): Do not ungrab keyboard if
428 it's already grabbed.
430 * src/clfswm-internal.lisp (display-frame-info): Use configurable
431 colors and fix a bug with background.
432 (display-frame-info): Set window background when displaying info.
434 2008-10-06 Philippe Brochard <pbrochard@common-lisp.net>
436 * src/xlib-util.lisp (my-character->keysyms): Use a macro to avoid
437 warning with clisp/new-clx.
439 2008-10-04 Philippe Brochard <pbrochard@common-lisp.net>
441 * src/clfswm-util.lisp (jump-to-slot): Prevent to jump on a
444 2008-09-23 Philippe Brochard <pbrochard@common-lisp.net>
445 * *: **** Release 0809 ****
447 2008-09-23 Philippe Brochard <pbrochard@common-lisp.net>
449 * src/clfswm-util.lisp (ensure-unique-name): New function and menu
451 (ensure-unique-number): New function and menu entry.
453 2008-09-22 Philippe Brochard <pbrochard@common-lisp.net>
455 * src/clfswm-nw-hooks.lisp (named-frame-nw-hook): New new window
456 hook: open the next window in a named frame.
457 (numbered-frame-nw-hook): New new window hook: open the next
458 window in a numbered frame.
460 * src/clfswm-query.lisp (query-string): Grab the keyboard in all
461 cases. So query-string can be called even in the main mode.
463 * src/clfswm-internal.lisp (show-all-children): Do not raise a
464 child by default => far less flickering.
466 2008-09-19 Philippe Brochard <pbrochard@common-lisp.net>
468 * src/bindings-second-mode.lisp: Bind "t" to tile-current-frame.
470 * src/menu-def.lisp: Change key binding for the CLFSWM menu
473 * src/xlib-util.lisp (xgrab-pointer): Handle the case where cursor
474 is nil. (workaround on some CLX implementation).
476 2008-09-12 Philippe Brochard <pbrochard@common-lisp.net>
478 * src/menu-def.lisp: Add a menu to set a focus policy for all
481 * src/clfswm-util.lisp (set-focus-policy-generic-for-all)
482 (all-frames-set-*-focus-policy): Set a focus policy for all
485 * src/clfswm.lisp (handle-enter-notify): sloppy-select
486 mode. Select a child and its parents on mouse over.
488 2008-09-03 Philippe Brochard <pbrochard@common-lisp.net>
490 * src/clfswm.lisp (handle-enter-notify): Add a sloppy strict focus
491 policy -> Sloppy focus only for windows in the current frame.
492 (main-unprotected): Exit clfswm on init error (ie: when another
493 window manager is running).
495 * src/clfswm-util.lisp (reset-clfswm): New function.
497 2008-09-02 Philippe Brochard <pbrochard@common-lisp.net>
499 * src/clfswm-menu.lisp (init-menu): New function.
501 * src/clfswm-util.lisp (reload-clfswm): New function to reload
503 (exit-clfswm): Rename quit-clfswm to exit-clfswm.
505 * src/clfswm.lisp (main, main-unprotected): Handle error in a
506 superior main function. Now CLFSWM can't break the X session. It
507 just reinitialize the display and run a new main loop.
509 * src/clfswm-corner.lisp: Make *clfswm-terminal* and
510 *vt-keyboard-on* global to avoid warnings when loading clfswm.
512 * src/clfswm-layout.lisp: Add a specific GIMP layout menu.
513 (help-on-gimp-layout): Describe how to use the GIMP layout.
515 2008-09-01 Philippe Brochard <pbrochard@common-lisp.net>
517 * src/clfswm-layout.lisp (set-gimp-layout): Change the layout to
518 main-window-right-layout. Change the keybinding for (shift)alt+tab
519 to not select windows in the main window lisst.
520 Bind F8 to add a window in the main window list.
521 Bind F9 to remove a window in the main window list.
522 Change the focus policy to :sloppy.
523 (set-previous-layout): Restore the previous layout, keybinding and
526 2008-08-31 Philippe Brochard <pbrochard@common-lisp.net>
528 * src/clfswm-menu.lisp (add-menu-comment): Add comments in menu.
530 * src/clfswm-layout.lisp (main-window-left-layout)
531 (main-window-bottom-layout, main-window-top-layout): New
533 Factorize layouts in menu.
535 2008-08-30 Philippe Brochard <pbrochard@common-lisp.net>
537 * src/clfswm-layout.lisp (main-window-right-layout): A possible
538 GIMP layout: one or more main windows on one side of the
539 frame. Others on the other size.
541 * src/clfswm-util.lisp
542 (current-frame-set-click/sloppy-focus-policy): Each frame can have
543 a different focus policy (one of :click or :sloppy).
544 The default focus policy is set with *default-focus-policy*.
546 2008-08-23 Philippe Brochard <pbrochard@common-lisp.net>
548 * src/clfswm-info.lisp (show-config-variable): New function.
550 2008-08-19 Philippe Brochard <pbrochard@common-lisp.net>
552 * src/clfswm-layout.lisp (tile-horizontal-layout): New layout.
554 * src/clfswm-info.lisp: Colored help for key binding and corners
557 2008-08-18 Philippe Brochard <pbrochard@common-lisp.net>
559 * src/clfswm-util.lisp (delete-focus-window)
560 (destroy-focus-window): Remove chid only in
561 handle-unmap/destroy-notify. Focus *current-root* only when
562 closing/killing the current child.
564 * src/clfswm-autodoc.lisp (produce-corner-*-doc): New autodoc
565 functions or corners.
567 2008-08-17 Philippe Brochard <pbrochard@common-lisp.net>
569 * src/clfswm-corner.lisp (present-clfswm-terminal): New corner
570 action: Hide/Unhide a terminal on mouse corner action. (By default
571 right mouse button on the top left corner).
573 * src/config.lisp (*never-managed-window-list*): New config
576 * src/clfswm-internal.lisp (never-managed-window-p): New function:
577 Handle never managed window in a more simple way.
579 * src/clfswm-corner.lisp: New file and new and more simple method
580 to define corners actions.
582 2008-08-15 Philippe Brochard <pbrochard@common-lisp.net>
584 * src/clfswm-info.lisp (info-mode): Info line can now be colored.
586 * src/clfswm-layout.lisp (fast-layout-switch)
587 (define-fast-layout-switch): New functions: Switch between two
590 * src/clfswm-second-mode.lisp (leave-second-mode): Takes care if
591 really in the second mode. So leave-second-mode can be used even
594 * src/clfswm-util.lisp (switch-to-last-child): New function:
595 Store the current child and switch to the previous one.
597 2008-07-16 Philippe Brochard <pbrochard@common-lisp.net>
599 * src/clfswm-util.lisp (display-current-window-info): Display the
601 (have-to-present-virtual-keyboard): Add a virtual keyboard corner
602 (top right by default). By default 'xvkbd' is used.
604 2008-06-28 Philippe Brochard <pbrochard@common-lisp.net>
606 * src/xlib-util.lisp (move-window, resize-window): Compress motion
609 * src/clfswm.lisp (handle-motion-notify): Compress motion events.
611 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Compress
614 * src/clfswm-info.lisp (info-mode): Compress motion events.
616 2008-06-21 Philippe Brochard <pbrochard@common-lisp.net>
618 * src/clfswm-internal.lisp (show-all-children): Compute geometry
619 and selection first and then show only necessary children.
620 (show-child): remove unneeded display-p parameter.
622 * src/config.lisp (get-fullscreen-size): Place the frame border
623 outside the screen (this prevent the loose of 2 pixels per
626 2008-06-12 Philippe Brochard <pbrochard@common-lisp.net>
628 * src/clfswm-internal.lisp (focus-child): Algorithm change to
629 raise only the selected child.
631 2008-06-08 Philippe Brochard <pbrochard@common-lisp.net>
633 * src/clfswm-internal.lisp (raise-p-list, show-all-children):
634 Raise only viewable children.
636 2008-06-06 Philippe Brochard <pbrochard@common-lisp.net>
638 * src/clfswm-internal.lisp (show-all-children): Always raise all
639 displayed children. Remove all references to raise-p.
641 2008-06-04 Philippe Brochard <pbrochard@common-lisp.net>
643 * src/menu-def.lisp (child-menu): New menu entry on raise/lower
646 * src/bindings-second-mode.lisp ("Page_Down", "Page_Up"): New
647 second mode binding on raise/lower child in its frame.
649 * src/clfswm-nw-hooks.lisp (leave-focus-frame-nw-hook): Adapt
650 behaviour to the new raise/lower property.
651 Call clear-nw-hook before the rest of the hook.
653 * src/bindings.lisp (mouse-click-to-focus-and-move-window)
654 (mouse-click-to-focus-and-resize-window): Stop button event. This
655 prevent a keyboard/pointer freeze.
657 2008-06-03 Philippe Brochard <pbrochard@common-lisp.net>
659 * src/clfswm-internal.lisp (frame-lower-child)
660 (frame-raise-child): New functions to raise/lower a child in its
663 * src/clfswm-util.lisp (have-to-present-windows)
664 (have-to-present-all-windows): New functions to have an MaxOS
665 expose like on mouse click in screen corner.
667 * src/clfswm-info.lisp ("Page_Down", "Page_Up"): Add boundaries.
669 2008-05-30 Philippe Brochard <pbrochard@common-lisp.net>
671 * src/clfswm-util.lisp (unhide-a-child-from-all-frames): Unhide a
672 child from a choice in all frames with hidden children.
674 * src/clfswm-info.lisp (info-mode-menu): Handle separators.
676 2008-05-28 Philippe Brochard <pbrochard@common-lisp.net>
678 * src/clfswm-util.lisp (hide-current-child, unhide-a-child)
679 (unhide-all-children): New functions.
681 * src/clfswm-info.lisp (info-mode-menu): Handle symbols and
684 * src/clfswm-util.lisp (hide/show-frame-window): new function and
687 2008-05-23 Philippe Brochard <pbrochard@common-lisp.net>
689 * src/clfswm-util.lisp (rename-current-child): Do not display the
690 frame info for a window.
692 2008-05-20 Philippe Brochard <pbrochard@common-lisp.net>
694 * src/clfswm-internal.lisp (remove-child-in-frame): Destroy the
695 frame window for the removed child and its children.
697 2008-05-18 Philippe Brochard <pbrochard@common-lisp.net>
699 * src/clfswm-autodoc.lisp (produce-*-doc-*): Add a note to use the
702 2008-05-17 Philippe Brochard <pbrochard@common-lisp.net>
704 * src/clfswm-nw-hooks.lisp (default-frame-nw-hook): Do not handle
705 the ROX pinboard (ie: leave it lowered in the root window as
708 * src/clfswm-layout.lisp (tile-left-space-layout): New layout.
709 (tile-left-layout, tile-right-layout, tile-top-layout)
710 (tile-bottom-layout): Use all the frame space when there is only
713 * src/clfswm-internal.lisp (place-window-from-hints): Center
714 unmanaged windows in the root screen.
716 * src/clfswm-nw-hooks.lisp (clear-nw-hook, clear-all-nw-hooks):
719 2008-05-15 Philippe Brochard <pbrochard@common-lisp.net>
721 * src/clfswm-util.lisp (current-frame-manage-window-type): Fix a
722 typo in managed types.
724 * src/clfswm-internal.lisp (show-child): Always display frame info
725 even if the frame is hidden.
727 * src/xlib-util.lisp (resize-window): Use a better algorithme to
730 2008-05-13 Philippe Brochard <pbrochard@common-lisp.net>
732 * src/clfswm-util.lisp (with-movement): Display frame info for all
733 frames in current root.
735 2008-05-12 Philippe Brochard <pbrochard@common-lisp.net>
737 * src/*.lisp: Rename 'brother' frames to 'sister' frames.
739 * src/bindings-second-mode.lisp (define-second-key #\a): New
740 binding on 'add-default-frame'.
742 * src/clfswm-autodoc.lisp (produce-*-doc-*-in-file): Show a
743 message to follow the autodocumentation process.
745 2008-05-10 Philippe Brochard <pbrochard@common-lisp.net>
747 * src/clfswm-util.lisp (bind-or-jump): Bind "Tab", "Return" and
748 "Space" to jump to a child. "B" to bind a slot on the current
751 * src/bindings-second-mode.lisp: Use "Tab" instead of
754 2008-05-07 Philippe Brochard <pbrochard@common-lisp.net>
756 * src/clfswm-util.lisp (find-child-under-mouse): Take care of
757 unmanaged (hidden) windows.
759 * src/clfswm-internal.lisp (place-window-from-hints): Give a
760 minimal size for windows.
761 (with-all-windows-frames-and-parent): New function.
763 * src/config.lisp (*default-window-width/height*): New parameters.
765 * src/clfswm-internal.lisp (place-window-from-hints): Center
766 windows in the screen instead of in there frame.
768 * src/bindings-second-mode.lisp (tile-space-current-frame): New
771 * src/clfswm-layout.lisp (register-layout): Intern the once name
772 in the right package.
774 2008-05-05 Philippe Brochard <pbrochard@common-lisp.net>
776 * doc/dot-clfswmrc: Update to follow the new clfswm way.
778 2008-05-03 Philippe Brochard <pbrochard@common-lisp.net>
780 * src/clfswm-internal.lisp (set-current-child)
781 (adapt-child-to-parent, show-child, hide-child): Handle the case
782 where child is not a frame or a window.
784 * src/clfswm-util.lisp
785 (mouse-click-to-focus-generic,mouse-focus-move/resize-generic):
786 Check if child is a frame.
788 * src/clfswm-internal.lisp (managed-window-p): Handle the case
790 (place-frame): Check if frame and parent are frames.
792 * src/clfswm-info.lisp (info-mode): display all frame info before
795 * src/clfswm-second-mode.lisp (second-key-mode): display all frame
798 * src/clfswm-internal.lisp (display-all-frame-info): New function.
800 2008-05-02 Philippe Brochard <pbrochard@common-lisp.net>
802 * src/tools.lisp (getenv): Implemented for ECL.
803 (urun-prog): Implemented for ECL.
805 * src/clfswm-util.lisp (identify-key): Use a double buffer to
808 * src/clfswm-query.lisp (query-string): Use a double buffer to
811 * src/clfswm-info.lisp (draw-info-window): Use a double buffer to
814 * src/xlib-util.lisp (clear-pixmap-buffer, copy-pixmap-buffer):
817 2008-05-01 Philippe Brochard <pbrochard@common-lisp.net>
819 * src/clfswm-info.lisp (info-mode): Add boundaries in the info mode window.
821 * src/menu-def.lisp: New file: move all menu definition in
824 * src/clfswm-layout.lisp (register-layout): Use a function instead
827 2008-04-30 Philippe Brochard <pbrochard@common-lisp.net>
829 * src/clfswm-autodoc.lisp (produce-menu-doc,
830 (produce-menu-doc-html): New functions.
831 (produce-doc-*): Moved to clfswm-autodoc.lisp.
833 * src/clfswm-util.lisp (paste-selection-no-clear): Prevent to
834 paste a child on one of its own children. (this prevent a
836 (move-child-to): Rename move/copy-current-child-by to
838 (mouse-move-window-over-frame): New function to move the window
839 under the mouse cursor to another frame.
841 * src/clfswm-internal.lisp (find-child-in-parent): New function.
843 2008-04-29 Philippe Brochard <pbrochard@common-lisp.net>
845 * src/clfswm-internal.lisp (show-all-children): Display unmanaged
846 windows only when its window parent is the current child.
848 2008-04-28 Philippe Brochard <pbrochard@common-lisp.net>
850 * src/clfswm-util.lisp (manage-current-window)
851 (unmanage-current-window): New functions: Allow to force to manage
852 or unmanage a window by its parent frame.
854 * src/bindings-second-mode.lisp (#\o): binded to
855 set-open-in-new-frame-in-parent-frame-nw-hook and
856 (#\o :control) to set-open-in-new-frame-in-root-frame-nw-hook
858 * src/clfswm-util.lisp (with-current-window): New macro.
860 * src/xlib-util.lisp (move-window, resize-window): Remove uneeded
861 exposure and enter-window handle event.
863 * src/clfswm-util.lisp (move-frame, resize-frame): Show all
864 children for the current child after the move/resize.
866 2008-04-27 Philippe Brochard <pbrochard@common-lisp.net>
868 * src/xlib-util.lisp (resize-window): Take care of window size
871 * src/clfswm-util.lisp (mouse-focus-move/resize-generic): Allow to
872 move/resize unmanaged windows.
874 * src/xlib-util.lisp (move-window, resize-window): New functions.
876 2008-04-25 Philippe Brochard <pbrochard@common-lisp.net>
878 * src/clfswm-util.lisp (current-frame-manage-window-type): Let the
879 user choose what window type the current frame must handle.
880 (display-current-window-info): New function.
881 (current-frame-manage-all-window-type)
882 (current-frame-manage-only-normal-window-type)
883 (current-frame-manage-no-window-type): New functions.
885 * src/clfswm-internal.lisp (managed-window-p): New function.
887 * src/package.lisp (frame): Managed type: new frame
888 parameter. This allow to choose what window type a frame must
891 * src/*.lisp: Rename all 'father' occurrences to 'parent'.
893 * src/clfswm-nw-hooks.lisp
894 (open-in-new-frame-in-parent-frame-nw-hook): New new window hook.
896 * src/clfswm-util.lisp (adapt-current-frame-to-window-hints): New
899 * src/tools.lisp (ensure-printable): Return always a string even
902 2008-04-24 Philippe Brochard <pbrochard@common-lisp.net>
904 * src/config.lisp (*default-nw-hook*): New variable to change the
905 default new window hook.
907 2008-04-22 Philippe Brochard <pbrochard@common-lisp.net>
909 * clfswm.asd (clfswm): Add a dependency from
910 clfswm-second-mode.lisp to clfswm.lisp.
912 * src/clfswm-util.lisp (identify-key): Show the documentation for
913 the function bound on a key.
914 (with-movement): Move with-movement,
915 current-frame-fill/pack/resize-* from bindings-second-mode.lisp
918 * src/clfswm-menu.lisp: New menu system that let user change keys
919 or functions associated to keys.
921 2008-04-18 Philippe Brochard <pbrochard@common-lisp.net>
923 * src/clfswm-internal.lisp (show-all-children): Display-child is
924 the first child by default. Solve a bug with father-p.
926 2008-04-17 Philippe Brochard <pbrochard@common-lisp.net>
928 * src/clfswm-internal.lisp (add-frame): Add frame return the
930 (show-all-children): Move the size computation outside the
933 * src/bindings-second-mode.lisp (with-movement): Redisplay only
936 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Redisplay
937 only the current child.
939 * src/clfswm-internal.lisp (show-all-children): New display-child
940 parameter to display only the desired child and its children.
941 (select-next/previous-child): Only display the current child.
943 2008-04-14 Philippe Brochard <pbrochard@common-lisp.net>
945 * src/clfswm.lisp (init-display): Move the default frame creation
946 on the default init hook.
948 * src/clfswm-keys.lisp (define-ungrab/grab): Handle all keysyms in
949 the main mode (for example: "1" on an azerty keyboard).
951 2008-04-13 Philippe Brochard <pbrochard@common-lisp.net>
953 * src/clfswm-keys.lisp (find-key-from-code): Better handle of
954 keysyms. Revert to old grabbing method for the main mode.
956 2008-04-12 Philippe Brochard <pbrochard@common-lisp.net>
958 * src/clfswm.lisp (init-display): Add key handling on no focus
959 window and on frame windows.
961 2008-04-11 Philippe Brochard <pbrochard@common-lisp.net>
963 * src/clfswm.lisp (main): Keyboard handle strategie change: Grab
964 all keys by default and replay just what is needed. No change for
967 * src/clfswm-keys.lisp: remove grab/ungrab main keys.
968 (find-key-from-code): Test for shift and not shift presence.
970 2008-04-09 Philippe Brochard <pbrochard@common-lisp.net>
972 * src/clfswm-internal.lisp (switch-to-root-frame): show later -
973 new key parameter to have less flickering.
975 2008-04-07 Philippe Brochard <pbrochard@common-lisp.net>
977 * src/bindings-second-mode.lisp (frame-layout-once-menu): Set the
978 layout only one time and revert to no-layout to freely handle
981 * src/clfswm-nw-hooks.lisp
982 (open-in-new-frame-in-root-frame-nw-hook): Tile layout with spaces
983 with new created window.
985 * src/clfswm-layout.lisp (register-layout): Now register
986 automatically a once layout to set the layout only one time and
987 revert to no-layout to freely handle frames.
989 2008-04-05 Philippe Brochard <pbrochard@common-lisp.net>
991 * src/clfswm-nw-hooks.lisp (leave-focus-frame-nw-hook): New
992 nw-hook: Open the next window in the current frame and leave the
993 focus to the current child.
995 2008-04-04 Philippe Brochard <pbrochard@common-lisp.net>
997 * src/bindings-second-mode.lisp: Add keys definitions to
998 bind-or-jump in the second mode.
1000 * src/clfswm-util.lisp (bind-or-jump): remove the auto-defining
1001 macro for bind-or-jump-(1|2|3...).
1003 * src/clfswm-keys.lisp (define-define-key/mouse): Allow additional
1004 arguments to function. This allow to do things like:
1005 (define-main-key (key) 'my-function 10 20 'foo) -> 10 20 and 'foo
1006 are passed to my-function on key press.
1008 2008-04-03 Philippe Brochard <pbrochard@common-lisp.net>
1010 * src/clfswm-util.lisp (bind-or-jump): New (great) function.
1012 2008-04-02 Philippe Brochard <pbrochard@common-lisp.net>
1014 * src/clfswm-internal.lisp (child-fullname): New function
1016 * src/clfswm-info.lisp (info-mode-menu): Add an explicit optional
1017 docstring in info-mode-menu. An item can be
1018 '((key function) (key function)) or with docstring
1019 '((key function "documentation 1") (key function "bla bla") (key function))
1021 * src/tools.lisp (ensure-n-elems): New function.
1023 * src/bindings-second-mode.lisp: Bind Alt+mouse-1/3 to move or
1024 resize a frame or the window's father.
1026 * src/clfswm.lisp (init-display): Remove tile-space-layout by
1027 default on the root frame.
1029 * src/clfswm-util.lisp (move/resize-frame): Add standard event
1030 hooks handlers (map-request, configure-notify...)
1032 * src/clfswm-internal.lisp (adapt-child-to-father): Limit minimal
1035 2008-04-01 Philippe Brochard <pbrochard@common-lisp.net>
1037 * src/bindings.lisp: Bind Alt+mouse-1/3 to move or resize a frame
1038 or the window's father.
1040 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Stop button
1041 event only if there is a geometry change.
1042 (mouse-focus-move/resize-generic): Generic function to move or
1043 resize a frame or a window father frame.
1045 2008-04-01 Philippe Brochard <pbrochard@common-lisp.net>
1047 * src/clfswm-internal.lisp (show-all-children): Return t if there
1048 is a geometry change.
1050 2008-03-30 Philippe Brochard <pbrochard@common-lisp.net>
1052 * src/bindings.lisp (Up/Down): Swap select previous/next level.
1054 * src/bindings-second-mode.lisp (Up/Down): Swap select previous/next level.
1056 * src/clfswm.lisp (init-display): Create a default frame in the root frame.
1058 * src/clfswm-internal.lisp (place-frame): Place frame from real (pixel) coordinates.
1059 (with-all-*): Reverse the child list to manage the first child last (like in
1062 * src/config.lisp (*create-frame-on-root*): New variable: Create a new frame on the
1063 root window only if true.
1065 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Create a new frame on the
1066 root window only if *create-frame-on-root* is true.
1068 * src/bindings-second-mode.lisp (sm-mouse-click-to-focus-generic): Create a new frame
1071 2008-03-29 Philippe Brochard <pbrochard@common-lisp.net>
1073 * src/bindings-second-mode.lisp (sm-mouse-click-to-focus-generic): Focus, move and resize
1074 the current child (even if it's a window).
1076 2008-03-28 Philippe Brochard <pbrochard@common-lisp.net>
1078 * src/clfswm-util.lisp (mouse-click-to-focus-and-move)
1079 (mouse-click-to-focus-and-resize): New functions.
1081 * src/clfswm-internal.lisp (*-fl->px): Convert float coordinates to pixel.
1082 (*-px->fl): Convert pixel coordinates to float.
1084 * src/tools.lisp (call-hook): Move call-hook to tools.lisp.
1086 2008-03-27 Philippe Brochard <pbrochard@common-lisp.net>
1088 * src/clfswm-layout.lisp (no-layout): Use :first-only to raise only the
1091 * src/clfswm-internal.lisp (hide-all): Split hide-all-children in hide-all
1092 and hide-all-children.
1093 (raise-if-needed): New function.
1094 (show-child): Use a first-p parameter to raise windows only when they are
1097 2008-03-26 Philippe Brochard <pbrochard@common-lisp.net>
1099 * src/clfswm-internal.lisp (select-next/previous-level): Don't use show-all-children
1102 2008-03-25 Philippe Brochard <pbrochard@common-lisp.net>
1104 * src/clfswm-info.lisp (keys-from-list): new function.
1106 * src/*: rename 'childs' in 'children'.
1108 * src/*: rename 'group' in 'frame'.
1110 2008-03-22 Philippe Brochard <pbrochard@common-lisp.net>
1112 * src/clfswm-pack.lisp (explode-group/explode-current-group): new functions.
1114 2008-03-21 Philippe Brochard <pbrochard@common-lisp.net>
1116 * src/clfswm-pack.lisp: Pack, Fill, Resize functions.
1118 2008-03-16 Philippe Brochard <pbrochard@common-lisp.net>
1120 * src/clfswm-nw-hooks.lisp: Register system for new window hooks.
1121 Bind control+o to open the next window in a new group in the root group
1122 (as open in next window in a new workspace in 0801 version).
1124 2008-03-15 Philippe Brochard <pbrochard@common-lisp.net>
1126 * src/clfswm-util.lisp (show/hide-all-groups-info/key): Show/hide all groups info
1129 2008-03-14 Philippe Brochard <pbrochard@common-lisp.net>
1131 * bindings-second-mode.lisp ("ISO_Left_Tab"): Use ISO_Left_Tab
1132 instead of Tab for select-previous-child.
1134 2008-03-13 Philippe Brochard <pbrochard@common-lisp.net>
1136 * clfswm-util.lisp (force-window-in-group/force-window-center-in-group):
1139 2008-03-11 Philippe Brochard <pbrochard@common-lisp.net>
1141 * clfswm-util.lisp (identify-key): Display the documentation
1142 associated to keys when identifying a key.
1144 2008-03-10 Xavier Maillard <xma@gnu.org>
1146 * contrib/clfswm: Complete rewrite of the script. Detect error and
1147 act accordingly. Add command line arguments to configure the
1148 script execution. User can now choose different common lisp
1149 implementation (clisp and sbcl only), choose where to store the
1150 dumped image, where to find clfswm source.
1152 2008-03-09 Philippe Brochard <pbrochard@common-lisp.net>
1154 * clfswm-internal.lisp (process-new-window): Beginning of new
1155 window hook: each group have a hook to tell what he wants to do
1156 with the new created window.
1158 2008-03-08 Xavier Maillard <xma@gnu.org>
1160 * contrib/clfswm: New script. Dump a CLISP image of CLFSWM then
1161 call the resulting executable.
1163 * clfswm.lisp (read-conf-file): Check for the user config file in
1164 XDG_CONFIG_HOME *first*. Freedesktop.org standards should be
1165 prefered whenever possible.
1167 2008-02-27 Philippe Brochard <pbrochard@common-lisp.net>
1169 * clfswm-layout.lisp (*-layout): Add an optional raise-p
1170 parameter in each layout.
1172 2008-02-26 Philippe Brochard <pbrochard@common-lisp.net>
1174 * clfswm-util.lisp (copy/cut-current-child): Does not affect the
1176 (copy/move-current-child-by-name/number): new functions
1177 (focus-group-by-name/number): new functions
1178 (delete-group-by-name/number): new functions
1180 2008-02-24 Philippe Brochard <pbrochard@common-lisp.net>
1182 * ************************************************************ *
1183 *: Major update - No more reference to workspaces. The main *
1184 structure is a tree of groups or application windows. *
1185 * ************************************************************ *
1187 2008-02-07 Philippe Brochard <pbrochard@common-lisp.net>
1189 * clfswm.lisp (read-conf-file): Read configuration in
1190 $HOME/.clfswmrc or in /etc/clfswmrc or in
1191 $XDG_CONFIG_HOME/clfswm/clfswmrc.
1192 (xdg-config-home): Return the content of $XDG-CONFIG-HOME (default
1195 2008-01-18 Philippe Brochard <pbrochard@common-lisp.net>
1197 * clfswm-internal.lisp (show-all-group): Use *root* and *root-gc*
1200 2008-01-03 Philippe Brochard <pbrochard@common-lisp.net>
1202 * clfswm-internal.lisp (find-window-group): New function.
1204 * clfswm*: Change to make clfswm run with clisp/new-clx.
1206 2008-01-01 Philippe Brochard <pbrochard@common-lisp.net>
1208 * clfswm-util.lisp (query-show-paren): Add show parent matching in
1210 (query-string): Bind control+k to delete end of line.
1212 * clfswm-second-mode.lisp (draw-second-mode-window): Display
1213 the action on mouse motion in second mode.
1215 * clfswm.lisp (handle-exposure): Redisplay groups on exposure
1216 event but do not clear the root window.
1217 (handle-configure-request): Adjust unmanaged window from there
1220 * clfswm-internal.lisp (process-new-window): Adjust new window
1221 with the specified hints (max/min/base width/height).
1223 2007-12-31 Philippe Brochard <pbrochard@common-lisp.net>
1225 * clfswm.lisp (handle-configure-request): Send an Configuration
1226 Notify event. This solve a bug with xterm and rxvt who takes some
1227 times to be mapped. Now there is no delay.
1229 * bindings-second-mode.lisp (define-shell): Run programs after
1230 living the second mode.
1232 2007-12-30 Philippe Brochard <pbrochard@common-lisp.net>
1234 * clfswm-internal.lisp (process-new-window): Do not crop transient
1235 window to group size.
1236 (adapt-window-to-group): Do not crop transient window to group
1239 * clfswm.lisp (handle-configure-request): Adapt just the window to
1240 its group and don't take care of the configure request. Remove the
1241 bug with the Gimp outside the group and speed up the window
1243 (handle-exposure): Remove show-all-group on exposure event
1246 2007-12-29 Philippe Brochard <pbrochard@common-lisp.net>
1248 * clfswm-util.lisp (circulate-group-up-copy-window)
1249 (circulate-group-down-copy-window)
1250 (circulate-workspace-up-copy-group)
1251 (circulate-workspace-down-copy-group): Prevent the copy of the
1252 same window in the same workspace.
1254 * bindings-second-mode.lisp (release-copy-selected-window)
1255 (release-copy-selected-group): Prevent the copy of the same window
1256 in the same workspace.
1258 * clfswm-pager.lisp (generic-pager-move-window-on-previous-line)
1259 (generic-pager-move-window-on-next-line): Remove the copy
1261 (generic-pager-move-group-on-next-workspace)
1262 (generic-pager-move-group-on-previous-workspace): Prevent the copy
1263 of the same window in the same workspace.
1265 * bindings-pager.lisp (mouse-pager-copy-selected-window-release)
1266 (mouse-pager-copy-selected-group-release): Prevent the copy of the
1267 same window in the same workspace.
1269 * tools.lisp (setf/=): new macro to set a variable only when
1272 * clfswm-internal.lisp (adapt-window-to-group): use set/= to set
1273 x, y... only when necessary.
1275 2007-12-28 Philippe Brochard <pbrochard@common-lisp.net>
1277 * clfswm.lisp (handle-configure-notify, *configure-notify-hook*):
1278 new function and hook: force windows to stay in its group (solve a
1281 2007-12-25 Philippe Brochard <pbrochard@common-lisp.net>
1283 * bindings-second-mode.lisp (mouse-motion): use hide-group to have
1284 less flickering when moving/resizing groups.
1286 * clfswm-internal.lisp (hide-group): new function.
1287 (show-all-group): clear-all: new parameter.
1289 2007-12-22 Philippe Brochard <pbrochard@common-lisp.net>
1291 * clfswm-keys.lisp (define-define-key): undefine-*-multi-name: new
1293 * clfswm*: Color change for the pager. Typo or better description
1294 in bindings definitions. Define bindings for a qwerty keyboard by
1295 default. dot-clfswmrc show examples to switch to an azerty
1297 License change to GPL v3.
1298 * config.lisp: new file - group all globals variables in this
1301 2007-08-26 Philippe Brochard <pbrochard@common-lisp.net>
1303 * xlib-util.lisp (hide-window): Remove structure-notivy events
1304 when hidding a window.
1306 2007-05-16 Philippe Brochard <pbrochard@common-lisp.net>
1308 * package.lisp (*sm-property-notify-hook*): Readded
1309 property-notify-hook in second mode.
1311 2007-05-15 Philippe Brochard <pbrochard@common-lisp.net>
1313 * clfswm-keys.lisp (produce-doc-html): Better clean up for strings.
1315 2007-05-13 Philippe Brochard <pbrochard@common-lisp.net>
1317 * clfswm-pack.lisp (tile-current-workspace-to/right/left/top/bottom):
1318 Tile the current workspace with the current window on one side and
1319 others on the other (this emulate the larswm, dwm, wmii way). See
1320 the default configuration file to enable this mode by default.
1322 * clfswm-pager.lisp (pager-tile-current-workspace-to): idem for
1325 2007-05-12 Philippe Brochard <pbrochard@common-lisp.net>
1327 * clfswm-pager.lisp (pager-draw-window-in-group): Add
1328 ensure-printable to print windows name even with non-ascii
1331 2007-05-11 Philippe Brochard <pbrochard@common-lisp.net>
1333 * clfswm-pager.lisp (pager-explode-current-group): Create a new
1334 group for each window in group.
1335 (pager-implode-current-group): Move all windows in workspace to
1336 one group and remove other groups.
1338 * clfswm-pack.lisp (explode-group): Create a new group for each
1340 (implode-group): Move all windows in workspace to one group and
1341 remove other groups.
1343 * clfswm-util.lisp (identify-key): Remove local configuration
1344 variables and made them available for configuration from
1346 (query-string): idem.
1348 2007-04-29 Philippe Brochard <pbrochard@common-lisp.net>
1350 * netwm-util.lisp: Start of NetWM compliance.
1351 Add a Netwm client list gestion.
1353 2007-04-28 Philippe Brochard <pbrochard@common-lisp.net>
1355 * clfswm-internal.lisp (create-group-on-request): open a new group
1356 only when the current group is not empty.
1358 * bindings-second-mode.lisp (define-second-key-#\o-control): Fix a
1359 bug with null workspace.
1361 * clfswm-pager.lisp (pager-handle-event): Add a hook
1362 system. This hooks can be changed in the user configuration file.
1364 * package.lisp: All colors and font variables are set in
1365 package.lisp and can be configured in the user configuration
1367 Note: If you have configured some less ugly colors (esp. for the
1368 pager) don't hesitate to let me know :)
1370 * clfswm-second-mode.lisp (sm-handle-event): Add a hook
1371 system. This hooks can be changed in the user configuration file.
1373 * clfswm.lisp (handle-event): Add a hook system. This hooks can be
1374 changed in the user configuration file (~/.clfswmrc)
1376 2007-04-25 Philippe Brochard <pbrochard@common-lisp.net>
1378 * clfswm-util.lisp (stop-all-pending-actions): new function: reset
1379 arrow action, open next window in new workspace/group.
1381 * bindings.lisp (stop-all-pending-actions): new binding.
1382 (open-next-window-in-new-group-once): Open the next windows in a
1383 new group (only once) or open all new windows in a new group (like
1384 others windows managers).
1386 2007-04-22 Philippe Brochard <pbrochard@common-lisp.net>
1388 * clfswm.lisp (read-conf-file): New function to read a lisp
1389 configuration file at startup.
1390 (focus-group-under-mouse): Check if group isn't the current group
1391 ( prevent a bug with unclutter ).
1393 2007-03-02 Philippe Brochard <pbrochard@common-lisp.net>
1395 * bindings.lisp (run-program-from-query-string): A program can be
1396 launch from a input query window.
1398 2007-03-01 Philippe Brochard <pbrochard@common-lisp.net>
1400 * clfswm-info.lisp: Fix a bug with banish pointer in info mode.
1402 2007-02-28 Philippe Brochard <pbrochard@common-lisp.net>
1404 * clfswm.lisp (process-new-window): One can now open the next
1405 window in a workspace called by its number.
1407 * clfswm-util.lisp (query-font-string): Minimal editing
1409 (eval-from-string): And an REPL in the window manager... :)
1411 2007-02-26 Philippe Brochard <pbrochard@common-lisp.net>
1413 * clfswm.lisp (process-new-window): One can now open the next
1414 window in a new workspace or a new group.
1416 * clfswm-pager.lisp (pager-mode): Display the next arrow action
1417 with the hidden windows.
1419 * clfswm.lisp (second-key-mode): Display the current workspace
1420 number and the next arrow action in the state window.
1422 * clfswm-pager.lisp (pager-mode): Hide all windows before leaving
1423 the pager mode and then redisplay only the current workspace.
1425 2007-02-25 Philippe Brochard <pbrochard@common-lisp.net>
1427 * clfswm.lisp (add-workspace): Workspaces are now numbered. So
1428 they can be focused with a keypress, sorted or renumbered.
1430 2007-02-24 Philippe Brochard <pbrochard@common-lisp.net>
1432 * clfswm-pager.lisp (pager-mode): Remove multiple silly
1433 pager-draw-display. This prevent a lot of flickering in the
1436 * clfswm.lisp: Remove all display-force-output and replace them
1437 with only one display-finish-output in the event loop.
1439 2006-11-06 Philippe Brochard <pbrochard@common-lisp.net>
1441 * clfswm-pager.lisp (pager-center-group): New function - center a
1442 group at the middle of the screen.
1444 * clfswm-pack.lisp (center-group): New function - center a group
1445 at the middle of the screen.
1447 * clfswm.lisp (show-group): Add a cross line under the group.
1448 (show-group): Group are showned even if fullscreened.
1449 (init-display): Add an exposure event on the root window.
1451 2006-11-05 Philippe Brochard <pbrochard@common-lisp.net>
1453 * package.lisp (*default-group*): Default group is the same size
1454 of a fullscreened group.
1456 * bindings*: Use shift to move, control+shift to copy.
1458 * *.lisp: Add comments for configuration or alternatives. So grep
1459 for CONFIG to see where you can configure clfswm. And grep for
1460 Alternative to use some commented code.
1462 * clfswm.lisp (second-key-mode): Use a single window to show the
1463 second mode. See for alternatives at the end of this file.
1465 2006-11-03 Philippe Brochard <pbrochard@common-lisp.net>
1467 * clfswm-keys.lisp (define-define-key/mouse): Factorisation in a
1468 macro of key and mouse definitions.
1469 (define-define-key/mouse): Use state instead of modifiers list
1470 this fix a bug when the modifiers list is not in the rigth order.
1472 * clfswm.lisp (second-key-mode): Add a colored border in second mode.
1474 2006-11-02 Philippe Brochard <pbrochard@common-lisp.net>
1476 * clfswm-info.lisp (info-mode): Add an info mode.
1478 2006-11-01 Philippe Brochard <pbrochard@common-lisp.net>
1480 * clfswm.lisp (process-new-window): Change border size for
1482 (show-all-windows-in-workspace): Unhide all windows even when the
1483 current group is in fullscreen mode.
1485 2006-10-26 Philippe Brochard <pbrochard@common-lisp.net>
1487 * clfswm-util.lisp (identify-key): Add an exposure handle-event to
1488 redisplay the identify window after a terminal switch.
1490 * clfswm-pager.lisp (pager-mode): Add an exposure handle-event to
1491 redisplay the pager after a terminal switch.
1493 2006-10-24 Philippe Brochard <pbrochard@common-lisp.net>
1495 * clfswm-util.lisp (identify-key): Add a window to display
1496 the keys to identify on screen.
1498 * bindings.lisp, bindings-pager.lisp: Define same keys to
1499 move/copy groups/windows in second mode and in pager.
1501 * clfswm.lisp (handle-event*): Same version in all clfswm (fix some
1503 (show-all-windows-in-workspace): unhide window before adapting it
1506 2006-10-23 Philippe Brochard <pbrochard@common-lisp.net>
1508 * clfswm.lisp (handle-event): Revert to an older version.
1510 2006-10-18 Philippe Brochard <pbrochard@common-lisp.net>
1512 * clfswm-util.lisp (force-window-in-group)
1513 (force-window-center-in-group): New functions for transient windows.
1515 * clfswm-pager.lisp (pager-remove-current-workspace/group):
1516 bugfix: hide all windows before removing group or workspace.
1518 2006-10-17 Philippe Brochard <pbrochard@common-lisp.net>
1520 * bindings-pager.lisp (mouse-pager-move-selected-group)
1521 (mouse-pager-copy-selected-group)
1522 (mouse-pager-move-selected-window)
1523 (mouse-pager-copy-selected-window, mouse-pager-rotate-window-up)
1524 (mouse-pager-rotate-window-down): New functions to have mouse in
1527 * clfswm-pager.lisp (pager-swap-window)
1528 (pager-copy-group-on-next/previous-workspace)
1529 (pager-copy-window-on-next/previous-line): New functions
1531 2006-10-15 Philippe Brochard <pbrochard@common-lisp.net>
1533 * clfswm-pager.lisp (pager-move-window-on-next/previous-line,
1534 (pager-move-group-on-next/previous-workspace): new functions.
1536 * clfswm-pack.lisp (resize-half-x-x-current-group): resize group
1537 to its half size (new functions).
1539 2006-10-11 Philippe Brochard <pbrochard@common-lisp.net>
1541 * clfswm-pager.lisp: workspaces, groups and windows can now be
1542 selectionned with the keyboard or the mouse.
1544 2006-10-09 Philippe Brochard <pbrochard@common-lisp.net>
1546 * clfswm-pager.lisp (pager-select-workspace-right/left):
1547 workspaces can now be selectionned with the keyboard.
1549 2006-10-08 Philippe Brochard <pbrochard@common-lisp.net>
1551 * clfswm-keys.lisp (undefine-main-key, undefine-second-key, undefine-mouse-action):
1552 new function to remove a previous defined key or mouse combination.
1554 2006-10-07 Philippe Brochard <pbrochard@common-lisp.net>
1556 * clfswm.lisp (main): Check for access error in init-display.
1558 * clfswm-keys.lisp (define-ungrab/grab): check for keysym and
1559 keycode before grabbing.
1561 * bindings.lisp: Remove nlambda and use defun to keep the function
1562 documentation with clisp.
1563 (define-shell): new macro to define shell command for the second
1566 2006-10-06 Philippe Brochard <pbrochard@common-lisp.net>
1568 * clfswm-keys.lisp (define-ungrab/grab): use a cond instead of a
1571 2006-10-05 Philippe Brochard <pbrochard@common-lisp.net>
1573 * bindings.lisp (accept-motion): Move group bugfix in upper mouse
1574 workspace circulation.
1576 * clfswm-util.lisp (absorb-orphan-window): new function.
1578 * clfswm-keys.lisp: Keysyms support.
1580 2006-10-02 Philippe Brochard <pbrochard@common-lisp.net>
1582 * clfswm.lisp (show-group): Use one gc for all groups and not one
1585 2006-10-01 Philippe Brochard <pbrochard@common-lisp.net>
1587 * bindings.lisp (define-second-key (#\l :mod-1)): fix a typo.
1589 * clfswm.lisp (adapt-window-to-group): Adapt only windows with
1590 width and height outside group.
1592 2006-09-28 Philippe Brochard <pbrochard@common-lisp.net>
1594 * clfswm.lisp: First public release.