1 2010-10-13 Philippe Brochard <pbrochard@common-lisp.net>
3 * src/clfswm-info.lisp (show-first-aid-kit): Display the essential
4 key binding in main and second mode.
6 2010-10-10 Philippe Brochard <pbrochard@common-lisp.net>
8 * src/clfswm-util.lisp (open-notify-window): Convert hello-window
9 functions to a more generic Notify-window system.
11 * src/tools.lisp (add-timer): Add an id to identify the timer.
13 2010-10-09 Philippe Brochard <pbrochard@common-lisp.net>
15 * src/tools.lisp (erase-timer): New function.
17 * src/clfswm-util.lisp (display-hello-window): Add a timer to hide
18 the hello window. Add Configuration variables.
20 2010-10-08 Philippe Brochard <pbrochard@common-lisp.net>
22 * src/clfswm-util.lisp (): Add an Hello window at startup.
24 * src/tools.lisp (process-timers): Add a timer system.
26 2010-10-07 Philippe Brochard <pbrochard@common-lisp.net>
28 * src/clfswm-query.lisp (add-in-query-string): Handle correctly
31 2010-10-06 Philippe Brochard <pbrochard@common-lisp.net>
33 * src/clfswm-query.lisp (query-print-string): Change cursor color
34 and show parenthesis matching with colors (on match and on
37 2010-10-05 Philippe Brochard <pbrochard@common-lisp.net>
39 * src/clfswm-internal.lisp (show-all-children): Do not raise a
40 child when its parent is hidden.
42 2010-10-02 Philippe Brochard <pbrochard@common-lisp.net>
44 * src/clfswm-circulate-mode.lisp (select-next-subchild): Add the
45 possibility to circulate over subchild of the current child.
47 * src/clfswm-expose-mode.lisp (expose-all-windows-mode)
48 (expose-windows-generic): Add an escape-body function to return to
49 the original state on escape key.
51 * src/clfswm-util.lisp (bind-on-slot): Add an optional parameter
52 to bind the current child from the configuration file.
54 2010-10-01 Philippe Brochard <pbrochard@common-lisp.net>
56 * src/clfswm-nw-hooks.lisp (absorb-window-nw-hook): Absorb new
57 window hook: the frame absorb all new windows that match
58 nw-absorb-test frame data slot.
60 2010-09-30 Philippe Brochard <pbrochard@common-lisp.net>
62 * src/clfswm-expose-mode.lisp (expose-create-window): Show window
63 title in accel window.
65 2010-09-29 Philippe Brochard <pbrochard@common-lisp.net>
67 * configure: Use the Xavier Maillard clfswm script in contrib to
68 build an executable in the standard way.
70 2010-09-26 Philippe Brochard <pbrochard@common-lisp.net>
72 * src/clfswm-expose-mode.lisp (expose-mode-display-accel-windows):
73 New functions. Add a window on each child in the expose mode to
76 * src/clfswm-internal.lisp (child-x, child-y, child-width)
77 (child-height): New methods to get real child coordinates.
79 2010-09-25 Philippe Brochard <pbrochard@common-lisp.net>
81 * src/clfswm-layout.lisp (*-layout): Use child-position.
83 * src/clfswm-internal.lisp (child-position): New function.
85 * src/clfswm-expose-mode.lisp (expose-windows-mode)
86 (expose-all-windows-mode): Use a generic mode.
88 * src/xlib-util.lisp (with-handle-event-symbol): Use a filled list
89 with handle-event-fun symbols instead of inspecting clfswm
90 internals symbols on each mode change.
92 * src/clfswm-expose-mode.lisp: Move and rename present*-windows in
93 a separate clfswm-expose-mode.lisp file.
95 * src/clfswm-util.lisp (speed-mouse-right, speed-mouse-down): Use
96 screen size instead of hardcoded test coordinates.
98 2010-09-24 Philippe Brochard <pbrochard@common-lisp.net>
100 * src/clfswm-util.lisp (speed-mouse-reset, speed-mouse-left)
101 (speed-mouse-right, speed-mouse-up, speed-mouse-down)
102 (speed-mouse-undo, speed-mouse-first-history): New functions to
103 quickly move the mouse. Implemented for the second mode.
105 2010-09-16 Philippe Brochard <pbrochard@common-lisp.net>
107 * contrib/clfswm: Move clfswm sources to $tmp_dir if there is no
108 write permission on $clfswm_asd_path. So anybody can start clfswm
109 even if there is no write permission on the source directory.
111 2010-09-12 Philippe Brochard <pbrochard@common-lisp.net>
113 * contrib/clfswm: Add support to cmucl, ccl and ecl.
115 2010-09-11 Philippe Brochard <pbrochard@common-lisp.net>
117 * src/clfswm-util.lisp (set-hide-unmanaged-window)
118 (set-show-unmanaged-window, set-default-hide-unmanaged-window):
119 New functions and menu entry.
120 (set-globally-hide-unmanaged-window)
121 (set-globally-show-unmanaged-window): New functions and menu
124 * src/clfswm-internal.lisp (hide-unmanager-window-p): New
126 (show-child): Add a data slot on frame to hide or not unmanaged
129 * src/clfswm-corner.lisp (present-clfswm-terminal)
130 (present-virtual-keyboard): Use a function (generic-present-body)
131 instead of a macro (generate-present-body).
133 * src/clfswm-util.lisp (update-menus): List all directories and
134 subdirectories in $XDG_DATA_DIRS/applications.
136 2010-09-10 Philippe Brochard <pbrochard@common-lisp.net>
138 * src/clfswm-corner.lisp (generate-present-body): New macro.
139 (present-clfswm-terminal, present-virtual-keyboard): Use
140 generate-present-body.
142 2010-09-09 Philippe Brochard <pbrochard@common-lisp.net>
144 * src/clfswm-util.lisp (update-menus): Follow XDG specifications
145 instead of the non-portable Debian update-menu.
147 2010-09-07 Philippe Brochard <pbrochard@common-lisp.net>
149 * src/clfswm.lisp (error-handler): New function do handle
150 asynchronous errors and ignore them.
151 (open-display): Install the new error-handler on display.
153 2010-09-05 Philippe Brochard <pbrochard@common-lisp.net>
155 * src/xlib-util.lisp (with-xlib-protect): Add a
156 with-simple-restart on top of body execution.
158 2010-09-04 Philippe Brochard <pbrochard@common-lisp.net>
160 * src/clfswm.lisp (main-loop): Protect all xlib functions with an
163 * src/xlib-util.lisp (handle-event): use with-xlib-protect only in
164 handle-event. Add a with-simple-restart to prevent a
165 clisp/new-lisp infinite loop.
167 2010-08-30 Philippe Brochard <pbrochard@common-lisp.net>
169 * src/clfswm-corner.lisp (present-clfswm-terminal): Make the
170 clfswm terminal working even on xterm title changes.
172 2010-08-29 Philippe Brochard <pbrochard@common-lisp.net>
174 * src/clfswm-util.lisp (run-other-window-manager): Update for
177 * src/tools.lisp (do-execute): New parameter io to change the
180 * src/clfswm-util.lisp (hide-current-child): Prevent from removing
183 * src/clfswm-internal.lisp (child-member): New predicate.
184 (child-remove): New function.
186 * src/*.lisp: Use child-member and child-remove everywhere it's
189 2010-08-28 Philippe Brochard <pbrochard@common-lisp.net>
191 * src/clfswm.lisp (main-loop): Ensure that all events have been
192 processed after a process-event.
194 * src/clfswm-internal.lisp (is-in-current-child-p): New function.
196 2010-08-27 Philippe Brochard <pbrochard@common-lisp.net>
198 * src/clfswm.lisp (main-mode:configure-request): Raise the window
199 only when present on the current child and focus it accordingly.
201 2010-08-26 Philippe Brochard <pbrochard@common-lisp.net>
203 * src/clfswm-circulate-mode.lisp (circulate-loop-function):
204 Use is-a-key-pressed-p.
206 * src/xlib-util.lisp (is-a-key-pressed-p): New predicate.
208 * src/clfswm-keys.lisp (define-ungrab/grab): Use all values
209 returned by xlib:keysym->keycodes.
211 * src/*.lisp: Use the new child-equal-p to compare children. This
212 prevent a bug with sbcl/cmucl when the standard equal function
213 does not work with xlib:window.
215 * src/clfswm-internal.lisp (child-equal-p): New predicate.
217 2010-08-25 Philippe Brochard <pbrochard@common-lisp.net>
219 * src/clfswm-generic-mode.lisp (generic-mode): Use an
220 xlib:event-listen before processing event with
221 xlib:process-event. This prevent a bug with CLX threaded
222 implementation like sbcl.
224 * src/clfswm.lisp (main-loop): Use an xlib:event-listen before
225 processing event with xlib:process-event. This prevent a bug with
226 CLX threaded implementation like sbcl.
228 2010-08-17 Philippe Brochard <pbrochard@common-lisp.net>
230 * contrib/server/key.lisp (ushell-sh): Add ccl and ecl support.
232 * src/xlib-util.lisp (compress-motion-notify): Use a loop instead
235 * src/clfswm-internal.lisp (with-find-in-all-frames): New macro.
236 (find-parent-frame, find-frame-window, find-frame-by-name)
237 (find-frame-by-number): Use with-find-in-all-frames to search in
238 frames in the right order.
240 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Fix an
241 unwanted flickering with unmanaged windows.
243 2010-08-16 Philippe Brochard <pbrochard@common-lisp.net>
245 * src/package.lisp: Remove event handler hooks as they're not
246 needed anymore (To replace them: use closure and define-handler).
248 * src/xlib-util.lisp (move-window, resize-window)
249 (wait-mouse-button-release): Use a generic mode.
251 * src/*.lisp: Replace the case to handle event with a more (tricky)
252 lispy method which bind a function to each keywords associated
255 2010-07-23 Philippe Brochard <pbrochard@common-lisp.net>
257 * src/clfswm-util.lisp (delete-current-child): Invert bindings and
258 menu entry between delete-current-child and remove-current-child.
259 ie: Delete a child and its children in all frames by default.
261 2010-07-21 Philippe Brochard <pbrochard@common-lisp.net>
263 * src/package.lisp: Add a placement configuration group.
265 * src/binding*.lisp: Bind control+g to escape the current action
268 * src/clfswm-internal.lisp
269 (delete-child-and-children-in-all-frames): New function and
270 binding: Second mode - Control+Delete delete the current child and
271 its children in all frames (ie: close the current child and its
274 2010-07-20 Philippe Brochard <pbrochard@common-lisp.net>
276 * src/clfswm-internal.lisp (remove-child-in-frame): Do not destroy
277 the frame window and the frame gc. Close a very annoying bug when
278 cuting/pasting a frame or moving a child over frames with the
281 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Redisplay
282 all children in *current-root* after moving/resizing a frame.
284 2010-07-18 Philippe Brochard <pbrochard@common-lisp.net>
286 * src/clfswm-util.lisp (delete-focus-window)
287 (destroy-focus-window): Remove child in parent frame before
290 2010-07-16 Philippe Brochard <pbrochard@common-lisp.net>
292 * src/clfswm-util.lisp (identify-key): Add a timeout in
294 (mouse-click-to-focus-generic): Use find-child-under-mouse instead
295 of the window passed by xlib:process-event.
297 * src/xlib-util.lisp (move-window, resize-window)
298 (wait-mouse-button-release): Add a timeout in xlib:process-event.
300 2010-04-11 Philippe Brochard <pbrochard@common-lisp.net>
302 * src/clfswm-util.lisp (run-other-window-manager): Add the ability
303 to launch an other window manager and to return to clfswm.
305 2010-03-18 Philippe Brochard <pbrochard@common-lisp.net>
307 * src/clfswm-layout.lisp (set-tile-space-layout): Set default
310 2009-12-15 Philippe Brochard <pbrochard@common-lisp.net>
312 * src/clfswm.lisp (main-loop): Add a *loop-hook* parameter and a
315 * src/clfswm-generic-mode.lisp (generic-mode): Add a loop-hook
316 parameter and a loop timeout.
318 2009-12-05 Philippe Brochard <pbrochard@common-lisp.net>
320 * src/clfswm.lisp (main): Add an alternate configuration filename
323 * load.lisp: Add a debuging code example.
325 2009-11-14 Philippe Brochard <pbrochard@common-lisp.net>
327 * src/clfswm-configuration.lisp (create-configuration-menu): New
328 menu to configure all clfswm variables while clfswm is running.
330 2009-11-12 Philippe Brochard <pbrochard@common-lisp.net>
332 * src/clfswm-util.lisp (save-configuration-variables): New
333 function to save all configuration variables in clfswmrc.
335 2009-11-11 Philippe Brochard <pbrochard@common-lisp.net>
337 * src/clfswm-info.lisp (info-mode): Begining of mouse support in
339 (set-default-info-keys): Add cursor key support in info mode.
341 2009-11-08 Philippe Brochard <pbrochard@common-lisp.net>
343 * contrib/reboot-halt.lisp: Add a Suspend/Reboot/Halt menu in
346 * src/clfswm.lisp (main): Add a read-conf-file-p parameter to
347 prevent reading the configuration file (this may be useful to
348 produce the original documentation without user modifications
349 with the rc configuration file).
351 2009-11-07 Philippe Brochard <pbrochard@common-lisp.net>
353 * src/bindings-second-mode.lisp (set-default-second-keys):
354 Simplification of Escape key to close/kill/remove the focus window
355 and unhide all windows.
357 * src/bindings.lisp (set-default-main-keys): Simplification of
358 Escape key to close/kill/remove the focus window and unhide all
361 * src/clfswm-util.lisp (ask-close/kill-current-window): Add remove
362 focus and unhide all windows capabilities.
364 2009-10-10 Philippe Brochard <pbrochard@common-lisp.net>
366 * contrib/mpd.lisp (start-gmpc): Add gmpc in the mpd menu.
368 2009-07-29 Philippe Brochard <pbrochard@common-lisp.net>
370 * src/clfswm-layout.lisp (tile-layout, tile-horizontal-layout):
371 Keep child order and don't make unnecessary child movement.
372 (one-column-layout, one-line-layout): New layouts.
374 2009-06-29 Philippe Brochard <pbrochard@common-lisp.net>
376 * contrib/cd-player.lisp: New file to handle the CD player.
378 * contrib/xmms.lisp: New file to handle the xmms player.
380 2009-06-28 Philippe Brochard <pbrochard@common-lisp.net>
382 * src/clfswm-layout.lisp (set-no-layout-remember-size): New layout:
383 Maximize windows in there frame - Leave frames to there actual
386 * src/bindings-second-mode.lisp (set-default-second-keys): Bind
387 "o" on set-open-in-new-frame-in-parent-frame-nw-hook.
389 2009-06-27 Philippe Brochard <pbrochard@common-lisp.net>
391 * contrib/keyb_fr.lisp: New file to handle an azerty keyboard.
393 2009-06-24 Philippe Brochard <pbrochard@common-lisp.net>
395 * contrib/mpd.lisp: Use a standard menu.
397 * src/clfswm-info.lisp: Use a standard menu for the help-menu.
399 2009-06-22 Philippe Brochard <pbrochard@common-lisp.net>
401 * contrib/mpd.lisp: New file to handle the Music Player Daemon (MPD)
403 2009-06-19 Philippe Brochard <pbrochard@common-lisp.net>
405 * src/clfswm-autodoc.lisp (produce-doc, produce-doc-html): Minor
408 2009-06-18 Philippe Brochard <pbrochard@common-lisp.net>
410 * src/config.lisp (get-fullscreen-size): One pixel adjustment
413 * src/clfswm-placement.lisp (*-child-placement): One pixel
416 2009-06-16 Philippe Brochard <pbrochard@common-lisp.net>
418 * src/clfswm-circulate-mode.lisp (draw-circulate-mode-window):
419 Ensure that all characters are printable.
421 * src/config.lisp (get-fullscreen-size): Adjust default fullscreen
424 * src/clfswm-placement.lisp (*-child-placement): Adjust
425 coordinates to one pixel in the current child.
427 2009-06-04 Philippe Brochard <pbrochard@common-lisp.net>
429 * src/clfswm-query.lisp (query-enter-function): Assign font before
430 width and height calculation.
432 2009-06-03 Philippe Brochard <pbrochard@common-lisp.net>
434 * src/xlib-util.lisp (banish-pointer): Use with-placement macro to
435 bannish the pointer in an arbitrary place.
437 * src/clfswm-info.lisp (info-mode): Use with-placement macro to
438 place the info window in an arbitrary place.
440 * src/clfswm-query.lisp (query-enter-function): Use with-placement
441 macro to place the query window in an arbitrary place.
443 * src/clfswm-placement.lisp: New file. Allow to place info windows
444 or query windows on an arbitrary place. Allow to bannish the
445 pointer on an arbitrary place.
447 2009-05-16 Philippe Brochard <pbrochard@common-lisp.net>
449 * src/clfswm-circulate-mode.lisp (reorder-child)
450 (reorder-brother): Unfocus windows before reordering children or
453 2009-05-13 Philippe Brochard <pbrochard@common-lisp.net>
455 * src/clfswm-circulate-mode.lisp (reorder-brother): Ensure that
456 the parent is a frame.
458 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Handle
459 motion with a default modifier.
461 * src/clfswm.lisp (handle-motion-notify): Handle motion with a
464 * src/clfswm-info.lisp (info-mode): Handle motion with a default
466 (info-mode): Optimization in loop function.
468 2009-05-10 Philippe Brochard <pbrochard@common-lisp.net>
470 * src/clfswm-circulate-mode.lisp (reorder-brother): Handle
471 root-frame correctly.
473 * clfswm.asd: Dependency fix for clfswm-generic-mode.
475 * src/clfswm-circulate-mode.lisp (reorder-child)
476 (reorder-brother): Handle empty frames.
477 (reorder-brother): Redisplay only the parent frame of the current
480 * src/clfswm-util.lisp (frame-toggle-maximize): Redisplay only the
481 parent frame of the current frame.
483 2009-05-09 Philippe Brochard <pbrochard@common-lisp.net>
485 * src/clfswm-util.lisp (frame-toggle-maximize): New function:
486 Maximize/Unmaximize the current frame in its parent frame.
488 * src/clfswm-layout.lisp (maximize-layout): New layout: Maximize
489 windows and frames in there parent frame.
491 2009-05-05 Philippe Brochard <pbrochard@common-lisp.net>
493 * src/*.lisp: Add support for Clozure Common Lisp (CCL).
495 * src/clfswm-circulate-mode.lisp (reorder-child)
496 (reorder-brother): Reinitialise on circulate type change
497 child to brother or brother to child.
499 * src/*.lisp (*): Use map-window instead of xlib:map-window. So
500 calls xlib:display-finish-output on each map-request. So speed up
503 * src/xlib-util.lisp (map-window): New function. Call
504 xlib:display-finish-output on each map request.
506 2009-04-28 Philippe Brochard <pbrochard@common-lisp.net>
508 * src/clfswm-second-mode.lisp (sm-handle-motion-notify):
509 Optimisation when drawing second mode window.
511 2009-04-27 Philippe Brochard <pbrochard@common-lisp.net>
513 * src/clfswm-circulate-mode.lisp (circulate-mode): Optimisation in
516 2009-04-22 Philippe Brochard <pbrochard@common-lisp.net>
518 * src/clfswm-util.lisp (run-program-from-query-string): Launch
519 command only with a return validation.
521 2009-04-22 Xavier Maillard <xma@gnu.org>
523 * src/clfswm-query.lisp (query-string): Use a generic mode.
525 2009-04-19 Xavier Maillard <xma@gnu.org>
527 * src/clfswm-info.lisp (info-mode): Use generic-mode for info-mode.
529 2009-04-18 Xavier Maillard <xma@gnu.org>
531 * src/clfswm-generic-mode.lisp (generic-mode): Add a generic mode
532 to define all other modes.
534 2009-04-05 Philippe Brochard <pbrochard@common-lisp.net>
536 * src/package.lisp (): Use *default-font-string* for all
539 * src/clfswm-info.lisp (info-mode): Ensure integer windows size.
541 2009-02-17 Philippe Brochard <pbrochard@common-lisp.net>
543 * src/xlib-util.lisp (null-size-window-p): Better check of null
546 2009-02-14 Philippe Brochard <pbrochard@common-lisp.net>
548 * src/clfswm.lisp (handle-map-request): Add a fix to manage
549 correctly fullscreen windows (SDL particularly).
551 2008-12-20 Philippe Brochard <pbrochard@common-lisp.net>
553 * src/xlib-util.lisp (get-color): Allocate colors only once -> fix
554 a segfault with clisp/new-clx.
556 * src/clfswm.lisp (handle-motion-notify): Add a needed window
559 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Add a
560 needed window argument.
562 2008-10-30 Philippe Brochard <pbrochard@common-lisp.net>
564 * src/xlib-util.lisp (wait-no-key-or-button-press)
565 (wait-a-key-or-button-press): Check buttons press/release correctly"
567 2008-10-28 Philippe Brochard <pbrochard@common-lisp.net>
569 * src/menu-def.lisp: Add children navigation menu in the movement
570 menu (select next/previous child/brother/level).
572 2008-10-26 Philippe Brochard <pbrochard@common-lisp.net>
574 * *: Rename 'sister' frame to 'brother' frame.
576 * src/clfswm-keys.lisp (unalias-modifiers): Convert a modifier
577 alias in a real modifier.
579 * src/package.lisp (*modifier-alias*): New list of modifier alias
580 For example: :alt is :mod-1, :numlock is :mod-2...
582 * src/tools.lisp (remove-hook): New function.
584 * src/clfswm-keys.lisp (with-capslock, without-capslock)
585 (with-numlock, without-cnumlock): New functions.
587 2008-10-25 Philippe Brochard <pbrochard@common-lisp.net>
589 * src/clfswm-info.lisp: Use the *binding-hook* to create info
590 keys and mouse bindings.
592 * src/bindings-second-mode.lisp: Use the *binding-hook* to create
593 second keys and mouse bindings.
595 * src/bindings.lisp: Use the *binding-hook* to create main keys
598 2008-10-10 Philippe Brochard <pbrochard@common-lisp.net>
600 * src/clfswm-menu.lisp (open-menu): Remember parent menu to undo
603 2008-10-09 Philippe Brochard <pbrochard@common-lisp.net>
605 * src/menu-def.lisp: Use a menu instead of a function for the
608 2008-10-08 Philippe Brochard <pbrochard@common-lisp.net>
610 * src/clfswm-util.lisp (show-standard-menu): Display the standard
611 menu from the 'update-menus' command.
613 2008-10-07 Philippe Brochard <pbrochard@common-lisp.net>
615 * src/clfswm-query.lisp (query-string): Do not ungrab keyboard if
616 it's already grabbed.
618 * src/clfswm-internal.lisp (display-frame-info): Use configurable
619 colors and fix a bug with background.
620 (display-frame-info): Set window background when displaying info.
622 2008-10-06 Philippe Brochard <pbrochard@common-lisp.net>
624 * src/xlib-util.lisp (my-character->keysyms): Use a macro to avoid
625 warning with clisp/new-clx.
627 2008-10-04 Philippe Brochard <pbrochard@common-lisp.net>
629 * src/clfswm-util.lisp (jump-to-slot): Prevent to jump on a
632 2008-09-23 Philippe Brochard <pbrochard@common-lisp.net>
633 * *: **** Release 0809 ****
635 2008-09-23 Philippe Brochard <pbrochard@common-lisp.net>
637 * src/clfswm-util.lisp (ensure-unique-name): New function and menu
639 (ensure-unique-number): New function and menu entry.
641 2008-09-22 Philippe Brochard <pbrochard@common-lisp.net>
643 * src/clfswm-nw-hooks.lisp (named-frame-nw-hook): New new window
644 hook: open the next window in a named frame.
645 (numbered-frame-nw-hook): New new window hook: open the next
646 window in a numbered frame.
648 * src/clfswm-query.lisp (query-string): Grab the keyboard in all
649 cases. So query-string can be called even in the main mode.
651 * src/clfswm-internal.lisp (show-all-children): Do not raise a
652 child by default => far less flickering.
654 2008-09-19 Philippe Brochard <pbrochard@common-lisp.net>
656 * src/bindings-second-mode.lisp: Bind "t" to tile-current-frame.
658 * src/menu-def.lisp: Change key binding for the CLFSWM menu
661 * src/xlib-util.lisp (xgrab-pointer): Handle the case where cursor
662 is nil. (workaround on some CLX implementation).
664 2008-09-12 Philippe Brochard <pbrochard@common-lisp.net>
666 * src/menu-def.lisp: Add a menu to set a focus policy for all
669 * src/clfswm-util.lisp (set-focus-policy-generic-for-all)
670 (all-frames-set-*-focus-policy): Set a focus policy for all
673 * src/clfswm.lisp (handle-enter-notify): sloppy-select
674 mode. Select a child and its parents on mouse over.
676 2008-09-03 Philippe Brochard <pbrochard@common-lisp.net>
678 * src/clfswm.lisp (handle-enter-notify): Add a sloppy strict focus
679 policy -> Sloppy focus only for windows in the current frame.
680 (main-unprotected): Exit clfswm on init error (ie: when another
681 window manager is running).
683 * src/clfswm-util.lisp (reset-clfswm): New function.
685 2008-09-02 Philippe Brochard <pbrochard@common-lisp.net>
687 * src/clfswm-menu.lisp (init-menu): New function.
689 * src/clfswm-util.lisp (reload-clfswm): New function to reload
691 (exit-clfswm): Rename quit-clfswm to exit-clfswm.
693 * src/clfswm.lisp (main, main-unprotected): Handle error in a
694 superior main function. Now CLFSWM can't break the X session. It
695 just reinitialize the display and run a new main loop.
697 * src/clfswm-corner.lisp: Make *clfswm-terminal* and
698 *vt-keyboard-on* global to avoid warnings when loading clfswm.
700 * src/clfswm-layout.lisp: Add a specific GIMP layout menu.
701 (help-on-gimp-layout): Describe how to use the GIMP layout.
703 2008-09-01 Philippe Brochard <pbrochard@common-lisp.net>
705 * src/clfswm-layout.lisp (set-gimp-layout): Change the layout to
706 main-window-right-layout. Change the keybinding for (shift)alt+tab
707 to not select windows in the main window lisst.
708 Bind F8 to add a window in the main window list.
709 Bind F9 to remove a window in the main window list.
710 Change the focus policy to :sloppy.
711 (set-previous-layout): Restore the previous layout, keybinding and
714 2008-08-31 Philippe Brochard <pbrochard@common-lisp.net>
716 * src/clfswm-menu.lisp (add-menu-comment): Add comments in menu.
718 * src/clfswm-layout.lisp (main-window-left-layout)
719 (main-window-bottom-layout, main-window-top-layout): New
721 Factorize layouts in menu.
723 2008-08-30 Philippe Brochard <pbrochard@common-lisp.net>
725 * src/clfswm-layout.lisp (main-window-right-layout): A possible
726 GIMP layout: one or more main windows on one side of the
727 frame. Others on the other size.
729 * src/clfswm-util.lisp
730 (current-frame-set-click/sloppy-focus-policy): Each frame can have
731 a different focus policy (one of :click or :sloppy).
732 The default focus policy is set with *default-focus-policy*.
734 2008-08-23 Philippe Brochard <pbrochard@common-lisp.net>
736 * src/clfswm-info.lisp (show-config-variable): New function.
738 2008-08-19 Philippe Brochard <pbrochard@common-lisp.net>
740 * src/clfswm-layout.lisp (tile-horizontal-layout): New layout.
742 * src/clfswm-info.lisp: Colored help for key binding and corners
745 2008-08-18 Philippe Brochard <pbrochard@common-lisp.net>
747 * src/clfswm-util.lisp (delete-focus-window)
748 (destroy-focus-window): Remove chid only in
749 handle-unmap/destroy-notify. Focus *current-root* only when
750 closing/killing the current child.
752 * src/clfswm-autodoc.lisp (produce-corner-*-doc): New autodoc
753 functions or corners.
755 2008-08-17 Philippe Brochard <pbrochard@common-lisp.net>
757 * src/clfswm-corner.lisp (present-clfswm-terminal): New corner
758 action: Hide/Unhide a terminal on mouse corner action. (By default
759 right mouse button on the top left corner).
761 * src/config.lisp (*never-managed-window-list*): New config
764 * src/clfswm-internal.lisp (never-managed-window-p): New function:
765 Handle never managed window in a more simple way.
767 * src/clfswm-corner.lisp: New file and new and more simple method
768 to define corners actions.
770 2008-08-15 Philippe Brochard <pbrochard@common-lisp.net>
772 * src/clfswm-info.lisp (info-mode): Info line can now be colored.
774 * src/clfswm-layout.lisp (fast-layout-switch)
775 (define-fast-layout-switch): New functions: Switch between two
778 * src/clfswm-second-mode.lisp (leave-second-mode): Takes care if
779 really in the second mode. So leave-second-mode can be used even
782 * src/clfswm-util.lisp (switch-to-last-child): New function:
783 Store the current child and switch to the previous one.
785 2008-07-16 Philippe Brochard <pbrochard@common-lisp.net>
787 * src/clfswm-util.lisp (display-current-window-info): Display the
789 (have-to-present-virtual-keyboard): Add a virtual keyboard corner
790 (top right by default). By default 'xvkbd' is used.
792 2008-06-28 Philippe Brochard <pbrochard@common-lisp.net>
794 * src/xlib-util.lisp (move-window, resize-window): Compress motion
797 * src/clfswm.lisp (handle-motion-notify): Compress motion events.
799 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Compress
802 * src/clfswm-info.lisp (info-mode): Compress motion events.
804 2008-06-21 Philippe Brochard <pbrochard@common-lisp.net>
806 * src/clfswm-internal.lisp (show-all-children): Compute geometry
807 and selection first and then show only necessary children.
808 (show-child): remove unneeded display-p parameter.
810 * src/config.lisp (get-fullscreen-size): Place the frame border
811 outside the screen (this prevent the loose of 2 pixels per
814 2008-06-12 Philippe Brochard <pbrochard@common-lisp.net>
816 * src/clfswm-internal.lisp (focus-child): Algorithm change to
817 raise only the selected child.
819 2008-06-08 Philippe Brochard <pbrochard@common-lisp.net>
821 * src/clfswm-internal.lisp (raise-p-list, show-all-children):
822 Raise only viewable children.
824 2008-06-06 Philippe Brochard <pbrochard@common-lisp.net>
826 * src/clfswm-internal.lisp (show-all-children): Always raise all
827 displayed children. Remove all references to raise-p.
829 2008-06-04 Philippe Brochard <pbrochard@common-lisp.net>
831 * src/menu-def.lisp (child-menu): New menu entry on raise/lower
834 * src/bindings-second-mode.lisp ("Page_Down", "Page_Up"): New
835 second mode binding on raise/lower child in its frame.
837 * src/clfswm-nw-hooks.lisp (leave-focus-frame-nw-hook): Adapt
838 behaviour to the new raise/lower property.
839 Call clear-nw-hook before the rest of the hook.
841 * src/bindings.lisp (mouse-click-to-focus-and-move-window)
842 (mouse-click-to-focus-and-resize-window): Stop button event. This
843 prevent a keyboard/pointer freeze.
845 2008-06-03 Philippe Brochard <pbrochard@common-lisp.net>
847 * src/clfswm-internal.lisp (frame-lower-child)
848 (frame-raise-child): New functions to raise/lower a child in its
851 * src/clfswm-util.lisp (have-to-present-windows)
852 (have-to-present-all-windows): New functions to have an MaxOS
853 expose like on mouse click in screen corner.
855 * src/clfswm-info.lisp ("Page_Down", "Page_Up"): Add boundaries.
857 2008-05-30 Philippe Brochard <pbrochard@common-lisp.net>
859 * src/clfswm-util.lisp (unhide-a-child-from-all-frames): Unhide a
860 child from a choice in all frames with hidden children.
862 * src/clfswm-info.lisp (info-mode-menu): Handle separators.
864 2008-05-28 Philippe Brochard <pbrochard@common-lisp.net>
866 * src/clfswm-util.lisp (hide-current-child, unhide-a-child)
867 (unhide-all-children): New functions.
869 * src/clfswm-info.lisp (info-mode-menu): Handle symbols and
872 * src/clfswm-util.lisp (hide/show-frame-window): new function and
875 2008-05-23 Philippe Brochard <pbrochard@common-lisp.net>
877 * src/clfswm-util.lisp (rename-current-child): Do not display the
878 frame info for a window.
880 2008-05-20 Philippe Brochard <pbrochard@common-lisp.net>
882 * src/clfswm-internal.lisp (remove-child-in-frame): Destroy the
883 frame window for the removed child and its children.
885 2008-05-18 Philippe Brochard <pbrochard@common-lisp.net>
887 * src/clfswm-autodoc.lisp (produce-*-doc-*): Add a note to use the
890 2008-05-17 Philippe Brochard <pbrochard@common-lisp.net>
892 * src/clfswm-nw-hooks.lisp (default-frame-nw-hook): Do not handle
893 the ROX pinboard (ie: leave it lowered in the root window as
896 * src/clfswm-layout.lisp (tile-left-space-layout): New layout.
897 (tile-left-layout, tile-right-layout, tile-top-layout)
898 (tile-bottom-layout): Use all the frame space when there is only
901 * src/clfswm-internal.lisp (place-window-from-hints): Center
902 unmanaged windows in the root screen.
904 * src/clfswm-nw-hooks.lisp (clear-nw-hook, clear-all-nw-hooks):
907 2008-05-15 Philippe Brochard <pbrochard@common-lisp.net>
909 * src/clfswm-util.lisp (current-frame-manage-window-type): Fix a
910 typo in managed types.
912 * src/clfswm-internal.lisp (show-child): Always display frame info
913 even if the frame is hidden.
915 * src/xlib-util.lisp (resize-window): Use a better algorithme to
918 2008-05-13 Philippe Brochard <pbrochard@common-lisp.net>
920 * src/clfswm-util.lisp (with-movement): Display frame info for all
921 frames in current root.
923 2008-05-12 Philippe Brochard <pbrochard@common-lisp.net>
925 * src/*.lisp: Rename 'brother' frames to 'sister' frames.
927 * src/bindings-second-mode.lisp (define-second-key #\a): New
928 binding on 'add-default-frame'.
930 * src/clfswm-autodoc.lisp (produce-*-doc-*-in-file): Show a
931 message to follow the autodocumentation process.
933 2008-05-10 Philippe Brochard <pbrochard@common-lisp.net>
935 * src/clfswm-util.lisp (bind-or-jump): Bind "Tab", "Return" and
936 "Space" to jump to a child. "B" to bind a slot on the current
939 * src/bindings-second-mode.lisp: Use "Tab" instead of
942 2008-05-07 Philippe Brochard <pbrochard@common-lisp.net>
944 * src/clfswm-util.lisp (find-child-under-mouse): Take care of
945 unmanaged (hidden) windows.
947 * src/clfswm-internal.lisp (place-window-from-hints): Give a
948 minimal size for windows.
949 (with-all-windows-frames-and-parent): New function.
951 * src/config.lisp (*default-window-width/height*): New parameters.
953 * src/clfswm-internal.lisp (place-window-from-hints): Center
954 windows in the screen instead of in there frame.
956 * src/bindings-second-mode.lisp (tile-space-current-frame): New
959 * src/clfswm-layout.lisp (register-layout): Intern the once name
960 in the right package.
962 2008-05-05 Philippe Brochard <pbrochard@common-lisp.net>
964 * doc/dot-clfswmrc: Update to follow the new clfswm way.
966 2008-05-03 Philippe Brochard <pbrochard@common-lisp.net>
968 * src/clfswm-internal.lisp (set-current-child)
969 (adapt-child-to-parent, show-child, hide-child): Handle the case
970 where child is not a frame or a window.
972 * src/clfswm-util.lisp
973 (mouse-click-to-focus-generic,mouse-focus-move/resize-generic):
974 Check if child is a frame.
976 * src/clfswm-internal.lisp (managed-window-p): Handle the case
978 (place-frame): Check if frame and parent are frames.
980 * src/clfswm-info.lisp (info-mode): display all frame info before
983 * src/clfswm-second-mode.lisp (second-key-mode): display all frame
986 * src/clfswm-internal.lisp (display-all-frame-info): New function.
988 2008-05-02 Philippe Brochard <pbrochard@common-lisp.net>
990 * src/tools.lisp (getenv): Implemented for ECL.
991 (urun-prog): Implemented for ECL.
993 * src/clfswm-util.lisp (identify-key): Use a double buffer to
996 * src/clfswm-query.lisp (query-string): Use a double buffer to
999 * src/clfswm-info.lisp (draw-info-window): Use a double buffer to
1002 * src/xlib-util.lisp (clear-pixmap-buffer, copy-pixmap-buffer):
1005 2008-05-01 Philippe Brochard <pbrochard@common-lisp.net>
1007 * src/clfswm-info.lisp (info-mode): Add boundaries in the info mode window.
1009 * src/menu-def.lisp: New file: move all menu definition in
1012 * src/clfswm-layout.lisp (register-layout): Use a function instead
1015 2008-04-30 Philippe Brochard <pbrochard@common-lisp.net>
1017 * src/clfswm-autodoc.lisp (produce-menu-doc,
1018 (produce-menu-doc-html): New functions.
1019 (produce-doc-*): Moved to clfswm-autodoc.lisp.
1021 * src/clfswm-util.lisp (paste-selection-no-clear): Prevent to
1022 paste a child on one of its own children. (this prevent a
1024 (move-child-to): Rename move/copy-current-child-by to
1026 (mouse-move-window-over-frame): New function to move the window
1027 under the mouse cursor to another frame.
1029 * src/clfswm-internal.lisp (find-child-in-parent): New function.
1031 2008-04-29 Philippe Brochard <pbrochard@common-lisp.net>
1033 * src/clfswm-internal.lisp (show-all-children): Display unmanaged
1034 windows only when its window parent is the current child.
1036 2008-04-28 Philippe Brochard <pbrochard@common-lisp.net>
1038 * src/clfswm-util.lisp (manage-current-window)
1039 (unmanage-current-window): New functions: Allow to force to manage
1040 or unmanage a window by its parent frame.
1042 * src/bindings-second-mode.lisp (#\o): binded to
1043 set-open-in-new-frame-in-parent-frame-nw-hook and
1044 (#\o :control) to set-open-in-new-frame-in-root-frame-nw-hook
1046 * src/clfswm-util.lisp (with-current-window): New macro.
1048 * src/xlib-util.lisp (move-window, resize-window): Remove uneeded
1049 exposure and enter-window handle event.
1051 * src/clfswm-util.lisp (move-frame, resize-frame): Show all
1052 children for the current child after the move/resize.
1054 2008-04-27 Philippe Brochard <pbrochard@common-lisp.net>
1056 * src/xlib-util.lisp (resize-window): Take care of window size
1059 * src/clfswm-util.lisp (mouse-focus-move/resize-generic): Allow to
1060 move/resize unmanaged windows.
1062 * src/xlib-util.lisp (move-window, resize-window): New functions.
1064 2008-04-25 Philippe Brochard <pbrochard@common-lisp.net>
1066 * src/clfswm-util.lisp (current-frame-manage-window-type): Let the
1067 user choose what window type the current frame must handle.
1068 (display-current-window-info): New function.
1069 (current-frame-manage-all-window-type)
1070 (current-frame-manage-only-normal-window-type)
1071 (current-frame-manage-no-window-type): New functions.
1073 * src/clfswm-internal.lisp (managed-window-p): New function.
1075 * src/package.lisp (frame): Managed type: new frame
1076 parameter. This allow to choose what window type a frame must
1079 * src/*.lisp: Rename all 'father' occurrences to 'parent'.
1081 * src/clfswm-nw-hooks.lisp
1082 (open-in-new-frame-in-parent-frame-nw-hook): New new window hook.
1084 * src/clfswm-util.lisp (adapt-current-frame-to-window-hints): New
1087 * src/tools.lisp (ensure-printable): Return always a string even
1090 2008-04-24 Philippe Brochard <pbrochard@common-lisp.net>
1092 * src/config.lisp (*default-nw-hook*): New variable to change the
1093 default new window hook.
1095 2008-04-22 Philippe Brochard <pbrochard@common-lisp.net>
1097 * clfswm.asd (clfswm): Add a dependency from
1098 clfswm-second-mode.lisp to clfswm.lisp.
1100 * src/clfswm-util.lisp (identify-key): Show the documentation for
1101 the function bound on a key.
1102 (with-movement): Move with-movement,
1103 current-frame-fill/pack/resize-* from bindings-second-mode.lisp
1104 to clfswm-util.lisp.
1106 * src/clfswm-menu.lisp: New menu system that let user change keys
1107 or functions associated to keys.
1109 2008-04-18 Philippe Brochard <pbrochard@common-lisp.net>
1111 * src/clfswm-internal.lisp (show-all-children): Display-child is
1112 the first child by default. Solve a bug with father-p.
1114 2008-04-17 Philippe Brochard <pbrochard@common-lisp.net>
1116 * src/clfswm-internal.lisp (add-frame): Add frame return the
1118 (show-all-children): Move the size computation outside the
1121 * src/bindings-second-mode.lisp (with-movement): Redisplay only
1124 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Redisplay
1125 only the current child.
1127 * src/clfswm-internal.lisp (show-all-children): New display-child
1128 parameter to display only the desired child and its children.
1129 (select-next/previous-child): Only display the current child.
1131 2008-04-14 Philippe Brochard <pbrochard@common-lisp.net>
1133 * src/clfswm.lisp (init-display): Move the default frame creation
1134 on the default init hook.
1136 * src/clfswm-keys.lisp (define-ungrab/grab): Handle all keysyms in
1137 the main mode (for example: "1" on an azerty keyboard).
1139 2008-04-13 Philippe Brochard <pbrochard@common-lisp.net>
1141 * src/clfswm-keys.lisp (find-key-from-code): Better handle of
1142 keysyms. Revert to old grabbing method for the main mode.
1144 2008-04-12 Philippe Brochard <pbrochard@common-lisp.net>
1146 * src/clfswm.lisp (init-display): Add key handling on no focus
1147 window and on frame windows.
1149 2008-04-11 Philippe Brochard <pbrochard@common-lisp.net>
1151 * src/clfswm.lisp (main): Keyboard handle strategie change: Grab
1152 all keys by default and replay just what is needed. No change for
1155 * src/clfswm-keys.lisp: remove grab/ungrab main keys.
1156 (find-key-from-code): Test for shift and not shift presence.
1158 2008-04-09 Philippe Brochard <pbrochard@common-lisp.net>
1160 * src/clfswm-internal.lisp (switch-to-root-frame): show later -
1161 new key parameter to have less flickering.
1163 2008-04-07 Philippe Brochard <pbrochard@common-lisp.net>
1165 * src/bindings-second-mode.lisp (frame-layout-once-menu): Set the
1166 layout only one time and revert to no-layout to freely handle
1169 * src/clfswm-nw-hooks.lisp
1170 (open-in-new-frame-in-root-frame-nw-hook): Tile layout with spaces
1171 with new created window.
1173 * src/clfswm-layout.lisp (register-layout): Now register
1174 automatically a once layout to set the layout only one time and
1175 revert to no-layout to freely handle frames.
1177 2008-04-05 Philippe Brochard <pbrochard@common-lisp.net>
1179 * src/clfswm-nw-hooks.lisp (leave-focus-frame-nw-hook): New
1180 nw-hook: Open the next window in the current frame and leave the
1181 focus to the current child.
1183 2008-04-04 Philippe Brochard <pbrochard@common-lisp.net>
1185 * src/bindings-second-mode.lisp: Add keys definitions to
1186 bind-or-jump in the second mode.
1188 * src/clfswm-util.lisp (bind-or-jump): remove the auto-defining
1189 macro for bind-or-jump-(1|2|3...).
1191 * src/clfswm-keys.lisp (define-define-key/mouse): Allow additional
1192 arguments to function. This allow to do things like:
1193 (define-main-key (key) 'my-function 10 20 'foo) -> 10 20 and 'foo
1194 are passed to my-function on key press.
1196 2008-04-03 Philippe Brochard <pbrochard@common-lisp.net>
1198 * src/clfswm-util.lisp (bind-or-jump): New (great) function.
1200 2008-04-02 Philippe Brochard <pbrochard@common-lisp.net>
1202 * src/clfswm-internal.lisp (child-fullname): New function
1204 * src/clfswm-info.lisp (info-mode-menu): Add an explicit optional
1205 docstring in info-mode-menu. An item can be
1206 '((key function) (key function)) or with docstring
1207 '((key function "documentation 1") (key function "bla bla") (key function))
1209 * src/tools.lisp (ensure-n-elems): New function.
1211 * src/bindings-second-mode.lisp: Bind Alt+mouse-1/3 to move or
1212 resize a frame or the window's father.
1214 * src/clfswm.lisp (init-display): Remove tile-space-layout by
1215 default on the root frame.
1217 * src/clfswm-util.lisp (move/resize-frame): Add standard event
1218 hooks handlers (map-request, configure-notify...)
1220 * src/clfswm-internal.lisp (adapt-child-to-father): Limit minimal
1223 2008-04-01 Philippe Brochard <pbrochard@common-lisp.net>
1225 * src/bindings.lisp: Bind Alt+mouse-1/3 to move or resize a frame
1226 or the window's father.
1228 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Stop button
1229 event only if there is a geometry change.
1230 (mouse-focus-move/resize-generic): Generic function to move or
1231 resize a frame or a window father frame.
1233 2008-04-01 Philippe Brochard <pbrochard@common-lisp.net>
1235 * src/clfswm-internal.lisp (show-all-children): Return t if there
1236 is a geometry change.
1238 2008-03-30 Philippe Brochard <pbrochard@common-lisp.net>
1240 * src/bindings.lisp (Up/Down): Swap select previous/next level.
1242 * src/bindings-second-mode.lisp (Up/Down): Swap select previous/next level.
1244 * src/clfswm.lisp (init-display): Create a default frame in the root frame.
1246 * src/clfswm-internal.lisp (place-frame): Place frame from real (pixel) coordinates.
1247 (with-all-*): Reverse the child list to manage the first child last (like in
1250 * src/config.lisp (*create-frame-on-root*): New variable: Create a new frame on the
1251 root window only if true.
1253 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Create a new frame on the
1254 root window only if *create-frame-on-root* is true.
1256 * src/bindings-second-mode.lisp (sm-mouse-click-to-focus-generic): Create a new frame
1259 2008-03-29 Philippe Brochard <pbrochard@common-lisp.net>
1261 * src/bindings-second-mode.lisp (sm-mouse-click-to-focus-generic): Focus, move and resize
1262 the current child (even if it's a window).
1264 2008-03-28 Philippe Brochard <pbrochard@common-lisp.net>
1266 * src/clfswm-util.lisp (mouse-click-to-focus-and-move)
1267 (mouse-click-to-focus-and-resize): New functions.
1269 * src/clfswm-internal.lisp (*-fl->px): Convert float coordinates to pixel.
1270 (*-px->fl): Convert pixel coordinates to float.
1272 * src/tools.lisp (call-hook): Move call-hook to tools.lisp.
1274 2008-03-27 Philippe Brochard <pbrochard@common-lisp.net>
1276 * src/clfswm-layout.lisp (no-layout): Use :first-only to raise only the
1279 * src/clfswm-internal.lisp (hide-all): Split hide-all-children in hide-all
1280 and hide-all-children.
1281 (raise-if-needed): New function.
1282 (show-child): Use a first-p parameter to raise windows only when they are
1285 2008-03-26 Philippe Brochard <pbrochard@common-lisp.net>
1287 * src/clfswm-internal.lisp (select-next/previous-level): Don't use show-all-children
1290 2008-03-25 Philippe Brochard <pbrochard@common-lisp.net>
1292 * src/clfswm-info.lisp (keys-from-list): new function.
1294 * src/*: rename 'childs' in 'children'.
1296 * src/*: rename 'group' in 'frame'.
1298 2008-03-22 Philippe Brochard <pbrochard@common-lisp.net>
1300 * src/clfswm-pack.lisp (explode-group/explode-current-group): new functions.
1302 2008-03-21 Philippe Brochard <pbrochard@common-lisp.net>
1304 * src/clfswm-pack.lisp: Pack, Fill, Resize functions.
1306 2008-03-16 Philippe Brochard <pbrochard@common-lisp.net>
1308 * src/clfswm-nw-hooks.lisp: Register system for new window hooks.
1309 Bind control+o to open the next window in a new group in the root group
1310 (as open in next window in a new workspace in 0801 version).
1312 2008-03-15 Philippe Brochard <pbrochard@common-lisp.net>
1314 * src/clfswm-util.lisp (show/hide-all-groups-info/key): Show/hide all groups info
1317 2008-03-14 Philippe Brochard <pbrochard@common-lisp.net>
1319 * bindings-second-mode.lisp ("ISO_Left_Tab"): Use ISO_Left_Tab
1320 instead of Tab for select-previous-child.
1322 2008-03-13 Philippe Brochard <pbrochard@common-lisp.net>
1324 * clfswm-util.lisp (force-window-in-group/force-window-center-in-group):
1327 2008-03-11 Philippe Brochard <pbrochard@common-lisp.net>
1329 * clfswm-util.lisp (identify-key): Display the documentation
1330 associated to keys when identifying a key.
1332 2008-03-10 Xavier Maillard <xma@gnu.org>
1334 * contrib/clfswm: Complete rewrite of the script. Detect error and
1335 act accordingly. Add command line arguments to configure the
1336 script execution. User can now choose different common lisp
1337 implementation (clisp and sbcl only), choose where to store the
1338 dumped image, where to find clfswm source.
1340 2008-03-09 Philippe Brochard <pbrochard@common-lisp.net>
1342 * clfswm-internal.lisp (process-new-window): Beginning of new
1343 window hook: each group have a hook to tell what he wants to do
1344 with the new created window.
1346 2008-03-08 Xavier Maillard <xma@gnu.org>
1348 * contrib/clfswm: New script. Dump a CLISP image of CLFSWM then
1349 call the resulting executable.
1351 * clfswm.lisp (read-conf-file): Check for the user config file in
1352 XDG_CONFIG_HOME *first*. Freedesktop.org standards should be
1353 prefered whenever possible.
1355 2008-02-27 Philippe Brochard <pbrochard@common-lisp.net>
1357 * clfswm-layout.lisp (*-layout): Add an optional raise-p
1358 parameter in each layout.
1360 2008-02-26 Philippe Brochard <pbrochard@common-lisp.net>
1362 * clfswm-util.lisp (copy/cut-current-child): Does not affect the
1364 (copy/move-current-child-by-name/number): new functions
1365 (focus-group-by-name/number): new functions
1366 (delete-group-by-name/number): new functions
1368 2008-02-24 Philippe Brochard <pbrochard@common-lisp.net>
1370 * ************************************************************ *
1371 *: Major update - No more reference to workspaces. The main *
1372 structure is a tree of groups or application windows. *
1373 * ************************************************************ *
1375 2008-02-07 Philippe Brochard <pbrochard@common-lisp.net>
1377 * clfswm.lisp (read-conf-file): Read configuration in
1378 $HOME/.clfswmrc or in /etc/clfswmrc or in
1379 $XDG_CONFIG_HOME/clfswm/clfswmrc.
1380 (xdg-config-home): Return the content of $XDG-CONFIG-HOME (default
1383 2008-01-18 Philippe Brochard <pbrochard@common-lisp.net>
1385 * clfswm-internal.lisp (show-all-group): Use *root* and *root-gc*
1388 2008-01-03 Philippe Brochard <pbrochard@common-lisp.net>
1390 * clfswm-internal.lisp (find-window-group): New function.
1392 * clfswm*: Change to make clfswm run with clisp/new-clx.
1394 2008-01-01 Philippe Brochard <pbrochard@common-lisp.net>
1396 * clfswm-util.lisp (query-show-paren): Add show parent matching in
1398 (query-string): Bind control+k to delete end of line.
1400 * clfswm-second-mode.lisp (draw-second-mode-window): Display
1401 the action on mouse motion in second mode.
1403 * clfswm.lisp (handle-exposure): Redisplay groups on exposure
1404 event but do not clear the root window.
1405 (handle-configure-request): Adjust unmanaged window from there
1408 * clfswm-internal.lisp (process-new-window): Adjust new window
1409 with the specified hints (max/min/base width/height).
1411 2007-12-31 Philippe Brochard <pbrochard@common-lisp.net>
1413 * clfswm.lisp (handle-configure-request): Send an Configuration
1414 Notify event. This solve a bug with xterm and rxvt who takes some
1415 times to be mapped. Now there is no delay.
1417 * bindings-second-mode.lisp (define-shell): Run programs after
1418 living the second mode.
1420 2007-12-30 Philippe Brochard <pbrochard@common-lisp.net>
1422 * clfswm-internal.lisp (process-new-window): Do not crop transient
1423 window to group size.
1424 (adapt-window-to-group): Do not crop transient window to group
1427 * clfswm.lisp (handle-configure-request): Adapt just the window to
1428 its group and don't take care of the configure request. Remove the
1429 bug with the Gimp outside the group and speed up the window
1431 (handle-exposure): Remove show-all-group on exposure event
1434 2007-12-29 Philippe Brochard <pbrochard@common-lisp.net>
1436 * clfswm-util.lisp (circulate-group-up-copy-window)
1437 (circulate-group-down-copy-window)
1438 (circulate-workspace-up-copy-group)
1439 (circulate-workspace-down-copy-group): Prevent the copy of the
1440 same window in the same workspace.
1442 * bindings-second-mode.lisp (release-copy-selected-window)
1443 (release-copy-selected-group): Prevent the copy of the same window
1444 in the same workspace.
1446 * clfswm-pager.lisp (generic-pager-move-window-on-previous-line)
1447 (generic-pager-move-window-on-next-line): Remove the copy
1449 (generic-pager-move-group-on-next-workspace)
1450 (generic-pager-move-group-on-previous-workspace): Prevent the copy
1451 of the same window in the same workspace.
1453 * bindings-pager.lisp (mouse-pager-copy-selected-window-release)
1454 (mouse-pager-copy-selected-group-release): Prevent the copy of the
1455 same window in the same workspace.
1457 * tools.lisp (setf/=): new macro to set a variable only when
1460 * clfswm-internal.lisp (adapt-window-to-group): use set/= to set
1461 x, y... only when necessary.
1463 2007-12-28 Philippe Brochard <pbrochard@common-lisp.net>
1465 * clfswm.lisp (handle-configure-notify, *configure-notify-hook*):
1466 new function and hook: force windows to stay in its group (solve a
1469 2007-12-25 Philippe Brochard <pbrochard@common-lisp.net>
1471 * bindings-second-mode.lisp (mouse-motion): use hide-group to have
1472 less flickering when moving/resizing groups.
1474 * clfswm-internal.lisp (hide-group): new function.
1475 (show-all-group): clear-all: new parameter.
1477 2007-12-22 Philippe Brochard <pbrochard@common-lisp.net>
1479 * clfswm-keys.lisp (define-define-key): undefine-*-multi-name: new
1481 * clfswm*: Color change for the pager. Typo or better description
1482 in bindings definitions. Define bindings for a qwerty keyboard by
1483 default. dot-clfswmrc show examples to switch to an azerty
1485 License change to GPL v3.
1486 * config.lisp: new file - group all globals variables in this
1489 2007-08-26 Philippe Brochard <pbrochard@common-lisp.net>
1491 * xlib-util.lisp (hide-window): Remove structure-notivy events
1492 when hidding a window.
1494 2007-05-16 Philippe Brochard <pbrochard@common-lisp.net>
1496 * package.lisp (*sm-property-notify-hook*): Readded
1497 property-notify-hook in second mode.
1499 2007-05-15 Philippe Brochard <pbrochard@common-lisp.net>
1501 * clfswm-keys.lisp (produce-doc-html): Better clean up for strings.
1503 2007-05-13 Philippe Brochard <pbrochard@common-lisp.net>
1505 * clfswm-pack.lisp (tile-current-workspace-to/right/left/top/bottom):
1506 Tile the current workspace with the current window on one side and
1507 others on the other (this emulate the larswm, dwm, wmii way). See
1508 the default configuration file to enable this mode by default.
1510 * clfswm-pager.lisp (pager-tile-current-workspace-to): idem for
1513 2007-05-12 Philippe Brochard <pbrochard@common-lisp.net>
1515 * clfswm-pager.lisp (pager-draw-window-in-group): Add
1516 ensure-printable to print windows name even with non-ascii
1519 2007-05-11 Philippe Brochard <pbrochard@common-lisp.net>
1521 * clfswm-pager.lisp (pager-explode-current-group): Create a new
1522 group for each window in group.
1523 (pager-implode-current-group): Move all windows in workspace to
1524 one group and remove other groups.
1526 * clfswm-pack.lisp (explode-group): Create a new group for each
1528 (implode-group): Move all windows in workspace to one group and
1529 remove other groups.
1531 * clfswm-util.lisp (identify-key): Remove local configuration
1532 variables and made them available for configuration from
1534 (query-string): idem.
1536 2007-04-29 Philippe Brochard <pbrochard@common-lisp.net>
1538 * netwm-util.lisp: Start of NetWM compliance.
1539 Add a Netwm client list gestion.
1541 2007-04-28 Philippe Brochard <pbrochard@common-lisp.net>
1543 * clfswm-internal.lisp (create-group-on-request): open a new group
1544 only when the current group is not empty.
1546 * bindings-second-mode.lisp (define-second-key-#\o-control): Fix a
1547 bug with null workspace.
1549 * clfswm-pager.lisp (pager-handle-event): Add a hook
1550 system. This hooks can be changed in the user configuration file.
1552 * package.lisp: All colors and font variables are set in
1553 package.lisp and can be configured in the user configuration
1555 Note: If you have configured some less ugly colors (esp. for the
1556 pager) don't hesitate to let me know :)
1558 * clfswm-second-mode.lisp (sm-handle-event): Add a hook
1559 system. This hooks can be changed in the user configuration file.
1561 * clfswm.lisp (handle-event): Add a hook system. This hooks can be
1562 changed in the user configuration file (~/.clfswmrc)
1564 2007-04-25 Philippe Brochard <pbrochard@common-lisp.net>
1566 * clfswm-util.lisp (stop-all-pending-actions): new function: reset
1567 arrow action, open next window in new workspace/group.
1569 * bindings.lisp (stop-all-pending-actions): new binding.
1570 (open-next-window-in-new-group-once): Open the next windows in a
1571 new group (only once) or open all new windows in a new group (like
1572 others windows managers).
1574 2007-04-22 Philippe Brochard <pbrochard@common-lisp.net>
1576 * clfswm.lisp (read-conf-file): New function to read a lisp
1577 configuration file at startup.
1578 (focus-group-under-mouse): Check if group isn't the current group
1579 ( prevent a bug with unclutter ).
1581 2007-03-02 Philippe Brochard <pbrochard@common-lisp.net>
1583 * bindings.lisp (run-program-from-query-string): A program can be
1584 launch from a input query window.
1586 2007-03-01 Philippe Brochard <pbrochard@common-lisp.net>
1588 * clfswm-info.lisp: Fix a bug with banish pointer in info mode.
1590 2007-02-28 Philippe Brochard <pbrochard@common-lisp.net>
1592 * clfswm.lisp (process-new-window): One can now open the next
1593 window in a workspace called by its number.
1595 * clfswm-util.lisp (query-font-string): Minimal editing
1597 (eval-from-string): And an REPL in the window manager... :)
1599 2007-02-26 Philippe Brochard <pbrochard@common-lisp.net>
1601 * clfswm.lisp (process-new-window): One can now open the next
1602 window in a new workspace or a new group.
1604 * clfswm-pager.lisp (pager-mode): Display the next arrow action
1605 with the hidden windows.
1607 * clfswm.lisp (second-key-mode): Display the current workspace
1608 number and the next arrow action in the state window.
1610 * clfswm-pager.lisp (pager-mode): Hide all windows before leaving
1611 the pager mode and then redisplay only the current workspace.
1613 2007-02-25 Philippe Brochard <pbrochard@common-lisp.net>
1615 * clfswm.lisp (add-workspace): Workspaces are now numbered. So
1616 they can be focused with a keypress, sorted or renumbered.
1618 2007-02-24 Philippe Brochard <pbrochard@common-lisp.net>
1620 * clfswm-pager.lisp (pager-mode): Remove multiple silly
1621 pager-draw-display. This prevent a lot of flickering in the
1624 * clfswm.lisp: Remove all display-force-output and replace them
1625 with only one display-finish-output in the event loop.
1627 2006-11-06 Philippe Brochard <pbrochard@common-lisp.net>
1629 * clfswm-pager.lisp (pager-center-group): New function - center a
1630 group at the middle of the screen.
1632 * clfswm-pack.lisp (center-group): New function - center a group
1633 at the middle of the screen.
1635 * clfswm.lisp (show-group): Add a cross line under the group.
1636 (show-group): Group are showned even if fullscreened.
1637 (init-display): Add an exposure event on the root window.
1639 2006-11-05 Philippe Brochard <pbrochard@common-lisp.net>
1641 * package.lisp (*default-group*): Default group is the same size
1642 of a fullscreened group.
1644 * bindings*: Use shift to move, control+shift to copy.
1646 * *.lisp: Add comments for configuration or alternatives. So grep
1647 for CONFIG to see where you can configure clfswm. And grep for
1648 Alternative to use some commented code.
1650 * clfswm.lisp (second-key-mode): Use a single window to show the
1651 second mode. See for alternatives at the end of this file.
1653 2006-11-03 Philippe Brochard <pbrochard@common-lisp.net>
1655 * clfswm-keys.lisp (define-define-key/mouse): Factorisation in a
1656 macro of key and mouse definitions.
1657 (define-define-key/mouse): Use state instead of modifiers list
1658 this fix a bug when the modifiers list is not in the rigth order.
1660 * clfswm.lisp (second-key-mode): Add a colored border in second mode.
1662 2006-11-02 Philippe Brochard <pbrochard@common-lisp.net>
1664 * clfswm-info.lisp (info-mode): Add an info mode.
1666 2006-11-01 Philippe Brochard <pbrochard@common-lisp.net>
1668 * clfswm.lisp (process-new-window): Change border size for
1670 (show-all-windows-in-workspace): Unhide all windows even when the
1671 current group is in fullscreen mode.
1673 2006-10-26 Philippe Brochard <pbrochard@common-lisp.net>
1675 * clfswm-util.lisp (identify-key): Add an exposure handle-event to
1676 redisplay the identify window after a terminal switch.
1678 * clfswm-pager.lisp (pager-mode): Add an exposure handle-event to
1679 redisplay the pager after a terminal switch.
1681 2006-10-24 Philippe Brochard <pbrochard@common-lisp.net>
1683 * clfswm-util.lisp (identify-key): Add a window to display
1684 the keys to identify on screen.
1686 * bindings.lisp, bindings-pager.lisp: Define same keys to
1687 move/copy groups/windows in second mode and in pager.
1689 * clfswm.lisp (handle-event*): Same version in all clfswm (fix some
1691 (show-all-windows-in-workspace): unhide window before adapting it
1694 2006-10-23 Philippe Brochard <pbrochard@common-lisp.net>
1696 * clfswm.lisp (handle-event): Revert to an older version.
1698 2006-10-18 Philippe Brochard <pbrochard@common-lisp.net>
1700 * clfswm-util.lisp (force-window-in-group)
1701 (force-window-center-in-group): New functions for transient windows.
1703 * clfswm-pager.lisp (pager-remove-current-workspace/group):
1704 bugfix: hide all windows before removing group or workspace.
1706 2006-10-17 Philippe Brochard <pbrochard@common-lisp.net>
1708 * bindings-pager.lisp (mouse-pager-move-selected-group)
1709 (mouse-pager-copy-selected-group)
1710 (mouse-pager-move-selected-window)
1711 (mouse-pager-copy-selected-window, mouse-pager-rotate-window-up)
1712 (mouse-pager-rotate-window-down): New functions to have mouse in
1715 * clfswm-pager.lisp (pager-swap-window)
1716 (pager-copy-group-on-next/previous-workspace)
1717 (pager-copy-window-on-next/previous-line): New functions
1719 2006-10-15 Philippe Brochard <pbrochard@common-lisp.net>
1721 * clfswm-pager.lisp (pager-move-window-on-next/previous-line,
1722 (pager-move-group-on-next/previous-workspace): new functions.
1724 * clfswm-pack.lisp (resize-half-x-x-current-group): resize group
1725 to its half size (new functions).
1727 2006-10-11 Philippe Brochard <pbrochard@common-lisp.net>
1729 * clfswm-pager.lisp: workspaces, groups and windows can now be
1730 selectionned with the keyboard or the mouse.
1732 2006-10-09 Philippe Brochard <pbrochard@common-lisp.net>
1734 * clfswm-pager.lisp (pager-select-workspace-right/left):
1735 workspaces can now be selectionned with the keyboard.
1737 2006-10-08 Philippe Brochard <pbrochard@common-lisp.net>
1739 * clfswm-keys.lisp (undefine-main-key, undefine-second-key, undefine-mouse-action):
1740 new function to remove a previous defined key or mouse combination.
1742 2006-10-07 Philippe Brochard <pbrochard@common-lisp.net>
1744 * clfswm.lisp (main): Check for access error in init-display.
1746 * clfswm-keys.lisp (define-ungrab/grab): check for keysym and
1747 keycode before grabbing.
1749 * bindings.lisp: Remove nlambda and use defun to keep the function
1750 documentation with clisp.
1751 (define-shell): new macro to define shell command for the second
1754 2006-10-06 Philippe Brochard <pbrochard@common-lisp.net>
1756 * clfswm-keys.lisp (define-ungrab/grab): use a cond instead of a
1759 2006-10-05 Philippe Brochard <pbrochard@common-lisp.net>
1761 * bindings.lisp (accept-motion): Move group bugfix in upper mouse
1762 workspace circulation.
1764 * clfswm-util.lisp (absorb-orphan-window): new function.
1766 * clfswm-keys.lisp: Keysyms support.
1768 2006-10-02 Philippe Brochard <pbrochard@common-lisp.net>
1770 * clfswm.lisp (show-group): Use one gc for all groups and not one
1773 2006-10-01 Philippe Brochard <pbrochard@common-lisp.net>
1775 * bindings.lisp (define-second-key (#\l :mod-1)): fix a typo.
1777 * clfswm.lisp (adapt-window-to-group): Adapt only windows with
1778 width and height outside group.
1780 2006-09-28 Philippe Brochard <pbrochard@common-lisp.net>
1782 * clfswm.lisp: First public release.