1 2011-02-12 Philippe Brochard <pbrochard@common-lisp.net>
3 * src/xlib-util.lisp (equal-wm-class-fun, equal-wm-name-fun)
4 (raise-window-fun, raise-and-focus-window-fun): New functions.
6 * src/config.lisp (*clfswm-terminal-cmd*): Switch from xterm to
8 (*never-managed-window-list*): Structure change to be more
9 flexible. Let the choice to focus, raise and do nothing on never
12 2011-02-09 Philippe Brochard <pbrochard@common-lisp.net>
14 * src/clfswm-util.lisp (mouse-focus-move/resize-generic): Take
15 care of never managed windows to move or resize them if the raise
18 * src/clfswm-internal.lisp (in-frame, in-window, in-child): New
21 2011-02-08 Philippe Brochard <pbrochard@common-lisp.net>
23 * src/clfswm.lisp (main-mode): Raise or not unmanaged windows
24 following request in *never-managed-window-list*.
26 2011-02-05 Philippe Brochard <pbrochard@common-lisp.net>
28 * *: **** Release 1102 ****
30 2011-02-05 Desmond O. Chang <dochang@gmail.com>
32 * src/keysyms.lisp: Add extended keysyms from stumpwm.
34 2011-02-01 Desmond O. Chang <dochang@gmail.com>
36 * src/clfswm-util.lisp (run-or-raise): New function (thanks to
39 * src/clfswm-internal.lisp (with-all-*): add a nil block.
41 2011-01-28 Desmond O. Chang <dochang@gmail.com>
43 * src/clfswm-util.lisp (xdg-config-home): XDG_CONFIG_HOME should
44 be $HOME/.config by default.
46 2010-12-29 Philippe Brochard <pbrochard@common-lisp.net>
48 * contrib/osd.lisp (display-doc): Add another method where a
49 CLFSWM native window is used to display the key documentation.
51 2010-12-27 Philippe Brochard <pbrochard@common-lisp.net>
53 * src/xlib-util.lisp (with-xlib-protect): Force to revert to the
56 2010-12-25 Philippe Brochard <pbrochard@common-lisp.net>
58 * src/clfswm-second-mode.lisp (second-key-mode): Call the second
59 mode leave function only when the generic mode was ended.
61 2010-12-08 Philippe Brochard <pbrochard@common-lisp.net>
63 * src/clfswm-second-mode.lisp (sm-leave-function): Do not use
64 *second-mode-program* anymore.
66 2010-12-07 Philippe Brochard <pbrochard@common-lisp.net>
68 * src/clfswm-second-mode.lisp (*second-mode-leave-function*): New
69 variable bound to a function executed (when not null) on second
72 2010-11-14 Philippe Brochard <pbrochard@common-lisp.net>
74 * src/clfswm-util.lisp (find-child-under-mouse): Do not find
77 2010-11-13 Philippe Brochard <pbrochard@common-lisp.net>
79 * src/clfswm-expose-mode.lisp (expose-mode-display-accel-windows):
80 Do not display the accel window for unmanaged windows.
82 2010-11-11 Philippe Brochard <pbrochard@common-lisp.net>
84 * src/clfswm-internal.lisp (set-current-root): Handle
85 window-parent in set-current-root.
87 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Do not
88 focus the parent child when the current root is a window.
90 2010-11-09 Philippe Brochard <pbrochard@common-lisp.net>
92 * src/clfswm-expose-mode.lisp (expose-windows-current-child-mode):
93 New function an bindings.
95 * src/clfswm-layout.lisp (tile-layout, set-tile-layout): Fill
98 2010-11-07 Philippe Brochard <pbrochard@common-lisp.net>
100 * src/clfswm-layout.lisp (tile-layout-ask-keep-position): New
101 function to let the user choose to keep child position with
104 * src/clfswm-internal.lisp (remove-frame-data-slot): New
107 2010-11-05 Philippe Brochard <pbrochard@common-lisp.net>
109 * src/clfswm-internal.lisp (frame-select-next-child)
110 (frame-select-previous-child): New functions and bindings. Select
111 the next/previous child in the current frame.
113 2010-10-31 Philippe Brochard <pbrochard@common-lisp.net>
115 * src/clfswm-query.lisp (query-mode-complet): New function: Handle
116 completion in query-mode.
118 2010-10-30 Philippe Brochard <pbrochard@common-lisp.net>
120 * src/clfswm-query.lisp (query-print-string): Handle long lines
123 2010-10-27 Philippe Brochard <pbrochard@common-lisp.net>
125 * src/clfswm-expose-mode.lisp (expose-create-window): Ensure that
126 all characters are printable.
128 2010-10-25 Philippe Brochard <pbrochard@common-lisp.net>
130 * contrib/server/server.lisp: Load clfswm client code in the main
131 program and let the user start it with a --client command line
134 * src/package.lisp (*main-entrance-hook*): New hook executed after
135 loading configuration file and before opening the display.
137 2010-10-23 Philippe Brochard <pbrochard@common-lisp.net>
139 * src/xlib-util.lisp: Remove unnecessary xlib:display-finish-output.
141 * src/clfswm-internal.lisp (show-child): Show window only if not
144 * src/clfswm-keys.lisp (binding-substitute-modifier): Utility to
145 change modifiers after binding definition.
147 2010-10-21 Philippe Brochard <pbrochard@common-lisp.net>
149 * contrib/osd.lisp: New file: OSD (On Screen Display) for
152 * src/clfswm-menu.lisp (open-menu): Modularise function.
154 2010-10-13 Philippe Brochard <pbrochard@common-lisp.net>
156 * src/clfswm-info.lisp (show-first-aid-kit): Display the essential
157 key binding in main and second mode.
159 2010-10-10 Philippe Brochard <pbrochard@common-lisp.net>
161 * src/clfswm-util.lisp (open-notify-window): Convert hello-window
162 functions to a more generic Notify-window system.
164 * src/tools.lisp (add-timer): Add an id to identify the timer.
166 2010-10-09 Philippe Brochard <pbrochard@common-lisp.net>
168 * src/tools.lisp (erase-timer): New function.
170 * src/clfswm-util.lisp (display-hello-window): Add a timer to hide
171 the hello window. Add Configuration variables.
173 2010-10-08 Philippe Brochard <pbrochard@common-lisp.net>
175 * src/clfswm-util.lisp (): Add an Hello window at startup.
177 * src/tools.lisp (process-timers): Add a timer system.
179 2010-10-07 Philippe Brochard <pbrochard@common-lisp.net>
181 * src/clfswm-query.lisp (add-in-query-string): Handle correctly
184 2010-10-06 Philippe Brochard <pbrochard@common-lisp.net>
186 * src/clfswm-query.lisp (query-print-string): Change cursor color
187 and show parenthesis matching with colors (on match and on
190 2010-10-05 Philippe Brochard <pbrochard@common-lisp.net>
192 * src/clfswm-internal.lisp (show-all-children): Do not raise a
193 child when its parent is hidden.
195 2010-10-02 Philippe Brochard <pbrochard@common-lisp.net>
197 * src/clfswm-circulate-mode.lisp (select-next-subchild): Add the
198 possibility to circulate over subchild of the current child.
200 * src/clfswm-expose-mode.lisp (expose-all-windows-mode)
201 (expose-windows-generic): Add an escape-body function to return to
202 the original state on escape key.
204 * src/clfswm-util.lisp (bind-on-slot): Add an optional parameter
205 to bind the current child from the configuration file.
207 2010-10-01 Philippe Brochard <pbrochard@common-lisp.net>
209 * src/clfswm-nw-hooks.lisp (absorb-window-nw-hook): Absorb new
210 window hook: the frame absorb all new windows that match
211 nw-absorb-test frame data slot.
213 2010-09-30 Philippe Brochard <pbrochard@common-lisp.net>
215 * src/clfswm-expose-mode.lisp (expose-create-window): Show window
216 title in accel window.
218 2010-09-29 Philippe Brochard <pbrochard@common-lisp.net>
220 * configure: Use the Xavier Maillard clfswm script in contrib to
221 build an executable in the standard way.
223 2010-09-26 Philippe Brochard <pbrochard@common-lisp.net>
225 * src/clfswm-expose-mode.lisp (expose-mode-display-accel-windows):
226 New functions. Add a window on each child in the expose mode to
229 * src/clfswm-internal.lisp (child-x, child-y, child-width)
230 (child-height): New methods to get real child coordinates.
232 2010-09-25 Philippe Brochard <pbrochard@common-lisp.net>
234 * src/clfswm-layout.lisp (*-layout): Use child-position.
236 * src/clfswm-internal.lisp (child-position): New function.
238 * src/clfswm-expose-mode.lisp (expose-windows-mode)
239 (expose-all-windows-mode): Use a generic mode.
241 * src/xlib-util.lisp (with-handle-event-symbol): Use a filled list
242 with handle-event-fun symbols instead of inspecting clfswm
243 internals symbols on each mode change.
245 * src/clfswm-expose-mode.lisp: Move and rename present*-windows in
246 a separate clfswm-expose-mode.lisp file.
248 * src/clfswm-util.lisp (speed-mouse-right, speed-mouse-down): Use
249 screen size instead of hardcoded test coordinates.
251 2010-09-24 Philippe Brochard <pbrochard@common-lisp.net>
253 * src/clfswm-util.lisp (speed-mouse-reset, speed-mouse-left)
254 (speed-mouse-right, speed-mouse-up, speed-mouse-down)
255 (speed-mouse-undo, speed-mouse-first-history): New functions to
256 quickly move the mouse. Implemented for the second mode.
258 2010-09-16 Philippe Brochard <pbrochard@common-lisp.net>
260 * contrib/clfswm: Move clfswm sources to $tmp_dir if there is no
261 write permission on $clfswm_asd_path. So anybody can start clfswm
262 even if there is no write permission on the source directory.
264 2010-09-12 Philippe Brochard <pbrochard@common-lisp.net>
266 * contrib/clfswm: Add support to cmucl, ccl and ecl.
268 2010-09-11 Philippe Brochard <pbrochard@common-lisp.net>
270 * src/clfswm-util.lisp (set-hide-unmanaged-window)
271 (set-show-unmanaged-window, set-default-hide-unmanaged-window):
272 New functions and menu entry.
273 (set-globally-hide-unmanaged-window)
274 (set-globally-show-unmanaged-window): New functions and menu
277 * src/clfswm-internal.lisp (hide-unmanager-window-p): New
279 (show-child): Add a data slot on frame to hide or not unmanaged
282 * src/clfswm-corner.lisp (present-clfswm-terminal)
283 (present-virtual-keyboard): Use a function (generic-present-body)
284 instead of a macro (generate-present-body).
286 * src/clfswm-util.lisp (update-menus): List all directories and
287 subdirectories in $XDG_DATA_DIRS/applications.
289 2010-09-10 Philippe Brochard <pbrochard@common-lisp.net>
291 * src/clfswm-corner.lisp (generate-present-body): New macro.
292 (present-clfswm-terminal, present-virtual-keyboard): Use
293 generate-present-body.
295 2010-09-09 Philippe Brochard <pbrochard@common-lisp.net>
297 * src/clfswm-util.lisp (update-menus): Follow XDG specifications
298 instead of the non-portable Debian update-menu.
300 2010-09-07 Philippe Brochard <pbrochard@common-lisp.net>
302 * src/clfswm.lisp (error-handler): New function do handle
303 asynchronous errors and ignore them.
304 (open-display): Install the new error-handler on display.
306 2010-09-05 Philippe Brochard <pbrochard@common-lisp.net>
308 * src/xlib-util.lisp (with-xlib-protect): Add a
309 with-simple-restart on top of body execution.
311 2010-09-04 Philippe Brochard <pbrochard@common-lisp.net>
313 * src/clfswm.lisp (main-loop): Protect all xlib functions with an
316 * src/xlib-util.lisp (handle-event): use with-xlib-protect only in
317 handle-event. Add a with-simple-restart to prevent a
318 clisp/new-lisp infinite loop.
320 2010-08-30 Philippe Brochard <pbrochard@common-lisp.net>
322 * src/clfswm-corner.lisp (present-clfswm-terminal): Make the
323 clfswm terminal working even on xterm title changes.
325 2010-08-29 Philippe Brochard <pbrochard@common-lisp.net>
327 * src/clfswm-util.lisp (run-other-window-manager): Update for
330 * src/tools.lisp (do-execute): New parameter io to change the
333 * src/clfswm-util.lisp (hide-current-child): Prevent from removing
336 * src/clfswm-internal.lisp (child-member): New predicate.
337 (child-remove): New function.
339 * src/*.lisp: Use child-member and child-remove everywhere it's
342 2010-08-28 Philippe Brochard <pbrochard@common-lisp.net>
344 * src/clfswm.lisp (main-loop): Ensure that all events have been
345 processed after a process-event.
347 * src/clfswm-internal.lisp (is-in-current-child-p): New function.
349 2010-08-27 Philippe Brochard <pbrochard@common-lisp.net>
351 * src/clfswm.lisp (main-mode:configure-request): Raise the window
352 only when present on the current child and focus it accordingly.
354 2010-08-26 Philippe Brochard <pbrochard@common-lisp.net>
356 * src/clfswm-circulate-mode.lisp (circulate-loop-function):
357 Use is-a-key-pressed-p.
359 * src/xlib-util.lisp (is-a-key-pressed-p): New predicate.
361 * src/clfswm-keys.lisp (define-ungrab/grab): Use all values
362 returned by xlib:keysym->keycodes.
364 * src/*.lisp: Use the new child-equal-p to compare children. This
365 prevent a bug with sbcl/cmucl when the standard equal function
366 does not work with xlib:window.
368 * src/clfswm-internal.lisp (child-equal-p): New predicate.
370 2010-08-25 Philippe Brochard <pbrochard@common-lisp.net>
372 * src/clfswm-generic-mode.lisp (generic-mode): Use an
373 xlib:event-listen before processing event with
374 xlib:process-event. This prevent a bug with CLX threaded
375 implementation like sbcl.
377 * src/clfswm.lisp (main-loop): Use an xlib:event-listen before
378 processing event with xlib:process-event. This prevent a bug with
379 CLX threaded implementation like sbcl.
381 2010-08-17 Philippe Brochard <pbrochard@common-lisp.net>
383 * contrib/server/key.lisp (ushell-sh): Add ccl and ecl support.
385 * src/xlib-util.lisp (compress-motion-notify): Use a loop instead
388 * src/clfswm-internal.lisp (with-find-in-all-frames): New macro.
389 (find-parent-frame, find-frame-window, find-frame-by-name)
390 (find-frame-by-number): Use with-find-in-all-frames to search in
391 frames in the right order.
393 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Fix an
394 unwanted flickering with unmanaged windows.
396 2010-08-16 Philippe Brochard <pbrochard@common-lisp.net>
398 * src/package.lisp: Remove event handler hooks as they're not
399 needed anymore (To replace them: use closure and define-handler).
401 * src/xlib-util.lisp (move-window, resize-window)
402 (wait-mouse-button-release): Use a generic mode.
404 * src/*.lisp: Replace the case to handle event with a more (tricky)
405 lispy method which bind a function to each keywords associated
408 2010-07-23 Philippe Brochard <pbrochard@common-lisp.net>
410 * src/clfswm-util.lisp (delete-current-child): Invert bindings and
411 menu entry between delete-current-child and remove-current-child.
412 ie: Delete a child and its children in all frames by default.
414 2010-07-21 Philippe Brochard <pbrochard@common-lisp.net>
416 * src/package.lisp: Add a placement configuration group.
418 * src/binding*.lisp: Bind control+g to escape the current action
421 * src/clfswm-internal.lisp
422 (delete-child-and-children-in-all-frames): New function and
423 binding: Second mode - Control+Delete delete the current child and
424 its children in all frames (ie: close the current child and its
427 2010-07-20 Philippe Brochard <pbrochard@common-lisp.net>
429 * src/clfswm-internal.lisp (remove-child-in-frame): Do not destroy
430 the frame window and the frame gc. Close a very annoying bug when
431 cuting/pasting a frame or moving a child over frames with the
434 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Redisplay
435 all children in *current-root* after moving/resizing a frame.
437 2010-07-18 Philippe Brochard <pbrochard@common-lisp.net>
439 * src/clfswm-util.lisp (delete-focus-window)
440 (destroy-focus-window): Remove child in parent frame before
443 2010-07-16 Philippe Brochard <pbrochard@common-lisp.net>
445 * src/clfswm-util.lisp (identify-key): Add a timeout in
447 (mouse-click-to-focus-generic): Use find-child-under-mouse instead
448 of the window passed by xlib:process-event.
450 * src/xlib-util.lisp (move-window, resize-window)
451 (wait-mouse-button-release): Add a timeout in xlib:process-event.
453 2010-04-11 Philippe Brochard <pbrochard@common-lisp.net>
455 * src/clfswm-util.lisp (run-other-window-manager): Add the ability
456 to launch an other window manager and to return to clfswm.
458 2010-03-18 Philippe Brochard <pbrochard@common-lisp.net>
460 * src/clfswm-layout.lisp (set-tile-space-layout): Set default
463 2009-12-15 Philippe Brochard <pbrochard@common-lisp.net>
465 * src/clfswm.lisp (main-loop): Add a *loop-hook* parameter and a
468 * src/clfswm-generic-mode.lisp (generic-mode): Add a loop-hook
469 parameter and a loop timeout.
471 2009-12-05 Philippe Brochard <pbrochard@common-lisp.net>
473 * src/clfswm.lisp (main): Add an alternate configuration filename
476 * load.lisp: Add a debuging code example.
478 2009-11-14 Philippe Brochard <pbrochard@common-lisp.net>
480 * src/clfswm-configuration.lisp (create-configuration-menu): New
481 menu to configure all clfswm variables while clfswm is running.
483 2009-11-12 Philippe Brochard <pbrochard@common-lisp.net>
485 * src/clfswm-util.lisp (save-configuration-variables): New
486 function to save all configuration variables in clfswmrc.
488 2009-11-11 Philippe Brochard <pbrochard@common-lisp.net>
490 * src/clfswm-info.lisp (info-mode): Begining of mouse support in
492 (set-default-info-keys): Add cursor key support in info mode.
494 2009-11-08 Philippe Brochard <pbrochard@common-lisp.net>
496 * contrib/reboot-halt.lisp: Add a Suspend/Reboot/Halt menu in
499 * src/clfswm.lisp (main): Add a read-conf-file-p parameter to
500 prevent reading the configuration file (this may be useful to
501 produce the original documentation without user modifications
502 with the rc configuration file).
504 2009-11-07 Philippe Brochard <pbrochard@common-lisp.net>
506 * src/bindings-second-mode.lisp (set-default-second-keys):
507 Simplification of Escape key to close/kill/remove the focus window
508 and unhide all windows.
510 * src/bindings.lisp (set-default-main-keys): Simplification of
511 Escape key to close/kill/remove the focus window and unhide all
514 * src/clfswm-util.lisp (ask-close/kill-current-window): Add remove
515 focus and unhide all windows capabilities.
517 2009-10-10 Philippe Brochard <pbrochard@common-lisp.net>
519 * contrib/mpd.lisp (start-gmpc): Add gmpc in the mpd menu.
521 2009-07-29 Philippe Brochard <pbrochard@common-lisp.net>
523 * src/clfswm-layout.lisp (tile-layout, tile-horizontal-layout):
524 Keep child order and don't make unnecessary child movement.
525 (one-column-layout, one-line-layout): New layouts.
527 2009-06-29 Philippe Brochard <pbrochard@common-lisp.net>
529 * *: **** Release 0906 ****
531 * contrib/cd-player.lisp: New file to handle the CD player.
533 * contrib/xmms.lisp: New file to handle the xmms player.
535 2009-06-28 Philippe Brochard <pbrochard@common-lisp.net>
537 * src/clfswm-layout.lisp (set-no-layout-remember-size): New layout:
538 Maximize windows in there frame - Leave frames to there actual
541 * src/bindings-second-mode.lisp (set-default-second-keys): Bind
542 "o" on set-open-in-new-frame-in-parent-frame-nw-hook.
544 2009-06-27 Philippe Brochard <pbrochard@common-lisp.net>
546 * contrib/keyb_fr.lisp: New file to handle an azerty keyboard.
548 2009-06-24 Philippe Brochard <pbrochard@common-lisp.net>
550 * contrib/mpd.lisp: Use a standard menu.
552 * src/clfswm-info.lisp: Use a standard menu for the help-menu.
554 2009-06-22 Philippe Brochard <pbrochard@common-lisp.net>
556 * contrib/mpd.lisp: New file to handle the Music Player Daemon (MPD)
558 2009-06-19 Philippe Brochard <pbrochard@common-lisp.net>
560 * src/clfswm-autodoc.lisp (produce-doc, produce-doc-html): Minor
563 2009-06-18 Philippe Brochard <pbrochard@common-lisp.net>
565 * src/config.lisp (get-fullscreen-size): One pixel adjustment
568 * src/clfswm-placement.lisp (*-child-placement): One pixel
571 2009-06-16 Philippe Brochard <pbrochard@common-lisp.net>
573 * src/clfswm-circulate-mode.lisp (draw-circulate-mode-window):
574 Ensure that all characters are printable.
576 * src/config.lisp (get-fullscreen-size): Adjust default fullscreen
579 * src/clfswm-placement.lisp (*-child-placement): Adjust
580 coordinates to one pixel in the current child.
582 2009-06-04 Philippe Brochard <pbrochard@common-lisp.net>
584 * src/clfswm-query.lisp (query-enter-function): Assign font before
585 width and height calculation.
587 2009-06-03 Philippe Brochard <pbrochard@common-lisp.net>
589 * src/xlib-util.lisp (banish-pointer): Use with-placement macro to
590 bannish the pointer in an arbitrary place.
592 * src/clfswm-info.lisp (info-mode): Use with-placement macro to
593 place the info window in an arbitrary place.
595 * src/clfswm-query.lisp (query-enter-function): Use with-placement
596 macro to place the query window in an arbitrary place.
598 * src/clfswm-placement.lisp: New file. Allow to place info windows
599 or query windows on an arbitrary place. Allow to bannish the
600 pointer on an arbitrary place.
602 2009-05-16 Philippe Brochard <pbrochard@common-lisp.net>
604 * src/clfswm-circulate-mode.lisp (reorder-child)
605 (reorder-brother): Unfocus windows before reordering children or
608 2009-05-13 Philippe Brochard <pbrochard@common-lisp.net>
610 * src/clfswm-circulate-mode.lisp (reorder-brother): Ensure that
611 the parent is a frame.
613 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Handle
614 motion with a default modifier.
616 * src/clfswm.lisp (handle-motion-notify): Handle motion with a
619 * src/clfswm-info.lisp (info-mode): Handle motion with a default
621 (info-mode): Optimization in loop function.
623 2009-05-10 Philippe Brochard <pbrochard@common-lisp.net>
625 * src/clfswm-circulate-mode.lisp (reorder-brother): Handle
626 root-frame correctly.
628 * clfswm.asd: Dependency fix for clfswm-generic-mode.
630 * src/clfswm-circulate-mode.lisp (reorder-child)
631 (reorder-brother): Handle empty frames.
632 (reorder-brother): Redisplay only the parent frame of the current
635 * src/clfswm-util.lisp (frame-toggle-maximize): Redisplay only the
636 parent frame of the current frame.
638 2009-05-09 Philippe Brochard <pbrochard@common-lisp.net>
640 * src/clfswm-util.lisp (frame-toggle-maximize): New function:
641 Maximize/Unmaximize the current frame in its parent frame.
643 * src/clfswm-layout.lisp (maximize-layout): New layout: Maximize
644 windows and frames in there parent frame.
646 2009-05-05 Philippe Brochard <pbrochard@common-lisp.net>
648 * src/*.lisp: Add support for Clozure Common Lisp (CCL).
650 * src/clfswm-circulate-mode.lisp (reorder-child)
651 (reorder-brother): Reinitialise on circulate type change
652 child to brother or brother to child.
654 * src/*.lisp (*): Use map-window instead of xlib:map-window. So
655 calls xlib:display-finish-output on each map-request. So speed up
658 * src/xlib-util.lisp (map-window): New function. Call
659 xlib:display-finish-output on each map request.
661 2009-04-28 Philippe Brochard <pbrochard@common-lisp.net>
663 * src/clfswm-second-mode.lisp (sm-handle-motion-notify):
664 Optimisation when drawing second mode window.
666 2009-04-27 Philippe Brochard <pbrochard@common-lisp.net>
668 * src/clfswm-circulate-mode.lisp (circulate-mode): Optimisation in
671 2009-04-22 Philippe Brochard <pbrochard@common-lisp.net>
673 * src/clfswm-util.lisp (run-program-from-query-string): Launch
674 command only with a return validation.
676 2009-04-22 Xavier Maillard <xma@gnu.org>
678 * src/clfswm-query.lisp (query-string): Use a generic mode.
680 2009-04-19 Xavier Maillard <xma@gnu.org>
682 * src/clfswm-info.lisp (info-mode): Use generic-mode for info-mode.
684 2009-04-18 Xavier Maillard <xma@gnu.org>
686 * src/clfswm-generic-mode.lisp (generic-mode): Add a generic mode
687 to define all other modes.
689 2009-04-05 Philippe Brochard <pbrochard@common-lisp.net>
691 * src/package.lisp (): Use *default-font-string* for all
694 * src/clfswm-info.lisp (info-mode): Ensure integer windows size.
696 2009-02-17 Philippe Brochard <pbrochard@common-lisp.net>
698 * src/xlib-util.lisp (null-size-window-p): Better check of null
701 2009-02-14 Philippe Brochard <pbrochard@common-lisp.net>
703 * src/clfswm.lisp (handle-map-request): Add a fix to manage
704 correctly fullscreen windows (SDL particularly).
706 2008-12-20 Philippe Brochard <pbrochard@common-lisp.net>
708 * src/xlib-util.lisp (get-color): Allocate colors only once -> fix
709 a segfault with clisp/new-clx.
711 * src/clfswm.lisp (handle-motion-notify): Add a needed window
714 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Add a
715 needed window argument.
717 2008-10-30 Philippe Brochard <pbrochard@common-lisp.net>
719 * src/xlib-util.lisp (wait-no-key-or-button-press)
720 (wait-a-key-or-button-press): Check buttons press/release correctly"
722 2008-10-28 Philippe Brochard <pbrochard@common-lisp.net>
724 * src/menu-def.lisp: Add children navigation menu in the movement
725 menu (select next/previous child/brother/level).
727 2008-10-26 Philippe Brochard <pbrochard@common-lisp.net>
729 * *: Rename 'sister' frame to 'brother' frame.
731 * src/clfswm-keys.lisp (unalias-modifiers): Convert a modifier
732 alias in a real modifier.
734 * src/package.lisp (*modifier-alias*): New list of modifier alias
735 For example: :alt is :mod-1, :numlock is :mod-2...
737 * src/tools.lisp (remove-hook): New function.
739 * src/clfswm-keys.lisp (with-capslock, without-capslock)
740 (with-numlock, without-cnumlock): New functions.
742 2008-10-25 Philippe Brochard <pbrochard@common-lisp.net>
744 * src/clfswm-info.lisp: Use the *binding-hook* to create info
745 keys and mouse bindings.
747 * src/bindings-second-mode.lisp: Use the *binding-hook* to create
748 second keys and mouse bindings.
750 * src/bindings.lisp: Use the *binding-hook* to create main keys
753 2008-10-10 Philippe Brochard <pbrochard@common-lisp.net>
755 * src/clfswm-menu.lisp (open-menu): Remember parent menu to undo
758 2008-10-09 Philippe Brochard <pbrochard@common-lisp.net>
760 * src/menu-def.lisp: Use a menu instead of a function for the
763 2008-10-08 Philippe Brochard <pbrochard@common-lisp.net>
765 * src/clfswm-util.lisp (show-standard-menu): Display the standard
766 menu from the 'update-menus' command.
768 2008-10-07 Philippe Brochard <pbrochard@common-lisp.net>
770 * src/clfswm-query.lisp (query-string): Do not ungrab keyboard if
771 it's already grabbed.
773 * src/clfswm-internal.lisp (display-frame-info): Use configurable
774 colors and fix a bug with background.
775 (display-frame-info): Set window background when displaying info.
777 2008-10-06 Philippe Brochard <pbrochard@common-lisp.net>
779 * src/xlib-util.lisp (my-character->keysyms): Use a macro to avoid
780 warning with clisp/new-clx.
782 2008-10-04 Philippe Brochard <pbrochard@common-lisp.net>
784 * src/clfswm-util.lisp (jump-to-slot): Prevent to jump on a
787 2008-09-23 Philippe Brochard <pbrochard@common-lisp.net>
789 * *: **** Release 0809 ****
791 2008-09-23 Philippe Brochard <pbrochard@common-lisp.net>
793 * src/clfswm-util.lisp (ensure-unique-name): New function and menu
795 (ensure-unique-number): New function and menu entry.
797 2008-09-22 Philippe Brochard <pbrochard@common-lisp.net>
799 * src/clfswm-nw-hooks.lisp (named-frame-nw-hook): New new window
800 hook: open the next window in a named frame.
801 (numbered-frame-nw-hook): New new window hook: open the next
802 window in a numbered frame.
804 * src/clfswm-query.lisp (query-string): Grab the keyboard in all
805 cases. So query-string can be called even in the main mode.
807 * src/clfswm-internal.lisp (show-all-children): Do not raise a
808 child by default => far less flickering.
810 2008-09-19 Philippe Brochard <pbrochard@common-lisp.net>
812 * src/bindings-second-mode.lisp: Bind "t" to tile-current-frame.
814 * src/menu-def.lisp: Change key binding for the CLFSWM menu
817 * src/xlib-util.lisp (xgrab-pointer): Handle the case where cursor
818 is nil. (workaround on some CLX implementation).
820 2008-09-12 Philippe Brochard <pbrochard@common-lisp.net>
822 * src/menu-def.lisp: Add a menu to set a focus policy for all
825 * src/clfswm-util.lisp (set-focus-policy-generic-for-all)
826 (all-frames-set-*-focus-policy): Set a focus policy for all
829 * src/clfswm.lisp (handle-enter-notify): sloppy-select
830 mode. Select a child and its parents on mouse over.
832 2008-09-03 Philippe Brochard <pbrochard@common-lisp.net>
834 * src/clfswm.lisp (handle-enter-notify): Add a sloppy strict focus
835 policy -> Sloppy focus only for windows in the current frame.
836 (main-unprotected): Exit clfswm on init error (ie: when another
837 window manager is running).
839 * src/clfswm-util.lisp (reset-clfswm): New function.
841 2008-09-02 Philippe Brochard <pbrochard@common-lisp.net>
843 * src/clfswm-menu.lisp (init-menu): New function.
845 * src/clfswm-util.lisp (reload-clfswm): New function to reload
847 (exit-clfswm): Rename quit-clfswm to exit-clfswm.
849 * src/clfswm.lisp (main, main-unprotected): Handle error in a
850 superior main function. Now CLFSWM can't break the X session. It
851 just reinitialize the display and run a new main loop.
853 * src/clfswm-corner.lisp: Make *clfswm-terminal* and
854 *vt-keyboard-on* global to avoid warnings when loading clfswm.
856 * src/clfswm-layout.lisp: Add a specific GIMP layout menu.
857 (help-on-gimp-layout): Describe how to use the GIMP layout.
859 2008-09-01 Philippe Brochard <pbrochard@common-lisp.net>
861 * src/clfswm-layout.lisp (set-gimp-layout): Change the layout to
862 main-window-right-layout. Change the keybinding for (shift)alt+tab
863 to not select windows in the main window lisst.
864 Bind F8 to add a window in the main window list.
865 Bind F9 to remove a window in the main window list.
866 Change the focus policy to :sloppy.
867 (set-previous-layout): Restore the previous layout, keybinding and
870 2008-08-31 Philippe Brochard <pbrochard@common-lisp.net>
872 * src/clfswm-menu.lisp (add-menu-comment): Add comments in menu.
874 * src/clfswm-layout.lisp (main-window-left-layout)
875 (main-window-bottom-layout, main-window-top-layout): New
877 Factorize layouts in menu.
879 2008-08-30 Philippe Brochard <pbrochard@common-lisp.net>
881 * src/clfswm-layout.lisp (main-window-right-layout): A possible
882 GIMP layout: one or more main windows on one side of the
883 frame. Others on the other size.
885 * src/clfswm-util.lisp
886 (current-frame-set-click/sloppy-focus-policy): Each frame can have
887 a different focus policy (one of :click or :sloppy).
888 The default focus policy is set with *default-focus-policy*.
890 2008-08-23 Philippe Brochard <pbrochard@common-lisp.net>
892 * src/clfswm-info.lisp (show-config-variable): New function.
894 2008-08-19 Philippe Brochard <pbrochard@common-lisp.net>
896 * src/clfswm-layout.lisp (tile-horizontal-layout): New layout.
898 * src/clfswm-info.lisp: Colored help for key binding and corners
901 2008-08-18 Philippe Brochard <pbrochard@common-lisp.net>
903 * src/clfswm-util.lisp (delete-focus-window)
904 (destroy-focus-window): Remove chid only in
905 handle-unmap/destroy-notify. Focus *current-root* only when
906 closing/killing the current child.
908 * src/clfswm-autodoc.lisp (produce-corner-*-doc): New autodoc
909 functions or corners.
911 2008-08-17 Philippe Brochard <pbrochard@common-lisp.net>
913 * src/clfswm-corner.lisp (present-clfswm-terminal): New corner
914 action: Hide/Unhide a terminal on mouse corner action. (By default
915 right mouse button on the top left corner).
917 * src/config.lisp (*never-managed-window-list*): New config
920 * src/clfswm-internal.lisp (never-managed-window-p): New function:
921 Handle never managed window in a more simple way.
923 * src/clfswm-corner.lisp: New file and new and more simple method
924 to define corners actions.
926 2008-08-15 Philippe Brochard <pbrochard@common-lisp.net>
928 * src/clfswm-info.lisp (info-mode): Info line can now be colored.
930 * src/clfswm-layout.lisp (fast-layout-switch)
931 (define-fast-layout-switch): New functions: Switch between two
934 * src/clfswm-second-mode.lisp (leave-second-mode): Takes care if
935 really in the second mode. So leave-second-mode can be used even
938 * src/clfswm-util.lisp (switch-to-last-child): New function:
939 Store the current child and switch to the previous one.
941 2008-07-16 Philippe Brochard <pbrochard@common-lisp.net>
943 * src/clfswm-util.lisp (display-current-window-info): Display the
945 (have-to-present-virtual-keyboard): Add a virtual keyboard corner
946 (top right by default). By default 'xvkbd' is used.
948 2008-06-28 Philippe Brochard <pbrochard@common-lisp.net>
950 * src/xlib-util.lisp (move-window, resize-window): Compress motion
953 * src/clfswm.lisp (handle-motion-notify): Compress motion events.
955 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Compress
958 * src/clfswm-info.lisp (info-mode): Compress motion events.
960 2008-06-21 Philippe Brochard <pbrochard@common-lisp.net>
962 * src/clfswm-internal.lisp (show-all-children): Compute geometry
963 and selection first and then show only necessary children.
964 (show-child): remove unneeded display-p parameter.
966 * src/config.lisp (get-fullscreen-size): Place the frame border
967 outside the screen (this prevent the loose of 2 pixels per
970 2008-06-12 Philippe Brochard <pbrochard@common-lisp.net>
972 * src/clfswm-internal.lisp (focus-child): Algorithm change to
973 raise only the selected child.
975 2008-06-08 Philippe Brochard <pbrochard@common-lisp.net>
977 * src/clfswm-internal.lisp (raise-p-list, show-all-children):
978 Raise only viewable children.
980 2008-06-06 Philippe Brochard <pbrochard@common-lisp.net>
982 * src/clfswm-internal.lisp (show-all-children): Always raise all
983 displayed children. Remove all references to raise-p.
985 2008-06-04 Philippe Brochard <pbrochard@common-lisp.net>
987 * src/menu-def.lisp (child-menu): New menu entry on raise/lower
990 * src/bindings-second-mode.lisp ("Page_Down", "Page_Up"): New
991 second mode binding on raise/lower child in its frame.
993 * src/clfswm-nw-hooks.lisp (leave-focus-frame-nw-hook): Adapt
994 behaviour to the new raise/lower property.
995 Call clear-nw-hook before the rest of the hook.
997 * src/bindings.lisp (mouse-click-to-focus-and-move-window)
998 (mouse-click-to-focus-and-resize-window): Stop button event. This
999 prevent a keyboard/pointer freeze.
1001 2008-06-03 Philippe Brochard <pbrochard@common-lisp.net>
1003 * src/clfswm-internal.lisp (frame-lower-child)
1004 (frame-raise-child): New functions to raise/lower a child in its
1007 * src/clfswm-util.lisp (have-to-present-windows)
1008 (have-to-present-all-windows): New functions to have an MaxOS
1009 expose like on mouse click in screen corner.
1011 * src/clfswm-info.lisp ("Page_Down", "Page_Up"): Add boundaries.
1013 2008-05-30 Philippe Brochard <pbrochard@common-lisp.net>
1015 * src/clfswm-util.lisp (unhide-a-child-from-all-frames): Unhide a
1016 child from a choice in all frames with hidden children.
1018 * src/clfswm-info.lisp (info-mode-menu): Handle separators.
1020 2008-05-28 Philippe Brochard <pbrochard@common-lisp.net>
1022 * src/clfswm-util.lisp (hide-current-child, unhide-a-child)
1023 (unhide-all-children): New functions.
1025 * src/clfswm-info.lisp (info-mode-menu): Handle symbols and
1028 * src/clfswm-util.lisp (hide/show-frame-window): new function and
1031 2008-05-23 Philippe Brochard <pbrochard@common-lisp.net>
1033 * src/clfswm-util.lisp (rename-current-child): Do not display the
1034 frame info for a window.
1036 2008-05-20 Philippe Brochard <pbrochard@common-lisp.net>
1038 * src/clfswm-internal.lisp (remove-child-in-frame): Destroy the
1039 frame window for the removed child and its children.
1041 2008-05-18 Philippe Brochard <pbrochard@common-lisp.net>
1043 * src/clfswm-autodoc.lisp (produce-*-doc-*): Add a note to use the
1046 2008-05-17 Philippe Brochard <pbrochard@common-lisp.net>
1048 * src/clfswm-nw-hooks.lisp (default-frame-nw-hook): Do not handle
1049 the ROX pinboard (ie: leave it lowered in the root window as
1052 * src/clfswm-layout.lisp (tile-left-space-layout): New layout.
1053 (tile-left-layout, tile-right-layout, tile-top-layout)
1054 (tile-bottom-layout): Use all the frame space when there is only
1057 * src/clfswm-internal.lisp (place-window-from-hints): Center
1058 unmanaged windows in the root screen.
1060 * src/clfswm-nw-hooks.lisp (clear-nw-hook, clear-all-nw-hooks):
1063 2008-05-15 Philippe Brochard <pbrochard@common-lisp.net>
1065 * src/clfswm-util.lisp (current-frame-manage-window-type): Fix a
1066 typo in managed types.
1068 * src/clfswm-internal.lisp (show-child): Always display frame info
1069 even if the frame is hidden.
1071 * src/xlib-util.lisp (resize-window): Use a better algorithme to
1074 2008-05-13 Philippe Brochard <pbrochard@common-lisp.net>
1076 * src/clfswm-util.lisp (with-movement): Display frame info for all
1077 frames in current root.
1079 2008-05-12 Philippe Brochard <pbrochard@common-lisp.net>
1081 * src/*.lisp: Rename 'brother' frames to 'sister' frames.
1083 * src/bindings-second-mode.lisp (define-second-key #\a): New
1084 binding on 'add-default-frame'.
1086 * src/clfswm-autodoc.lisp (produce-*-doc-*-in-file): Show a
1087 message to follow the autodocumentation process.
1089 2008-05-10 Philippe Brochard <pbrochard@common-lisp.net>
1091 * src/clfswm-util.lisp (bind-or-jump): Bind "Tab", "Return" and
1092 "Space" to jump to a child. "B" to bind a slot on the current
1095 * src/bindings-second-mode.lisp: Use "Tab" instead of
1098 2008-05-07 Philippe Brochard <pbrochard@common-lisp.net>
1100 * src/clfswm-util.lisp (find-child-under-mouse): Take care of
1101 unmanaged (hidden) windows.
1103 * src/clfswm-internal.lisp (place-window-from-hints): Give a
1104 minimal size for windows.
1105 (with-all-windows-frames-and-parent): New function.
1107 * src/config.lisp (*default-window-width/height*): New parameters.
1109 * src/clfswm-internal.lisp (place-window-from-hints): Center
1110 windows in the screen instead of in there frame.
1112 * src/bindings-second-mode.lisp (tile-space-current-frame): New
1115 * src/clfswm-layout.lisp (register-layout): Intern the once name
1116 in the right package.
1118 2008-05-05 Philippe Brochard <pbrochard@common-lisp.net>
1120 * doc/dot-clfswmrc: Update to follow the new clfswm way.
1122 2008-05-03 Philippe Brochard <pbrochard@common-lisp.net>
1124 * src/clfswm-internal.lisp (set-current-child)
1125 (adapt-child-to-parent, show-child, hide-child): Handle the case
1126 where child is not a frame or a window.
1128 * src/clfswm-util.lisp
1129 (mouse-click-to-focus-generic,mouse-focus-move/resize-generic):
1130 Check if child is a frame.
1132 * src/clfswm-internal.lisp (managed-window-p): Handle the case
1133 where frame is null.
1134 (place-frame): Check if frame and parent are frames.
1136 * src/clfswm-info.lisp (info-mode): display all frame info before
1139 * src/clfswm-second-mode.lisp (second-key-mode): display all frame
1140 info before leaving.
1142 * src/clfswm-internal.lisp (display-all-frame-info): New function.
1144 2008-05-02 Philippe Brochard <pbrochard@common-lisp.net>
1146 * src/tools.lisp (getenv): Implemented for ECL.
1147 (urun-prog): Implemented for ECL.
1149 * src/clfswm-util.lisp (identify-key): Use a double buffer to
1152 * src/clfswm-query.lisp (query-string): Use a double buffer to
1155 * src/clfswm-info.lisp (draw-info-window): Use a double buffer to
1158 * src/xlib-util.lisp (clear-pixmap-buffer, copy-pixmap-buffer):
1161 2008-05-01 Philippe Brochard <pbrochard@common-lisp.net>
1163 * src/clfswm-info.lisp (info-mode): Add boundaries in the info mode window.
1165 * src/menu-def.lisp: New file: move all menu definition in
1168 * src/clfswm-layout.lisp (register-layout): Use a function instead
1171 2008-04-30 Philippe Brochard <pbrochard@common-lisp.net>
1173 * src/clfswm-autodoc.lisp (produce-menu-doc,
1174 (produce-menu-doc-html): New functions.
1175 (produce-doc-*): Moved to clfswm-autodoc.lisp.
1177 * src/clfswm-util.lisp (paste-selection-no-clear): Prevent to
1178 paste a child on one of its own children. (this prevent a
1180 (move-child-to): Rename move/copy-current-child-by to
1182 (mouse-move-window-over-frame): New function to move the window
1183 under the mouse cursor to another frame.
1185 * src/clfswm-internal.lisp (find-child-in-parent): New function.
1187 2008-04-29 Philippe Brochard <pbrochard@common-lisp.net>
1189 * src/clfswm-internal.lisp (show-all-children): Display unmanaged
1190 windows only when its window parent is the current child.
1192 2008-04-28 Philippe Brochard <pbrochard@common-lisp.net>
1194 * src/clfswm-util.lisp (manage-current-window)
1195 (unmanage-current-window): New functions: Allow to force to manage
1196 or unmanage a window by its parent frame.
1198 * src/bindings-second-mode.lisp (#\o): binded to
1199 set-open-in-new-frame-in-parent-frame-nw-hook and
1200 (#\o :control) to set-open-in-new-frame-in-root-frame-nw-hook
1202 * src/clfswm-util.lisp (with-current-window): New macro.
1204 * src/xlib-util.lisp (move-window, resize-window): Remove uneeded
1205 exposure and enter-window handle event.
1207 * src/clfswm-util.lisp (move-frame, resize-frame): Show all
1208 children for the current child after the move/resize.
1210 2008-04-27 Philippe Brochard <pbrochard@common-lisp.net>
1212 * src/xlib-util.lisp (resize-window): Take care of window size
1215 * src/clfswm-util.lisp (mouse-focus-move/resize-generic): Allow to
1216 move/resize unmanaged windows.
1218 * src/xlib-util.lisp (move-window, resize-window): New functions.
1220 2008-04-25 Philippe Brochard <pbrochard@common-lisp.net>
1222 * src/clfswm-util.lisp (current-frame-manage-window-type): Let the
1223 user choose what window type the current frame must handle.
1224 (display-current-window-info): New function.
1225 (current-frame-manage-all-window-type)
1226 (current-frame-manage-only-normal-window-type)
1227 (current-frame-manage-no-window-type): New functions.
1229 * src/clfswm-internal.lisp (managed-window-p): New function.
1231 * src/package.lisp (frame): Managed type: new frame
1232 parameter. This allow to choose what window type a frame must
1235 * src/*.lisp: Rename all 'father' occurrences to 'parent'.
1237 * src/clfswm-nw-hooks.lisp
1238 (open-in-new-frame-in-parent-frame-nw-hook): New new window hook.
1240 * src/clfswm-util.lisp (adapt-current-frame-to-window-hints): New
1243 * src/tools.lisp (ensure-printable): Return always a string even
1246 2008-04-24 Philippe Brochard <pbrochard@common-lisp.net>
1248 * src/config.lisp (*default-nw-hook*): New variable to change the
1249 default new window hook.
1251 2008-04-22 Philippe Brochard <pbrochard@common-lisp.net>
1253 * clfswm.asd (clfswm): Add a dependency from
1254 clfswm-second-mode.lisp to clfswm.lisp.
1256 * src/clfswm-util.lisp (identify-key): Show the documentation for
1257 the function bound on a key.
1258 (with-movement): Move with-movement,
1259 current-frame-fill/pack/resize-* from bindings-second-mode.lisp
1260 to clfswm-util.lisp.
1262 * src/clfswm-menu.lisp: New menu system that let user change keys
1263 or functions associated to keys.
1265 2008-04-18 Philippe Brochard <pbrochard@common-lisp.net>
1267 * src/clfswm-internal.lisp (show-all-children): Display-child is
1268 the first child by default. Solve a bug with father-p.
1270 2008-04-17 Philippe Brochard <pbrochard@common-lisp.net>
1272 * src/clfswm-internal.lisp (add-frame): Add frame return the
1274 (show-all-children): Move the size computation outside the
1277 * src/bindings-second-mode.lisp (with-movement): Redisplay only
1280 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Redisplay
1281 only the current child.
1283 * src/clfswm-internal.lisp (show-all-children): New display-child
1284 parameter to display only the desired child and its children.
1285 (select-next/previous-child): Only display the current child.
1287 2008-04-14 Philippe Brochard <pbrochard@common-lisp.net>
1289 * src/clfswm.lisp (init-display): Move the default frame creation
1290 on the default init hook.
1292 * src/clfswm-keys.lisp (define-ungrab/grab): Handle all keysyms in
1293 the main mode (for example: "1" on an azerty keyboard).
1295 2008-04-13 Philippe Brochard <pbrochard@common-lisp.net>
1297 * src/clfswm-keys.lisp (find-key-from-code): Better handle of
1298 keysyms. Revert to old grabbing method for the main mode.
1300 2008-04-12 Philippe Brochard <pbrochard@common-lisp.net>
1302 * src/clfswm.lisp (init-display): Add key handling on no focus
1303 window and on frame windows.
1305 2008-04-11 Philippe Brochard <pbrochard@common-lisp.net>
1307 * src/clfswm.lisp (main): Keyboard handle strategie change: Grab
1308 all keys by default and replay just what is needed. No change for
1311 * src/clfswm-keys.lisp: remove grab/ungrab main keys.
1312 (find-key-from-code): Test for shift and not shift presence.
1314 2008-04-09 Philippe Brochard <pbrochard@common-lisp.net>
1316 * src/clfswm-internal.lisp (switch-to-root-frame): show later -
1317 new key parameter to have less flickering.
1319 2008-04-07 Philippe Brochard <pbrochard@common-lisp.net>
1321 * src/bindings-second-mode.lisp (frame-layout-once-menu): Set the
1322 layout only one time and revert to no-layout to freely handle
1325 * src/clfswm-nw-hooks.lisp
1326 (open-in-new-frame-in-root-frame-nw-hook): Tile layout with spaces
1327 with new created window.
1329 * src/clfswm-layout.lisp (register-layout): Now register
1330 automatically a once layout to set the layout only one time and
1331 revert to no-layout to freely handle frames.
1333 2008-04-05 Philippe Brochard <pbrochard@common-lisp.net>
1335 * src/clfswm-nw-hooks.lisp (leave-focus-frame-nw-hook): New
1336 nw-hook: Open the next window in the current frame and leave the
1337 focus to the current child.
1339 2008-04-04 Philippe Brochard <pbrochard@common-lisp.net>
1341 * src/bindings-second-mode.lisp: Add keys definitions to
1342 bind-or-jump in the second mode.
1344 * src/clfswm-util.lisp (bind-or-jump): remove the auto-defining
1345 macro for bind-or-jump-(1|2|3...).
1347 * src/clfswm-keys.lisp (define-define-key/mouse): Allow additional
1348 arguments to function. This allow to do things like:
1349 (define-main-key (key) 'my-function 10 20 'foo) -> 10 20 and 'foo
1350 are passed to my-function on key press.
1352 2008-04-03 Philippe Brochard <pbrochard@common-lisp.net>
1354 * src/clfswm-util.lisp (bind-or-jump): New (great) function.
1356 2008-04-02 Philippe Brochard <pbrochard@common-lisp.net>
1358 * src/clfswm-internal.lisp (child-fullname): New function
1360 * src/clfswm-info.lisp (info-mode-menu): Add an explicit optional
1361 docstring in info-mode-menu. An item can be
1362 '((key function) (key function)) or with docstring
1363 '((key function "documentation 1") (key function "bla bla") (key function))
1365 * src/tools.lisp (ensure-n-elems): New function.
1367 * src/bindings-second-mode.lisp: Bind Alt+mouse-1/3 to move or
1368 resize a frame or the window's father.
1370 * src/clfswm.lisp (init-display): Remove tile-space-layout by
1371 default on the root frame.
1373 * src/clfswm-util.lisp (move/resize-frame): Add standard event
1374 hooks handlers (map-request, configure-notify...)
1376 * src/clfswm-internal.lisp (adapt-child-to-father): Limit minimal
1379 2008-04-01 Philippe Brochard <pbrochard@common-lisp.net>
1381 * src/bindings.lisp: Bind Alt+mouse-1/3 to move or resize a frame
1382 or the window's father.
1384 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Stop button
1385 event only if there is a geometry change.
1386 (mouse-focus-move/resize-generic): Generic function to move or
1387 resize a frame or a window father frame.
1389 2008-04-01 Philippe Brochard <pbrochard@common-lisp.net>
1391 * src/clfswm-internal.lisp (show-all-children): Return t if there
1392 is a geometry change.
1394 2008-03-30 Philippe Brochard <pbrochard@common-lisp.net>
1396 * src/bindings.lisp (Up/Down): Swap select previous/next level.
1398 * src/bindings-second-mode.lisp (Up/Down): Swap select previous/next level.
1400 * src/clfswm.lisp (init-display): Create a default frame in the root frame.
1402 * src/clfswm-internal.lisp (place-frame): Place frame from real (pixel) coordinates.
1403 (with-all-*): Reverse the child list to manage the first child last (like in
1406 * src/config.lisp (*create-frame-on-root*): New variable: Create a new frame on the
1407 root window only if true.
1409 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Create a new frame on the
1410 root window only if *create-frame-on-root* is true.
1412 * src/bindings-second-mode.lisp (sm-mouse-click-to-focus-generic): Create a new frame
1415 2008-03-29 Philippe Brochard <pbrochard@common-lisp.net>
1417 * src/bindings-second-mode.lisp (sm-mouse-click-to-focus-generic): Focus, move and resize
1418 the current child (even if it's a window).
1420 2008-03-28 Philippe Brochard <pbrochard@common-lisp.net>
1422 * src/clfswm-util.lisp (mouse-click-to-focus-and-move)
1423 (mouse-click-to-focus-and-resize): New functions.
1425 * src/clfswm-internal.lisp (*-fl->px): Convert float coordinates to pixel.
1426 (*-px->fl): Convert pixel coordinates to float.
1428 * src/tools.lisp (call-hook): Move call-hook to tools.lisp.
1430 2008-03-27 Philippe Brochard <pbrochard@common-lisp.net>
1432 * src/clfswm-layout.lisp (no-layout): Use :first-only to raise only the
1435 * src/clfswm-internal.lisp (hide-all): Split hide-all-children in hide-all
1436 and hide-all-children.
1437 (raise-if-needed): New function.
1438 (show-child): Use a first-p parameter to raise windows only when they are
1441 2008-03-26 Philippe Brochard <pbrochard@common-lisp.net>
1443 * src/clfswm-internal.lisp (select-next/previous-level): Don't use show-all-children
1446 2008-03-25 Philippe Brochard <pbrochard@common-lisp.net>
1448 * src/clfswm-info.lisp (keys-from-list): new function.
1450 * src/*: rename 'childs' in 'children'.
1452 * src/*: rename 'group' in 'frame'.
1454 2008-03-22 Philippe Brochard <pbrochard@common-lisp.net>
1456 * src/clfswm-pack.lisp (explode-group/explode-current-group): new functions.
1458 2008-03-21 Philippe Brochard <pbrochard@common-lisp.net>
1460 * src/clfswm-pack.lisp: Pack, Fill, Resize functions.
1462 2008-03-16 Philippe Brochard <pbrochard@common-lisp.net>
1464 * src/clfswm-nw-hooks.lisp: Register system for new window hooks.
1465 Bind control+o to open the next window in a new group in the root group
1466 (as open in next window in a new workspace in 0801 version).
1468 2008-03-15 Philippe Brochard <pbrochard@common-lisp.net>
1470 * src/clfswm-util.lisp (show/hide-all-groups-info/key): Show/hide all groups info
1473 2008-03-14 Philippe Brochard <pbrochard@common-lisp.net>
1475 * bindings-second-mode.lisp ("ISO_Left_Tab"): Use ISO_Left_Tab
1476 instead of Tab for select-previous-child.
1478 2008-03-13 Philippe Brochard <pbrochard@common-lisp.net>
1480 * clfswm-util.lisp (force-window-in-group/force-window-center-in-group):
1483 2008-03-11 Philippe Brochard <pbrochard@common-lisp.net>
1485 * clfswm-util.lisp (identify-key): Display the documentation
1486 associated to keys when identifying a key.
1488 2008-03-10 Xavier Maillard <xma@gnu.org>
1490 * contrib/clfswm: Complete rewrite of the script. Detect error and
1491 act accordingly. Add command line arguments to configure the
1492 script execution. User can now choose different common lisp
1493 implementation (clisp and sbcl only), choose where to store the
1494 dumped image, where to find clfswm source.
1496 2008-03-09 Philippe Brochard <pbrochard@common-lisp.net>
1498 * clfswm-internal.lisp (process-new-window): Beginning of new
1499 window hook: each group have a hook to tell what he wants to do
1500 with the new created window.
1502 2008-03-08 Xavier Maillard <xma@gnu.org>
1504 * contrib/clfswm: New script. Dump a CLISP image of CLFSWM then
1505 call the resulting executable.
1507 * clfswm.lisp (read-conf-file): Check for the user config file in
1508 XDG_CONFIG_HOME *first*. Freedesktop.org standards should be
1509 prefered whenever possible.
1511 2008-02-27 Philippe Brochard <pbrochard@common-lisp.net>
1513 * clfswm-layout.lisp (*-layout): Add an optional raise-p
1514 parameter in each layout.
1516 2008-02-26 Philippe Brochard <pbrochard@common-lisp.net>
1518 * clfswm-util.lisp (copy/cut-current-child): Does not affect the
1520 (copy/move-current-child-by-name/number): new functions
1521 (focus-group-by-name/number): new functions
1522 (delete-group-by-name/number): new functions
1524 2008-02-24 Philippe Brochard <pbrochard@common-lisp.net>
1526 * ************************************************************ *
1527 *: Major update - No more reference to workspaces. The main *
1528 structure is a tree of groups or application windows. *
1529 * ************************************************************ *
1531 2008-02-07 Philippe Brochard <pbrochard@common-lisp.net>
1533 * clfswm.lisp (read-conf-file): Read configuration in
1534 $HOME/.clfswmrc or in /etc/clfswmrc or in
1535 $XDG_CONFIG_HOME/clfswm/clfswmrc.
1536 (xdg-config-home): Return the content of $XDG-CONFIG-HOME (default
1539 2008-01-18 Philippe Brochard <pbrochard@common-lisp.net>
1541 * clfswm-internal.lisp (show-all-group): Use *root* and *root-gc*
1544 2008-01-03 Philippe Brochard <pbrochard@common-lisp.net>
1546 * clfswm-internal.lisp (find-window-group): New function.
1548 * clfswm*: Change to make clfswm run with clisp/new-clx.
1550 2008-01-01 Philippe Brochard <pbrochard@common-lisp.net>
1552 * clfswm-util.lisp (query-show-paren): Add show parent matching in
1554 (query-string): Bind control+k to delete end of line.
1556 * clfswm-second-mode.lisp (draw-second-mode-window): Display
1557 the action on mouse motion in second mode.
1559 * clfswm.lisp (handle-exposure): Redisplay groups on exposure
1560 event but do not clear the root window.
1561 (handle-configure-request): Adjust unmanaged window from there
1564 * clfswm-internal.lisp (process-new-window): Adjust new window
1565 with the specified hints (max/min/base width/height).
1567 2007-12-31 Philippe Brochard <pbrochard@common-lisp.net>
1569 * clfswm.lisp (handle-configure-request): Send an Configuration
1570 Notify event. This solve a bug with xterm and rxvt who takes some
1571 times to be mapped. Now there is no delay.
1573 * bindings-second-mode.lisp (define-shell): Run programs after
1574 living the second mode.
1576 2007-12-30 Philippe Brochard <pbrochard@common-lisp.net>
1578 * clfswm-internal.lisp (process-new-window): Do not crop transient
1579 window to group size.
1580 (adapt-window-to-group): Do not crop transient window to group
1583 * clfswm.lisp (handle-configure-request): Adapt just the window to
1584 its group and don't take care of the configure request. Remove the
1585 bug with the Gimp outside the group and speed up the window
1587 (handle-exposure): Remove show-all-group on exposure event
1590 2007-12-29 Philippe Brochard <pbrochard@common-lisp.net>
1592 * clfswm-util.lisp (circulate-group-up-copy-window)
1593 (circulate-group-down-copy-window)
1594 (circulate-workspace-up-copy-group)
1595 (circulate-workspace-down-copy-group): Prevent the copy of the
1596 same window in the same workspace.
1598 * bindings-second-mode.lisp (release-copy-selected-window)
1599 (release-copy-selected-group): Prevent the copy of the same window
1600 in the same workspace.
1602 * clfswm-pager.lisp (generic-pager-move-window-on-previous-line)
1603 (generic-pager-move-window-on-next-line): Remove the copy
1605 (generic-pager-move-group-on-next-workspace)
1606 (generic-pager-move-group-on-previous-workspace): Prevent the copy
1607 of the same window in the same workspace.
1609 * bindings-pager.lisp (mouse-pager-copy-selected-window-release)
1610 (mouse-pager-copy-selected-group-release): Prevent the copy of the
1611 same window in the same workspace.
1613 * tools.lisp (setf/=): new macro to set a variable only when
1616 * clfswm-internal.lisp (adapt-window-to-group): use set/= to set
1617 x, y... only when necessary.
1619 2007-12-28 Philippe Brochard <pbrochard@common-lisp.net>
1621 * clfswm.lisp (handle-configure-notify, *configure-notify-hook*):
1622 new function and hook: force windows to stay in its group (solve a
1625 2007-12-25 Philippe Brochard <pbrochard@common-lisp.net>
1627 * bindings-second-mode.lisp (mouse-motion): use hide-group to have
1628 less flickering when moving/resizing groups.
1630 * clfswm-internal.lisp (hide-group): new function.
1631 (show-all-group): clear-all: new parameter.
1633 2007-12-22 Philippe Brochard <pbrochard@common-lisp.net>
1635 * clfswm-keys.lisp (define-define-key): undefine-*-multi-name: new
1637 * clfswm*: Color change for the pager. Typo or better description
1638 in bindings definitions. Define bindings for a qwerty keyboard by
1639 default. dot-clfswmrc show examples to switch to an azerty
1641 License change to GPL v3.
1642 * config.lisp: new file - group all globals variables in this
1645 2007-08-26 Philippe Brochard <pbrochard@common-lisp.net>
1647 * xlib-util.lisp (hide-window): Remove structure-notivy events
1648 when hidding a window.
1650 2007-05-16 Philippe Brochard <pbrochard@common-lisp.net>
1652 * package.lisp (*sm-property-notify-hook*): Readded
1653 property-notify-hook in second mode.
1655 2007-05-15 Philippe Brochard <pbrochard@common-lisp.net>
1657 * clfswm-keys.lisp (produce-doc-html): Better clean up for strings.
1659 2007-05-13 Philippe Brochard <pbrochard@common-lisp.net>
1661 * clfswm-pack.lisp (tile-current-workspace-to/right/left/top/bottom):
1662 Tile the current workspace with the current window on one side and
1663 others on the other (this emulate the larswm, dwm, wmii way). See
1664 the default configuration file to enable this mode by default.
1666 * clfswm-pager.lisp (pager-tile-current-workspace-to): idem for
1669 2007-05-12 Philippe Brochard <pbrochard@common-lisp.net>
1671 * clfswm-pager.lisp (pager-draw-window-in-group): Add
1672 ensure-printable to print windows name even with non-ascii
1675 2007-05-11 Philippe Brochard <pbrochard@common-lisp.net>
1677 * clfswm-pager.lisp (pager-explode-current-group): Create a new
1678 group for each window in group.
1679 (pager-implode-current-group): Move all windows in workspace to
1680 one group and remove other groups.
1682 * clfswm-pack.lisp (explode-group): Create a new group for each
1684 (implode-group): Move all windows in workspace to one group and
1685 remove other groups.
1687 * clfswm-util.lisp (identify-key): Remove local configuration
1688 variables and made them available for configuration from
1690 (query-string): idem.
1692 2007-04-29 Philippe Brochard <pbrochard@common-lisp.net>
1694 * netwm-util.lisp: Start of NetWM compliance.
1695 Add a Netwm client list gestion.
1697 2007-04-28 Philippe Brochard <pbrochard@common-lisp.net>
1699 * clfswm-internal.lisp (create-group-on-request): open a new group
1700 only when the current group is not empty.
1702 * bindings-second-mode.lisp (define-second-key-#\o-control): Fix a
1703 bug with null workspace.
1705 * clfswm-pager.lisp (pager-handle-event): Add a hook
1706 system. This hooks can be changed in the user configuration file.
1708 * package.lisp: All colors and font variables are set in
1709 package.lisp and can be configured in the user configuration
1711 Note: If you have configured some less ugly colors (esp. for the
1712 pager) don't hesitate to let me know :)
1714 * clfswm-second-mode.lisp (sm-handle-event): Add a hook
1715 system. This hooks can be changed in the user configuration file.
1717 * clfswm.lisp (handle-event): Add a hook system. This hooks can be
1718 changed in the user configuration file (~/.clfswmrc)
1720 2007-04-25 Philippe Brochard <pbrochard@common-lisp.net>
1722 * clfswm-util.lisp (stop-all-pending-actions): new function: reset
1723 arrow action, open next window in new workspace/group.
1725 * bindings.lisp (stop-all-pending-actions): new binding.
1726 (open-next-window-in-new-group-once): Open the next windows in a
1727 new group (only once) or open all new windows in a new group (like
1728 others windows managers).
1730 2007-04-22 Philippe Brochard <pbrochard@common-lisp.net>
1732 * clfswm.lisp (read-conf-file): New function to read a lisp
1733 configuration file at startup.
1734 (focus-group-under-mouse): Check if group isn't the current group
1735 ( prevent a bug with unclutter ).
1737 2007-03-02 Philippe Brochard <pbrochard@common-lisp.net>
1739 * bindings.lisp (run-program-from-query-string): A program can be
1740 launch from a input query window.
1742 2007-03-01 Philippe Brochard <pbrochard@common-lisp.net>
1744 * clfswm-info.lisp: Fix a bug with banish pointer in info mode.
1746 2007-02-28 Philippe Brochard <pbrochard@common-lisp.net>
1748 * clfswm.lisp (process-new-window): One can now open the next
1749 window in a workspace called by its number.
1751 * clfswm-util.lisp (query-font-string): Minimal editing
1753 (eval-from-string): And an REPL in the window manager... :)
1755 2007-02-26 Philippe Brochard <pbrochard@common-lisp.net>
1757 * clfswm.lisp (process-new-window): One can now open the next
1758 window in a new workspace or a new group.
1760 * clfswm-pager.lisp (pager-mode): Display the next arrow action
1761 with the hidden windows.
1763 * clfswm.lisp (second-key-mode): Display the current workspace
1764 number and the next arrow action in the state window.
1766 * clfswm-pager.lisp (pager-mode): Hide all windows before leaving
1767 the pager mode and then redisplay only the current workspace.
1769 2007-02-25 Philippe Brochard <pbrochard@common-lisp.net>
1771 * clfswm.lisp (add-workspace): Workspaces are now numbered. So
1772 they can be focused with a keypress, sorted or renumbered.
1774 2007-02-24 Philippe Brochard <pbrochard@common-lisp.net>
1776 * clfswm-pager.lisp (pager-mode): Remove multiple silly
1777 pager-draw-display. This prevent a lot of flickering in the
1780 * clfswm.lisp: Remove all display-force-output and replace them
1781 with only one display-finish-output in the event loop.
1783 2006-11-06 Philippe Brochard <pbrochard@common-lisp.net>
1785 * clfswm-pager.lisp (pager-center-group): New function - center a
1786 group at the middle of the screen.
1788 * clfswm-pack.lisp (center-group): New function - center a group
1789 at the middle of the screen.
1791 * clfswm.lisp (show-group): Add a cross line under the group.
1792 (show-group): Group are showned even if fullscreened.
1793 (init-display): Add an exposure event on the root window.
1795 2006-11-05 Philippe Brochard <pbrochard@common-lisp.net>
1797 * package.lisp (*default-group*): Default group is the same size
1798 of a fullscreened group.
1800 * bindings*: Use shift to move, control+shift to copy.
1802 * *.lisp: Add comments for configuration or alternatives. So grep
1803 for CONFIG to see where you can configure clfswm. And grep for
1804 Alternative to use some commented code.
1806 * clfswm.lisp (second-key-mode): Use a single window to show the
1807 second mode. See for alternatives at the end of this file.
1809 2006-11-03 Philippe Brochard <pbrochard@common-lisp.net>
1811 * clfswm-keys.lisp (define-define-key/mouse): Factorisation in a
1812 macro of key and mouse definitions.
1813 (define-define-key/mouse): Use state instead of modifiers list
1814 this fix a bug when the modifiers list is not in the rigth order.
1816 * clfswm.lisp (second-key-mode): Add a colored border in second mode.
1818 2006-11-02 Philippe Brochard <pbrochard@common-lisp.net>
1820 * clfswm-info.lisp (info-mode): Add an info mode.
1822 2006-11-01 Philippe Brochard <pbrochard@common-lisp.net>
1824 * clfswm.lisp (process-new-window): Change border size for
1826 (show-all-windows-in-workspace): Unhide all windows even when the
1827 current group is in fullscreen mode.
1829 2006-10-26 Philippe Brochard <pbrochard@common-lisp.net>
1831 * clfswm-util.lisp (identify-key): Add an exposure handle-event to
1832 redisplay the identify window after a terminal switch.
1834 * clfswm-pager.lisp (pager-mode): Add an exposure handle-event to
1835 redisplay the pager after a terminal switch.
1837 2006-10-24 Philippe Brochard <pbrochard@common-lisp.net>
1839 * clfswm-util.lisp (identify-key): Add a window to display
1840 the keys to identify on screen.
1842 * bindings.lisp, bindings-pager.lisp: Define same keys to
1843 move/copy groups/windows in second mode and in pager.
1845 * clfswm.lisp (handle-event*): Same version in all clfswm (fix some
1847 (show-all-windows-in-workspace): unhide window before adapting it
1850 2006-10-23 Philippe Brochard <pbrochard@common-lisp.net>
1852 * clfswm.lisp (handle-event): Revert to an older version.
1854 2006-10-18 Philippe Brochard <pbrochard@common-lisp.net>
1856 * clfswm-util.lisp (force-window-in-group)
1857 (force-window-center-in-group): New functions for transient windows.
1859 * clfswm-pager.lisp (pager-remove-current-workspace/group):
1860 bugfix: hide all windows before removing group or workspace.
1862 2006-10-17 Philippe Brochard <pbrochard@common-lisp.net>
1864 * bindings-pager.lisp (mouse-pager-move-selected-group)
1865 (mouse-pager-copy-selected-group)
1866 (mouse-pager-move-selected-window)
1867 (mouse-pager-copy-selected-window, mouse-pager-rotate-window-up)
1868 (mouse-pager-rotate-window-down): New functions to have mouse in
1871 * clfswm-pager.lisp (pager-swap-window)
1872 (pager-copy-group-on-next/previous-workspace)
1873 (pager-copy-window-on-next/previous-line): New functions
1875 2006-10-15 Philippe Brochard <pbrochard@common-lisp.net>
1877 * clfswm-pager.lisp (pager-move-window-on-next/previous-line,
1878 (pager-move-group-on-next/previous-workspace): new functions.
1880 * clfswm-pack.lisp (resize-half-x-x-current-group): resize group
1881 to its half size (new functions).
1883 2006-10-11 Philippe Brochard <pbrochard@common-lisp.net>
1885 * clfswm-pager.lisp: workspaces, groups and windows can now be
1886 selectionned with the keyboard or the mouse.
1888 2006-10-09 Philippe Brochard <pbrochard@common-lisp.net>
1890 * clfswm-pager.lisp (pager-select-workspace-right/left):
1891 workspaces can now be selectionned with the keyboard.
1893 2006-10-08 Philippe Brochard <pbrochard@common-lisp.net>
1895 * clfswm-keys.lisp (undefine-main-key, undefine-second-key, undefine-mouse-action):
1896 new function to remove a previous defined key or mouse combination.
1898 2006-10-07 Philippe Brochard <pbrochard@common-lisp.net>
1900 * clfswm.lisp (main): Check for access error in init-display.
1902 * clfswm-keys.lisp (define-ungrab/grab): check for keysym and
1903 keycode before grabbing.
1905 * bindings.lisp: Remove nlambda and use defun to keep the function
1906 documentation with clisp.
1907 (define-shell): new macro to define shell command for the second
1910 2006-10-06 Philippe Brochard <pbrochard@common-lisp.net>
1912 * clfswm-keys.lisp (define-ungrab/grab): use a cond instead of a
1915 2006-10-05 Philippe Brochard <pbrochard@common-lisp.net>
1917 * bindings.lisp (accept-motion): Move group bugfix in upper mouse
1918 workspace circulation.
1920 * clfswm-util.lisp (absorb-orphan-window): new function.
1922 * clfswm-keys.lisp: Keysyms support.
1924 2006-10-02 Philippe Brochard <pbrochard@common-lisp.net>
1926 * clfswm.lisp (show-group): Use one gc for all groups and not one
1929 2006-10-01 Philippe Brochard <pbrochard@common-lisp.net>
1931 * bindings.lisp (define-second-key (#\l :mod-1)): fix a typo.
1933 * clfswm.lisp (adapt-window-to-group): Adapt only windows with
1934 width and height outside group.
1936 2006-09-28 Philippe Brochard <pbrochard@common-lisp.net>
1938 * clfswm.lisp: First public release.