1 2011-02-16 Philippe Brochard <pbrochard@common-lisp.net>
3 * src/clfswm.lisp (main-unprotected): Add a close hook. And close
4 the notify window, the virtual keyboard and the clfswm terminal by
7 2011-02-15 Philippe Brochard <pbrochard@common-lisp.net>
9 * src/clfswm.lisp (main-unprotected): Destroy the notify window
10 before closing the display. This fix a bug when resetting/reloading
13 2011-02-12 Philippe Brochard <pbrochard@common-lisp.net>
15 * src/xlib-util.lisp (equal-wm-class-fun, equal-wm-name-fun)
16 (raise-window-fun, raise-and-focus-window-fun): New functions.
18 * src/config.lisp (*clfswm-terminal-cmd*): Switch from xterm to
20 (*never-managed-window-list*): Structure change to be more
21 flexible. Let the choice to focus, raise and do nothing on never
24 2011-02-09 Philippe Brochard <pbrochard@common-lisp.net>
26 * src/clfswm-util.lisp (mouse-focus-move/resize-generic): Take
27 care of never managed windows to move or resize them if the raise
30 * src/clfswm-internal.lisp (in-frame, in-window, in-child): New
33 2011-02-08 Philippe Brochard <pbrochard@common-lisp.net>
35 * src/clfswm.lisp (main-mode): Raise or not unmanaged windows
36 following request in *never-managed-window-list*.
38 2011-02-05 Philippe Brochard <pbrochard@common-lisp.net>
40 * *: **** Release 1102 ****
42 2011-02-05 Desmond O. Chang <dochang@gmail.com>
44 * src/keysyms.lisp: Add extended keysyms from stumpwm.
46 2011-02-01 Desmond O. Chang <dochang@gmail.com>
48 * src/clfswm-util.lisp (run-or-raise): New function (thanks to
51 * src/clfswm-internal.lisp (with-all-*): add a nil block.
53 2011-01-28 Desmond O. Chang <dochang@gmail.com>
55 * src/clfswm-util.lisp (xdg-config-home): XDG_CONFIG_HOME should
56 be $HOME/.config by default.
58 2010-12-29 Philippe Brochard <pbrochard@common-lisp.net>
60 * contrib/osd.lisp (display-doc): Add another method where a
61 CLFSWM native window is used to display the key documentation.
63 2010-12-27 Philippe Brochard <pbrochard@common-lisp.net>
65 * src/xlib-util.lisp (with-xlib-protect): Force to revert to the
68 2010-12-25 Philippe Brochard <pbrochard@common-lisp.net>
70 * src/clfswm-second-mode.lisp (second-key-mode): Call the second
71 mode leave function only when the generic mode was ended.
73 2010-12-08 Philippe Brochard <pbrochard@common-lisp.net>
75 * src/clfswm-second-mode.lisp (sm-leave-function): Do not use
76 *second-mode-program* anymore.
78 2010-12-07 Philippe Brochard <pbrochard@common-lisp.net>
80 * src/clfswm-second-mode.lisp (*second-mode-leave-function*): New
81 variable bound to a function executed (when not null) on second
84 2010-11-14 Philippe Brochard <pbrochard@common-lisp.net>
86 * src/clfswm-util.lisp (find-child-under-mouse): Do not find
89 2010-11-13 Philippe Brochard <pbrochard@common-lisp.net>
91 * src/clfswm-expose-mode.lisp (expose-mode-display-accel-windows):
92 Do not display the accel window for unmanaged windows.
94 2010-11-11 Philippe Brochard <pbrochard@common-lisp.net>
96 * src/clfswm-internal.lisp (set-current-root): Handle
97 window-parent in set-current-root.
99 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Do not
100 focus the parent child when the current root is a window.
102 2010-11-09 Philippe Brochard <pbrochard@common-lisp.net>
104 * src/clfswm-expose-mode.lisp (expose-windows-current-child-mode):
105 New function an bindings.
107 * src/clfswm-layout.lisp (tile-layout, set-tile-layout): Fill
110 2010-11-07 Philippe Brochard <pbrochard@common-lisp.net>
112 * src/clfswm-layout.lisp (tile-layout-ask-keep-position): New
113 function to let the user choose to keep child position with
116 * src/clfswm-internal.lisp (remove-frame-data-slot): New
119 2010-11-05 Philippe Brochard <pbrochard@common-lisp.net>
121 * src/clfswm-internal.lisp (frame-select-next-child)
122 (frame-select-previous-child): New functions and bindings. Select
123 the next/previous child in the current frame.
125 2010-10-31 Philippe Brochard <pbrochard@common-lisp.net>
127 * src/clfswm-query.lisp (query-mode-complet): New function: Handle
128 completion in query-mode.
130 2010-10-30 Philippe Brochard <pbrochard@common-lisp.net>
132 * src/clfswm-query.lisp (query-print-string): Handle long lines
135 2010-10-27 Philippe Brochard <pbrochard@common-lisp.net>
137 * src/clfswm-expose-mode.lisp (expose-create-window): Ensure that
138 all characters are printable.
140 2010-10-25 Philippe Brochard <pbrochard@common-lisp.net>
142 * contrib/server/server.lisp: Load clfswm client code in the main
143 program and let the user start it with a --client command line
146 * src/package.lisp (*main-entrance-hook*): New hook executed after
147 loading configuration file and before opening the display.
149 2010-10-23 Philippe Brochard <pbrochard@common-lisp.net>
151 * src/xlib-util.lisp: Remove unnecessary xlib:display-finish-output.
153 * src/clfswm-internal.lisp (show-child): Show window only if not
156 * src/clfswm-keys.lisp (binding-substitute-modifier): Utility to
157 change modifiers after binding definition.
159 2010-10-21 Philippe Brochard <pbrochard@common-lisp.net>
161 * contrib/osd.lisp: New file: OSD (On Screen Display) for
164 * src/clfswm-menu.lisp (open-menu): Modularise function.
166 2010-10-13 Philippe Brochard <pbrochard@common-lisp.net>
168 * src/clfswm-info.lisp (show-first-aid-kit): Display the essential
169 key binding in main and second mode.
171 2010-10-10 Philippe Brochard <pbrochard@common-lisp.net>
173 * src/clfswm-util.lisp (open-notify-window): Convert hello-window
174 functions to a more generic Notify-window system.
176 * src/tools.lisp (add-timer): Add an id to identify the timer.
178 2010-10-09 Philippe Brochard <pbrochard@common-lisp.net>
180 * src/tools.lisp (erase-timer): New function.
182 * src/clfswm-util.lisp (display-hello-window): Add a timer to hide
183 the hello window. Add Configuration variables.
185 2010-10-08 Philippe Brochard <pbrochard@common-lisp.net>
187 * src/clfswm-util.lisp (): Add an Hello window at startup.
189 * src/tools.lisp (process-timers): Add a timer system.
191 2010-10-07 Philippe Brochard <pbrochard@common-lisp.net>
193 * src/clfswm-query.lisp (add-in-query-string): Handle correctly
196 2010-10-06 Philippe Brochard <pbrochard@common-lisp.net>
198 * src/clfswm-query.lisp (query-print-string): Change cursor color
199 and show parenthesis matching with colors (on match and on
202 2010-10-05 Philippe Brochard <pbrochard@common-lisp.net>
204 * src/clfswm-internal.lisp (show-all-children): Do not raise a
205 child when its parent is hidden.
207 2010-10-02 Philippe Brochard <pbrochard@common-lisp.net>
209 * src/clfswm-circulate-mode.lisp (select-next-subchild): Add the
210 possibility to circulate over subchild of the current child.
212 * src/clfswm-expose-mode.lisp (expose-all-windows-mode)
213 (expose-windows-generic): Add an escape-body function to return to
214 the original state on escape key.
216 * src/clfswm-util.lisp (bind-on-slot): Add an optional parameter
217 to bind the current child from the configuration file.
219 2010-10-01 Philippe Brochard <pbrochard@common-lisp.net>
221 * src/clfswm-nw-hooks.lisp (absorb-window-nw-hook): Absorb new
222 window hook: the frame absorb all new windows that match
223 nw-absorb-test frame data slot.
225 2010-09-30 Philippe Brochard <pbrochard@common-lisp.net>
227 * src/clfswm-expose-mode.lisp (expose-create-window): Show window
228 title in accel window.
230 2010-09-29 Philippe Brochard <pbrochard@common-lisp.net>
232 * configure: Use the Xavier Maillard clfswm script in contrib to
233 build an executable in the standard way.
235 2010-09-26 Philippe Brochard <pbrochard@common-lisp.net>
237 * src/clfswm-expose-mode.lisp (expose-mode-display-accel-windows):
238 New functions. Add a window on each child in the expose mode to
241 * src/clfswm-internal.lisp (child-x, child-y, child-width)
242 (child-height): New methods to get real child coordinates.
244 2010-09-25 Philippe Brochard <pbrochard@common-lisp.net>
246 * src/clfswm-layout.lisp (*-layout): Use child-position.
248 * src/clfswm-internal.lisp (child-position): New function.
250 * src/clfswm-expose-mode.lisp (expose-windows-mode)
251 (expose-all-windows-mode): Use a generic mode.
253 * src/xlib-util.lisp (with-handle-event-symbol): Use a filled list
254 with handle-event-fun symbols instead of inspecting clfswm
255 internals symbols on each mode change.
257 * src/clfswm-expose-mode.lisp: Move and rename present*-windows in
258 a separate clfswm-expose-mode.lisp file.
260 * src/clfswm-util.lisp (speed-mouse-right, speed-mouse-down): Use
261 screen size instead of hardcoded test coordinates.
263 2010-09-24 Philippe Brochard <pbrochard@common-lisp.net>
265 * src/clfswm-util.lisp (speed-mouse-reset, speed-mouse-left)
266 (speed-mouse-right, speed-mouse-up, speed-mouse-down)
267 (speed-mouse-undo, speed-mouse-first-history): New functions to
268 quickly move the mouse. Implemented for the second mode.
270 2010-09-16 Philippe Brochard <pbrochard@common-lisp.net>
272 * contrib/clfswm: Move clfswm sources to $tmp_dir if there is no
273 write permission on $clfswm_asd_path. So anybody can start clfswm
274 even if there is no write permission on the source directory.
276 2010-09-12 Philippe Brochard <pbrochard@common-lisp.net>
278 * contrib/clfswm: Add support to cmucl, ccl and ecl.
280 2010-09-11 Philippe Brochard <pbrochard@common-lisp.net>
282 * src/clfswm-util.lisp (set-hide-unmanaged-window)
283 (set-show-unmanaged-window, set-default-hide-unmanaged-window):
284 New functions and menu entry.
285 (set-globally-hide-unmanaged-window)
286 (set-globally-show-unmanaged-window): New functions and menu
289 * src/clfswm-internal.lisp (hide-unmanager-window-p): New
291 (show-child): Add a data slot on frame to hide or not unmanaged
294 * src/clfswm-corner.lisp (present-clfswm-terminal)
295 (present-virtual-keyboard): Use a function (generic-present-body)
296 instead of a macro (generate-present-body).
298 * src/clfswm-util.lisp (update-menus): List all directories and
299 subdirectories in $XDG_DATA_DIRS/applications.
301 2010-09-10 Philippe Brochard <pbrochard@common-lisp.net>
303 * src/clfswm-corner.lisp (generate-present-body): New macro.
304 (present-clfswm-terminal, present-virtual-keyboard): Use
305 generate-present-body.
307 2010-09-09 Philippe Brochard <pbrochard@common-lisp.net>
309 * src/clfswm-util.lisp (update-menus): Follow XDG specifications
310 instead of the non-portable Debian update-menu.
312 2010-09-07 Philippe Brochard <pbrochard@common-lisp.net>
314 * src/clfswm.lisp (error-handler): New function do handle
315 asynchronous errors and ignore them.
316 (open-display): Install the new error-handler on display.
318 2010-09-05 Philippe Brochard <pbrochard@common-lisp.net>
320 * src/xlib-util.lisp (with-xlib-protect): Add a
321 with-simple-restart on top of body execution.
323 2010-09-04 Philippe Brochard <pbrochard@common-lisp.net>
325 * src/clfswm.lisp (main-loop): Protect all xlib functions with an
328 * src/xlib-util.lisp (handle-event): use with-xlib-protect only in
329 handle-event. Add a with-simple-restart to prevent a
330 clisp/new-lisp infinite loop.
332 2010-08-30 Philippe Brochard <pbrochard@common-lisp.net>
334 * src/clfswm-corner.lisp (present-clfswm-terminal): Make the
335 clfswm terminal working even on xterm title changes.
337 2010-08-29 Philippe Brochard <pbrochard@common-lisp.net>
339 * src/clfswm-util.lisp (run-other-window-manager): Update for
342 * src/tools.lisp (do-execute): New parameter io to change the
345 * src/clfswm-util.lisp (hide-current-child): Prevent from removing
348 * src/clfswm-internal.lisp (child-member): New predicate.
349 (child-remove): New function.
351 * src/*.lisp: Use child-member and child-remove everywhere it's
354 2010-08-28 Philippe Brochard <pbrochard@common-lisp.net>
356 * src/clfswm.lisp (main-loop): Ensure that all events have been
357 processed after a process-event.
359 * src/clfswm-internal.lisp (is-in-current-child-p): New function.
361 2010-08-27 Philippe Brochard <pbrochard@common-lisp.net>
363 * src/clfswm.lisp (main-mode:configure-request): Raise the window
364 only when present on the current child and focus it accordingly.
366 2010-08-26 Philippe Brochard <pbrochard@common-lisp.net>
368 * src/clfswm-circulate-mode.lisp (circulate-loop-function):
369 Use is-a-key-pressed-p.
371 * src/xlib-util.lisp (is-a-key-pressed-p): New predicate.
373 * src/clfswm-keys.lisp (define-ungrab/grab): Use all values
374 returned by xlib:keysym->keycodes.
376 * src/*.lisp: Use the new child-equal-p to compare children. This
377 prevent a bug with sbcl/cmucl when the standard equal function
378 does not work with xlib:window.
380 * src/clfswm-internal.lisp (child-equal-p): New predicate.
382 2010-08-25 Philippe Brochard <pbrochard@common-lisp.net>
384 * src/clfswm-generic-mode.lisp (generic-mode): Use an
385 xlib:event-listen before processing event with
386 xlib:process-event. This prevent a bug with CLX threaded
387 implementation like sbcl.
389 * src/clfswm.lisp (main-loop): Use an xlib:event-listen before
390 processing event with xlib:process-event. This prevent a bug with
391 CLX threaded implementation like sbcl.
393 2010-08-17 Philippe Brochard <pbrochard@common-lisp.net>
395 * contrib/server/key.lisp (ushell-sh): Add ccl and ecl support.
397 * src/xlib-util.lisp (compress-motion-notify): Use a loop instead
400 * src/clfswm-internal.lisp (with-find-in-all-frames): New macro.
401 (find-parent-frame, find-frame-window, find-frame-by-name)
402 (find-frame-by-number): Use with-find-in-all-frames to search in
403 frames in the right order.
405 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Fix an
406 unwanted flickering with unmanaged windows.
408 2010-08-16 Philippe Brochard <pbrochard@common-lisp.net>
410 * src/package.lisp: Remove event handler hooks as they're not
411 needed anymore (To replace them: use closure and define-handler).
413 * src/xlib-util.lisp (move-window, resize-window)
414 (wait-mouse-button-release): Use a generic mode.
416 * src/*.lisp: Replace the case to handle event with a more (tricky)
417 lispy method which bind a function to each keywords associated
420 2010-07-23 Philippe Brochard <pbrochard@common-lisp.net>
422 * src/clfswm-util.lisp (delete-current-child): Invert bindings and
423 menu entry between delete-current-child and remove-current-child.
424 ie: Delete a child and its children in all frames by default.
426 2010-07-21 Philippe Brochard <pbrochard@common-lisp.net>
428 * src/package.lisp: Add a placement configuration group.
430 * src/binding*.lisp: Bind control+g to escape the current action
433 * src/clfswm-internal.lisp
434 (delete-child-and-children-in-all-frames): New function and
435 binding: Second mode - Control+Delete delete the current child and
436 its children in all frames (ie: close the current child and its
439 2010-07-20 Philippe Brochard <pbrochard@common-lisp.net>
441 * src/clfswm-internal.lisp (remove-child-in-frame): Do not destroy
442 the frame window and the frame gc. Close a very annoying bug when
443 cuting/pasting a frame or moving a child over frames with the
446 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Redisplay
447 all children in *current-root* after moving/resizing a frame.
449 2010-07-18 Philippe Brochard <pbrochard@common-lisp.net>
451 * src/clfswm-util.lisp (delete-focus-window)
452 (destroy-focus-window): Remove child in parent frame before
455 2010-07-16 Philippe Brochard <pbrochard@common-lisp.net>
457 * src/clfswm-util.lisp (identify-key): Add a timeout in
459 (mouse-click-to-focus-generic): Use find-child-under-mouse instead
460 of the window passed by xlib:process-event.
462 * src/xlib-util.lisp (move-window, resize-window)
463 (wait-mouse-button-release): Add a timeout in xlib:process-event.
465 2010-04-11 Philippe Brochard <pbrochard@common-lisp.net>
467 * src/clfswm-util.lisp (run-other-window-manager): Add the ability
468 to launch an other window manager and to return to clfswm.
470 2010-03-18 Philippe Brochard <pbrochard@common-lisp.net>
472 * src/clfswm-layout.lisp (set-tile-space-layout): Set default
475 2009-12-15 Philippe Brochard <pbrochard@common-lisp.net>
477 * src/clfswm.lisp (main-loop): Add a *loop-hook* parameter and a
480 * src/clfswm-generic-mode.lisp (generic-mode): Add a loop-hook
481 parameter and a loop timeout.
483 2009-12-05 Philippe Brochard <pbrochard@common-lisp.net>
485 * src/clfswm.lisp (main): Add an alternate configuration filename
488 * load.lisp: Add a debuging code example.
490 2009-11-14 Philippe Brochard <pbrochard@common-lisp.net>
492 * src/clfswm-configuration.lisp (create-configuration-menu): New
493 menu to configure all clfswm variables while clfswm is running.
495 2009-11-12 Philippe Brochard <pbrochard@common-lisp.net>
497 * src/clfswm-util.lisp (save-configuration-variables): New
498 function to save all configuration variables in clfswmrc.
500 2009-11-11 Philippe Brochard <pbrochard@common-lisp.net>
502 * src/clfswm-info.lisp (info-mode): Begining of mouse support in
504 (set-default-info-keys): Add cursor key support in info mode.
506 2009-11-08 Philippe Brochard <pbrochard@common-lisp.net>
508 * contrib/reboot-halt.lisp: Add a Suspend/Reboot/Halt menu in
511 * src/clfswm.lisp (main): Add a read-conf-file-p parameter to
512 prevent reading the configuration file (this may be useful to
513 produce the original documentation without user modifications
514 with the rc configuration file).
516 2009-11-07 Philippe Brochard <pbrochard@common-lisp.net>
518 * src/bindings-second-mode.lisp (set-default-second-keys):
519 Simplification of Escape key to close/kill/remove the focus window
520 and unhide all windows.
522 * src/bindings.lisp (set-default-main-keys): Simplification of
523 Escape key to close/kill/remove the focus window and unhide all
526 * src/clfswm-util.lisp (ask-close/kill-current-window): Add remove
527 focus and unhide all windows capabilities.
529 2009-10-10 Philippe Brochard <pbrochard@common-lisp.net>
531 * contrib/mpd.lisp (start-gmpc): Add gmpc in the mpd menu.
533 2009-07-29 Philippe Brochard <pbrochard@common-lisp.net>
535 * src/clfswm-layout.lisp (tile-layout, tile-horizontal-layout):
536 Keep child order and don't make unnecessary child movement.
537 (one-column-layout, one-line-layout): New layouts.
539 2009-06-29 Philippe Brochard <pbrochard@common-lisp.net>
541 * *: **** Release 0906 ****
543 * contrib/cd-player.lisp: New file to handle the CD player.
545 * contrib/xmms.lisp: New file to handle the xmms player.
547 2009-06-28 Philippe Brochard <pbrochard@common-lisp.net>
549 * src/clfswm-layout.lisp (set-no-layout-remember-size): New layout:
550 Maximize windows in there frame - Leave frames to there actual
553 * src/bindings-second-mode.lisp (set-default-second-keys): Bind
554 "o" on set-open-in-new-frame-in-parent-frame-nw-hook.
556 2009-06-27 Philippe Brochard <pbrochard@common-lisp.net>
558 * contrib/keyb_fr.lisp: New file to handle an azerty keyboard.
560 2009-06-24 Philippe Brochard <pbrochard@common-lisp.net>
562 * contrib/mpd.lisp: Use a standard menu.
564 * src/clfswm-info.lisp: Use a standard menu for the help-menu.
566 2009-06-22 Philippe Brochard <pbrochard@common-lisp.net>
568 * contrib/mpd.lisp: New file to handle the Music Player Daemon (MPD)
570 2009-06-19 Philippe Brochard <pbrochard@common-lisp.net>
572 * src/clfswm-autodoc.lisp (produce-doc, produce-doc-html): Minor
575 2009-06-18 Philippe Brochard <pbrochard@common-lisp.net>
577 * src/config.lisp (get-fullscreen-size): One pixel adjustment
580 * src/clfswm-placement.lisp (*-child-placement): One pixel
583 2009-06-16 Philippe Brochard <pbrochard@common-lisp.net>
585 * src/clfswm-circulate-mode.lisp (draw-circulate-mode-window):
586 Ensure that all characters are printable.
588 * src/config.lisp (get-fullscreen-size): Adjust default fullscreen
591 * src/clfswm-placement.lisp (*-child-placement): Adjust
592 coordinates to one pixel in the current child.
594 2009-06-04 Philippe Brochard <pbrochard@common-lisp.net>
596 * src/clfswm-query.lisp (query-enter-function): Assign font before
597 width and height calculation.
599 2009-06-03 Philippe Brochard <pbrochard@common-lisp.net>
601 * src/xlib-util.lisp (banish-pointer): Use with-placement macro to
602 bannish the pointer in an arbitrary place.
604 * src/clfswm-info.lisp (info-mode): Use with-placement macro to
605 place the info window in an arbitrary place.
607 * src/clfswm-query.lisp (query-enter-function): Use with-placement
608 macro to place the query window in an arbitrary place.
610 * src/clfswm-placement.lisp: New file. Allow to place info windows
611 or query windows on an arbitrary place. Allow to bannish the
612 pointer on an arbitrary place.
614 2009-05-16 Philippe Brochard <pbrochard@common-lisp.net>
616 * src/clfswm-circulate-mode.lisp (reorder-child)
617 (reorder-brother): Unfocus windows before reordering children or
620 2009-05-13 Philippe Brochard <pbrochard@common-lisp.net>
622 * src/clfswm-circulate-mode.lisp (reorder-brother): Ensure that
623 the parent is a frame.
625 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Handle
626 motion with a default modifier.
628 * src/clfswm.lisp (handle-motion-notify): Handle motion with a
631 * src/clfswm-info.lisp (info-mode): Handle motion with a default
633 (info-mode): Optimization in loop function.
635 2009-05-10 Philippe Brochard <pbrochard@common-lisp.net>
637 * src/clfswm-circulate-mode.lisp (reorder-brother): Handle
638 root-frame correctly.
640 * clfswm.asd: Dependency fix for clfswm-generic-mode.
642 * src/clfswm-circulate-mode.lisp (reorder-child)
643 (reorder-brother): Handle empty frames.
644 (reorder-brother): Redisplay only the parent frame of the current
647 * src/clfswm-util.lisp (frame-toggle-maximize): Redisplay only the
648 parent frame of the current frame.
650 2009-05-09 Philippe Brochard <pbrochard@common-lisp.net>
652 * src/clfswm-util.lisp (frame-toggle-maximize): New function:
653 Maximize/Unmaximize the current frame in its parent frame.
655 * src/clfswm-layout.lisp (maximize-layout): New layout: Maximize
656 windows and frames in there parent frame.
658 2009-05-05 Philippe Brochard <pbrochard@common-lisp.net>
660 * src/*.lisp: Add support for Clozure Common Lisp (CCL).
662 * src/clfswm-circulate-mode.lisp (reorder-child)
663 (reorder-brother): Reinitialise on circulate type change
664 child to brother or brother to child.
666 * src/*.lisp (*): Use map-window instead of xlib:map-window. So
667 calls xlib:display-finish-output on each map-request. So speed up
670 * src/xlib-util.lisp (map-window): New function. Call
671 xlib:display-finish-output on each map request.
673 2009-04-28 Philippe Brochard <pbrochard@common-lisp.net>
675 * src/clfswm-second-mode.lisp (sm-handle-motion-notify):
676 Optimisation when drawing second mode window.
678 2009-04-27 Philippe Brochard <pbrochard@common-lisp.net>
680 * src/clfswm-circulate-mode.lisp (circulate-mode): Optimisation in
683 2009-04-22 Philippe Brochard <pbrochard@common-lisp.net>
685 * src/clfswm-util.lisp (run-program-from-query-string): Launch
686 command only with a return validation.
688 2009-04-22 Xavier Maillard <xma@gnu.org>
690 * src/clfswm-query.lisp (query-string): Use a generic mode.
692 2009-04-19 Xavier Maillard <xma@gnu.org>
694 * src/clfswm-info.lisp (info-mode): Use generic-mode for info-mode.
696 2009-04-18 Xavier Maillard <xma@gnu.org>
698 * src/clfswm-generic-mode.lisp (generic-mode): Add a generic mode
699 to define all other modes.
701 2009-04-05 Philippe Brochard <pbrochard@common-lisp.net>
703 * src/package.lisp (): Use *default-font-string* for all
706 * src/clfswm-info.lisp (info-mode): Ensure integer windows size.
708 2009-02-17 Philippe Brochard <pbrochard@common-lisp.net>
710 * src/xlib-util.lisp (null-size-window-p): Better check of null
713 2009-02-14 Philippe Brochard <pbrochard@common-lisp.net>
715 * src/clfswm.lisp (handle-map-request): Add a fix to manage
716 correctly fullscreen windows (SDL particularly).
718 2008-12-20 Philippe Brochard <pbrochard@common-lisp.net>
720 * src/xlib-util.lisp (get-color): Allocate colors only once -> fix
721 a segfault with clisp/new-clx.
723 * src/clfswm.lisp (handle-motion-notify): Add a needed window
726 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Add a
727 needed window argument.
729 2008-10-30 Philippe Brochard <pbrochard@common-lisp.net>
731 * src/xlib-util.lisp (wait-no-key-or-button-press)
732 (wait-a-key-or-button-press): Check buttons press/release correctly"
734 2008-10-28 Philippe Brochard <pbrochard@common-lisp.net>
736 * src/menu-def.lisp: Add children navigation menu in the movement
737 menu (select next/previous child/brother/level).
739 2008-10-26 Philippe Brochard <pbrochard@common-lisp.net>
741 * *: Rename 'sister' frame to 'brother' frame.
743 * src/clfswm-keys.lisp (unalias-modifiers): Convert a modifier
744 alias in a real modifier.
746 * src/package.lisp (*modifier-alias*): New list of modifier alias
747 For example: :alt is :mod-1, :numlock is :mod-2...
749 * src/tools.lisp (remove-hook): New function.
751 * src/clfswm-keys.lisp (with-capslock, without-capslock)
752 (with-numlock, without-cnumlock): New functions.
754 2008-10-25 Philippe Brochard <pbrochard@common-lisp.net>
756 * src/clfswm-info.lisp: Use the *binding-hook* to create info
757 keys and mouse bindings.
759 * src/bindings-second-mode.lisp: Use the *binding-hook* to create
760 second keys and mouse bindings.
762 * src/bindings.lisp: Use the *binding-hook* to create main keys
765 2008-10-10 Philippe Brochard <pbrochard@common-lisp.net>
767 * src/clfswm-menu.lisp (open-menu): Remember parent menu to undo
770 2008-10-09 Philippe Brochard <pbrochard@common-lisp.net>
772 * src/menu-def.lisp: Use a menu instead of a function for the
775 2008-10-08 Philippe Brochard <pbrochard@common-lisp.net>
777 * src/clfswm-util.lisp (show-standard-menu): Display the standard
778 menu from the 'update-menus' command.
780 2008-10-07 Philippe Brochard <pbrochard@common-lisp.net>
782 * src/clfswm-query.lisp (query-string): Do not ungrab keyboard if
783 it's already grabbed.
785 * src/clfswm-internal.lisp (display-frame-info): Use configurable
786 colors and fix a bug with background.
787 (display-frame-info): Set window background when displaying info.
789 2008-10-06 Philippe Brochard <pbrochard@common-lisp.net>
791 * src/xlib-util.lisp (my-character->keysyms): Use a macro to avoid
792 warning with clisp/new-clx.
794 2008-10-04 Philippe Brochard <pbrochard@common-lisp.net>
796 * src/clfswm-util.lisp (jump-to-slot): Prevent to jump on a
799 2008-09-23 Philippe Brochard <pbrochard@common-lisp.net>
801 * *: **** Release 0809 ****
803 2008-09-23 Philippe Brochard <pbrochard@common-lisp.net>
805 * src/clfswm-util.lisp (ensure-unique-name): New function and menu
807 (ensure-unique-number): New function and menu entry.
809 2008-09-22 Philippe Brochard <pbrochard@common-lisp.net>
811 * src/clfswm-nw-hooks.lisp (named-frame-nw-hook): New new window
812 hook: open the next window in a named frame.
813 (numbered-frame-nw-hook): New new window hook: open the next
814 window in a numbered frame.
816 * src/clfswm-query.lisp (query-string): Grab the keyboard in all
817 cases. So query-string can be called even in the main mode.
819 * src/clfswm-internal.lisp (show-all-children): Do not raise a
820 child by default => far less flickering.
822 2008-09-19 Philippe Brochard <pbrochard@common-lisp.net>
824 * src/bindings-second-mode.lisp: Bind "t" to tile-current-frame.
826 * src/menu-def.lisp: Change key binding for the CLFSWM menu
829 * src/xlib-util.lisp (xgrab-pointer): Handle the case where cursor
830 is nil. (workaround on some CLX implementation).
832 2008-09-12 Philippe Brochard <pbrochard@common-lisp.net>
834 * src/menu-def.lisp: Add a menu to set a focus policy for all
837 * src/clfswm-util.lisp (set-focus-policy-generic-for-all)
838 (all-frames-set-*-focus-policy): Set a focus policy for all
841 * src/clfswm.lisp (handle-enter-notify): sloppy-select
842 mode. Select a child and its parents on mouse over.
844 2008-09-03 Philippe Brochard <pbrochard@common-lisp.net>
846 * src/clfswm.lisp (handle-enter-notify): Add a sloppy strict focus
847 policy -> Sloppy focus only for windows in the current frame.
848 (main-unprotected): Exit clfswm on init error (ie: when another
849 window manager is running).
851 * src/clfswm-util.lisp (reset-clfswm): New function.
853 2008-09-02 Philippe Brochard <pbrochard@common-lisp.net>
855 * src/clfswm-menu.lisp (init-menu): New function.
857 * src/clfswm-util.lisp (reload-clfswm): New function to reload
859 (exit-clfswm): Rename quit-clfswm to exit-clfswm.
861 * src/clfswm.lisp (main, main-unprotected): Handle error in a
862 superior main function. Now CLFSWM can't break the X session. It
863 just reinitialize the display and run a new main loop.
865 * src/clfswm-corner.lisp: Make *clfswm-terminal* and
866 *vt-keyboard-on* global to avoid warnings when loading clfswm.
868 * src/clfswm-layout.lisp: Add a specific GIMP layout menu.
869 (help-on-gimp-layout): Describe how to use the GIMP layout.
871 2008-09-01 Philippe Brochard <pbrochard@common-lisp.net>
873 * src/clfswm-layout.lisp (set-gimp-layout): Change the layout to
874 main-window-right-layout. Change the keybinding for (shift)alt+tab
875 to not select windows in the main window lisst.
876 Bind F8 to add a window in the main window list.
877 Bind F9 to remove a window in the main window list.
878 Change the focus policy to :sloppy.
879 (set-previous-layout): Restore the previous layout, keybinding and
882 2008-08-31 Philippe Brochard <pbrochard@common-lisp.net>
884 * src/clfswm-menu.lisp (add-menu-comment): Add comments in menu.
886 * src/clfswm-layout.lisp (main-window-left-layout)
887 (main-window-bottom-layout, main-window-top-layout): New
889 Factorize layouts in menu.
891 2008-08-30 Philippe Brochard <pbrochard@common-lisp.net>
893 * src/clfswm-layout.lisp (main-window-right-layout): A possible
894 GIMP layout: one or more main windows on one side of the
895 frame. Others on the other size.
897 * src/clfswm-util.lisp
898 (current-frame-set-click/sloppy-focus-policy): Each frame can have
899 a different focus policy (one of :click or :sloppy).
900 The default focus policy is set with *default-focus-policy*.
902 2008-08-23 Philippe Brochard <pbrochard@common-lisp.net>
904 * src/clfswm-info.lisp (show-config-variable): New function.
906 2008-08-19 Philippe Brochard <pbrochard@common-lisp.net>
908 * src/clfswm-layout.lisp (tile-horizontal-layout): New layout.
910 * src/clfswm-info.lisp: Colored help for key binding and corners
913 2008-08-18 Philippe Brochard <pbrochard@common-lisp.net>
915 * src/clfswm-util.lisp (delete-focus-window)
916 (destroy-focus-window): Remove chid only in
917 handle-unmap/destroy-notify. Focus *current-root* only when
918 closing/killing the current child.
920 * src/clfswm-autodoc.lisp (produce-corner-*-doc): New autodoc
921 functions or corners.
923 2008-08-17 Philippe Brochard <pbrochard@common-lisp.net>
925 * src/clfswm-corner.lisp (present-clfswm-terminal): New corner
926 action: Hide/Unhide a terminal on mouse corner action. (By default
927 right mouse button on the top left corner).
929 * src/config.lisp (*never-managed-window-list*): New config
932 * src/clfswm-internal.lisp (never-managed-window-p): New function:
933 Handle never managed window in a more simple way.
935 * src/clfswm-corner.lisp: New file and new and more simple method
936 to define corners actions.
938 2008-08-15 Philippe Brochard <pbrochard@common-lisp.net>
940 * src/clfswm-info.lisp (info-mode): Info line can now be colored.
942 * src/clfswm-layout.lisp (fast-layout-switch)
943 (define-fast-layout-switch): New functions: Switch between two
946 * src/clfswm-second-mode.lisp (leave-second-mode): Takes care if
947 really in the second mode. So leave-second-mode can be used even
950 * src/clfswm-util.lisp (switch-to-last-child): New function:
951 Store the current child and switch to the previous one.
953 2008-07-16 Philippe Brochard <pbrochard@common-lisp.net>
955 * src/clfswm-util.lisp (display-current-window-info): Display the
957 (have-to-present-virtual-keyboard): Add a virtual keyboard corner
958 (top right by default). By default 'xvkbd' is used.
960 2008-06-28 Philippe Brochard <pbrochard@common-lisp.net>
962 * src/xlib-util.lisp (move-window, resize-window): Compress motion
965 * src/clfswm.lisp (handle-motion-notify): Compress motion events.
967 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Compress
970 * src/clfswm-info.lisp (info-mode): Compress motion events.
972 2008-06-21 Philippe Brochard <pbrochard@common-lisp.net>
974 * src/clfswm-internal.lisp (show-all-children): Compute geometry
975 and selection first and then show only necessary children.
976 (show-child): remove unneeded display-p parameter.
978 * src/config.lisp (get-fullscreen-size): Place the frame border
979 outside the screen (this prevent the loose of 2 pixels per
982 2008-06-12 Philippe Brochard <pbrochard@common-lisp.net>
984 * src/clfswm-internal.lisp (focus-child): Algorithm change to
985 raise only the selected child.
987 2008-06-08 Philippe Brochard <pbrochard@common-lisp.net>
989 * src/clfswm-internal.lisp (raise-p-list, show-all-children):
990 Raise only viewable children.
992 2008-06-06 Philippe Brochard <pbrochard@common-lisp.net>
994 * src/clfswm-internal.lisp (show-all-children): Always raise all
995 displayed children. Remove all references to raise-p.
997 2008-06-04 Philippe Brochard <pbrochard@common-lisp.net>
999 * src/menu-def.lisp (child-menu): New menu entry on raise/lower
1002 * src/bindings-second-mode.lisp ("Page_Down", "Page_Up"): New
1003 second mode binding on raise/lower child in its frame.
1005 * src/clfswm-nw-hooks.lisp (leave-focus-frame-nw-hook): Adapt
1006 behaviour to the new raise/lower property.
1007 Call clear-nw-hook before the rest of the hook.
1009 * src/bindings.lisp (mouse-click-to-focus-and-move-window)
1010 (mouse-click-to-focus-and-resize-window): Stop button event. This
1011 prevent a keyboard/pointer freeze.
1013 2008-06-03 Philippe Brochard <pbrochard@common-lisp.net>
1015 * src/clfswm-internal.lisp (frame-lower-child)
1016 (frame-raise-child): New functions to raise/lower a child in its
1019 * src/clfswm-util.lisp (have-to-present-windows)
1020 (have-to-present-all-windows): New functions to have an MaxOS
1021 expose like on mouse click in screen corner.
1023 * src/clfswm-info.lisp ("Page_Down", "Page_Up"): Add boundaries.
1025 2008-05-30 Philippe Brochard <pbrochard@common-lisp.net>
1027 * src/clfswm-util.lisp (unhide-a-child-from-all-frames): Unhide a
1028 child from a choice in all frames with hidden children.
1030 * src/clfswm-info.lisp (info-mode-menu): Handle separators.
1032 2008-05-28 Philippe Brochard <pbrochard@common-lisp.net>
1034 * src/clfswm-util.lisp (hide-current-child, unhide-a-child)
1035 (unhide-all-children): New functions.
1037 * src/clfswm-info.lisp (info-mode-menu): Handle symbols and
1040 * src/clfswm-util.lisp (hide/show-frame-window): new function and
1043 2008-05-23 Philippe Brochard <pbrochard@common-lisp.net>
1045 * src/clfswm-util.lisp (rename-current-child): Do not display the
1046 frame info for a window.
1048 2008-05-20 Philippe Brochard <pbrochard@common-lisp.net>
1050 * src/clfswm-internal.lisp (remove-child-in-frame): Destroy the
1051 frame window for the removed child and its children.
1053 2008-05-18 Philippe Brochard <pbrochard@common-lisp.net>
1055 * src/clfswm-autodoc.lisp (produce-*-doc-*): Add a note to use the
1058 2008-05-17 Philippe Brochard <pbrochard@common-lisp.net>
1060 * src/clfswm-nw-hooks.lisp (default-frame-nw-hook): Do not handle
1061 the ROX pinboard (ie: leave it lowered in the root window as
1064 * src/clfswm-layout.lisp (tile-left-space-layout): New layout.
1065 (tile-left-layout, tile-right-layout, tile-top-layout)
1066 (tile-bottom-layout): Use all the frame space when there is only
1069 * src/clfswm-internal.lisp (place-window-from-hints): Center
1070 unmanaged windows in the root screen.
1072 * src/clfswm-nw-hooks.lisp (clear-nw-hook, clear-all-nw-hooks):
1075 2008-05-15 Philippe Brochard <pbrochard@common-lisp.net>
1077 * src/clfswm-util.lisp (current-frame-manage-window-type): Fix a
1078 typo in managed types.
1080 * src/clfswm-internal.lisp (show-child): Always display frame info
1081 even if the frame is hidden.
1083 * src/xlib-util.lisp (resize-window): Use a better algorithme to
1086 2008-05-13 Philippe Brochard <pbrochard@common-lisp.net>
1088 * src/clfswm-util.lisp (with-movement): Display frame info for all
1089 frames in current root.
1091 2008-05-12 Philippe Brochard <pbrochard@common-lisp.net>
1093 * src/*.lisp: Rename 'brother' frames to 'sister' frames.
1095 * src/bindings-second-mode.lisp (define-second-key #\a): New
1096 binding on 'add-default-frame'.
1098 * src/clfswm-autodoc.lisp (produce-*-doc-*-in-file): Show a
1099 message to follow the autodocumentation process.
1101 2008-05-10 Philippe Brochard <pbrochard@common-lisp.net>
1103 * src/clfswm-util.lisp (bind-or-jump): Bind "Tab", "Return" and
1104 "Space" to jump to a child. "B" to bind a slot on the current
1107 * src/bindings-second-mode.lisp: Use "Tab" instead of
1110 2008-05-07 Philippe Brochard <pbrochard@common-lisp.net>
1112 * src/clfswm-util.lisp (find-child-under-mouse): Take care of
1113 unmanaged (hidden) windows.
1115 * src/clfswm-internal.lisp (place-window-from-hints): Give a
1116 minimal size for windows.
1117 (with-all-windows-frames-and-parent): New function.
1119 * src/config.lisp (*default-window-width/height*): New parameters.
1121 * src/clfswm-internal.lisp (place-window-from-hints): Center
1122 windows in the screen instead of in there frame.
1124 * src/bindings-second-mode.lisp (tile-space-current-frame): New
1127 * src/clfswm-layout.lisp (register-layout): Intern the once name
1128 in the right package.
1130 2008-05-05 Philippe Brochard <pbrochard@common-lisp.net>
1132 * doc/dot-clfswmrc: Update to follow the new clfswm way.
1134 2008-05-03 Philippe Brochard <pbrochard@common-lisp.net>
1136 * src/clfswm-internal.lisp (set-current-child)
1137 (adapt-child-to-parent, show-child, hide-child): Handle the case
1138 where child is not a frame or a window.
1140 * src/clfswm-util.lisp
1141 (mouse-click-to-focus-generic,mouse-focus-move/resize-generic):
1142 Check if child is a frame.
1144 * src/clfswm-internal.lisp (managed-window-p): Handle the case
1145 where frame is null.
1146 (place-frame): Check if frame and parent are frames.
1148 * src/clfswm-info.lisp (info-mode): display all frame info before
1151 * src/clfswm-second-mode.lisp (second-key-mode): display all frame
1152 info before leaving.
1154 * src/clfswm-internal.lisp (display-all-frame-info): New function.
1156 2008-05-02 Philippe Brochard <pbrochard@common-lisp.net>
1158 * src/tools.lisp (getenv): Implemented for ECL.
1159 (urun-prog): Implemented for ECL.
1161 * src/clfswm-util.lisp (identify-key): Use a double buffer to
1164 * src/clfswm-query.lisp (query-string): Use a double buffer to
1167 * src/clfswm-info.lisp (draw-info-window): Use a double buffer to
1170 * src/xlib-util.lisp (clear-pixmap-buffer, copy-pixmap-buffer):
1173 2008-05-01 Philippe Brochard <pbrochard@common-lisp.net>
1175 * src/clfswm-info.lisp (info-mode): Add boundaries in the info mode window.
1177 * src/menu-def.lisp: New file: move all menu definition in
1180 * src/clfswm-layout.lisp (register-layout): Use a function instead
1183 2008-04-30 Philippe Brochard <pbrochard@common-lisp.net>
1185 * src/clfswm-autodoc.lisp (produce-menu-doc,
1186 (produce-menu-doc-html): New functions.
1187 (produce-doc-*): Moved to clfswm-autodoc.lisp.
1189 * src/clfswm-util.lisp (paste-selection-no-clear): Prevent to
1190 paste a child on one of its own children. (this prevent a
1192 (move-child-to): Rename move/copy-current-child-by to
1194 (mouse-move-window-over-frame): New function to move the window
1195 under the mouse cursor to another frame.
1197 * src/clfswm-internal.lisp (find-child-in-parent): New function.
1199 2008-04-29 Philippe Brochard <pbrochard@common-lisp.net>
1201 * src/clfswm-internal.lisp (show-all-children): Display unmanaged
1202 windows only when its window parent is the current child.
1204 2008-04-28 Philippe Brochard <pbrochard@common-lisp.net>
1206 * src/clfswm-util.lisp (manage-current-window)
1207 (unmanage-current-window): New functions: Allow to force to manage
1208 or unmanage a window by its parent frame.
1210 * src/bindings-second-mode.lisp (#\o): binded to
1211 set-open-in-new-frame-in-parent-frame-nw-hook and
1212 (#\o :control) to set-open-in-new-frame-in-root-frame-nw-hook
1214 * src/clfswm-util.lisp (with-current-window): New macro.
1216 * src/xlib-util.lisp (move-window, resize-window): Remove uneeded
1217 exposure and enter-window handle event.
1219 * src/clfswm-util.lisp (move-frame, resize-frame): Show all
1220 children for the current child after the move/resize.
1222 2008-04-27 Philippe Brochard <pbrochard@common-lisp.net>
1224 * src/xlib-util.lisp (resize-window): Take care of window size
1227 * src/clfswm-util.lisp (mouse-focus-move/resize-generic): Allow to
1228 move/resize unmanaged windows.
1230 * src/xlib-util.lisp (move-window, resize-window): New functions.
1232 2008-04-25 Philippe Brochard <pbrochard@common-lisp.net>
1234 * src/clfswm-util.lisp (current-frame-manage-window-type): Let the
1235 user choose what window type the current frame must handle.
1236 (display-current-window-info): New function.
1237 (current-frame-manage-all-window-type)
1238 (current-frame-manage-only-normal-window-type)
1239 (current-frame-manage-no-window-type): New functions.
1241 * src/clfswm-internal.lisp (managed-window-p): New function.
1243 * src/package.lisp (frame): Managed type: new frame
1244 parameter. This allow to choose what window type a frame must
1247 * src/*.lisp: Rename all 'father' occurrences to 'parent'.
1249 * src/clfswm-nw-hooks.lisp
1250 (open-in-new-frame-in-parent-frame-nw-hook): New new window hook.
1252 * src/clfswm-util.lisp (adapt-current-frame-to-window-hints): New
1255 * src/tools.lisp (ensure-printable): Return always a string even
1258 2008-04-24 Philippe Brochard <pbrochard@common-lisp.net>
1260 * src/config.lisp (*default-nw-hook*): New variable to change the
1261 default new window hook.
1263 2008-04-22 Philippe Brochard <pbrochard@common-lisp.net>
1265 * clfswm.asd (clfswm): Add a dependency from
1266 clfswm-second-mode.lisp to clfswm.lisp.
1268 * src/clfswm-util.lisp (identify-key): Show the documentation for
1269 the function bound on a key.
1270 (with-movement): Move with-movement,
1271 current-frame-fill/pack/resize-* from bindings-second-mode.lisp
1272 to clfswm-util.lisp.
1274 * src/clfswm-menu.lisp: New menu system that let user change keys
1275 or functions associated to keys.
1277 2008-04-18 Philippe Brochard <pbrochard@common-lisp.net>
1279 * src/clfswm-internal.lisp (show-all-children): Display-child is
1280 the first child by default. Solve a bug with father-p.
1282 2008-04-17 Philippe Brochard <pbrochard@common-lisp.net>
1284 * src/clfswm-internal.lisp (add-frame): Add frame return the
1286 (show-all-children): Move the size computation outside the
1289 * src/bindings-second-mode.lisp (with-movement): Redisplay only
1292 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Redisplay
1293 only the current child.
1295 * src/clfswm-internal.lisp (show-all-children): New display-child
1296 parameter to display only the desired child and its children.
1297 (select-next/previous-child): Only display the current child.
1299 2008-04-14 Philippe Brochard <pbrochard@common-lisp.net>
1301 * src/clfswm.lisp (init-display): Move the default frame creation
1302 on the default init hook.
1304 * src/clfswm-keys.lisp (define-ungrab/grab): Handle all keysyms in
1305 the main mode (for example: "1" on an azerty keyboard).
1307 2008-04-13 Philippe Brochard <pbrochard@common-lisp.net>
1309 * src/clfswm-keys.lisp (find-key-from-code): Better handle of
1310 keysyms. Revert to old grabbing method for the main mode.
1312 2008-04-12 Philippe Brochard <pbrochard@common-lisp.net>
1314 * src/clfswm.lisp (init-display): Add key handling on no focus
1315 window and on frame windows.
1317 2008-04-11 Philippe Brochard <pbrochard@common-lisp.net>
1319 * src/clfswm.lisp (main): Keyboard handle strategie change: Grab
1320 all keys by default and replay just what is needed. No change for
1323 * src/clfswm-keys.lisp: remove grab/ungrab main keys.
1324 (find-key-from-code): Test for shift and not shift presence.
1326 2008-04-09 Philippe Brochard <pbrochard@common-lisp.net>
1328 * src/clfswm-internal.lisp (switch-to-root-frame): show later -
1329 new key parameter to have less flickering.
1331 2008-04-07 Philippe Brochard <pbrochard@common-lisp.net>
1333 * src/bindings-second-mode.lisp (frame-layout-once-menu): Set the
1334 layout only one time and revert to no-layout to freely handle
1337 * src/clfswm-nw-hooks.lisp
1338 (open-in-new-frame-in-root-frame-nw-hook): Tile layout with spaces
1339 with new created window.
1341 * src/clfswm-layout.lisp (register-layout): Now register
1342 automatically a once layout to set the layout only one time and
1343 revert to no-layout to freely handle frames.
1345 2008-04-05 Philippe Brochard <pbrochard@common-lisp.net>
1347 * src/clfswm-nw-hooks.lisp (leave-focus-frame-nw-hook): New
1348 nw-hook: Open the next window in the current frame and leave the
1349 focus to the current child.
1351 2008-04-04 Philippe Brochard <pbrochard@common-lisp.net>
1353 * src/bindings-second-mode.lisp: Add keys definitions to
1354 bind-or-jump in the second mode.
1356 * src/clfswm-util.lisp (bind-or-jump): remove the auto-defining
1357 macro for bind-or-jump-(1|2|3...).
1359 * src/clfswm-keys.lisp (define-define-key/mouse): Allow additional
1360 arguments to function. This allow to do things like:
1361 (define-main-key (key) 'my-function 10 20 'foo) -> 10 20 and 'foo
1362 are passed to my-function on key press.
1364 2008-04-03 Philippe Brochard <pbrochard@common-lisp.net>
1366 * src/clfswm-util.lisp (bind-or-jump): New (great) function.
1368 2008-04-02 Philippe Brochard <pbrochard@common-lisp.net>
1370 * src/clfswm-internal.lisp (child-fullname): New function
1372 * src/clfswm-info.lisp (info-mode-menu): Add an explicit optional
1373 docstring in info-mode-menu. An item can be
1374 '((key function) (key function)) or with docstring
1375 '((key function "documentation 1") (key function "bla bla") (key function))
1377 * src/tools.lisp (ensure-n-elems): New function.
1379 * src/bindings-second-mode.lisp: Bind Alt+mouse-1/3 to move or
1380 resize a frame or the window's father.
1382 * src/clfswm.lisp (init-display): Remove tile-space-layout by
1383 default on the root frame.
1385 * src/clfswm-util.lisp (move/resize-frame): Add standard event
1386 hooks handlers (map-request, configure-notify...)
1388 * src/clfswm-internal.lisp (adapt-child-to-father): Limit minimal
1391 2008-04-01 Philippe Brochard <pbrochard@common-lisp.net>
1393 * src/bindings.lisp: Bind Alt+mouse-1/3 to move or resize a frame
1394 or the window's father.
1396 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Stop button
1397 event only if there is a geometry change.
1398 (mouse-focus-move/resize-generic): Generic function to move or
1399 resize a frame or a window father frame.
1401 2008-04-01 Philippe Brochard <pbrochard@common-lisp.net>
1403 * src/clfswm-internal.lisp (show-all-children): Return t if there
1404 is a geometry change.
1406 2008-03-30 Philippe Brochard <pbrochard@common-lisp.net>
1408 * src/bindings.lisp (Up/Down): Swap select previous/next level.
1410 * src/bindings-second-mode.lisp (Up/Down): Swap select previous/next level.
1412 * src/clfswm.lisp (init-display): Create a default frame in the root frame.
1414 * src/clfswm-internal.lisp (place-frame): Place frame from real (pixel) coordinates.
1415 (with-all-*): Reverse the child list to manage the first child last (like in
1418 * src/config.lisp (*create-frame-on-root*): New variable: Create a new frame on the
1419 root window only if true.
1421 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Create a new frame on the
1422 root window only if *create-frame-on-root* is true.
1424 * src/bindings-second-mode.lisp (sm-mouse-click-to-focus-generic): Create a new frame
1427 2008-03-29 Philippe Brochard <pbrochard@common-lisp.net>
1429 * src/bindings-second-mode.lisp (sm-mouse-click-to-focus-generic): Focus, move and resize
1430 the current child (even if it's a window).
1432 2008-03-28 Philippe Brochard <pbrochard@common-lisp.net>
1434 * src/clfswm-util.lisp (mouse-click-to-focus-and-move)
1435 (mouse-click-to-focus-and-resize): New functions.
1437 * src/clfswm-internal.lisp (*-fl->px): Convert float coordinates to pixel.
1438 (*-px->fl): Convert pixel coordinates to float.
1440 * src/tools.lisp (call-hook): Move call-hook to tools.lisp.
1442 2008-03-27 Philippe Brochard <pbrochard@common-lisp.net>
1444 * src/clfswm-layout.lisp (no-layout): Use :first-only to raise only the
1447 * src/clfswm-internal.lisp (hide-all): Split hide-all-children in hide-all
1448 and hide-all-children.
1449 (raise-if-needed): New function.
1450 (show-child): Use a first-p parameter to raise windows only when they are
1453 2008-03-26 Philippe Brochard <pbrochard@common-lisp.net>
1455 * src/clfswm-internal.lisp (select-next/previous-level): Don't use show-all-children
1458 2008-03-25 Philippe Brochard <pbrochard@common-lisp.net>
1460 * src/clfswm-info.lisp (keys-from-list): new function.
1462 * src/*: rename 'childs' in 'children'.
1464 * src/*: rename 'group' in 'frame'.
1466 2008-03-22 Philippe Brochard <pbrochard@common-lisp.net>
1468 * src/clfswm-pack.lisp (explode-group/explode-current-group): new functions.
1470 2008-03-21 Philippe Brochard <pbrochard@common-lisp.net>
1472 * src/clfswm-pack.lisp: Pack, Fill, Resize functions.
1474 2008-03-16 Philippe Brochard <pbrochard@common-lisp.net>
1476 * src/clfswm-nw-hooks.lisp: Register system for new window hooks.
1477 Bind control+o to open the next window in a new group in the root group
1478 (as open in next window in a new workspace in 0801 version).
1480 2008-03-15 Philippe Brochard <pbrochard@common-lisp.net>
1482 * src/clfswm-util.lisp (show/hide-all-groups-info/key): Show/hide all groups info
1485 2008-03-14 Philippe Brochard <pbrochard@common-lisp.net>
1487 * bindings-second-mode.lisp ("ISO_Left_Tab"): Use ISO_Left_Tab
1488 instead of Tab for select-previous-child.
1490 2008-03-13 Philippe Brochard <pbrochard@common-lisp.net>
1492 * clfswm-util.lisp (force-window-in-group/force-window-center-in-group):
1495 2008-03-11 Philippe Brochard <pbrochard@common-lisp.net>
1497 * clfswm-util.lisp (identify-key): Display the documentation
1498 associated to keys when identifying a key.
1500 2008-03-10 Xavier Maillard <xma@gnu.org>
1502 * contrib/clfswm: Complete rewrite of the script. Detect error and
1503 act accordingly. Add command line arguments to configure the
1504 script execution. User can now choose different common lisp
1505 implementation (clisp and sbcl only), choose where to store the
1506 dumped image, where to find clfswm source.
1508 2008-03-09 Philippe Brochard <pbrochard@common-lisp.net>
1510 * clfswm-internal.lisp (process-new-window): Beginning of new
1511 window hook: each group have a hook to tell what he wants to do
1512 with the new created window.
1514 2008-03-08 Xavier Maillard <xma@gnu.org>
1516 * contrib/clfswm: New script. Dump a CLISP image of CLFSWM then
1517 call the resulting executable.
1519 * clfswm.lisp (read-conf-file): Check for the user config file in
1520 XDG_CONFIG_HOME *first*. Freedesktop.org standards should be
1521 prefered whenever possible.
1523 2008-02-27 Philippe Brochard <pbrochard@common-lisp.net>
1525 * clfswm-layout.lisp (*-layout): Add an optional raise-p
1526 parameter in each layout.
1528 2008-02-26 Philippe Brochard <pbrochard@common-lisp.net>
1530 * clfswm-util.lisp (copy/cut-current-child): Does not affect the
1532 (copy/move-current-child-by-name/number): new functions
1533 (focus-group-by-name/number): new functions
1534 (delete-group-by-name/number): new functions
1536 2008-02-24 Philippe Brochard <pbrochard@common-lisp.net>
1538 * ************************************************************ *
1539 *: Major update - No more reference to workspaces. The main *
1540 structure is a tree of groups or application windows. *
1541 * ************************************************************ *
1543 2008-02-07 Philippe Brochard <pbrochard@common-lisp.net>
1545 * clfswm.lisp (read-conf-file): Read configuration in
1546 $HOME/.clfswmrc or in /etc/clfswmrc or in
1547 $XDG_CONFIG_HOME/clfswm/clfswmrc.
1548 (xdg-config-home): Return the content of $XDG-CONFIG-HOME (default
1551 2008-01-18 Philippe Brochard <pbrochard@common-lisp.net>
1553 * clfswm-internal.lisp (show-all-group): Use *root* and *root-gc*
1556 2008-01-03 Philippe Brochard <pbrochard@common-lisp.net>
1558 * clfswm-internal.lisp (find-window-group): New function.
1560 * clfswm*: Change to make clfswm run with clisp/new-clx.
1562 2008-01-01 Philippe Brochard <pbrochard@common-lisp.net>
1564 * clfswm-util.lisp (query-show-paren): Add show parent matching in
1566 (query-string): Bind control+k to delete end of line.
1568 * clfswm-second-mode.lisp (draw-second-mode-window): Display
1569 the action on mouse motion in second mode.
1571 * clfswm.lisp (handle-exposure): Redisplay groups on exposure
1572 event but do not clear the root window.
1573 (handle-configure-request): Adjust unmanaged window from there
1576 * clfswm-internal.lisp (process-new-window): Adjust new window
1577 with the specified hints (max/min/base width/height).
1579 2007-12-31 Philippe Brochard <pbrochard@common-lisp.net>
1581 * clfswm.lisp (handle-configure-request): Send an Configuration
1582 Notify event. This solve a bug with xterm and rxvt who takes some
1583 times to be mapped. Now there is no delay.
1585 * bindings-second-mode.lisp (define-shell): Run programs after
1586 living the second mode.
1588 2007-12-30 Philippe Brochard <pbrochard@common-lisp.net>
1590 * clfswm-internal.lisp (process-new-window): Do not crop transient
1591 window to group size.
1592 (adapt-window-to-group): Do not crop transient window to group
1595 * clfswm.lisp (handle-configure-request): Adapt just the window to
1596 its group and don't take care of the configure request. Remove the
1597 bug with the Gimp outside the group and speed up the window
1599 (handle-exposure): Remove show-all-group on exposure event
1602 2007-12-29 Philippe Brochard <pbrochard@common-lisp.net>
1604 * clfswm-util.lisp (circulate-group-up-copy-window)
1605 (circulate-group-down-copy-window)
1606 (circulate-workspace-up-copy-group)
1607 (circulate-workspace-down-copy-group): Prevent the copy of the
1608 same window in the same workspace.
1610 * bindings-second-mode.lisp (release-copy-selected-window)
1611 (release-copy-selected-group): Prevent the copy of the same window
1612 in the same workspace.
1614 * clfswm-pager.lisp (generic-pager-move-window-on-previous-line)
1615 (generic-pager-move-window-on-next-line): Remove the copy
1617 (generic-pager-move-group-on-next-workspace)
1618 (generic-pager-move-group-on-previous-workspace): Prevent the copy
1619 of the same window in the same workspace.
1621 * bindings-pager.lisp (mouse-pager-copy-selected-window-release)
1622 (mouse-pager-copy-selected-group-release): Prevent the copy of the
1623 same window in the same workspace.
1625 * tools.lisp (setf/=): new macro to set a variable only when
1628 * clfswm-internal.lisp (adapt-window-to-group): use set/= to set
1629 x, y... only when necessary.
1631 2007-12-28 Philippe Brochard <pbrochard@common-lisp.net>
1633 * clfswm.lisp (handle-configure-notify, *configure-notify-hook*):
1634 new function and hook: force windows to stay in its group (solve a
1637 2007-12-25 Philippe Brochard <pbrochard@common-lisp.net>
1639 * bindings-second-mode.lisp (mouse-motion): use hide-group to have
1640 less flickering when moving/resizing groups.
1642 * clfswm-internal.lisp (hide-group): new function.
1643 (show-all-group): clear-all: new parameter.
1645 2007-12-22 Philippe Brochard <pbrochard@common-lisp.net>
1647 * clfswm-keys.lisp (define-define-key): undefine-*-multi-name: new
1649 * clfswm*: Color change for the pager. Typo or better description
1650 in bindings definitions. Define bindings for a qwerty keyboard by
1651 default. dot-clfswmrc show examples to switch to an azerty
1653 License change to GPL v3.
1654 * config.lisp: new file - group all globals variables in this
1657 2007-08-26 Philippe Brochard <pbrochard@common-lisp.net>
1659 * xlib-util.lisp (hide-window): Remove structure-notivy events
1660 when hidding a window.
1662 2007-05-16 Philippe Brochard <pbrochard@common-lisp.net>
1664 * package.lisp (*sm-property-notify-hook*): Readded
1665 property-notify-hook in second mode.
1667 2007-05-15 Philippe Brochard <pbrochard@common-lisp.net>
1669 * clfswm-keys.lisp (produce-doc-html): Better clean up for strings.
1671 2007-05-13 Philippe Brochard <pbrochard@common-lisp.net>
1673 * clfswm-pack.lisp (tile-current-workspace-to/right/left/top/bottom):
1674 Tile the current workspace with the current window on one side and
1675 others on the other (this emulate the larswm, dwm, wmii way). See
1676 the default configuration file to enable this mode by default.
1678 * clfswm-pager.lisp (pager-tile-current-workspace-to): idem for
1681 2007-05-12 Philippe Brochard <pbrochard@common-lisp.net>
1683 * clfswm-pager.lisp (pager-draw-window-in-group): Add
1684 ensure-printable to print windows name even with non-ascii
1687 2007-05-11 Philippe Brochard <pbrochard@common-lisp.net>
1689 * clfswm-pager.lisp (pager-explode-current-group): Create a new
1690 group for each window in group.
1691 (pager-implode-current-group): Move all windows in workspace to
1692 one group and remove other groups.
1694 * clfswm-pack.lisp (explode-group): Create a new group for each
1696 (implode-group): Move all windows in workspace to one group and
1697 remove other groups.
1699 * clfswm-util.lisp (identify-key): Remove local configuration
1700 variables and made them available for configuration from
1702 (query-string): idem.
1704 2007-04-29 Philippe Brochard <pbrochard@common-lisp.net>
1706 * netwm-util.lisp: Start of NetWM compliance.
1707 Add a Netwm client list gestion.
1709 2007-04-28 Philippe Brochard <pbrochard@common-lisp.net>
1711 * clfswm-internal.lisp (create-group-on-request): open a new group
1712 only when the current group is not empty.
1714 * bindings-second-mode.lisp (define-second-key-#\o-control): Fix a
1715 bug with null workspace.
1717 * clfswm-pager.lisp (pager-handle-event): Add a hook
1718 system. This hooks can be changed in the user configuration file.
1720 * package.lisp: All colors and font variables are set in
1721 package.lisp and can be configured in the user configuration
1723 Note: If you have configured some less ugly colors (esp. for the
1724 pager) don't hesitate to let me know :)
1726 * clfswm-second-mode.lisp (sm-handle-event): Add a hook
1727 system. This hooks can be changed in the user configuration file.
1729 * clfswm.lisp (handle-event): Add a hook system. This hooks can be
1730 changed in the user configuration file (~/.clfswmrc)
1732 2007-04-25 Philippe Brochard <pbrochard@common-lisp.net>
1734 * clfswm-util.lisp (stop-all-pending-actions): new function: reset
1735 arrow action, open next window in new workspace/group.
1737 * bindings.lisp (stop-all-pending-actions): new binding.
1738 (open-next-window-in-new-group-once): Open the next windows in a
1739 new group (only once) or open all new windows in a new group (like
1740 others windows managers).
1742 2007-04-22 Philippe Brochard <pbrochard@common-lisp.net>
1744 * clfswm.lisp (read-conf-file): New function to read a lisp
1745 configuration file at startup.
1746 (focus-group-under-mouse): Check if group isn't the current group
1747 ( prevent a bug with unclutter ).
1749 2007-03-02 Philippe Brochard <pbrochard@common-lisp.net>
1751 * bindings.lisp (run-program-from-query-string): A program can be
1752 launch from a input query window.
1754 2007-03-01 Philippe Brochard <pbrochard@common-lisp.net>
1756 * clfswm-info.lisp: Fix a bug with banish pointer in info mode.
1758 2007-02-28 Philippe Brochard <pbrochard@common-lisp.net>
1760 * clfswm.lisp (process-new-window): One can now open the next
1761 window in a workspace called by its number.
1763 * clfswm-util.lisp (query-font-string): Minimal editing
1765 (eval-from-string): And an REPL in the window manager... :)
1767 2007-02-26 Philippe Brochard <pbrochard@common-lisp.net>
1769 * clfswm.lisp (process-new-window): One can now open the next
1770 window in a new workspace or a new group.
1772 * clfswm-pager.lisp (pager-mode): Display the next arrow action
1773 with the hidden windows.
1775 * clfswm.lisp (second-key-mode): Display the current workspace
1776 number and the next arrow action in the state window.
1778 * clfswm-pager.lisp (pager-mode): Hide all windows before leaving
1779 the pager mode and then redisplay only the current workspace.
1781 2007-02-25 Philippe Brochard <pbrochard@common-lisp.net>
1783 * clfswm.lisp (add-workspace): Workspaces are now numbered. So
1784 they can be focused with a keypress, sorted or renumbered.
1786 2007-02-24 Philippe Brochard <pbrochard@common-lisp.net>
1788 * clfswm-pager.lisp (pager-mode): Remove multiple silly
1789 pager-draw-display. This prevent a lot of flickering in the
1792 * clfswm.lisp: Remove all display-force-output and replace them
1793 with only one display-finish-output in the event loop.
1795 2006-11-06 Philippe Brochard <pbrochard@common-lisp.net>
1797 * clfswm-pager.lisp (pager-center-group): New function - center a
1798 group at the middle of the screen.
1800 * clfswm-pack.lisp (center-group): New function - center a group
1801 at the middle of the screen.
1803 * clfswm.lisp (show-group): Add a cross line under the group.
1804 (show-group): Group are showned even if fullscreened.
1805 (init-display): Add an exposure event on the root window.
1807 2006-11-05 Philippe Brochard <pbrochard@common-lisp.net>
1809 * package.lisp (*default-group*): Default group is the same size
1810 of a fullscreened group.
1812 * bindings*: Use shift to move, control+shift to copy.
1814 * *.lisp: Add comments for configuration or alternatives. So grep
1815 for CONFIG to see where you can configure clfswm. And grep for
1816 Alternative to use some commented code.
1818 * clfswm.lisp (second-key-mode): Use a single window to show the
1819 second mode. See for alternatives at the end of this file.
1821 2006-11-03 Philippe Brochard <pbrochard@common-lisp.net>
1823 * clfswm-keys.lisp (define-define-key/mouse): Factorisation in a
1824 macro of key and mouse definitions.
1825 (define-define-key/mouse): Use state instead of modifiers list
1826 this fix a bug when the modifiers list is not in the rigth order.
1828 * clfswm.lisp (second-key-mode): Add a colored border in second mode.
1830 2006-11-02 Philippe Brochard <pbrochard@common-lisp.net>
1832 * clfswm-info.lisp (info-mode): Add an info mode.
1834 2006-11-01 Philippe Brochard <pbrochard@common-lisp.net>
1836 * clfswm.lisp (process-new-window): Change border size for
1838 (show-all-windows-in-workspace): Unhide all windows even when the
1839 current group is in fullscreen mode.
1841 2006-10-26 Philippe Brochard <pbrochard@common-lisp.net>
1843 * clfswm-util.lisp (identify-key): Add an exposure handle-event to
1844 redisplay the identify window after a terminal switch.
1846 * clfswm-pager.lisp (pager-mode): Add an exposure handle-event to
1847 redisplay the pager after a terminal switch.
1849 2006-10-24 Philippe Brochard <pbrochard@common-lisp.net>
1851 * clfswm-util.lisp (identify-key): Add a window to display
1852 the keys to identify on screen.
1854 * bindings.lisp, bindings-pager.lisp: Define same keys to
1855 move/copy groups/windows in second mode and in pager.
1857 * clfswm.lisp (handle-event*): Same version in all clfswm (fix some
1859 (show-all-windows-in-workspace): unhide window before adapting it
1862 2006-10-23 Philippe Brochard <pbrochard@common-lisp.net>
1864 * clfswm.lisp (handle-event): Revert to an older version.
1866 2006-10-18 Philippe Brochard <pbrochard@common-lisp.net>
1868 * clfswm-util.lisp (force-window-in-group)
1869 (force-window-center-in-group): New functions for transient windows.
1871 * clfswm-pager.lisp (pager-remove-current-workspace/group):
1872 bugfix: hide all windows before removing group or workspace.
1874 2006-10-17 Philippe Brochard <pbrochard@common-lisp.net>
1876 * bindings-pager.lisp (mouse-pager-move-selected-group)
1877 (mouse-pager-copy-selected-group)
1878 (mouse-pager-move-selected-window)
1879 (mouse-pager-copy-selected-window, mouse-pager-rotate-window-up)
1880 (mouse-pager-rotate-window-down): New functions to have mouse in
1883 * clfswm-pager.lisp (pager-swap-window)
1884 (pager-copy-group-on-next/previous-workspace)
1885 (pager-copy-window-on-next/previous-line): New functions
1887 2006-10-15 Philippe Brochard <pbrochard@common-lisp.net>
1889 * clfswm-pager.lisp (pager-move-window-on-next/previous-line,
1890 (pager-move-group-on-next/previous-workspace): new functions.
1892 * clfswm-pack.lisp (resize-half-x-x-current-group): resize group
1893 to its half size (new functions).
1895 2006-10-11 Philippe Brochard <pbrochard@common-lisp.net>
1897 * clfswm-pager.lisp: workspaces, groups and windows can now be
1898 selectionned with the keyboard or the mouse.
1900 2006-10-09 Philippe Brochard <pbrochard@common-lisp.net>
1902 * clfswm-pager.lisp (pager-select-workspace-right/left):
1903 workspaces can now be selectionned with the keyboard.
1905 2006-10-08 Philippe Brochard <pbrochard@common-lisp.net>
1907 * clfswm-keys.lisp (undefine-main-key, undefine-second-key, undefine-mouse-action):
1908 new function to remove a previous defined key or mouse combination.
1910 2006-10-07 Philippe Brochard <pbrochard@common-lisp.net>
1912 * clfswm.lisp (main): Check for access error in init-display.
1914 * clfswm-keys.lisp (define-ungrab/grab): check for keysym and
1915 keycode before grabbing.
1917 * bindings.lisp: Remove nlambda and use defun to keep the function
1918 documentation with clisp.
1919 (define-shell): new macro to define shell command for the second
1922 2006-10-06 Philippe Brochard <pbrochard@common-lisp.net>
1924 * clfswm-keys.lisp (define-ungrab/grab): use a cond instead of a
1927 2006-10-05 Philippe Brochard <pbrochard@common-lisp.net>
1929 * bindings.lisp (accept-motion): Move group bugfix in upper mouse
1930 workspace circulation.
1932 * clfswm-util.lisp (absorb-orphan-window): new function.
1934 * clfswm-keys.lisp: Keysyms support.
1936 2006-10-02 Philippe Brochard <pbrochard@common-lisp.net>
1938 * clfswm.lisp (show-group): Use one gc for all groups and not one
1941 2006-10-01 Philippe Brochard <pbrochard@common-lisp.net>
1943 * bindings.lisp (define-second-key (#\l :mod-1)): fix a typo.
1945 * clfswm.lisp (adapt-window-to-group): Adapt only windows with
1946 width and height outside group.
1948 2006-09-28 Philippe Brochard <pbrochard@common-lisp.net>
1950 * clfswm.lisp: First public release.