1 2011-02-09 Philippe Brochard <pbrochard@common-lisp.net>
3 * src/clfswm-util.lisp (mouse-focus-move/resize-generic): Take
4 care of never managed windows to move or resize them if the raise
7 * src/clfswm-internal.lisp (in-frame, in-window, in-child): New
10 2011-02-08 Philippe Brochard <pbrochard@common-lisp.net>
12 * src/clfswm.lisp (main-mode): Raise or not unmanaged windows
13 following request in *never-managed-window-list*.
15 2011-02-05 Philippe Brochard <pbrochard@common-lisp.net>
17 * *: **** Release 1102 ****
19 2011-02-05 Desmond O. Chang <dochang@gmail.com>
21 * src/keysyms.lisp: Add extended keysyms from stumpwm.
23 2011-02-01 Desmond O. Chang <dochang@gmail.com>
25 * src/clfswm-util.lisp (run-or-raise): New function (thanks to
28 * src/clfswm-internal.lisp (with-all-*): add a nil block.
30 2011-01-28 Desmond O. Chang <dochang@gmail.com>
32 * src/clfswm-util.lisp (xdg-config-home): XDG_CONFIG_HOME should
33 be $HOME/.config by default.
35 2010-12-29 Philippe Brochard <pbrochard@common-lisp.net>
37 * contrib/osd.lisp (display-doc): Add another method where a
38 CLFSWM native window is used to display the key documentation.
40 2010-12-27 Philippe Brochard <pbrochard@common-lisp.net>
42 * src/xlib-util.lisp (with-xlib-protect): Force to revert to the
45 2010-12-25 Philippe Brochard <pbrochard@common-lisp.net>
47 * src/clfswm-second-mode.lisp (second-key-mode): Call the second
48 mode leave function only when the generic mode was ended.
50 2010-12-08 Philippe Brochard <pbrochard@common-lisp.net>
52 * src/clfswm-second-mode.lisp (sm-leave-function): Do not use
53 *second-mode-program* anymore.
55 2010-12-07 Philippe Brochard <pbrochard@common-lisp.net>
57 * src/clfswm-second-mode.lisp (*second-mode-leave-function*): New
58 variable bound to a function executed (when not null) on second
61 2010-11-14 Philippe Brochard <pbrochard@common-lisp.net>
63 * src/clfswm-util.lisp (find-child-under-mouse): Do not find
66 2010-11-13 Philippe Brochard <pbrochard@common-lisp.net>
68 * src/clfswm-expose-mode.lisp (expose-mode-display-accel-windows):
69 Do not display the accel window for unmanaged windows.
71 2010-11-11 Philippe Brochard <pbrochard@common-lisp.net>
73 * src/clfswm-internal.lisp (set-current-root): Handle
74 window-parent in set-current-root.
76 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Do not
77 focus the parent child when the current root is a window.
79 2010-11-09 Philippe Brochard <pbrochard@common-lisp.net>
81 * src/clfswm-expose-mode.lisp (expose-windows-current-child-mode):
82 New function an bindings.
84 * src/clfswm-layout.lisp (tile-layout, set-tile-layout): Fill
87 2010-11-07 Philippe Brochard <pbrochard@common-lisp.net>
89 * src/clfswm-layout.lisp (tile-layout-ask-keep-position): New
90 function to let the user choose to keep child position with
93 * src/clfswm-internal.lisp (remove-frame-data-slot): New
96 2010-11-05 Philippe Brochard <pbrochard@common-lisp.net>
98 * src/clfswm-internal.lisp (frame-select-next-child)
99 (frame-select-previous-child): New functions and bindings. Select
100 the next/previous child in the current frame.
102 2010-10-31 Philippe Brochard <pbrochard@common-lisp.net>
104 * src/clfswm-query.lisp (query-mode-complet): New function: Handle
105 completion in query-mode.
107 2010-10-30 Philippe Brochard <pbrochard@common-lisp.net>
109 * src/clfswm-query.lisp (query-print-string): Handle long lines
112 2010-10-27 Philippe Brochard <pbrochard@common-lisp.net>
114 * src/clfswm-expose-mode.lisp (expose-create-window): Ensure that
115 all characters are printable.
117 2010-10-25 Philippe Brochard <pbrochard@common-lisp.net>
119 * contrib/server/server.lisp: Load clfswm client code in the main
120 program and let the user start it with a --client command line
123 * src/package.lisp (*main-entrance-hook*): New hook executed after
124 loading configuration file and before opening the display.
126 2010-10-23 Philippe Brochard <pbrochard@common-lisp.net>
128 * src/xlib-util.lisp: Remove unnecessary xlib:display-finish-output.
130 * src/clfswm-internal.lisp (show-child): Show window only if not
133 * src/clfswm-keys.lisp (binding-substitute-modifier): Utility to
134 change modifiers after binding definition.
136 2010-10-21 Philippe Brochard <pbrochard@common-lisp.net>
138 * contrib/osd.lisp: New file: OSD (On Screen Display) for
141 * src/clfswm-menu.lisp (open-menu): Modularise function.
143 2010-10-13 Philippe Brochard <pbrochard@common-lisp.net>
145 * src/clfswm-info.lisp (show-first-aid-kit): Display the essential
146 key binding in main and second mode.
148 2010-10-10 Philippe Brochard <pbrochard@common-lisp.net>
150 * src/clfswm-util.lisp (open-notify-window): Convert hello-window
151 functions to a more generic Notify-window system.
153 * src/tools.lisp (add-timer): Add an id to identify the timer.
155 2010-10-09 Philippe Brochard <pbrochard@common-lisp.net>
157 * src/tools.lisp (erase-timer): New function.
159 * src/clfswm-util.lisp (display-hello-window): Add a timer to hide
160 the hello window. Add Configuration variables.
162 2010-10-08 Philippe Brochard <pbrochard@common-lisp.net>
164 * src/clfswm-util.lisp (): Add an Hello window at startup.
166 * src/tools.lisp (process-timers): Add a timer system.
168 2010-10-07 Philippe Brochard <pbrochard@common-lisp.net>
170 * src/clfswm-query.lisp (add-in-query-string): Handle correctly
173 2010-10-06 Philippe Brochard <pbrochard@common-lisp.net>
175 * src/clfswm-query.lisp (query-print-string): Change cursor color
176 and show parenthesis matching with colors (on match and on
179 2010-10-05 Philippe Brochard <pbrochard@common-lisp.net>
181 * src/clfswm-internal.lisp (show-all-children): Do not raise a
182 child when its parent is hidden.
184 2010-10-02 Philippe Brochard <pbrochard@common-lisp.net>
186 * src/clfswm-circulate-mode.lisp (select-next-subchild): Add the
187 possibility to circulate over subchild of the current child.
189 * src/clfswm-expose-mode.lisp (expose-all-windows-mode)
190 (expose-windows-generic): Add an escape-body function to return to
191 the original state on escape key.
193 * src/clfswm-util.lisp (bind-on-slot): Add an optional parameter
194 to bind the current child from the configuration file.
196 2010-10-01 Philippe Brochard <pbrochard@common-lisp.net>
198 * src/clfswm-nw-hooks.lisp (absorb-window-nw-hook): Absorb new
199 window hook: the frame absorb all new windows that match
200 nw-absorb-test frame data slot.
202 2010-09-30 Philippe Brochard <pbrochard@common-lisp.net>
204 * src/clfswm-expose-mode.lisp (expose-create-window): Show window
205 title in accel window.
207 2010-09-29 Philippe Brochard <pbrochard@common-lisp.net>
209 * configure: Use the Xavier Maillard clfswm script in contrib to
210 build an executable in the standard way.
212 2010-09-26 Philippe Brochard <pbrochard@common-lisp.net>
214 * src/clfswm-expose-mode.lisp (expose-mode-display-accel-windows):
215 New functions. Add a window on each child in the expose mode to
218 * src/clfswm-internal.lisp (child-x, child-y, child-width)
219 (child-height): New methods to get real child coordinates.
221 2010-09-25 Philippe Brochard <pbrochard@common-lisp.net>
223 * src/clfswm-layout.lisp (*-layout): Use child-position.
225 * src/clfswm-internal.lisp (child-position): New function.
227 * src/clfswm-expose-mode.lisp (expose-windows-mode)
228 (expose-all-windows-mode): Use a generic mode.
230 * src/xlib-util.lisp (with-handle-event-symbol): Use a filled list
231 with handle-event-fun symbols instead of inspecting clfswm
232 internals symbols on each mode change.
234 * src/clfswm-expose-mode.lisp: Move and rename present*-windows in
235 a separate clfswm-expose-mode.lisp file.
237 * src/clfswm-util.lisp (speed-mouse-right, speed-mouse-down): Use
238 screen size instead of hardcoded test coordinates.
240 2010-09-24 Philippe Brochard <pbrochard@common-lisp.net>
242 * src/clfswm-util.lisp (speed-mouse-reset, speed-mouse-left)
243 (speed-mouse-right, speed-mouse-up, speed-mouse-down)
244 (speed-mouse-undo, speed-mouse-first-history): New functions to
245 quickly move the mouse. Implemented for the second mode.
247 2010-09-16 Philippe Brochard <pbrochard@common-lisp.net>
249 * contrib/clfswm: Move clfswm sources to $tmp_dir if there is no
250 write permission on $clfswm_asd_path. So anybody can start clfswm
251 even if there is no write permission on the source directory.
253 2010-09-12 Philippe Brochard <pbrochard@common-lisp.net>
255 * contrib/clfswm: Add support to cmucl, ccl and ecl.
257 2010-09-11 Philippe Brochard <pbrochard@common-lisp.net>
259 * src/clfswm-util.lisp (set-hide-unmanaged-window)
260 (set-show-unmanaged-window, set-default-hide-unmanaged-window):
261 New functions and menu entry.
262 (set-globally-hide-unmanaged-window)
263 (set-globally-show-unmanaged-window): New functions and menu
266 * src/clfswm-internal.lisp (hide-unmanager-window-p): New
268 (show-child): Add a data slot on frame to hide or not unmanaged
271 * src/clfswm-corner.lisp (present-clfswm-terminal)
272 (present-virtual-keyboard): Use a function (generic-present-body)
273 instead of a macro (generate-present-body).
275 * src/clfswm-util.lisp (update-menus): List all directories and
276 subdirectories in $XDG_DATA_DIRS/applications.
278 2010-09-10 Philippe Brochard <pbrochard@common-lisp.net>
280 * src/clfswm-corner.lisp (generate-present-body): New macro.
281 (present-clfswm-terminal, present-virtual-keyboard): Use
282 generate-present-body.
284 2010-09-09 Philippe Brochard <pbrochard@common-lisp.net>
286 * src/clfswm-util.lisp (update-menus): Follow XDG specifications
287 instead of the non-portable Debian update-menu.
289 2010-09-07 Philippe Brochard <pbrochard@common-lisp.net>
291 * src/clfswm.lisp (error-handler): New function do handle
292 asynchronous errors and ignore them.
293 (open-display): Install the new error-handler on display.
295 2010-09-05 Philippe Brochard <pbrochard@common-lisp.net>
297 * src/xlib-util.lisp (with-xlib-protect): Add a
298 with-simple-restart on top of body execution.
300 2010-09-04 Philippe Brochard <pbrochard@common-lisp.net>
302 * src/clfswm.lisp (main-loop): Protect all xlib functions with an
305 * src/xlib-util.lisp (handle-event): use with-xlib-protect only in
306 handle-event. Add a with-simple-restart to prevent a
307 clisp/new-lisp infinite loop.
309 2010-08-30 Philippe Brochard <pbrochard@common-lisp.net>
311 * src/clfswm-corner.lisp (present-clfswm-terminal): Make the
312 clfswm terminal working even on xterm title changes.
314 2010-08-29 Philippe Brochard <pbrochard@common-lisp.net>
316 * src/clfswm-util.lisp (run-other-window-manager): Update for
319 * src/tools.lisp (do-execute): New parameter io to change the
322 * src/clfswm-util.lisp (hide-current-child): Prevent from removing
325 * src/clfswm-internal.lisp (child-member): New predicate.
326 (child-remove): New function.
328 * src/*.lisp: Use child-member and child-remove everywhere it's
331 2010-08-28 Philippe Brochard <pbrochard@common-lisp.net>
333 * src/clfswm.lisp (main-loop): Ensure that all events have been
334 processed after a process-event.
336 * src/clfswm-internal.lisp (is-in-current-child-p): New function.
338 2010-08-27 Philippe Brochard <pbrochard@common-lisp.net>
340 * src/clfswm.lisp (main-mode:configure-request): Raise the window
341 only when present on the current child and focus it accordingly.
343 2010-08-26 Philippe Brochard <pbrochard@common-lisp.net>
345 * src/clfswm-circulate-mode.lisp (circulate-loop-function):
346 Use is-a-key-pressed-p.
348 * src/xlib-util.lisp (is-a-key-pressed-p): New predicate.
350 * src/clfswm-keys.lisp (define-ungrab/grab): Use all values
351 returned by xlib:keysym->keycodes.
353 * src/*.lisp: Use the new child-equal-p to compare children. This
354 prevent a bug with sbcl/cmucl when the standard equal function
355 does not work with xlib:window.
357 * src/clfswm-internal.lisp (child-equal-p): New predicate.
359 2010-08-25 Philippe Brochard <pbrochard@common-lisp.net>
361 * src/clfswm-generic-mode.lisp (generic-mode): Use an
362 xlib:event-listen before processing event with
363 xlib:process-event. This prevent a bug with CLX threaded
364 implementation like sbcl.
366 * src/clfswm.lisp (main-loop): Use an xlib:event-listen before
367 processing event with xlib:process-event. This prevent a bug with
368 CLX threaded implementation like sbcl.
370 2010-08-17 Philippe Brochard <pbrochard@common-lisp.net>
372 * contrib/server/key.lisp (ushell-sh): Add ccl and ecl support.
374 * src/xlib-util.lisp (compress-motion-notify): Use a loop instead
377 * src/clfswm-internal.lisp (with-find-in-all-frames): New macro.
378 (find-parent-frame, find-frame-window, find-frame-by-name)
379 (find-frame-by-number): Use with-find-in-all-frames to search in
380 frames in the right order.
382 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Fix an
383 unwanted flickering with unmanaged windows.
385 2010-08-16 Philippe Brochard <pbrochard@common-lisp.net>
387 * src/package.lisp: Remove event handler hooks as they're not
388 needed anymore (To replace them: use closure and define-handler).
390 * src/xlib-util.lisp (move-window, resize-window)
391 (wait-mouse-button-release): Use a generic mode.
393 * src/*.lisp: Replace the case to handle event with a more (tricky)
394 lispy method which bind a function to each keywords associated
397 2010-07-23 Philippe Brochard <pbrochard@common-lisp.net>
399 * src/clfswm-util.lisp (delete-current-child): Invert bindings and
400 menu entry between delete-current-child and remove-current-child.
401 ie: Delete a child and its children in all frames by default.
403 2010-07-21 Philippe Brochard <pbrochard@common-lisp.net>
405 * src/package.lisp: Add a placement configuration group.
407 * src/binding*.lisp: Bind control+g to escape the current action
410 * src/clfswm-internal.lisp
411 (delete-child-and-children-in-all-frames): New function and
412 binding: Second mode - Control+Delete delete the current child and
413 its children in all frames (ie: close the current child and its
416 2010-07-20 Philippe Brochard <pbrochard@common-lisp.net>
418 * src/clfswm-internal.lisp (remove-child-in-frame): Do not destroy
419 the frame window and the frame gc. Close a very annoying bug when
420 cuting/pasting a frame or moving a child over frames with the
423 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Redisplay
424 all children in *current-root* after moving/resizing a frame.
426 2010-07-18 Philippe Brochard <pbrochard@common-lisp.net>
428 * src/clfswm-util.lisp (delete-focus-window)
429 (destroy-focus-window): Remove child in parent frame before
432 2010-07-16 Philippe Brochard <pbrochard@common-lisp.net>
434 * src/clfswm-util.lisp (identify-key): Add a timeout in
436 (mouse-click-to-focus-generic): Use find-child-under-mouse instead
437 of the window passed by xlib:process-event.
439 * src/xlib-util.lisp (move-window, resize-window)
440 (wait-mouse-button-release): Add a timeout in xlib:process-event.
442 2010-04-11 Philippe Brochard <pbrochard@common-lisp.net>
444 * src/clfswm-util.lisp (run-other-window-manager): Add the ability
445 to launch an other window manager and to return to clfswm.
447 2010-03-18 Philippe Brochard <pbrochard@common-lisp.net>
449 * src/clfswm-layout.lisp (set-tile-space-layout): Set default
452 2009-12-15 Philippe Brochard <pbrochard@common-lisp.net>
454 * src/clfswm.lisp (main-loop): Add a *loop-hook* parameter and a
457 * src/clfswm-generic-mode.lisp (generic-mode): Add a loop-hook
458 parameter and a loop timeout.
460 2009-12-05 Philippe Brochard <pbrochard@common-lisp.net>
462 * src/clfswm.lisp (main): Add an alternate configuration filename
465 * load.lisp: Add a debuging code example.
467 2009-11-14 Philippe Brochard <pbrochard@common-lisp.net>
469 * src/clfswm-configuration.lisp (create-configuration-menu): New
470 menu to configure all clfswm variables while clfswm is running.
472 2009-11-12 Philippe Brochard <pbrochard@common-lisp.net>
474 * src/clfswm-util.lisp (save-configuration-variables): New
475 function to save all configuration variables in clfswmrc.
477 2009-11-11 Philippe Brochard <pbrochard@common-lisp.net>
479 * src/clfswm-info.lisp (info-mode): Begining of mouse support in
481 (set-default-info-keys): Add cursor key support in info mode.
483 2009-11-08 Philippe Brochard <pbrochard@common-lisp.net>
485 * contrib/reboot-halt.lisp: Add a Suspend/Reboot/Halt menu in
488 * src/clfswm.lisp (main): Add a read-conf-file-p parameter to
489 prevent reading the configuration file (this may be useful to
490 produce the original documentation without user modifications
491 with the rc configuration file).
493 2009-11-07 Philippe Brochard <pbrochard@common-lisp.net>
495 * src/bindings-second-mode.lisp (set-default-second-keys):
496 Simplification of Escape key to close/kill/remove the focus window
497 and unhide all windows.
499 * src/bindings.lisp (set-default-main-keys): Simplification of
500 Escape key to close/kill/remove the focus window and unhide all
503 * src/clfswm-util.lisp (ask-close/kill-current-window): Add remove
504 focus and unhide all windows capabilities.
506 2009-10-10 Philippe Brochard <pbrochard@common-lisp.net>
508 * contrib/mpd.lisp (start-gmpc): Add gmpc in the mpd menu.
510 2009-07-29 Philippe Brochard <pbrochard@common-lisp.net>
512 * src/clfswm-layout.lisp (tile-layout, tile-horizontal-layout):
513 Keep child order and don't make unnecessary child movement.
514 (one-column-layout, one-line-layout): New layouts.
516 2009-06-29 Philippe Brochard <pbrochard@common-lisp.net>
518 * *: **** Release 0906 ****
520 * contrib/cd-player.lisp: New file to handle the CD player.
522 * contrib/xmms.lisp: New file to handle the xmms player.
524 2009-06-28 Philippe Brochard <pbrochard@common-lisp.net>
526 * src/clfswm-layout.lisp (set-no-layout-remember-size): New layout:
527 Maximize windows in there frame - Leave frames to there actual
530 * src/bindings-second-mode.lisp (set-default-second-keys): Bind
531 "o" on set-open-in-new-frame-in-parent-frame-nw-hook.
533 2009-06-27 Philippe Brochard <pbrochard@common-lisp.net>
535 * contrib/keyb_fr.lisp: New file to handle an azerty keyboard.
537 2009-06-24 Philippe Brochard <pbrochard@common-lisp.net>
539 * contrib/mpd.lisp: Use a standard menu.
541 * src/clfswm-info.lisp: Use a standard menu for the help-menu.
543 2009-06-22 Philippe Brochard <pbrochard@common-lisp.net>
545 * contrib/mpd.lisp: New file to handle the Music Player Daemon (MPD)
547 2009-06-19 Philippe Brochard <pbrochard@common-lisp.net>
549 * src/clfswm-autodoc.lisp (produce-doc, produce-doc-html): Minor
552 2009-06-18 Philippe Brochard <pbrochard@common-lisp.net>
554 * src/config.lisp (get-fullscreen-size): One pixel adjustment
557 * src/clfswm-placement.lisp (*-child-placement): One pixel
560 2009-06-16 Philippe Brochard <pbrochard@common-lisp.net>
562 * src/clfswm-circulate-mode.lisp (draw-circulate-mode-window):
563 Ensure that all characters are printable.
565 * src/config.lisp (get-fullscreen-size): Adjust default fullscreen
568 * src/clfswm-placement.lisp (*-child-placement): Adjust
569 coordinates to one pixel in the current child.
571 2009-06-04 Philippe Brochard <pbrochard@common-lisp.net>
573 * src/clfswm-query.lisp (query-enter-function): Assign font before
574 width and height calculation.
576 2009-06-03 Philippe Brochard <pbrochard@common-lisp.net>
578 * src/xlib-util.lisp (banish-pointer): Use with-placement macro to
579 bannish the pointer in an arbitrary place.
581 * src/clfswm-info.lisp (info-mode): Use with-placement macro to
582 place the info window in an arbitrary place.
584 * src/clfswm-query.lisp (query-enter-function): Use with-placement
585 macro to place the query window in an arbitrary place.
587 * src/clfswm-placement.lisp: New file. Allow to place info windows
588 or query windows on an arbitrary place. Allow to bannish the
589 pointer on an arbitrary place.
591 2009-05-16 Philippe Brochard <pbrochard@common-lisp.net>
593 * src/clfswm-circulate-mode.lisp (reorder-child)
594 (reorder-brother): Unfocus windows before reordering children or
597 2009-05-13 Philippe Brochard <pbrochard@common-lisp.net>
599 * src/clfswm-circulate-mode.lisp (reorder-brother): Ensure that
600 the parent is a frame.
602 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Handle
603 motion with a default modifier.
605 * src/clfswm.lisp (handle-motion-notify): Handle motion with a
608 * src/clfswm-info.lisp (info-mode): Handle motion with a default
610 (info-mode): Optimization in loop function.
612 2009-05-10 Philippe Brochard <pbrochard@common-lisp.net>
614 * src/clfswm-circulate-mode.lisp (reorder-brother): Handle
615 root-frame correctly.
617 * clfswm.asd: Dependency fix for clfswm-generic-mode.
619 * src/clfswm-circulate-mode.lisp (reorder-child)
620 (reorder-brother): Handle empty frames.
621 (reorder-brother): Redisplay only the parent frame of the current
624 * src/clfswm-util.lisp (frame-toggle-maximize): Redisplay only the
625 parent frame of the current frame.
627 2009-05-09 Philippe Brochard <pbrochard@common-lisp.net>
629 * src/clfswm-util.lisp (frame-toggle-maximize): New function:
630 Maximize/Unmaximize the current frame in its parent frame.
632 * src/clfswm-layout.lisp (maximize-layout): New layout: Maximize
633 windows and frames in there parent frame.
635 2009-05-05 Philippe Brochard <pbrochard@common-lisp.net>
637 * src/*.lisp: Add support for Clozure Common Lisp (CCL).
639 * src/clfswm-circulate-mode.lisp (reorder-child)
640 (reorder-brother): Reinitialise on circulate type change
641 child to brother or brother to child.
643 * src/*.lisp (*): Use map-window instead of xlib:map-window. So
644 calls xlib:display-finish-output on each map-request. So speed up
647 * src/xlib-util.lisp (map-window): New function. Call
648 xlib:display-finish-output on each map request.
650 2009-04-28 Philippe Brochard <pbrochard@common-lisp.net>
652 * src/clfswm-second-mode.lisp (sm-handle-motion-notify):
653 Optimisation when drawing second mode window.
655 2009-04-27 Philippe Brochard <pbrochard@common-lisp.net>
657 * src/clfswm-circulate-mode.lisp (circulate-mode): Optimisation in
660 2009-04-22 Philippe Brochard <pbrochard@common-lisp.net>
662 * src/clfswm-util.lisp (run-program-from-query-string): Launch
663 command only with a return validation.
665 2009-04-22 Xavier Maillard <xma@gnu.org>
667 * src/clfswm-query.lisp (query-string): Use a generic mode.
669 2009-04-19 Xavier Maillard <xma@gnu.org>
671 * src/clfswm-info.lisp (info-mode): Use generic-mode for info-mode.
673 2009-04-18 Xavier Maillard <xma@gnu.org>
675 * src/clfswm-generic-mode.lisp (generic-mode): Add a generic mode
676 to define all other modes.
678 2009-04-05 Philippe Brochard <pbrochard@common-lisp.net>
680 * src/package.lisp (): Use *default-font-string* for all
683 * src/clfswm-info.lisp (info-mode): Ensure integer windows size.
685 2009-02-17 Philippe Brochard <pbrochard@common-lisp.net>
687 * src/xlib-util.lisp (null-size-window-p): Better check of null
690 2009-02-14 Philippe Brochard <pbrochard@common-lisp.net>
692 * src/clfswm.lisp (handle-map-request): Add a fix to manage
693 correctly fullscreen windows (SDL particularly).
695 2008-12-20 Philippe Brochard <pbrochard@common-lisp.net>
697 * src/xlib-util.lisp (get-color): Allocate colors only once -> fix
698 a segfault with clisp/new-clx.
700 * src/clfswm.lisp (handle-motion-notify): Add a needed window
703 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Add a
704 needed window argument.
706 2008-10-30 Philippe Brochard <pbrochard@common-lisp.net>
708 * src/xlib-util.lisp (wait-no-key-or-button-press)
709 (wait-a-key-or-button-press): Check buttons press/release correctly"
711 2008-10-28 Philippe Brochard <pbrochard@common-lisp.net>
713 * src/menu-def.lisp: Add children navigation menu in the movement
714 menu (select next/previous child/brother/level).
716 2008-10-26 Philippe Brochard <pbrochard@common-lisp.net>
718 * *: Rename 'sister' frame to 'brother' frame.
720 * src/clfswm-keys.lisp (unalias-modifiers): Convert a modifier
721 alias in a real modifier.
723 * src/package.lisp (*modifier-alias*): New list of modifier alias
724 For example: :alt is :mod-1, :numlock is :mod-2...
726 * src/tools.lisp (remove-hook): New function.
728 * src/clfswm-keys.lisp (with-capslock, without-capslock)
729 (with-numlock, without-cnumlock): New functions.
731 2008-10-25 Philippe Brochard <pbrochard@common-lisp.net>
733 * src/clfswm-info.lisp: Use the *binding-hook* to create info
734 keys and mouse bindings.
736 * src/bindings-second-mode.lisp: Use the *binding-hook* to create
737 second keys and mouse bindings.
739 * src/bindings.lisp: Use the *binding-hook* to create main keys
742 2008-10-10 Philippe Brochard <pbrochard@common-lisp.net>
744 * src/clfswm-menu.lisp (open-menu): Remember parent menu to undo
747 2008-10-09 Philippe Brochard <pbrochard@common-lisp.net>
749 * src/menu-def.lisp: Use a menu instead of a function for the
752 2008-10-08 Philippe Brochard <pbrochard@common-lisp.net>
754 * src/clfswm-util.lisp (show-standard-menu): Display the standard
755 menu from the 'update-menus' command.
757 2008-10-07 Philippe Brochard <pbrochard@common-lisp.net>
759 * src/clfswm-query.lisp (query-string): Do not ungrab keyboard if
760 it's already grabbed.
762 * src/clfswm-internal.lisp (display-frame-info): Use configurable
763 colors and fix a bug with background.
764 (display-frame-info): Set window background when displaying info.
766 2008-10-06 Philippe Brochard <pbrochard@common-lisp.net>
768 * src/xlib-util.lisp (my-character->keysyms): Use a macro to avoid
769 warning with clisp/new-clx.
771 2008-10-04 Philippe Brochard <pbrochard@common-lisp.net>
773 * src/clfswm-util.lisp (jump-to-slot): Prevent to jump on a
776 2008-09-23 Philippe Brochard <pbrochard@common-lisp.net>
778 * *: **** Release 0809 ****
780 2008-09-23 Philippe Brochard <pbrochard@common-lisp.net>
782 * src/clfswm-util.lisp (ensure-unique-name): New function and menu
784 (ensure-unique-number): New function and menu entry.
786 2008-09-22 Philippe Brochard <pbrochard@common-lisp.net>
788 * src/clfswm-nw-hooks.lisp (named-frame-nw-hook): New new window
789 hook: open the next window in a named frame.
790 (numbered-frame-nw-hook): New new window hook: open the next
791 window in a numbered frame.
793 * src/clfswm-query.lisp (query-string): Grab the keyboard in all
794 cases. So query-string can be called even in the main mode.
796 * src/clfswm-internal.lisp (show-all-children): Do not raise a
797 child by default => far less flickering.
799 2008-09-19 Philippe Brochard <pbrochard@common-lisp.net>
801 * src/bindings-second-mode.lisp: Bind "t" to tile-current-frame.
803 * src/menu-def.lisp: Change key binding for the CLFSWM menu
806 * src/xlib-util.lisp (xgrab-pointer): Handle the case where cursor
807 is nil. (workaround on some CLX implementation).
809 2008-09-12 Philippe Brochard <pbrochard@common-lisp.net>
811 * src/menu-def.lisp: Add a menu to set a focus policy for all
814 * src/clfswm-util.lisp (set-focus-policy-generic-for-all)
815 (all-frames-set-*-focus-policy): Set a focus policy for all
818 * src/clfswm.lisp (handle-enter-notify): sloppy-select
819 mode. Select a child and its parents on mouse over.
821 2008-09-03 Philippe Brochard <pbrochard@common-lisp.net>
823 * src/clfswm.lisp (handle-enter-notify): Add a sloppy strict focus
824 policy -> Sloppy focus only for windows in the current frame.
825 (main-unprotected): Exit clfswm on init error (ie: when another
826 window manager is running).
828 * src/clfswm-util.lisp (reset-clfswm): New function.
830 2008-09-02 Philippe Brochard <pbrochard@common-lisp.net>
832 * src/clfswm-menu.lisp (init-menu): New function.
834 * src/clfswm-util.lisp (reload-clfswm): New function to reload
836 (exit-clfswm): Rename quit-clfswm to exit-clfswm.
838 * src/clfswm.lisp (main, main-unprotected): Handle error in a
839 superior main function. Now CLFSWM can't break the X session. It
840 just reinitialize the display and run a new main loop.
842 * src/clfswm-corner.lisp: Make *clfswm-terminal* and
843 *vt-keyboard-on* global to avoid warnings when loading clfswm.
845 * src/clfswm-layout.lisp: Add a specific GIMP layout menu.
846 (help-on-gimp-layout): Describe how to use the GIMP layout.
848 2008-09-01 Philippe Brochard <pbrochard@common-lisp.net>
850 * src/clfswm-layout.lisp (set-gimp-layout): Change the layout to
851 main-window-right-layout. Change the keybinding for (shift)alt+tab
852 to not select windows in the main window lisst.
853 Bind F8 to add a window in the main window list.
854 Bind F9 to remove a window in the main window list.
855 Change the focus policy to :sloppy.
856 (set-previous-layout): Restore the previous layout, keybinding and
859 2008-08-31 Philippe Brochard <pbrochard@common-lisp.net>
861 * src/clfswm-menu.lisp (add-menu-comment): Add comments in menu.
863 * src/clfswm-layout.lisp (main-window-left-layout)
864 (main-window-bottom-layout, main-window-top-layout): New
866 Factorize layouts in menu.
868 2008-08-30 Philippe Brochard <pbrochard@common-lisp.net>
870 * src/clfswm-layout.lisp (main-window-right-layout): A possible
871 GIMP layout: one or more main windows on one side of the
872 frame. Others on the other size.
874 * src/clfswm-util.lisp
875 (current-frame-set-click/sloppy-focus-policy): Each frame can have
876 a different focus policy (one of :click or :sloppy).
877 The default focus policy is set with *default-focus-policy*.
879 2008-08-23 Philippe Brochard <pbrochard@common-lisp.net>
881 * src/clfswm-info.lisp (show-config-variable): New function.
883 2008-08-19 Philippe Brochard <pbrochard@common-lisp.net>
885 * src/clfswm-layout.lisp (tile-horizontal-layout): New layout.
887 * src/clfswm-info.lisp: Colored help for key binding and corners
890 2008-08-18 Philippe Brochard <pbrochard@common-lisp.net>
892 * src/clfswm-util.lisp (delete-focus-window)
893 (destroy-focus-window): Remove chid only in
894 handle-unmap/destroy-notify. Focus *current-root* only when
895 closing/killing the current child.
897 * src/clfswm-autodoc.lisp (produce-corner-*-doc): New autodoc
898 functions or corners.
900 2008-08-17 Philippe Brochard <pbrochard@common-lisp.net>
902 * src/clfswm-corner.lisp (present-clfswm-terminal): New corner
903 action: Hide/Unhide a terminal on mouse corner action. (By default
904 right mouse button on the top left corner).
906 * src/config.lisp (*never-managed-window-list*): New config
909 * src/clfswm-internal.lisp (never-managed-window-p): New function:
910 Handle never managed window in a more simple way.
912 * src/clfswm-corner.lisp: New file and new and more simple method
913 to define corners actions.
915 2008-08-15 Philippe Brochard <pbrochard@common-lisp.net>
917 * src/clfswm-info.lisp (info-mode): Info line can now be colored.
919 * src/clfswm-layout.lisp (fast-layout-switch)
920 (define-fast-layout-switch): New functions: Switch between two
923 * src/clfswm-second-mode.lisp (leave-second-mode): Takes care if
924 really in the second mode. So leave-second-mode can be used even
927 * src/clfswm-util.lisp (switch-to-last-child): New function:
928 Store the current child and switch to the previous one.
930 2008-07-16 Philippe Brochard <pbrochard@common-lisp.net>
932 * src/clfswm-util.lisp (display-current-window-info): Display the
934 (have-to-present-virtual-keyboard): Add a virtual keyboard corner
935 (top right by default). By default 'xvkbd' is used.
937 2008-06-28 Philippe Brochard <pbrochard@common-lisp.net>
939 * src/xlib-util.lisp (move-window, resize-window): Compress motion
942 * src/clfswm.lisp (handle-motion-notify): Compress motion events.
944 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Compress
947 * src/clfswm-info.lisp (info-mode): Compress motion events.
949 2008-06-21 Philippe Brochard <pbrochard@common-lisp.net>
951 * src/clfswm-internal.lisp (show-all-children): Compute geometry
952 and selection first and then show only necessary children.
953 (show-child): remove unneeded display-p parameter.
955 * src/config.lisp (get-fullscreen-size): Place the frame border
956 outside the screen (this prevent the loose of 2 pixels per
959 2008-06-12 Philippe Brochard <pbrochard@common-lisp.net>
961 * src/clfswm-internal.lisp (focus-child): Algorithm change to
962 raise only the selected child.
964 2008-06-08 Philippe Brochard <pbrochard@common-lisp.net>
966 * src/clfswm-internal.lisp (raise-p-list, show-all-children):
967 Raise only viewable children.
969 2008-06-06 Philippe Brochard <pbrochard@common-lisp.net>
971 * src/clfswm-internal.lisp (show-all-children): Always raise all
972 displayed children. Remove all references to raise-p.
974 2008-06-04 Philippe Brochard <pbrochard@common-lisp.net>
976 * src/menu-def.lisp (child-menu): New menu entry on raise/lower
979 * src/bindings-second-mode.lisp ("Page_Down", "Page_Up"): New
980 second mode binding on raise/lower child in its frame.
982 * src/clfswm-nw-hooks.lisp (leave-focus-frame-nw-hook): Adapt
983 behaviour to the new raise/lower property.
984 Call clear-nw-hook before the rest of the hook.
986 * src/bindings.lisp (mouse-click-to-focus-and-move-window)
987 (mouse-click-to-focus-and-resize-window): Stop button event. This
988 prevent a keyboard/pointer freeze.
990 2008-06-03 Philippe Brochard <pbrochard@common-lisp.net>
992 * src/clfswm-internal.lisp (frame-lower-child)
993 (frame-raise-child): New functions to raise/lower a child in its
996 * src/clfswm-util.lisp (have-to-present-windows)
997 (have-to-present-all-windows): New functions to have an MaxOS
998 expose like on mouse click in screen corner.
1000 * src/clfswm-info.lisp ("Page_Down", "Page_Up"): Add boundaries.
1002 2008-05-30 Philippe Brochard <pbrochard@common-lisp.net>
1004 * src/clfswm-util.lisp (unhide-a-child-from-all-frames): Unhide a
1005 child from a choice in all frames with hidden children.
1007 * src/clfswm-info.lisp (info-mode-menu): Handle separators.
1009 2008-05-28 Philippe Brochard <pbrochard@common-lisp.net>
1011 * src/clfswm-util.lisp (hide-current-child, unhide-a-child)
1012 (unhide-all-children): New functions.
1014 * src/clfswm-info.lisp (info-mode-menu): Handle symbols and
1017 * src/clfswm-util.lisp (hide/show-frame-window): new function and
1020 2008-05-23 Philippe Brochard <pbrochard@common-lisp.net>
1022 * src/clfswm-util.lisp (rename-current-child): Do not display the
1023 frame info for a window.
1025 2008-05-20 Philippe Brochard <pbrochard@common-lisp.net>
1027 * src/clfswm-internal.lisp (remove-child-in-frame): Destroy the
1028 frame window for the removed child and its children.
1030 2008-05-18 Philippe Brochard <pbrochard@common-lisp.net>
1032 * src/clfswm-autodoc.lisp (produce-*-doc-*): Add a note to use the
1035 2008-05-17 Philippe Brochard <pbrochard@common-lisp.net>
1037 * src/clfswm-nw-hooks.lisp (default-frame-nw-hook): Do not handle
1038 the ROX pinboard (ie: leave it lowered in the root window as
1041 * src/clfswm-layout.lisp (tile-left-space-layout): New layout.
1042 (tile-left-layout, tile-right-layout, tile-top-layout)
1043 (tile-bottom-layout): Use all the frame space when there is only
1046 * src/clfswm-internal.lisp (place-window-from-hints): Center
1047 unmanaged windows in the root screen.
1049 * src/clfswm-nw-hooks.lisp (clear-nw-hook, clear-all-nw-hooks):
1052 2008-05-15 Philippe Brochard <pbrochard@common-lisp.net>
1054 * src/clfswm-util.lisp (current-frame-manage-window-type): Fix a
1055 typo in managed types.
1057 * src/clfswm-internal.lisp (show-child): Always display frame info
1058 even if the frame is hidden.
1060 * src/xlib-util.lisp (resize-window): Use a better algorithme to
1063 2008-05-13 Philippe Brochard <pbrochard@common-lisp.net>
1065 * src/clfswm-util.lisp (with-movement): Display frame info for all
1066 frames in current root.
1068 2008-05-12 Philippe Brochard <pbrochard@common-lisp.net>
1070 * src/*.lisp: Rename 'brother' frames to 'sister' frames.
1072 * src/bindings-second-mode.lisp (define-second-key #\a): New
1073 binding on 'add-default-frame'.
1075 * src/clfswm-autodoc.lisp (produce-*-doc-*-in-file): Show a
1076 message to follow the autodocumentation process.
1078 2008-05-10 Philippe Brochard <pbrochard@common-lisp.net>
1080 * src/clfswm-util.lisp (bind-or-jump): Bind "Tab", "Return" and
1081 "Space" to jump to a child. "B" to bind a slot on the current
1084 * src/bindings-second-mode.lisp: Use "Tab" instead of
1087 2008-05-07 Philippe Brochard <pbrochard@common-lisp.net>
1089 * src/clfswm-util.lisp (find-child-under-mouse): Take care of
1090 unmanaged (hidden) windows.
1092 * src/clfswm-internal.lisp (place-window-from-hints): Give a
1093 minimal size for windows.
1094 (with-all-windows-frames-and-parent): New function.
1096 * src/config.lisp (*default-window-width/height*): New parameters.
1098 * src/clfswm-internal.lisp (place-window-from-hints): Center
1099 windows in the screen instead of in there frame.
1101 * src/bindings-second-mode.lisp (tile-space-current-frame): New
1104 * src/clfswm-layout.lisp (register-layout): Intern the once name
1105 in the right package.
1107 2008-05-05 Philippe Brochard <pbrochard@common-lisp.net>
1109 * doc/dot-clfswmrc: Update to follow the new clfswm way.
1111 2008-05-03 Philippe Brochard <pbrochard@common-lisp.net>
1113 * src/clfswm-internal.lisp (set-current-child)
1114 (adapt-child-to-parent, show-child, hide-child): Handle the case
1115 where child is not a frame or a window.
1117 * src/clfswm-util.lisp
1118 (mouse-click-to-focus-generic,mouse-focus-move/resize-generic):
1119 Check if child is a frame.
1121 * src/clfswm-internal.lisp (managed-window-p): Handle the case
1122 where frame is null.
1123 (place-frame): Check if frame and parent are frames.
1125 * src/clfswm-info.lisp (info-mode): display all frame info before
1128 * src/clfswm-second-mode.lisp (second-key-mode): display all frame
1129 info before leaving.
1131 * src/clfswm-internal.lisp (display-all-frame-info): New function.
1133 2008-05-02 Philippe Brochard <pbrochard@common-lisp.net>
1135 * src/tools.lisp (getenv): Implemented for ECL.
1136 (urun-prog): Implemented for ECL.
1138 * src/clfswm-util.lisp (identify-key): Use a double buffer to
1141 * src/clfswm-query.lisp (query-string): Use a double buffer to
1144 * src/clfswm-info.lisp (draw-info-window): Use a double buffer to
1147 * src/xlib-util.lisp (clear-pixmap-buffer, copy-pixmap-buffer):
1150 2008-05-01 Philippe Brochard <pbrochard@common-lisp.net>
1152 * src/clfswm-info.lisp (info-mode): Add boundaries in the info mode window.
1154 * src/menu-def.lisp: New file: move all menu definition in
1157 * src/clfswm-layout.lisp (register-layout): Use a function instead
1160 2008-04-30 Philippe Brochard <pbrochard@common-lisp.net>
1162 * src/clfswm-autodoc.lisp (produce-menu-doc,
1163 (produce-menu-doc-html): New functions.
1164 (produce-doc-*): Moved to clfswm-autodoc.lisp.
1166 * src/clfswm-util.lisp (paste-selection-no-clear): Prevent to
1167 paste a child on one of its own children. (this prevent a
1169 (move-child-to): Rename move/copy-current-child-by to
1171 (mouse-move-window-over-frame): New function to move the window
1172 under the mouse cursor to another frame.
1174 * src/clfswm-internal.lisp (find-child-in-parent): New function.
1176 2008-04-29 Philippe Brochard <pbrochard@common-lisp.net>
1178 * src/clfswm-internal.lisp (show-all-children): Display unmanaged
1179 windows only when its window parent is the current child.
1181 2008-04-28 Philippe Brochard <pbrochard@common-lisp.net>
1183 * src/clfswm-util.lisp (manage-current-window)
1184 (unmanage-current-window): New functions: Allow to force to manage
1185 or unmanage a window by its parent frame.
1187 * src/bindings-second-mode.lisp (#\o): binded to
1188 set-open-in-new-frame-in-parent-frame-nw-hook and
1189 (#\o :control) to set-open-in-new-frame-in-root-frame-nw-hook
1191 * src/clfswm-util.lisp (with-current-window): New macro.
1193 * src/xlib-util.lisp (move-window, resize-window): Remove uneeded
1194 exposure and enter-window handle event.
1196 * src/clfswm-util.lisp (move-frame, resize-frame): Show all
1197 children for the current child after the move/resize.
1199 2008-04-27 Philippe Brochard <pbrochard@common-lisp.net>
1201 * src/xlib-util.lisp (resize-window): Take care of window size
1204 * src/clfswm-util.lisp (mouse-focus-move/resize-generic): Allow to
1205 move/resize unmanaged windows.
1207 * src/xlib-util.lisp (move-window, resize-window): New functions.
1209 2008-04-25 Philippe Brochard <pbrochard@common-lisp.net>
1211 * src/clfswm-util.lisp (current-frame-manage-window-type): Let the
1212 user choose what window type the current frame must handle.
1213 (display-current-window-info): New function.
1214 (current-frame-manage-all-window-type)
1215 (current-frame-manage-only-normal-window-type)
1216 (current-frame-manage-no-window-type): New functions.
1218 * src/clfswm-internal.lisp (managed-window-p): New function.
1220 * src/package.lisp (frame): Managed type: new frame
1221 parameter. This allow to choose what window type a frame must
1224 * src/*.lisp: Rename all 'father' occurrences to 'parent'.
1226 * src/clfswm-nw-hooks.lisp
1227 (open-in-new-frame-in-parent-frame-nw-hook): New new window hook.
1229 * src/clfswm-util.lisp (adapt-current-frame-to-window-hints): New
1232 * src/tools.lisp (ensure-printable): Return always a string even
1235 2008-04-24 Philippe Brochard <pbrochard@common-lisp.net>
1237 * src/config.lisp (*default-nw-hook*): New variable to change the
1238 default new window hook.
1240 2008-04-22 Philippe Brochard <pbrochard@common-lisp.net>
1242 * clfswm.asd (clfswm): Add a dependency from
1243 clfswm-second-mode.lisp to clfswm.lisp.
1245 * src/clfswm-util.lisp (identify-key): Show the documentation for
1246 the function bound on a key.
1247 (with-movement): Move with-movement,
1248 current-frame-fill/pack/resize-* from bindings-second-mode.lisp
1249 to clfswm-util.lisp.
1251 * src/clfswm-menu.lisp: New menu system that let user change keys
1252 or functions associated to keys.
1254 2008-04-18 Philippe Brochard <pbrochard@common-lisp.net>
1256 * src/clfswm-internal.lisp (show-all-children): Display-child is
1257 the first child by default. Solve a bug with father-p.
1259 2008-04-17 Philippe Brochard <pbrochard@common-lisp.net>
1261 * src/clfswm-internal.lisp (add-frame): Add frame return the
1263 (show-all-children): Move the size computation outside the
1266 * src/bindings-second-mode.lisp (with-movement): Redisplay only
1269 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Redisplay
1270 only the current child.
1272 * src/clfswm-internal.lisp (show-all-children): New display-child
1273 parameter to display only the desired child and its children.
1274 (select-next/previous-child): Only display the current child.
1276 2008-04-14 Philippe Brochard <pbrochard@common-lisp.net>
1278 * src/clfswm.lisp (init-display): Move the default frame creation
1279 on the default init hook.
1281 * src/clfswm-keys.lisp (define-ungrab/grab): Handle all keysyms in
1282 the main mode (for example: "1" on an azerty keyboard).
1284 2008-04-13 Philippe Brochard <pbrochard@common-lisp.net>
1286 * src/clfswm-keys.lisp (find-key-from-code): Better handle of
1287 keysyms. Revert to old grabbing method for the main mode.
1289 2008-04-12 Philippe Brochard <pbrochard@common-lisp.net>
1291 * src/clfswm.lisp (init-display): Add key handling on no focus
1292 window and on frame windows.
1294 2008-04-11 Philippe Brochard <pbrochard@common-lisp.net>
1296 * src/clfswm.lisp (main): Keyboard handle strategie change: Grab
1297 all keys by default and replay just what is needed. No change for
1300 * src/clfswm-keys.lisp: remove grab/ungrab main keys.
1301 (find-key-from-code): Test for shift and not shift presence.
1303 2008-04-09 Philippe Brochard <pbrochard@common-lisp.net>
1305 * src/clfswm-internal.lisp (switch-to-root-frame): show later -
1306 new key parameter to have less flickering.
1308 2008-04-07 Philippe Brochard <pbrochard@common-lisp.net>
1310 * src/bindings-second-mode.lisp (frame-layout-once-menu): Set the
1311 layout only one time and revert to no-layout to freely handle
1314 * src/clfswm-nw-hooks.lisp
1315 (open-in-new-frame-in-root-frame-nw-hook): Tile layout with spaces
1316 with new created window.
1318 * src/clfswm-layout.lisp (register-layout): Now register
1319 automatically a once layout to set the layout only one time and
1320 revert to no-layout to freely handle frames.
1322 2008-04-05 Philippe Brochard <pbrochard@common-lisp.net>
1324 * src/clfswm-nw-hooks.lisp (leave-focus-frame-nw-hook): New
1325 nw-hook: Open the next window in the current frame and leave the
1326 focus to the current child.
1328 2008-04-04 Philippe Brochard <pbrochard@common-lisp.net>
1330 * src/bindings-second-mode.lisp: Add keys definitions to
1331 bind-or-jump in the second mode.
1333 * src/clfswm-util.lisp (bind-or-jump): remove the auto-defining
1334 macro for bind-or-jump-(1|2|3...).
1336 * src/clfswm-keys.lisp (define-define-key/mouse): Allow additional
1337 arguments to function. This allow to do things like:
1338 (define-main-key (key) 'my-function 10 20 'foo) -> 10 20 and 'foo
1339 are passed to my-function on key press.
1341 2008-04-03 Philippe Brochard <pbrochard@common-lisp.net>
1343 * src/clfswm-util.lisp (bind-or-jump): New (great) function.
1345 2008-04-02 Philippe Brochard <pbrochard@common-lisp.net>
1347 * src/clfswm-internal.lisp (child-fullname): New function
1349 * src/clfswm-info.lisp (info-mode-menu): Add an explicit optional
1350 docstring in info-mode-menu. An item can be
1351 '((key function) (key function)) or with docstring
1352 '((key function "documentation 1") (key function "bla bla") (key function))
1354 * src/tools.lisp (ensure-n-elems): New function.
1356 * src/bindings-second-mode.lisp: Bind Alt+mouse-1/3 to move or
1357 resize a frame or the window's father.
1359 * src/clfswm.lisp (init-display): Remove tile-space-layout by
1360 default on the root frame.
1362 * src/clfswm-util.lisp (move/resize-frame): Add standard event
1363 hooks handlers (map-request, configure-notify...)
1365 * src/clfswm-internal.lisp (adapt-child-to-father): Limit minimal
1368 2008-04-01 Philippe Brochard <pbrochard@common-lisp.net>
1370 * src/bindings.lisp: Bind Alt+mouse-1/3 to move or resize a frame
1371 or the window's father.
1373 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Stop button
1374 event only if there is a geometry change.
1375 (mouse-focus-move/resize-generic): Generic function to move or
1376 resize a frame or a window father frame.
1378 2008-04-01 Philippe Brochard <pbrochard@common-lisp.net>
1380 * src/clfswm-internal.lisp (show-all-children): Return t if there
1381 is a geometry change.
1383 2008-03-30 Philippe Brochard <pbrochard@common-lisp.net>
1385 * src/bindings.lisp (Up/Down): Swap select previous/next level.
1387 * src/bindings-second-mode.lisp (Up/Down): Swap select previous/next level.
1389 * src/clfswm.lisp (init-display): Create a default frame in the root frame.
1391 * src/clfswm-internal.lisp (place-frame): Place frame from real (pixel) coordinates.
1392 (with-all-*): Reverse the child list to manage the first child last (like in
1395 * src/config.lisp (*create-frame-on-root*): New variable: Create a new frame on the
1396 root window only if true.
1398 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Create a new frame on the
1399 root window only if *create-frame-on-root* is true.
1401 * src/bindings-second-mode.lisp (sm-mouse-click-to-focus-generic): Create a new frame
1404 2008-03-29 Philippe Brochard <pbrochard@common-lisp.net>
1406 * src/bindings-second-mode.lisp (sm-mouse-click-to-focus-generic): Focus, move and resize
1407 the current child (even if it's a window).
1409 2008-03-28 Philippe Brochard <pbrochard@common-lisp.net>
1411 * src/clfswm-util.lisp (mouse-click-to-focus-and-move)
1412 (mouse-click-to-focus-and-resize): New functions.
1414 * src/clfswm-internal.lisp (*-fl->px): Convert float coordinates to pixel.
1415 (*-px->fl): Convert pixel coordinates to float.
1417 * src/tools.lisp (call-hook): Move call-hook to tools.lisp.
1419 2008-03-27 Philippe Brochard <pbrochard@common-lisp.net>
1421 * src/clfswm-layout.lisp (no-layout): Use :first-only to raise only the
1424 * src/clfswm-internal.lisp (hide-all): Split hide-all-children in hide-all
1425 and hide-all-children.
1426 (raise-if-needed): New function.
1427 (show-child): Use a first-p parameter to raise windows only when they are
1430 2008-03-26 Philippe Brochard <pbrochard@common-lisp.net>
1432 * src/clfswm-internal.lisp (select-next/previous-level): Don't use show-all-children
1435 2008-03-25 Philippe Brochard <pbrochard@common-lisp.net>
1437 * src/clfswm-info.lisp (keys-from-list): new function.
1439 * src/*: rename 'childs' in 'children'.
1441 * src/*: rename 'group' in 'frame'.
1443 2008-03-22 Philippe Brochard <pbrochard@common-lisp.net>
1445 * src/clfswm-pack.lisp (explode-group/explode-current-group): new functions.
1447 2008-03-21 Philippe Brochard <pbrochard@common-lisp.net>
1449 * src/clfswm-pack.lisp: Pack, Fill, Resize functions.
1451 2008-03-16 Philippe Brochard <pbrochard@common-lisp.net>
1453 * src/clfswm-nw-hooks.lisp: Register system for new window hooks.
1454 Bind control+o to open the next window in a new group in the root group
1455 (as open in next window in a new workspace in 0801 version).
1457 2008-03-15 Philippe Brochard <pbrochard@common-lisp.net>
1459 * src/clfswm-util.lisp (show/hide-all-groups-info/key): Show/hide all groups info
1462 2008-03-14 Philippe Brochard <pbrochard@common-lisp.net>
1464 * bindings-second-mode.lisp ("ISO_Left_Tab"): Use ISO_Left_Tab
1465 instead of Tab for select-previous-child.
1467 2008-03-13 Philippe Brochard <pbrochard@common-lisp.net>
1469 * clfswm-util.lisp (force-window-in-group/force-window-center-in-group):
1472 2008-03-11 Philippe Brochard <pbrochard@common-lisp.net>
1474 * clfswm-util.lisp (identify-key): Display the documentation
1475 associated to keys when identifying a key.
1477 2008-03-10 Xavier Maillard <xma@gnu.org>
1479 * contrib/clfswm: Complete rewrite of the script. Detect error and
1480 act accordingly. Add command line arguments to configure the
1481 script execution. User can now choose different common lisp
1482 implementation (clisp and sbcl only), choose where to store the
1483 dumped image, where to find clfswm source.
1485 2008-03-09 Philippe Brochard <pbrochard@common-lisp.net>
1487 * clfswm-internal.lisp (process-new-window): Beginning of new
1488 window hook: each group have a hook to tell what he wants to do
1489 with the new created window.
1491 2008-03-08 Xavier Maillard <xma@gnu.org>
1493 * contrib/clfswm: New script. Dump a CLISP image of CLFSWM then
1494 call the resulting executable.
1496 * clfswm.lisp (read-conf-file): Check for the user config file in
1497 XDG_CONFIG_HOME *first*. Freedesktop.org standards should be
1498 prefered whenever possible.
1500 2008-02-27 Philippe Brochard <pbrochard@common-lisp.net>
1502 * clfswm-layout.lisp (*-layout): Add an optional raise-p
1503 parameter in each layout.
1505 2008-02-26 Philippe Brochard <pbrochard@common-lisp.net>
1507 * clfswm-util.lisp (copy/cut-current-child): Does not affect the
1509 (copy/move-current-child-by-name/number): new functions
1510 (focus-group-by-name/number): new functions
1511 (delete-group-by-name/number): new functions
1513 2008-02-24 Philippe Brochard <pbrochard@common-lisp.net>
1515 * ************************************************************ *
1516 *: Major update - No more reference to workspaces. The main *
1517 structure is a tree of groups or application windows. *
1518 * ************************************************************ *
1520 2008-02-07 Philippe Brochard <pbrochard@common-lisp.net>
1522 * clfswm.lisp (read-conf-file): Read configuration in
1523 $HOME/.clfswmrc or in /etc/clfswmrc or in
1524 $XDG_CONFIG_HOME/clfswm/clfswmrc.
1525 (xdg-config-home): Return the content of $XDG-CONFIG-HOME (default
1528 2008-01-18 Philippe Brochard <pbrochard@common-lisp.net>
1530 * clfswm-internal.lisp (show-all-group): Use *root* and *root-gc*
1533 2008-01-03 Philippe Brochard <pbrochard@common-lisp.net>
1535 * clfswm-internal.lisp (find-window-group): New function.
1537 * clfswm*: Change to make clfswm run with clisp/new-clx.
1539 2008-01-01 Philippe Brochard <pbrochard@common-lisp.net>
1541 * clfswm-util.lisp (query-show-paren): Add show parent matching in
1543 (query-string): Bind control+k to delete end of line.
1545 * clfswm-second-mode.lisp (draw-second-mode-window): Display
1546 the action on mouse motion in second mode.
1548 * clfswm.lisp (handle-exposure): Redisplay groups on exposure
1549 event but do not clear the root window.
1550 (handle-configure-request): Adjust unmanaged window from there
1553 * clfswm-internal.lisp (process-new-window): Adjust new window
1554 with the specified hints (max/min/base width/height).
1556 2007-12-31 Philippe Brochard <pbrochard@common-lisp.net>
1558 * clfswm.lisp (handle-configure-request): Send an Configuration
1559 Notify event. This solve a bug with xterm and rxvt who takes some
1560 times to be mapped. Now there is no delay.
1562 * bindings-second-mode.lisp (define-shell): Run programs after
1563 living the second mode.
1565 2007-12-30 Philippe Brochard <pbrochard@common-lisp.net>
1567 * clfswm-internal.lisp (process-new-window): Do not crop transient
1568 window to group size.
1569 (adapt-window-to-group): Do not crop transient window to group
1572 * clfswm.lisp (handle-configure-request): Adapt just the window to
1573 its group and don't take care of the configure request. Remove the
1574 bug with the Gimp outside the group and speed up the window
1576 (handle-exposure): Remove show-all-group on exposure event
1579 2007-12-29 Philippe Brochard <pbrochard@common-lisp.net>
1581 * clfswm-util.lisp (circulate-group-up-copy-window)
1582 (circulate-group-down-copy-window)
1583 (circulate-workspace-up-copy-group)
1584 (circulate-workspace-down-copy-group): Prevent the copy of the
1585 same window in the same workspace.
1587 * bindings-second-mode.lisp (release-copy-selected-window)
1588 (release-copy-selected-group): Prevent the copy of the same window
1589 in the same workspace.
1591 * clfswm-pager.lisp (generic-pager-move-window-on-previous-line)
1592 (generic-pager-move-window-on-next-line): Remove the copy
1594 (generic-pager-move-group-on-next-workspace)
1595 (generic-pager-move-group-on-previous-workspace): Prevent the copy
1596 of the same window in the same workspace.
1598 * bindings-pager.lisp (mouse-pager-copy-selected-window-release)
1599 (mouse-pager-copy-selected-group-release): Prevent the copy of the
1600 same window in the same workspace.
1602 * tools.lisp (setf/=): new macro to set a variable only when
1605 * clfswm-internal.lisp (adapt-window-to-group): use set/= to set
1606 x, y... only when necessary.
1608 2007-12-28 Philippe Brochard <pbrochard@common-lisp.net>
1610 * clfswm.lisp (handle-configure-notify, *configure-notify-hook*):
1611 new function and hook: force windows to stay in its group (solve a
1614 2007-12-25 Philippe Brochard <pbrochard@common-lisp.net>
1616 * bindings-second-mode.lisp (mouse-motion): use hide-group to have
1617 less flickering when moving/resizing groups.
1619 * clfswm-internal.lisp (hide-group): new function.
1620 (show-all-group): clear-all: new parameter.
1622 2007-12-22 Philippe Brochard <pbrochard@common-lisp.net>
1624 * clfswm-keys.lisp (define-define-key): undefine-*-multi-name: new
1626 * clfswm*: Color change for the pager. Typo or better description
1627 in bindings definitions. Define bindings for a qwerty keyboard by
1628 default. dot-clfswmrc show examples to switch to an azerty
1630 License change to GPL v3.
1631 * config.lisp: new file - group all globals variables in this
1634 2007-08-26 Philippe Brochard <pbrochard@common-lisp.net>
1636 * xlib-util.lisp (hide-window): Remove structure-notivy events
1637 when hidding a window.
1639 2007-05-16 Philippe Brochard <pbrochard@common-lisp.net>
1641 * package.lisp (*sm-property-notify-hook*): Readded
1642 property-notify-hook in second mode.
1644 2007-05-15 Philippe Brochard <pbrochard@common-lisp.net>
1646 * clfswm-keys.lisp (produce-doc-html): Better clean up for strings.
1648 2007-05-13 Philippe Brochard <pbrochard@common-lisp.net>
1650 * clfswm-pack.lisp (tile-current-workspace-to/right/left/top/bottom):
1651 Tile the current workspace with the current window on one side and
1652 others on the other (this emulate the larswm, dwm, wmii way). See
1653 the default configuration file to enable this mode by default.
1655 * clfswm-pager.lisp (pager-tile-current-workspace-to): idem for
1658 2007-05-12 Philippe Brochard <pbrochard@common-lisp.net>
1660 * clfswm-pager.lisp (pager-draw-window-in-group): Add
1661 ensure-printable to print windows name even with non-ascii
1664 2007-05-11 Philippe Brochard <pbrochard@common-lisp.net>
1666 * clfswm-pager.lisp (pager-explode-current-group): Create a new
1667 group for each window in group.
1668 (pager-implode-current-group): Move all windows in workspace to
1669 one group and remove other groups.
1671 * clfswm-pack.lisp (explode-group): Create a new group for each
1673 (implode-group): Move all windows in workspace to one group and
1674 remove other groups.
1676 * clfswm-util.lisp (identify-key): Remove local configuration
1677 variables and made them available for configuration from
1679 (query-string): idem.
1681 2007-04-29 Philippe Brochard <pbrochard@common-lisp.net>
1683 * netwm-util.lisp: Start of NetWM compliance.
1684 Add a Netwm client list gestion.
1686 2007-04-28 Philippe Brochard <pbrochard@common-lisp.net>
1688 * clfswm-internal.lisp (create-group-on-request): open a new group
1689 only when the current group is not empty.
1691 * bindings-second-mode.lisp (define-second-key-#\o-control): Fix a
1692 bug with null workspace.
1694 * clfswm-pager.lisp (pager-handle-event): Add a hook
1695 system. This hooks can be changed in the user configuration file.
1697 * package.lisp: All colors and font variables are set in
1698 package.lisp and can be configured in the user configuration
1700 Note: If you have configured some less ugly colors (esp. for the
1701 pager) don't hesitate to let me know :)
1703 * clfswm-second-mode.lisp (sm-handle-event): Add a hook
1704 system. This hooks can be changed in the user configuration file.
1706 * clfswm.lisp (handle-event): Add a hook system. This hooks can be
1707 changed in the user configuration file (~/.clfswmrc)
1709 2007-04-25 Philippe Brochard <pbrochard@common-lisp.net>
1711 * clfswm-util.lisp (stop-all-pending-actions): new function: reset
1712 arrow action, open next window in new workspace/group.
1714 * bindings.lisp (stop-all-pending-actions): new binding.
1715 (open-next-window-in-new-group-once): Open the next windows in a
1716 new group (only once) or open all new windows in a new group (like
1717 others windows managers).
1719 2007-04-22 Philippe Brochard <pbrochard@common-lisp.net>
1721 * clfswm.lisp (read-conf-file): New function to read a lisp
1722 configuration file at startup.
1723 (focus-group-under-mouse): Check if group isn't the current group
1724 ( prevent a bug with unclutter ).
1726 2007-03-02 Philippe Brochard <pbrochard@common-lisp.net>
1728 * bindings.lisp (run-program-from-query-string): A program can be
1729 launch from a input query window.
1731 2007-03-01 Philippe Brochard <pbrochard@common-lisp.net>
1733 * clfswm-info.lisp: Fix a bug with banish pointer in info mode.
1735 2007-02-28 Philippe Brochard <pbrochard@common-lisp.net>
1737 * clfswm.lisp (process-new-window): One can now open the next
1738 window in a workspace called by its number.
1740 * clfswm-util.lisp (query-font-string): Minimal editing
1742 (eval-from-string): And an REPL in the window manager... :)
1744 2007-02-26 Philippe Brochard <pbrochard@common-lisp.net>
1746 * clfswm.lisp (process-new-window): One can now open the next
1747 window in a new workspace or a new group.
1749 * clfswm-pager.lisp (pager-mode): Display the next arrow action
1750 with the hidden windows.
1752 * clfswm.lisp (second-key-mode): Display the current workspace
1753 number and the next arrow action in the state window.
1755 * clfswm-pager.lisp (pager-mode): Hide all windows before leaving
1756 the pager mode and then redisplay only the current workspace.
1758 2007-02-25 Philippe Brochard <pbrochard@common-lisp.net>
1760 * clfswm.lisp (add-workspace): Workspaces are now numbered. So
1761 they can be focused with a keypress, sorted or renumbered.
1763 2007-02-24 Philippe Brochard <pbrochard@common-lisp.net>
1765 * clfswm-pager.lisp (pager-mode): Remove multiple silly
1766 pager-draw-display. This prevent a lot of flickering in the
1769 * clfswm.lisp: Remove all display-force-output and replace them
1770 with only one display-finish-output in the event loop.
1772 2006-11-06 Philippe Brochard <pbrochard@common-lisp.net>
1774 * clfswm-pager.lisp (pager-center-group): New function - center a
1775 group at the middle of the screen.
1777 * clfswm-pack.lisp (center-group): New function - center a group
1778 at the middle of the screen.
1780 * clfswm.lisp (show-group): Add a cross line under the group.
1781 (show-group): Group are showned even if fullscreened.
1782 (init-display): Add an exposure event on the root window.
1784 2006-11-05 Philippe Brochard <pbrochard@common-lisp.net>
1786 * package.lisp (*default-group*): Default group is the same size
1787 of a fullscreened group.
1789 * bindings*: Use shift to move, control+shift to copy.
1791 * *.lisp: Add comments for configuration or alternatives. So grep
1792 for CONFIG to see where you can configure clfswm. And grep for
1793 Alternative to use some commented code.
1795 * clfswm.lisp (second-key-mode): Use a single window to show the
1796 second mode. See for alternatives at the end of this file.
1798 2006-11-03 Philippe Brochard <pbrochard@common-lisp.net>
1800 * clfswm-keys.lisp (define-define-key/mouse): Factorisation in a
1801 macro of key and mouse definitions.
1802 (define-define-key/mouse): Use state instead of modifiers list
1803 this fix a bug when the modifiers list is not in the rigth order.
1805 * clfswm.lisp (second-key-mode): Add a colored border in second mode.
1807 2006-11-02 Philippe Brochard <pbrochard@common-lisp.net>
1809 * clfswm-info.lisp (info-mode): Add an info mode.
1811 2006-11-01 Philippe Brochard <pbrochard@common-lisp.net>
1813 * clfswm.lisp (process-new-window): Change border size for
1815 (show-all-windows-in-workspace): Unhide all windows even when the
1816 current group is in fullscreen mode.
1818 2006-10-26 Philippe Brochard <pbrochard@common-lisp.net>
1820 * clfswm-util.lisp (identify-key): Add an exposure handle-event to
1821 redisplay the identify window after a terminal switch.
1823 * clfswm-pager.lisp (pager-mode): Add an exposure handle-event to
1824 redisplay the pager after a terminal switch.
1826 2006-10-24 Philippe Brochard <pbrochard@common-lisp.net>
1828 * clfswm-util.lisp (identify-key): Add a window to display
1829 the keys to identify on screen.
1831 * bindings.lisp, bindings-pager.lisp: Define same keys to
1832 move/copy groups/windows in second mode and in pager.
1834 * clfswm.lisp (handle-event*): Same version in all clfswm (fix some
1836 (show-all-windows-in-workspace): unhide window before adapting it
1839 2006-10-23 Philippe Brochard <pbrochard@common-lisp.net>
1841 * clfswm.lisp (handle-event): Revert to an older version.
1843 2006-10-18 Philippe Brochard <pbrochard@common-lisp.net>
1845 * clfswm-util.lisp (force-window-in-group)
1846 (force-window-center-in-group): New functions for transient windows.
1848 * clfswm-pager.lisp (pager-remove-current-workspace/group):
1849 bugfix: hide all windows before removing group or workspace.
1851 2006-10-17 Philippe Brochard <pbrochard@common-lisp.net>
1853 * bindings-pager.lisp (mouse-pager-move-selected-group)
1854 (mouse-pager-copy-selected-group)
1855 (mouse-pager-move-selected-window)
1856 (mouse-pager-copy-selected-window, mouse-pager-rotate-window-up)
1857 (mouse-pager-rotate-window-down): New functions to have mouse in
1860 * clfswm-pager.lisp (pager-swap-window)
1861 (pager-copy-group-on-next/previous-workspace)
1862 (pager-copy-window-on-next/previous-line): New functions
1864 2006-10-15 Philippe Brochard <pbrochard@common-lisp.net>
1866 * clfswm-pager.lisp (pager-move-window-on-next/previous-line,
1867 (pager-move-group-on-next/previous-workspace): new functions.
1869 * clfswm-pack.lisp (resize-half-x-x-current-group): resize group
1870 to its half size (new functions).
1872 2006-10-11 Philippe Brochard <pbrochard@common-lisp.net>
1874 * clfswm-pager.lisp: workspaces, groups and windows can now be
1875 selectionned with the keyboard or the mouse.
1877 2006-10-09 Philippe Brochard <pbrochard@common-lisp.net>
1879 * clfswm-pager.lisp (pager-select-workspace-right/left):
1880 workspaces can now be selectionned with the keyboard.
1882 2006-10-08 Philippe Brochard <pbrochard@common-lisp.net>
1884 * clfswm-keys.lisp (undefine-main-key, undefine-second-key, undefine-mouse-action):
1885 new function to remove a previous defined key or mouse combination.
1887 2006-10-07 Philippe Brochard <pbrochard@common-lisp.net>
1889 * clfswm.lisp (main): Check for access error in init-display.
1891 * clfswm-keys.lisp (define-ungrab/grab): check for keysym and
1892 keycode before grabbing.
1894 * bindings.lisp: Remove nlambda and use defun to keep the function
1895 documentation with clisp.
1896 (define-shell): new macro to define shell command for the second
1899 2006-10-06 Philippe Brochard <pbrochard@common-lisp.net>
1901 * clfswm-keys.lisp (define-ungrab/grab): use a cond instead of a
1904 2006-10-05 Philippe Brochard <pbrochard@common-lisp.net>
1906 * bindings.lisp (accept-motion): Move group bugfix in upper mouse
1907 workspace circulation.
1909 * clfswm-util.lisp (absorb-orphan-window): new function.
1911 * clfswm-keys.lisp: Keysyms support.
1913 2006-10-02 Philippe Brochard <pbrochard@common-lisp.net>
1915 * clfswm.lisp (show-group): Use one gc for all groups and not one
1918 2006-10-01 Philippe Brochard <pbrochard@common-lisp.net>
1920 * bindings.lisp (define-second-key (#\l :mod-1)): fix a typo.
1922 * clfswm.lisp (adapt-window-to-group): Adapt only windows with
1923 width and height outside group.
1925 2006-09-28 Philippe Brochard <pbrochard@common-lisp.net>
1927 * clfswm.lisp: First public release.