1 2011-02-05 Desmond O. Chang <dochang@gmail.com>
3 * src/keysyms.lisp: Add extended keysyms from stumpwm.
5 2011-02-01 Desmond O. Chang <dochang@gmail.com>
7 * src/clfswm-util.lisp (run-or-raise): New function (thanks to
10 * src/clfswm-internal.lisp (with-all-*): add a nil block.
12 2011-01-28 Desmond O. Chang <dochang@gmail.com>
14 * src/clfswm-util.lisp (xdg-config-home): XDG_CONFIG_HOME should
15 be $HOME/.config by default.
17 2010-12-29 Philippe Brochard <pbrochard@common-lisp.net>
19 * contrib/osd.lisp (display-doc): Add another method where a
20 CLFSWM native window is used to display the key documentation.
22 2010-12-27 Philippe Brochard <pbrochard@common-lisp.net>
24 * src/xlib-util.lisp (with-xlib-protect): Force to revert to the
27 2010-12-25 Philippe Brochard <pbrochard@common-lisp.net>
29 * src/clfswm-second-mode.lisp (second-key-mode): Call the second
30 mode leave function only when the generic mode was ended.
32 2010-12-08 Philippe Brochard <pbrochard@common-lisp.net>
34 * src/clfswm-second-mode.lisp (sm-leave-function): Do not use
35 *second-mode-program* anymore.
37 2010-12-07 Philippe Brochard <pbrochard@common-lisp.net>
39 * src/clfswm-second-mode.lisp (*second-mode-leave-function*): New
40 variable bound to a function executed (when not null) on second
43 2010-11-14 Philippe Brochard <pbrochard@common-lisp.net>
45 * src/clfswm-util.lisp (find-child-under-mouse): Do not find
48 2010-11-13 Philippe Brochard <pbrochard@common-lisp.net>
50 * src/clfswm-expose-mode.lisp (expose-mode-display-accel-windows):
51 Do not display the accel window for unmanaged windows.
53 2010-11-11 Philippe Brochard <pbrochard@common-lisp.net>
55 * src/clfswm-internal.lisp (set-current-root): Handle
56 window-parent in set-current-root.
58 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Do not
59 focus the parent child when the current root is a window.
61 2010-11-09 Philippe Brochard <pbrochard@common-lisp.net>
63 * src/clfswm-expose-mode.lisp (expose-windows-current-child-mode):
64 New function an bindings.
66 * src/clfswm-layout.lisp (tile-layout, set-tile-layout): Fill
69 2010-11-07 Philippe Brochard <pbrochard@common-lisp.net>
71 * src/clfswm-layout.lisp (tile-layout-ask-keep-position): New
72 function to let the user choose to keep child position with
75 * src/clfswm-internal.lisp (remove-frame-data-slot): New
78 2010-11-05 Philippe Brochard <pbrochard@common-lisp.net>
80 * src/clfswm-internal.lisp (frame-select-next-child)
81 (frame-select-previous-child): New functions and bindings. Select
82 the next/previous child in the current frame.
84 2010-10-31 Philippe Brochard <pbrochard@common-lisp.net>
86 * src/clfswm-query.lisp (query-mode-complet): New function: Handle
87 completion in query-mode.
89 2010-10-30 Philippe Brochard <pbrochard@common-lisp.net>
91 * src/clfswm-query.lisp (query-print-string): Handle long lines
94 2010-10-27 Philippe Brochard <pbrochard@common-lisp.net>
96 * src/clfswm-expose-mode.lisp (expose-create-window): Ensure that
97 all characters are printable.
99 2010-10-25 Philippe Brochard <pbrochard@common-lisp.net>
101 * contrib/server/server.lisp: Load clfswm client code in the main
102 program and let the user start it with a --client command line
105 * src/package.lisp (*main-entrance-hook*): New hook executed after
106 loading configuration file and before opening the display.
108 2010-10-23 Philippe Brochard <pbrochard@common-lisp.net>
110 * src/xlib-util.lisp: Remove unnecessary xlib:display-finish-output.
112 * src/clfswm-internal.lisp (show-child): Show window only if not
115 * src/clfswm-keys.lisp (binding-substitute-modifier): Utility to
116 change modifiers after binding definition.
118 2010-10-21 Philippe Brochard <pbrochard@common-lisp.net>
120 * contrib/osd.lisp: New file: OSD (On Screen Display) for
123 * src/clfswm-menu.lisp (open-menu): Modularise function.
125 2010-10-13 Philippe Brochard <pbrochard@common-lisp.net>
127 * src/clfswm-info.lisp (show-first-aid-kit): Display the essential
128 key binding in main and second mode.
130 2010-10-10 Philippe Brochard <pbrochard@common-lisp.net>
132 * src/clfswm-util.lisp (open-notify-window): Convert hello-window
133 functions to a more generic Notify-window system.
135 * src/tools.lisp (add-timer): Add an id to identify the timer.
137 2010-10-09 Philippe Brochard <pbrochard@common-lisp.net>
139 * src/tools.lisp (erase-timer): New function.
141 * src/clfswm-util.lisp (display-hello-window): Add a timer to hide
142 the hello window. Add Configuration variables.
144 2010-10-08 Philippe Brochard <pbrochard@common-lisp.net>
146 * src/clfswm-util.lisp (): Add an Hello window at startup.
148 * src/tools.lisp (process-timers): Add a timer system.
150 2010-10-07 Philippe Brochard <pbrochard@common-lisp.net>
152 * src/clfswm-query.lisp (add-in-query-string): Handle correctly
155 2010-10-06 Philippe Brochard <pbrochard@common-lisp.net>
157 * src/clfswm-query.lisp (query-print-string): Change cursor color
158 and show parenthesis matching with colors (on match and on
161 2010-10-05 Philippe Brochard <pbrochard@common-lisp.net>
163 * src/clfswm-internal.lisp (show-all-children): Do not raise a
164 child when its parent is hidden.
166 2010-10-02 Philippe Brochard <pbrochard@common-lisp.net>
168 * src/clfswm-circulate-mode.lisp (select-next-subchild): Add the
169 possibility to circulate over subchild of the current child.
171 * src/clfswm-expose-mode.lisp (expose-all-windows-mode)
172 (expose-windows-generic): Add an escape-body function to return to
173 the original state on escape key.
175 * src/clfswm-util.lisp (bind-on-slot): Add an optional parameter
176 to bind the current child from the configuration file.
178 2010-10-01 Philippe Brochard <pbrochard@common-lisp.net>
180 * src/clfswm-nw-hooks.lisp (absorb-window-nw-hook): Absorb new
181 window hook: the frame absorb all new windows that match
182 nw-absorb-test frame data slot.
184 2010-09-30 Philippe Brochard <pbrochard@common-lisp.net>
186 * src/clfswm-expose-mode.lisp (expose-create-window): Show window
187 title in accel window.
189 2010-09-29 Philippe Brochard <pbrochard@common-lisp.net>
191 * configure: Use the Xavier Maillard clfswm script in contrib to
192 build an executable in the standard way.
194 2010-09-26 Philippe Brochard <pbrochard@common-lisp.net>
196 * src/clfswm-expose-mode.lisp (expose-mode-display-accel-windows):
197 New functions. Add a window on each child in the expose mode to
200 * src/clfswm-internal.lisp (child-x, child-y, child-width)
201 (child-height): New methods to get real child coordinates.
203 2010-09-25 Philippe Brochard <pbrochard@common-lisp.net>
205 * src/clfswm-layout.lisp (*-layout): Use child-position.
207 * src/clfswm-internal.lisp (child-position): New function.
209 * src/clfswm-expose-mode.lisp (expose-windows-mode)
210 (expose-all-windows-mode): Use a generic mode.
212 * src/xlib-util.lisp (with-handle-event-symbol): Use a filled list
213 with handle-event-fun symbols instead of inspecting clfswm
214 internals symbols on each mode change.
216 * src/clfswm-expose-mode.lisp: Move and rename present*-windows in
217 a separate clfswm-expose-mode.lisp file.
219 * src/clfswm-util.lisp (speed-mouse-right, speed-mouse-down): Use
220 screen size instead of hardcoded test coordinates.
222 2010-09-24 Philippe Brochard <pbrochard@common-lisp.net>
224 * src/clfswm-util.lisp (speed-mouse-reset, speed-mouse-left)
225 (speed-mouse-right, speed-mouse-up, speed-mouse-down)
226 (speed-mouse-undo, speed-mouse-first-history): New functions to
227 quickly move the mouse. Implemented for the second mode.
229 2010-09-16 Philippe Brochard <pbrochard@common-lisp.net>
231 * contrib/clfswm: Move clfswm sources to $tmp_dir if there is no
232 write permission on $clfswm_asd_path. So anybody can start clfswm
233 even if there is no write permission on the source directory.
235 2010-09-12 Philippe Brochard <pbrochard@common-lisp.net>
237 * contrib/clfswm: Add support to cmucl, ccl and ecl.
239 2010-09-11 Philippe Brochard <pbrochard@common-lisp.net>
241 * src/clfswm-util.lisp (set-hide-unmanaged-window)
242 (set-show-unmanaged-window, set-default-hide-unmanaged-window):
243 New functions and menu entry.
244 (set-globally-hide-unmanaged-window)
245 (set-globally-show-unmanaged-window): New functions and menu
248 * src/clfswm-internal.lisp (hide-unmanager-window-p): New
250 (show-child): Add a data slot on frame to hide or not unmanaged
253 * src/clfswm-corner.lisp (present-clfswm-terminal)
254 (present-virtual-keyboard): Use a function (generic-present-body)
255 instead of a macro (generate-present-body).
257 * src/clfswm-util.lisp (update-menus): List all directories and
258 subdirectories in $XDG_DATA_DIRS/applications.
260 2010-09-10 Philippe Brochard <pbrochard@common-lisp.net>
262 * src/clfswm-corner.lisp (generate-present-body): New macro.
263 (present-clfswm-terminal, present-virtual-keyboard): Use
264 generate-present-body.
266 2010-09-09 Philippe Brochard <pbrochard@common-lisp.net>
268 * src/clfswm-util.lisp (update-menus): Follow XDG specifications
269 instead of the non-portable Debian update-menu.
271 2010-09-07 Philippe Brochard <pbrochard@common-lisp.net>
273 * src/clfswm.lisp (error-handler): New function do handle
274 asynchronous errors and ignore them.
275 (open-display): Install the new error-handler on display.
277 2010-09-05 Philippe Brochard <pbrochard@common-lisp.net>
279 * src/xlib-util.lisp (with-xlib-protect): Add a
280 with-simple-restart on top of body execution.
282 2010-09-04 Philippe Brochard <pbrochard@common-lisp.net>
284 * src/clfswm.lisp (main-loop): Protect all xlib functions with an
287 * src/xlib-util.lisp (handle-event): use with-xlib-protect only in
288 handle-event. Add a with-simple-restart to prevent a
289 clisp/new-lisp infinite loop.
291 2010-08-30 Philippe Brochard <pbrochard@common-lisp.net>
293 * src/clfswm-corner.lisp (present-clfswm-terminal): Make the
294 clfswm terminal working even on xterm title changes.
296 2010-08-29 Philippe Brochard <pbrochard@common-lisp.net>
298 * src/clfswm-util.lisp (run-other-window-manager): Update for
301 * src/tools.lisp (do-execute): New parameter io to change the
304 * src/clfswm-util.lisp (hide-current-child): Prevent from removing
307 * src/clfswm-internal.lisp (child-member): New predicate.
308 (child-remove): New function.
310 * src/*.lisp: Use child-member and child-remove everywhere it's
313 2010-08-28 Philippe Brochard <pbrochard@common-lisp.net>
315 * src/clfswm.lisp (main-loop): Ensure that all events have been
316 processed after a process-event.
318 * src/clfswm-internal.lisp (is-in-current-child-p): New function.
320 2010-08-27 Philippe Brochard <pbrochard@common-lisp.net>
322 * src/clfswm.lisp (main-mode:configure-request): Raise the window
323 only when present on the current child and focus it accordingly.
325 2010-08-26 Philippe Brochard <pbrochard@common-lisp.net>
327 * src/clfswm-circulate-mode.lisp (circulate-loop-function):
328 Use is-a-key-pressed-p.
330 * src/xlib-util.lisp (is-a-key-pressed-p): New predicate.
332 * src/clfswm-keys.lisp (define-ungrab/grab): Use all values
333 returned by xlib:keysym->keycodes.
335 * src/*.lisp: Use the new child-equal-p to compare children. This
336 prevent a bug with sbcl/cmucl when the standard equal function
337 does not work with xlib:window.
339 * src/clfswm-internal.lisp (child-equal-p): New predicate.
341 2010-08-25 Philippe Brochard <pbrochard@common-lisp.net>
343 * src/clfswm-generic-mode.lisp (generic-mode): Use an
344 xlib:event-listen before processing event with
345 xlib:process-event. This prevent a bug with CLX threaded
346 implementation like sbcl.
348 * src/clfswm.lisp (main-loop): Use an xlib:event-listen before
349 processing event with xlib:process-event. This prevent a bug with
350 CLX threaded implementation like sbcl.
352 2010-08-17 Philippe Brochard <pbrochard@common-lisp.net>
354 * contrib/server/key.lisp (ushell-sh): Add ccl and ecl support.
356 * src/xlib-util.lisp (compress-motion-notify): Use a loop instead
359 * src/clfswm-internal.lisp (with-find-in-all-frames): New macro.
360 (find-parent-frame, find-frame-window, find-frame-by-name)
361 (find-frame-by-number): Use with-find-in-all-frames to search in
362 frames in the right order.
364 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Fix an
365 unwanted flickering with unmanaged windows.
367 2010-08-16 Philippe Brochard <pbrochard@common-lisp.net>
369 * src/package.lisp: Remove event handler hooks as they're not
370 needed anymore (To replace them: use closure and define-handler).
372 * src/xlib-util.lisp (move-window, resize-window)
373 (wait-mouse-button-release): Use a generic mode.
375 * src/*.lisp: Replace the case to handle event with a more (tricky)
376 lispy method which bind a function to each keywords associated
379 2010-07-23 Philippe Brochard <pbrochard@common-lisp.net>
381 * src/clfswm-util.lisp (delete-current-child): Invert bindings and
382 menu entry between delete-current-child and remove-current-child.
383 ie: Delete a child and its children in all frames by default.
385 2010-07-21 Philippe Brochard <pbrochard@common-lisp.net>
387 * src/package.lisp: Add a placement configuration group.
389 * src/binding*.lisp: Bind control+g to escape the current action
392 * src/clfswm-internal.lisp
393 (delete-child-and-children-in-all-frames): New function and
394 binding: Second mode - Control+Delete delete the current child and
395 its children in all frames (ie: close the current child and its
398 2010-07-20 Philippe Brochard <pbrochard@common-lisp.net>
400 * src/clfswm-internal.lisp (remove-child-in-frame): Do not destroy
401 the frame window and the frame gc. Close a very annoying bug when
402 cuting/pasting a frame or moving a child over frames with the
405 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Redisplay
406 all children in *current-root* after moving/resizing a frame.
408 2010-07-18 Philippe Brochard <pbrochard@common-lisp.net>
410 * src/clfswm-util.lisp (delete-focus-window)
411 (destroy-focus-window): Remove child in parent frame before
414 2010-07-16 Philippe Brochard <pbrochard@common-lisp.net>
416 * src/clfswm-util.lisp (identify-key): Add a timeout in
418 (mouse-click-to-focus-generic): Use find-child-under-mouse instead
419 of the window passed by xlib:process-event.
421 * src/xlib-util.lisp (move-window, resize-window)
422 (wait-mouse-button-release): Add a timeout in xlib:process-event.
424 2010-04-11 Philippe Brochard <pbrochard@common-lisp.net>
426 * src/clfswm-util.lisp (run-other-window-manager): Add the ability
427 to launch an other window manager and to return to clfswm.
429 2010-03-18 Philippe Brochard <pbrochard@common-lisp.net>
431 * src/clfswm-layout.lisp (set-tile-space-layout): Set default
434 2009-12-15 Philippe Brochard <pbrochard@common-lisp.net>
436 * src/clfswm.lisp (main-loop): Add a *loop-hook* parameter and a
439 * src/clfswm-generic-mode.lisp (generic-mode): Add a loop-hook
440 parameter and a loop timeout.
442 2009-12-05 Philippe Brochard <pbrochard@common-lisp.net>
444 * src/clfswm.lisp (main): Add an alternate configuration filename
447 * load.lisp: Add a debuging code example.
449 2009-11-14 Philippe Brochard <pbrochard@common-lisp.net>
451 * src/clfswm-configuration.lisp (create-configuration-menu): New
452 menu to configure all clfswm variables while clfswm is running.
454 2009-11-12 Philippe Brochard <pbrochard@common-lisp.net>
456 * src/clfswm-util.lisp (save-configuration-variables): New
457 function to save all configuration variables in clfswmrc.
459 2009-11-11 Philippe Brochard <pbrochard@common-lisp.net>
461 * src/clfswm-info.lisp (info-mode): Begining of mouse support in
463 (set-default-info-keys): Add cursor key support in info mode.
465 2009-11-08 Philippe Brochard <pbrochard@common-lisp.net>
467 * contrib/reboot-halt.lisp: Add a Suspend/Reboot/Halt menu in
470 * src/clfswm.lisp (main): Add a read-conf-file-p parameter to
471 prevent reading the configuration file (this may be useful to
472 produce the original documentation without user modifications
473 with the rc configuration file).
475 2009-11-07 Philippe Brochard <pbrochard@common-lisp.net>
477 * src/bindings-second-mode.lisp (set-default-second-keys):
478 Simplification of Escape key to close/kill/remove the focus window
479 and unhide all windows.
481 * src/bindings.lisp (set-default-main-keys): Simplification of
482 Escape key to close/kill/remove the focus window and unhide all
485 * src/clfswm-util.lisp (ask-close/kill-current-window): Add remove
486 focus and unhide all windows capabilities.
488 2009-10-10 Philippe Brochard <pbrochard@common-lisp.net>
490 * contrib/mpd.lisp (start-gmpc): Add gmpc in the mpd menu.
492 2009-07-29 Philippe Brochard <pbrochard@common-lisp.net>
494 * src/clfswm-layout.lisp (tile-layout, tile-horizontal-layout):
495 Keep child order and don't make unnecessary child movement.
496 (one-column-layout, one-line-layout): New layouts.
498 2009-06-29 Philippe Brochard <pbrochard@common-lisp.net>
500 * contrib/cd-player.lisp: New file to handle the CD player.
502 * contrib/xmms.lisp: New file to handle the xmms player.
504 2009-06-28 Philippe Brochard <pbrochard@common-lisp.net>
506 * src/clfswm-layout.lisp (set-no-layout-remember-size): New layout:
507 Maximize windows in there frame - Leave frames to there actual
510 * src/bindings-second-mode.lisp (set-default-second-keys): Bind
511 "o" on set-open-in-new-frame-in-parent-frame-nw-hook.
513 2009-06-27 Philippe Brochard <pbrochard@common-lisp.net>
515 * contrib/keyb_fr.lisp: New file to handle an azerty keyboard.
517 2009-06-24 Philippe Brochard <pbrochard@common-lisp.net>
519 * contrib/mpd.lisp: Use a standard menu.
521 * src/clfswm-info.lisp: Use a standard menu for the help-menu.
523 2009-06-22 Philippe Brochard <pbrochard@common-lisp.net>
525 * contrib/mpd.lisp: New file to handle the Music Player Daemon (MPD)
527 2009-06-19 Philippe Brochard <pbrochard@common-lisp.net>
529 * src/clfswm-autodoc.lisp (produce-doc, produce-doc-html): Minor
532 2009-06-18 Philippe Brochard <pbrochard@common-lisp.net>
534 * src/config.lisp (get-fullscreen-size): One pixel adjustment
537 * src/clfswm-placement.lisp (*-child-placement): One pixel
540 2009-06-16 Philippe Brochard <pbrochard@common-lisp.net>
542 * src/clfswm-circulate-mode.lisp (draw-circulate-mode-window):
543 Ensure that all characters are printable.
545 * src/config.lisp (get-fullscreen-size): Adjust default fullscreen
548 * src/clfswm-placement.lisp (*-child-placement): Adjust
549 coordinates to one pixel in the current child.
551 2009-06-04 Philippe Brochard <pbrochard@common-lisp.net>
553 * src/clfswm-query.lisp (query-enter-function): Assign font before
554 width and height calculation.
556 2009-06-03 Philippe Brochard <pbrochard@common-lisp.net>
558 * src/xlib-util.lisp (banish-pointer): Use with-placement macro to
559 bannish the pointer in an arbitrary place.
561 * src/clfswm-info.lisp (info-mode): Use with-placement macro to
562 place the info window in an arbitrary place.
564 * src/clfswm-query.lisp (query-enter-function): Use with-placement
565 macro to place the query window in an arbitrary place.
567 * src/clfswm-placement.lisp: New file. Allow to place info windows
568 or query windows on an arbitrary place. Allow to bannish the
569 pointer on an arbitrary place.
571 2009-05-16 Philippe Brochard <pbrochard@common-lisp.net>
573 * src/clfswm-circulate-mode.lisp (reorder-child)
574 (reorder-brother): Unfocus windows before reordering children or
577 2009-05-13 Philippe Brochard <pbrochard@common-lisp.net>
579 * src/clfswm-circulate-mode.lisp (reorder-brother): Ensure that
580 the parent is a frame.
582 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Handle
583 motion with a default modifier.
585 * src/clfswm.lisp (handle-motion-notify): Handle motion with a
588 * src/clfswm-info.lisp (info-mode): Handle motion with a default
590 (info-mode): Optimization in loop function.
592 2009-05-10 Philippe Brochard <pbrochard@common-lisp.net>
594 * src/clfswm-circulate-mode.lisp (reorder-brother): Handle
595 root-frame correctly.
597 * clfswm.asd: Dependency fix for clfswm-generic-mode.
599 * src/clfswm-circulate-mode.lisp (reorder-child)
600 (reorder-brother): Handle empty frames.
601 (reorder-brother): Redisplay only the parent frame of the current
604 * src/clfswm-util.lisp (frame-toggle-maximize): Redisplay only the
605 parent frame of the current frame.
607 2009-05-09 Philippe Brochard <pbrochard@common-lisp.net>
609 * src/clfswm-util.lisp (frame-toggle-maximize): New function:
610 Maximize/Unmaximize the current frame in its parent frame.
612 * src/clfswm-layout.lisp (maximize-layout): New layout: Maximize
613 windows and frames in there parent frame.
615 2009-05-05 Philippe Brochard <pbrochard@common-lisp.net>
617 * src/*.lisp: Add support for Clozure Common Lisp (CCL).
619 * src/clfswm-circulate-mode.lisp (reorder-child)
620 (reorder-brother): Reinitialise on circulate type change
621 child to brother or brother to child.
623 * src/*.lisp (*): Use map-window instead of xlib:map-window. So
624 calls xlib:display-finish-output on each map-request. So speed up
627 * src/xlib-util.lisp (map-window): New function. Call
628 xlib:display-finish-output on each map request.
630 2009-04-28 Philippe Brochard <pbrochard@common-lisp.net>
632 * src/clfswm-second-mode.lisp (sm-handle-motion-notify):
633 Optimisation when drawing second mode window.
635 2009-04-27 Philippe Brochard <pbrochard@common-lisp.net>
637 * src/clfswm-circulate-mode.lisp (circulate-mode): Optimisation in
640 2009-04-22 Philippe Brochard <pbrochard@common-lisp.net>
642 * src/clfswm-util.lisp (run-program-from-query-string): Launch
643 command only with a return validation.
645 2009-04-22 Xavier Maillard <xma@gnu.org>
647 * src/clfswm-query.lisp (query-string): Use a generic mode.
649 2009-04-19 Xavier Maillard <xma@gnu.org>
651 * src/clfswm-info.lisp (info-mode): Use generic-mode for info-mode.
653 2009-04-18 Xavier Maillard <xma@gnu.org>
655 * src/clfswm-generic-mode.lisp (generic-mode): Add a generic mode
656 to define all other modes.
658 2009-04-05 Philippe Brochard <pbrochard@common-lisp.net>
660 * src/package.lisp (): Use *default-font-string* for all
663 * src/clfswm-info.lisp (info-mode): Ensure integer windows size.
665 2009-02-17 Philippe Brochard <pbrochard@common-lisp.net>
667 * src/xlib-util.lisp (null-size-window-p): Better check of null
670 2009-02-14 Philippe Brochard <pbrochard@common-lisp.net>
672 * src/clfswm.lisp (handle-map-request): Add a fix to manage
673 correctly fullscreen windows (SDL particularly).
675 2008-12-20 Philippe Brochard <pbrochard@common-lisp.net>
677 * src/xlib-util.lisp (get-color): Allocate colors only once -> fix
678 a segfault with clisp/new-clx.
680 * src/clfswm.lisp (handle-motion-notify): Add a needed window
683 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Add a
684 needed window argument.
686 2008-10-30 Philippe Brochard <pbrochard@common-lisp.net>
688 * src/xlib-util.lisp (wait-no-key-or-button-press)
689 (wait-a-key-or-button-press): Check buttons press/release correctly"
691 2008-10-28 Philippe Brochard <pbrochard@common-lisp.net>
693 * src/menu-def.lisp: Add children navigation menu in the movement
694 menu (select next/previous child/brother/level).
696 2008-10-26 Philippe Brochard <pbrochard@common-lisp.net>
698 * *: Rename 'sister' frame to 'brother' frame.
700 * src/clfswm-keys.lisp (unalias-modifiers): Convert a modifier
701 alias in a real modifier.
703 * src/package.lisp (*modifier-alias*): New list of modifier alias
704 For example: :alt is :mod-1, :numlock is :mod-2...
706 * src/tools.lisp (remove-hook): New function.
708 * src/clfswm-keys.lisp (with-capslock, without-capslock)
709 (with-numlock, without-cnumlock): New functions.
711 2008-10-25 Philippe Brochard <pbrochard@common-lisp.net>
713 * src/clfswm-info.lisp: Use the *binding-hook* to create info
714 keys and mouse bindings.
716 * src/bindings-second-mode.lisp: Use the *binding-hook* to create
717 second keys and mouse bindings.
719 * src/bindings.lisp: Use the *binding-hook* to create main keys
722 2008-10-10 Philippe Brochard <pbrochard@common-lisp.net>
724 * src/clfswm-menu.lisp (open-menu): Remember parent menu to undo
727 2008-10-09 Philippe Brochard <pbrochard@common-lisp.net>
729 * src/menu-def.lisp: Use a menu instead of a function for the
732 2008-10-08 Philippe Brochard <pbrochard@common-lisp.net>
734 * src/clfswm-util.lisp (show-standard-menu): Display the standard
735 menu from the 'update-menus' command.
737 2008-10-07 Philippe Brochard <pbrochard@common-lisp.net>
739 * src/clfswm-query.lisp (query-string): Do not ungrab keyboard if
740 it's already grabbed.
742 * src/clfswm-internal.lisp (display-frame-info): Use configurable
743 colors and fix a bug with background.
744 (display-frame-info): Set window background when displaying info.
746 2008-10-06 Philippe Brochard <pbrochard@common-lisp.net>
748 * src/xlib-util.lisp (my-character->keysyms): Use a macro to avoid
749 warning with clisp/new-clx.
751 2008-10-04 Philippe Brochard <pbrochard@common-lisp.net>
753 * src/clfswm-util.lisp (jump-to-slot): Prevent to jump on a
756 2008-09-23 Philippe Brochard <pbrochard@common-lisp.net>
757 * *: **** Release 0809 ****
759 2008-09-23 Philippe Brochard <pbrochard@common-lisp.net>
761 * src/clfswm-util.lisp (ensure-unique-name): New function and menu
763 (ensure-unique-number): New function and menu entry.
765 2008-09-22 Philippe Brochard <pbrochard@common-lisp.net>
767 * src/clfswm-nw-hooks.lisp (named-frame-nw-hook): New new window
768 hook: open the next window in a named frame.
769 (numbered-frame-nw-hook): New new window hook: open the next
770 window in a numbered frame.
772 * src/clfswm-query.lisp (query-string): Grab the keyboard in all
773 cases. So query-string can be called even in the main mode.
775 * src/clfswm-internal.lisp (show-all-children): Do not raise a
776 child by default => far less flickering.
778 2008-09-19 Philippe Brochard <pbrochard@common-lisp.net>
780 * src/bindings-second-mode.lisp: Bind "t" to tile-current-frame.
782 * src/menu-def.lisp: Change key binding for the CLFSWM menu
785 * src/xlib-util.lisp (xgrab-pointer): Handle the case where cursor
786 is nil. (workaround on some CLX implementation).
788 2008-09-12 Philippe Brochard <pbrochard@common-lisp.net>
790 * src/menu-def.lisp: Add a menu to set a focus policy for all
793 * src/clfswm-util.lisp (set-focus-policy-generic-for-all)
794 (all-frames-set-*-focus-policy): Set a focus policy for all
797 * src/clfswm.lisp (handle-enter-notify): sloppy-select
798 mode. Select a child and its parents on mouse over.
800 2008-09-03 Philippe Brochard <pbrochard@common-lisp.net>
802 * src/clfswm.lisp (handle-enter-notify): Add a sloppy strict focus
803 policy -> Sloppy focus only for windows in the current frame.
804 (main-unprotected): Exit clfswm on init error (ie: when another
805 window manager is running).
807 * src/clfswm-util.lisp (reset-clfswm): New function.
809 2008-09-02 Philippe Brochard <pbrochard@common-lisp.net>
811 * src/clfswm-menu.lisp (init-menu): New function.
813 * src/clfswm-util.lisp (reload-clfswm): New function to reload
815 (exit-clfswm): Rename quit-clfswm to exit-clfswm.
817 * src/clfswm.lisp (main, main-unprotected): Handle error in a
818 superior main function. Now CLFSWM can't break the X session. It
819 just reinitialize the display and run a new main loop.
821 * src/clfswm-corner.lisp: Make *clfswm-terminal* and
822 *vt-keyboard-on* global to avoid warnings when loading clfswm.
824 * src/clfswm-layout.lisp: Add a specific GIMP layout menu.
825 (help-on-gimp-layout): Describe how to use the GIMP layout.
827 2008-09-01 Philippe Brochard <pbrochard@common-lisp.net>
829 * src/clfswm-layout.lisp (set-gimp-layout): Change the layout to
830 main-window-right-layout. Change the keybinding for (shift)alt+tab
831 to not select windows in the main window lisst.
832 Bind F8 to add a window in the main window list.
833 Bind F9 to remove a window in the main window list.
834 Change the focus policy to :sloppy.
835 (set-previous-layout): Restore the previous layout, keybinding and
838 2008-08-31 Philippe Brochard <pbrochard@common-lisp.net>
840 * src/clfswm-menu.lisp (add-menu-comment): Add comments in menu.
842 * src/clfswm-layout.lisp (main-window-left-layout)
843 (main-window-bottom-layout, main-window-top-layout): New
845 Factorize layouts in menu.
847 2008-08-30 Philippe Brochard <pbrochard@common-lisp.net>
849 * src/clfswm-layout.lisp (main-window-right-layout): A possible
850 GIMP layout: one or more main windows on one side of the
851 frame. Others on the other size.
853 * src/clfswm-util.lisp
854 (current-frame-set-click/sloppy-focus-policy): Each frame can have
855 a different focus policy (one of :click or :sloppy).
856 The default focus policy is set with *default-focus-policy*.
858 2008-08-23 Philippe Brochard <pbrochard@common-lisp.net>
860 * src/clfswm-info.lisp (show-config-variable): New function.
862 2008-08-19 Philippe Brochard <pbrochard@common-lisp.net>
864 * src/clfswm-layout.lisp (tile-horizontal-layout): New layout.
866 * src/clfswm-info.lisp: Colored help for key binding and corners
869 2008-08-18 Philippe Brochard <pbrochard@common-lisp.net>
871 * src/clfswm-util.lisp (delete-focus-window)
872 (destroy-focus-window): Remove chid only in
873 handle-unmap/destroy-notify. Focus *current-root* only when
874 closing/killing the current child.
876 * src/clfswm-autodoc.lisp (produce-corner-*-doc): New autodoc
877 functions or corners.
879 2008-08-17 Philippe Brochard <pbrochard@common-lisp.net>
881 * src/clfswm-corner.lisp (present-clfswm-terminal): New corner
882 action: Hide/Unhide a terminal on mouse corner action. (By default
883 right mouse button on the top left corner).
885 * src/config.lisp (*never-managed-window-list*): New config
888 * src/clfswm-internal.lisp (never-managed-window-p): New function:
889 Handle never managed window in a more simple way.
891 * src/clfswm-corner.lisp: New file and new and more simple method
892 to define corners actions.
894 2008-08-15 Philippe Brochard <pbrochard@common-lisp.net>
896 * src/clfswm-info.lisp (info-mode): Info line can now be colored.
898 * src/clfswm-layout.lisp (fast-layout-switch)
899 (define-fast-layout-switch): New functions: Switch between two
902 * src/clfswm-second-mode.lisp (leave-second-mode): Takes care if
903 really in the second mode. So leave-second-mode can be used even
906 * src/clfswm-util.lisp (switch-to-last-child): New function:
907 Store the current child and switch to the previous one.
909 2008-07-16 Philippe Brochard <pbrochard@common-lisp.net>
911 * src/clfswm-util.lisp (display-current-window-info): Display the
913 (have-to-present-virtual-keyboard): Add a virtual keyboard corner
914 (top right by default). By default 'xvkbd' is used.
916 2008-06-28 Philippe Brochard <pbrochard@common-lisp.net>
918 * src/xlib-util.lisp (move-window, resize-window): Compress motion
921 * src/clfswm.lisp (handle-motion-notify): Compress motion events.
923 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Compress
926 * src/clfswm-info.lisp (info-mode): Compress motion events.
928 2008-06-21 Philippe Brochard <pbrochard@common-lisp.net>
930 * src/clfswm-internal.lisp (show-all-children): Compute geometry
931 and selection first and then show only necessary children.
932 (show-child): remove unneeded display-p parameter.
934 * src/config.lisp (get-fullscreen-size): Place the frame border
935 outside the screen (this prevent the loose of 2 pixels per
938 2008-06-12 Philippe Brochard <pbrochard@common-lisp.net>
940 * src/clfswm-internal.lisp (focus-child): Algorithm change to
941 raise only the selected child.
943 2008-06-08 Philippe Brochard <pbrochard@common-lisp.net>
945 * src/clfswm-internal.lisp (raise-p-list, show-all-children):
946 Raise only viewable children.
948 2008-06-06 Philippe Brochard <pbrochard@common-lisp.net>
950 * src/clfswm-internal.lisp (show-all-children): Always raise all
951 displayed children. Remove all references to raise-p.
953 2008-06-04 Philippe Brochard <pbrochard@common-lisp.net>
955 * src/menu-def.lisp (child-menu): New menu entry on raise/lower
958 * src/bindings-second-mode.lisp ("Page_Down", "Page_Up"): New
959 second mode binding on raise/lower child in its frame.
961 * src/clfswm-nw-hooks.lisp (leave-focus-frame-nw-hook): Adapt
962 behaviour to the new raise/lower property.
963 Call clear-nw-hook before the rest of the hook.
965 * src/bindings.lisp (mouse-click-to-focus-and-move-window)
966 (mouse-click-to-focus-and-resize-window): Stop button event. This
967 prevent a keyboard/pointer freeze.
969 2008-06-03 Philippe Brochard <pbrochard@common-lisp.net>
971 * src/clfswm-internal.lisp (frame-lower-child)
972 (frame-raise-child): New functions to raise/lower a child in its
975 * src/clfswm-util.lisp (have-to-present-windows)
976 (have-to-present-all-windows): New functions to have an MaxOS
977 expose like on mouse click in screen corner.
979 * src/clfswm-info.lisp ("Page_Down", "Page_Up"): Add boundaries.
981 2008-05-30 Philippe Brochard <pbrochard@common-lisp.net>
983 * src/clfswm-util.lisp (unhide-a-child-from-all-frames): Unhide a
984 child from a choice in all frames with hidden children.
986 * src/clfswm-info.lisp (info-mode-menu): Handle separators.
988 2008-05-28 Philippe Brochard <pbrochard@common-lisp.net>
990 * src/clfswm-util.lisp (hide-current-child, unhide-a-child)
991 (unhide-all-children): New functions.
993 * src/clfswm-info.lisp (info-mode-menu): Handle symbols and
996 * src/clfswm-util.lisp (hide/show-frame-window): new function and
999 2008-05-23 Philippe Brochard <pbrochard@common-lisp.net>
1001 * src/clfswm-util.lisp (rename-current-child): Do not display the
1002 frame info for a window.
1004 2008-05-20 Philippe Brochard <pbrochard@common-lisp.net>
1006 * src/clfswm-internal.lisp (remove-child-in-frame): Destroy the
1007 frame window for the removed child and its children.
1009 2008-05-18 Philippe Brochard <pbrochard@common-lisp.net>
1011 * src/clfswm-autodoc.lisp (produce-*-doc-*): Add a note to use the
1014 2008-05-17 Philippe Brochard <pbrochard@common-lisp.net>
1016 * src/clfswm-nw-hooks.lisp (default-frame-nw-hook): Do not handle
1017 the ROX pinboard (ie: leave it lowered in the root window as
1020 * src/clfswm-layout.lisp (tile-left-space-layout): New layout.
1021 (tile-left-layout, tile-right-layout, tile-top-layout)
1022 (tile-bottom-layout): Use all the frame space when there is only
1025 * src/clfswm-internal.lisp (place-window-from-hints): Center
1026 unmanaged windows in the root screen.
1028 * src/clfswm-nw-hooks.lisp (clear-nw-hook, clear-all-nw-hooks):
1031 2008-05-15 Philippe Brochard <pbrochard@common-lisp.net>
1033 * src/clfswm-util.lisp (current-frame-manage-window-type): Fix a
1034 typo in managed types.
1036 * src/clfswm-internal.lisp (show-child): Always display frame info
1037 even if the frame is hidden.
1039 * src/xlib-util.lisp (resize-window): Use a better algorithme to
1042 2008-05-13 Philippe Brochard <pbrochard@common-lisp.net>
1044 * src/clfswm-util.lisp (with-movement): Display frame info for all
1045 frames in current root.
1047 2008-05-12 Philippe Brochard <pbrochard@common-lisp.net>
1049 * src/*.lisp: Rename 'brother' frames to 'sister' frames.
1051 * src/bindings-second-mode.lisp (define-second-key #\a): New
1052 binding on 'add-default-frame'.
1054 * src/clfswm-autodoc.lisp (produce-*-doc-*-in-file): Show a
1055 message to follow the autodocumentation process.
1057 2008-05-10 Philippe Brochard <pbrochard@common-lisp.net>
1059 * src/clfswm-util.lisp (bind-or-jump): Bind "Tab", "Return" and
1060 "Space" to jump to a child. "B" to bind a slot on the current
1063 * src/bindings-second-mode.lisp: Use "Tab" instead of
1066 2008-05-07 Philippe Brochard <pbrochard@common-lisp.net>
1068 * src/clfswm-util.lisp (find-child-under-mouse): Take care of
1069 unmanaged (hidden) windows.
1071 * src/clfswm-internal.lisp (place-window-from-hints): Give a
1072 minimal size for windows.
1073 (with-all-windows-frames-and-parent): New function.
1075 * src/config.lisp (*default-window-width/height*): New parameters.
1077 * src/clfswm-internal.lisp (place-window-from-hints): Center
1078 windows in the screen instead of in there frame.
1080 * src/bindings-second-mode.lisp (tile-space-current-frame): New
1083 * src/clfswm-layout.lisp (register-layout): Intern the once name
1084 in the right package.
1086 2008-05-05 Philippe Brochard <pbrochard@common-lisp.net>
1088 * doc/dot-clfswmrc: Update to follow the new clfswm way.
1090 2008-05-03 Philippe Brochard <pbrochard@common-lisp.net>
1092 * src/clfswm-internal.lisp (set-current-child)
1093 (adapt-child-to-parent, show-child, hide-child): Handle the case
1094 where child is not a frame or a window.
1096 * src/clfswm-util.lisp
1097 (mouse-click-to-focus-generic,mouse-focus-move/resize-generic):
1098 Check if child is a frame.
1100 * src/clfswm-internal.lisp (managed-window-p): Handle the case
1101 where frame is null.
1102 (place-frame): Check if frame and parent are frames.
1104 * src/clfswm-info.lisp (info-mode): display all frame info before
1107 * src/clfswm-second-mode.lisp (second-key-mode): display all frame
1108 info before leaving.
1110 * src/clfswm-internal.lisp (display-all-frame-info): New function.
1112 2008-05-02 Philippe Brochard <pbrochard@common-lisp.net>
1114 * src/tools.lisp (getenv): Implemented for ECL.
1115 (urun-prog): Implemented for ECL.
1117 * src/clfswm-util.lisp (identify-key): Use a double buffer to
1120 * src/clfswm-query.lisp (query-string): Use a double buffer to
1123 * src/clfswm-info.lisp (draw-info-window): Use a double buffer to
1126 * src/xlib-util.lisp (clear-pixmap-buffer, copy-pixmap-buffer):
1129 2008-05-01 Philippe Brochard <pbrochard@common-lisp.net>
1131 * src/clfswm-info.lisp (info-mode): Add boundaries in the info mode window.
1133 * src/menu-def.lisp: New file: move all menu definition in
1136 * src/clfswm-layout.lisp (register-layout): Use a function instead
1139 2008-04-30 Philippe Brochard <pbrochard@common-lisp.net>
1141 * src/clfswm-autodoc.lisp (produce-menu-doc,
1142 (produce-menu-doc-html): New functions.
1143 (produce-doc-*): Moved to clfswm-autodoc.lisp.
1145 * src/clfswm-util.lisp (paste-selection-no-clear): Prevent to
1146 paste a child on one of its own children. (this prevent a
1148 (move-child-to): Rename move/copy-current-child-by to
1150 (mouse-move-window-over-frame): New function to move the window
1151 under the mouse cursor to another frame.
1153 * src/clfswm-internal.lisp (find-child-in-parent): New function.
1155 2008-04-29 Philippe Brochard <pbrochard@common-lisp.net>
1157 * src/clfswm-internal.lisp (show-all-children): Display unmanaged
1158 windows only when its window parent is the current child.
1160 2008-04-28 Philippe Brochard <pbrochard@common-lisp.net>
1162 * src/clfswm-util.lisp (manage-current-window)
1163 (unmanage-current-window): New functions: Allow to force to manage
1164 or unmanage a window by its parent frame.
1166 * src/bindings-second-mode.lisp (#\o): binded to
1167 set-open-in-new-frame-in-parent-frame-nw-hook and
1168 (#\o :control) to set-open-in-new-frame-in-root-frame-nw-hook
1170 * src/clfswm-util.lisp (with-current-window): New macro.
1172 * src/xlib-util.lisp (move-window, resize-window): Remove uneeded
1173 exposure and enter-window handle event.
1175 * src/clfswm-util.lisp (move-frame, resize-frame): Show all
1176 children for the current child after the move/resize.
1178 2008-04-27 Philippe Brochard <pbrochard@common-lisp.net>
1180 * src/xlib-util.lisp (resize-window): Take care of window size
1183 * src/clfswm-util.lisp (mouse-focus-move/resize-generic): Allow to
1184 move/resize unmanaged windows.
1186 * src/xlib-util.lisp (move-window, resize-window): New functions.
1188 2008-04-25 Philippe Brochard <pbrochard@common-lisp.net>
1190 * src/clfswm-util.lisp (current-frame-manage-window-type): Let the
1191 user choose what window type the current frame must handle.
1192 (display-current-window-info): New function.
1193 (current-frame-manage-all-window-type)
1194 (current-frame-manage-only-normal-window-type)
1195 (current-frame-manage-no-window-type): New functions.
1197 * src/clfswm-internal.lisp (managed-window-p): New function.
1199 * src/package.lisp (frame): Managed type: new frame
1200 parameter. This allow to choose what window type a frame must
1203 * src/*.lisp: Rename all 'father' occurrences to 'parent'.
1205 * src/clfswm-nw-hooks.lisp
1206 (open-in-new-frame-in-parent-frame-nw-hook): New new window hook.
1208 * src/clfswm-util.lisp (adapt-current-frame-to-window-hints): New
1211 * src/tools.lisp (ensure-printable): Return always a string even
1214 2008-04-24 Philippe Brochard <pbrochard@common-lisp.net>
1216 * src/config.lisp (*default-nw-hook*): New variable to change the
1217 default new window hook.
1219 2008-04-22 Philippe Brochard <pbrochard@common-lisp.net>
1221 * clfswm.asd (clfswm): Add a dependency from
1222 clfswm-second-mode.lisp to clfswm.lisp.
1224 * src/clfswm-util.lisp (identify-key): Show the documentation for
1225 the function bound on a key.
1226 (with-movement): Move with-movement,
1227 current-frame-fill/pack/resize-* from bindings-second-mode.lisp
1228 to clfswm-util.lisp.
1230 * src/clfswm-menu.lisp: New menu system that let user change keys
1231 or functions associated to keys.
1233 2008-04-18 Philippe Brochard <pbrochard@common-lisp.net>
1235 * src/clfswm-internal.lisp (show-all-children): Display-child is
1236 the first child by default. Solve a bug with father-p.
1238 2008-04-17 Philippe Brochard <pbrochard@common-lisp.net>
1240 * src/clfswm-internal.lisp (add-frame): Add frame return the
1242 (show-all-children): Move the size computation outside the
1245 * src/bindings-second-mode.lisp (with-movement): Redisplay only
1248 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Redisplay
1249 only the current child.
1251 * src/clfswm-internal.lisp (show-all-children): New display-child
1252 parameter to display only the desired child and its children.
1253 (select-next/previous-child): Only display the current child.
1255 2008-04-14 Philippe Brochard <pbrochard@common-lisp.net>
1257 * src/clfswm.lisp (init-display): Move the default frame creation
1258 on the default init hook.
1260 * src/clfswm-keys.lisp (define-ungrab/grab): Handle all keysyms in
1261 the main mode (for example: "1" on an azerty keyboard).
1263 2008-04-13 Philippe Brochard <pbrochard@common-lisp.net>
1265 * src/clfswm-keys.lisp (find-key-from-code): Better handle of
1266 keysyms. Revert to old grabbing method for the main mode.
1268 2008-04-12 Philippe Brochard <pbrochard@common-lisp.net>
1270 * src/clfswm.lisp (init-display): Add key handling on no focus
1271 window and on frame windows.
1273 2008-04-11 Philippe Brochard <pbrochard@common-lisp.net>
1275 * src/clfswm.lisp (main): Keyboard handle strategie change: Grab
1276 all keys by default and replay just what is needed. No change for
1279 * src/clfswm-keys.lisp: remove grab/ungrab main keys.
1280 (find-key-from-code): Test for shift and not shift presence.
1282 2008-04-09 Philippe Brochard <pbrochard@common-lisp.net>
1284 * src/clfswm-internal.lisp (switch-to-root-frame): show later -
1285 new key parameter to have less flickering.
1287 2008-04-07 Philippe Brochard <pbrochard@common-lisp.net>
1289 * src/bindings-second-mode.lisp (frame-layout-once-menu): Set the
1290 layout only one time and revert to no-layout to freely handle
1293 * src/clfswm-nw-hooks.lisp
1294 (open-in-new-frame-in-root-frame-nw-hook): Tile layout with spaces
1295 with new created window.
1297 * src/clfswm-layout.lisp (register-layout): Now register
1298 automatically a once layout to set the layout only one time and
1299 revert to no-layout to freely handle frames.
1301 2008-04-05 Philippe Brochard <pbrochard@common-lisp.net>
1303 * src/clfswm-nw-hooks.lisp (leave-focus-frame-nw-hook): New
1304 nw-hook: Open the next window in the current frame and leave the
1305 focus to the current child.
1307 2008-04-04 Philippe Brochard <pbrochard@common-lisp.net>
1309 * src/bindings-second-mode.lisp: Add keys definitions to
1310 bind-or-jump in the second mode.
1312 * src/clfswm-util.lisp (bind-or-jump): remove the auto-defining
1313 macro for bind-or-jump-(1|2|3...).
1315 * src/clfswm-keys.lisp (define-define-key/mouse): Allow additional
1316 arguments to function. This allow to do things like:
1317 (define-main-key (key) 'my-function 10 20 'foo) -> 10 20 and 'foo
1318 are passed to my-function on key press.
1320 2008-04-03 Philippe Brochard <pbrochard@common-lisp.net>
1322 * src/clfswm-util.lisp (bind-or-jump): New (great) function.
1324 2008-04-02 Philippe Brochard <pbrochard@common-lisp.net>
1326 * src/clfswm-internal.lisp (child-fullname): New function
1328 * src/clfswm-info.lisp (info-mode-menu): Add an explicit optional
1329 docstring in info-mode-menu. An item can be
1330 '((key function) (key function)) or with docstring
1331 '((key function "documentation 1") (key function "bla bla") (key function))
1333 * src/tools.lisp (ensure-n-elems): New function.
1335 * src/bindings-second-mode.lisp: Bind Alt+mouse-1/3 to move or
1336 resize a frame or the window's father.
1338 * src/clfswm.lisp (init-display): Remove tile-space-layout by
1339 default on the root frame.
1341 * src/clfswm-util.lisp (move/resize-frame): Add standard event
1342 hooks handlers (map-request, configure-notify...)
1344 * src/clfswm-internal.lisp (adapt-child-to-father): Limit minimal
1347 2008-04-01 Philippe Brochard <pbrochard@common-lisp.net>
1349 * src/bindings.lisp: Bind Alt+mouse-1/3 to move or resize a frame
1350 or the window's father.
1352 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Stop button
1353 event only if there is a geometry change.
1354 (mouse-focus-move/resize-generic): Generic function to move or
1355 resize a frame or a window father frame.
1357 2008-04-01 Philippe Brochard <pbrochard@common-lisp.net>
1359 * src/clfswm-internal.lisp (show-all-children): Return t if there
1360 is a geometry change.
1362 2008-03-30 Philippe Brochard <pbrochard@common-lisp.net>
1364 * src/bindings.lisp (Up/Down): Swap select previous/next level.
1366 * src/bindings-second-mode.lisp (Up/Down): Swap select previous/next level.
1368 * src/clfswm.lisp (init-display): Create a default frame in the root frame.
1370 * src/clfswm-internal.lisp (place-frame): Place frame from real (pixel) coordinates.
1371 (with-all-*): Reverse the child list to manage the first child last (like in
1374 * src/config.lisp (*create-frame-on-root*): New variable: Create a new frame on the
1375 root window only if true.
1377 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Create a new frame on the
1378 root window only if *create-frame-on-root* is true.
1380 * src/bindings-second-mode.lisp (sm-mouse-click-to-focus-generic): Create a new frame
1383 2008-03-29 Philippe Brochard <pbrochard@common-lisp.net>
1385 * src/bindings-second-mode.lisp (sm-mouse-click-to-focus-generic): Focus, move and resize
1386 the current child (even if it's a window).
1388 2008-03-28 Philippe Brochard <pbrochard@common-lisp.net>
1390 * src/clfswm-util.lisp (mouse-click-to-focus-and-move)
1391 (mouse-click-to-focus-and-resize): New functions.
1393 * src/clfswm-internal.lisp (*-fl->px): Convert float coordinates to pixel.
1394 (*-px->fl): Convert pixel coordinates to float.
1396 * src/tools.lisp (call-hook): Move call-hook to tools.lisp.
1398 2008-03-27 Philippe Brochard <pbrochard@common-lisp.net>
1400 * src/clfswm-layout.lisp (no-layout): Use :first-only to raise only the
1403 * src/clfswm-internal.lisp (hide-all): Split hide-all-children in hide-all
1404 and hide-all-children.
1405 (raise-if-needed): New function.
1406 (show-child): Use a first-p parameter to raise windows only when they are
1409 2008-03-26 Philippe Brochard <pbrochard@common-lisp.net>
1411 * src/clfswm-internal.lisp (select-next/previous-level): Don't use show-all-children
1414 2008-03-25 Philippe Brochard <pbrochard@common-lisp.net>
1416 * src/clfswm-info.lisp (keys-from-list): new function.
1418 * src/*: rename 'childs' in 'children'.
1420 * src/*: rename 'group' in 'frame'.
1422 2008-03-22 Philippe Brochard <pbrochard@common-lisp.net>
1424 * src/clfswm-pack.lisp (explode-group/explode-current-group): new functions.
1426 2008-03-21 Philippe Brochard <pbrochard@common-lisp.net>
1428 * src/clfswm-pack.lisp: Pack, Fill, Resize functions.
1430 2008-03-16 Philippe Brochard <pbrochard@common-lisp.net>
1432 * src/clfswm-nw-hooks.lisp: Register system for new window hooks.
1433 Bind control+o to open the next window in a new group in the root group
1434 (as open in next window in a new workspace in 0801 version).
1436 2008-03-15 Philippe Brochard <pbrochard@common-lisp.net>
1438 * src/clfswm-util.lisp (show/hide-all-groups-info/key): Show/hide all groups info
1441 2008-03-14 Philippe Brochard <pbrochard@common-lisp.net>
1443 * bindings-second-mode.lisp ("ISO_Left_Tab"): Use ISO_Left_Tab
1444 instead of Tab for select-previous-child.
1446 2008-03-13 Philippe Brochard <pbrochard@common-lisp.net>
1448 * clfswm-util.lisp (force-window-in-group/force-window-center-in-group):
1451 2008-03-11 Philippe Brochard <pbrochard@common-lisp.net>
1453 * clfswm-util.lisp (identify-key): Display the documentation
1454 associated to keys when identifying a key.
1456 2008-03-10 Xavier Maillard <xma@gnu.org>
1458 * contrib/clfswm: Complete rewrite of the script. Detect error and
1459 act accordingly. Add command line arguments to configure the
1460 script execution. User can now choose different common lisp
1461 implementation (clisp and sbcl only), choose where to store the
1462 dumped image, where to find clfswm source.
1464 2008-03-09 Philippe Brochard <pbrochard@common-lisp.net>
1466 * clfswm-internal.lisp (process-new-window): Beginning of new
1467 window hook: each group have a hook to tell what he wants to do
1468 with the new created window.
1470 2008-03-08 Xavier Maillard <xma@gnu.org>
1472 * contrib/clfswm: New script. Dump a CLISP image of CLFSWM then
1473 call the resulting executable.
1475 * clfswm.lisp (read-conf-file): Check for the user config file in
1476 XDG_CONFIG_HOME *first*. Freedesktop.org standards should be
1477 prefered whenever possible.
1479 2008-02-27 Philippe Brochard <pbrochard@common-lisp.net>
1481 * clfswm-layout.lisp (*-layout): Add an optional raise-p
1482 parameter in each layout.
1484 2008-02-26 Philippe Brochard <pbrochard@common-lisp.net>
1486 * clfswm-util.lisp (copy/cut-current-child): Does not affect the
1488 (copy/move-current-child-by-name/number): new functions
1489 (focus-group-by-name/number): new functions
1490 (delete-group-by-name/number): new functions
1492 2008-02-24 Philippe Brochard <pbrochard@common-lisp.net>
1494 * ************************************************************ *
1495 *: Major update - No more reference to workspaces. The main *
1496 structure is a tree of groups or application windows. *
1497 * ************************************************************ *
1499 2008-02-07 Philippe Brochard <pbrochard@common-lisp.net>
1501 * clfswm.lisp (read-conf-file): Read configuration in
1502 $HOME/.clfswmrc or in /etc/clfswmrc or in
1503 $XDG_CONFIG_HOME/clfswm/clfswmrc.
1504 (xdg-config-home): Return the content of $XDG-CONFIG-HOME (default
1507 2008-01-18 Philippe Brochard <pbrochard@common-lisp.net>
1509 * clfswm-internal.lisp (show-all-group): Use *root* and *root-gc*
1512 2008-01-03 Philippe Brochard <pbrochard@common-lisp.net>
1514 * clfswm-internal.lisp (find-window-group): New function.
1516 * clfswm*: Change to make clfswm run with clisp/new-clx.
1518 2008-01-01 Philippe Brochard <pbrochard@common-lisp.net>
1520 * clfswm-util.lisp (query-show-paren): Add show parent matching in
1522 (query-string): Bind control+k to delete end of line.
1524 * clfswm-second-mode.lisp (draw-second-mode-window): Display
1525 the action on mouse motion in second mode.
1527 * clfswm.lisp (handle-exposure): Redisplay groups on exposure
1528 event but do not clear the root window.
1529 (handle-configure-request): Adjust unmanaged window from there
1532 * clfswm-internal.lisp (process-new-window): Adjust new window
1533 with the specified hints (max/min/base width/height).
1535 2007-12-31 Philippe Brochard <pbrochard@common-lisp.net>
1537 * clfswm.lisp (handle-configure-request): Send an Configuration
1538 Notify event. This solve a bug with xterm and rxvt who takes some
1539 times to be mapped. Now there is no delay.
1541 * bindings-second-mode.lisp (define-shell): Run programs after
1542 living the second mode.
1544 2007-12-30 Philippe Brochard <pbrochard@common-lisp.net>
1546 * clfswm-internal.lisp (process-new-window): Do not crop transient
1547 window to group size.
1548 (adapt-window-to-group): Do not crop transient window to group
1551 * clfswm.lisp (handle-configure-request): Adapt just the window to
1552 its group and don't take care of the configure request. Remove the
1553 bug with the Gimp outside the group and speed up the window
1555 (handle-exposure): Remove show-all-group on exposure event
1558 2007-12-29 Philippe Brochard <pbrochard@common-lisp.net>
1560 * clfswm-util.lisp (circulate-group-up-copy-window)
1561 (circulate-group-down-copy-window)
1562 (circulate-workspace-up-copy-group)
1563 (circulate-workspace-down-copy-group): Prevent the copy of the
1564 same window in the same workspace.
1566 * bindings-second-mode.lisp (release-copy-selected-window)
1567 (release-copy-selected-group): Prevent the copy of the same window
1568 in the same workspace.
1570 * clfswm-pager.lisp (generic-pager-move-window-on-previous-line)
1571 (generic-pager-move-window-on-next-line): Remove the copy
1573 (generic-pager-move-group-on-next-workspace)
1574 (generic-pager-move-group-on-previous-workspace): Prevent the copy
1575 of the same window in the same workspace.
1577 * bindings-pager.lisp (mouse-pager-copy-selected-window-release)
1578 (mouse-pager-copy-selected-group-release): Prevent the copy of the
1579 same window in the same workspace.
1581 * tools.lisp (setf/=): new macro to set a variable only when
1584 * clfswm-internal.lisp (adapt-window-to-group): use set/= to set
1585 x, y... only when necessary.
1587 2007-12-28 Philippe Brochard <pbrochard@common-lisp.net>
1589 * clfswm.lisp (handle-configure-notify, *configure-notify-hook*):
1590 new function and hook: force windows to stay in its group (solve a
1593 2007-12-25 Philippe Brochard <pbrochard@common-lisp.net>
1595 * bindings-second-mode.lisp (mouse-motion): use hide-group to have
1596 less flickering when moving/resizing groups.
1598 * clfswm-internal.lisp (hide-group): new function.
1599 (show-all-group): clear-all: new parameter.
1601 2007-12-22 Philippe Brochard <pbrochard@common-lisp.net>
1603 * clfswm-keys.lisp (define-define-key): undefine-*-multi-name: new
1605 * clfswm*: Color change for the pager. Typo or better description
1606 in bindings definitions. Define bindings for a qwerty keyboard by
1607 default. dot-clfswmrc show examples to switch to an azerty
1609 License change to GPL v3.
1610 * config.lisp: new file - group all globals variables in this
1613 2007-08-26 Philippe Brochard <pbrochard@common-lisp.net>
1615 * xlib-util.lisp (hide-window): Remove structure-notivy events
1616 when hidding a window.
1618 2007-05-16 Philippe Brochard <pbrochard@common-lisp.net>
1620 * package.lisp (*sm-property-notify-hook*): Readded
1621 property-notify-hook in second mode.
1623 2007-05-15 Philippe Brochard <pbrochard@common-lisp.net>
1625 * clfswm-keys.lisp (produce-doc-html): Better clean up for strings.
1627 2007-05-13 Philippe Brochard <pbrochard@common-lisp.net>
1629 * clfswm-pack.lisp (tile-current-workspace-to/right/left/top/bottom):
1630 Tile the current workspace with the current window on one side and
1631 others on the other (this emulate the larswm, dwm, wmii way). See
1632 the default configuration file to enable this mode by default.
1634 * clfswm-pager.lisp (pager-tile-current-workspace-to): idem for
1637 2007-05-12 Philippe Brochard <pbrochard@common-lisp.net>
1639 * clfswm-pager.lisp (pager-draw-window-in-group): Add
1640 ensure-printable to print windows name even with non-ascii
1643 2007-05-11 Philippe Brochard <pbrochard@common-lisp.net>
1645 * clfswm-pager.lisp (pager-explode-current-group): Create a new
1646 group for each window in group.
1647 (pager-implode-current-group): Move all windows in workspace to
1648 one group and remove other groups.
1650 * clfswm-pack.lisp (explode-group): Create a new group for each
1652 (implode-group): Move all windows in workspace to one group and
1653 remove other groups.
1655 * clfswm-util.lisp (identify-key): Remove local configuration
1656 variables and made them available for configuration from
1658 (query-string): idem.
1660 2007-04-29 Philippe Brochard <pbrochard@common-lisp.net>
1662 * netwm-util.lisp: Start of NetWM compliance.
1663 Add a Netwm client list gestion.
1665 2007-04-28 Philippe Brochard <pbrochard@common-lisp.net>
1667 * clfswm-internal.lisp (create-group-on-request): open a new group
1668 only when the current group is not empty.
1670 * bindings-second-mode.lisp (define-second-key-#\o-control): Fix a
1671 bug with null workspace.
1673 * clfswm-pager.lisp (pager-handle-event): Add a hook
1674 system. This hooks can be changed in the user configuration file.
1676 * package.lisp: All colors and font variables are set in
1677 package.lisp and can be configured in the user configuration
1679 Note: If you have configured some less ugly colors (esp. for the
1680 pager) don't hesitate to let me know :)
1682 * clfswm-second-mode.lisp (sm-handle-event): Add a hook
1683 system. This hooks can be changed in the user configuration file.
1685 * clfswm.lisp (handle-event): Add a hook system. This hooks can be
1686 changed in the user configuration file (~/.clfswmrc)
1688 2007-04-25 Philippe Brochard <pbrochard@common-lisp.net>
1690 * clfswm-util.lisp (stop-all-pending-actions): new function: reset
1691 arrow action, open next window in new workspace/group.
1693 * bindings.lisp (stop-all-pending-actions): new binding.
1694 (open-next-window-in-new-group-once): Open the next windows in a
1695 new group (only once) or open all new windows in a new group (like
1696 others windows managers).
1698 2007-04-22 Philippe Brochard <pbrochard@common-lisp.net>
1700 * clfswm.lisp (read-conf-file): New function to read a lisp
1701 configuration file at startup.
1702 (focus-group-under-mouse): Check if group isn't the current group
1703 ( prevent a bug with unclutter ).
1705 2007-03-02 Philippe Brochard <pbrochard@common-lisp.net>
1707 * bindings.lisp (run-program-from-query-string): A program can be
1708 launch from a input query window.
1710 2007-03-01 Philippe Brochard <pbrochard@common-lisp.net>
1712 * clfswm-info.lisp: Fix a bug with banish pointer in info mode.
1714 2007-02-28 Philippe Brochard <pbrochard@common-lisp.net>
1716 * clfswm.lisp (process-new-window): One can now open the next
1717 window in a workspace called by its number.
1719 * clfswm-util.lisp (query-font-string): Minimal editing
1721 (eval-from-string): And an REPL in the window manager... :)
1723 2007-02-26 Philippe Brochard <pbrochard@common-lisp.net>
1725 * clfswm.lisp (process-new-window): One can now open the next
1726 window in a new workspace or a new group.
1728 * clfswm-pager.lisp (pager-mode): Display the next arrow action
1729 with the hidden windows.
1731 * clfswm.lisp (second-key-mode): Display the current workspace
1732 number and the next arrow action in the state window.
1734 * clfswm-pager.lisp (pager-mode): Hide all windows before leaving
1735 the pager mode and then redisplay only the current workspace.
1737 2007-02-25 Philippe Brochard <pbrochard@common-lisp.net>
1739 * clfswm.lisp (add-workspace): Workspaces are now numbered. So
1740 they can be focused with a keypress, sorted or renumbered.
1742 2007-02-24 Philippe Brochard <pbrochard@common-lisp.net>
1744 * clfswm-pager.lisp (pager-mode): Remove multiple silly
1745 pager-draw-display. This prevent a lot of flickering in the
1748 * clfswm.lisp: Remove all display-force-output and replace them
1749 with only one display-finish-output in the event loop.
1751 2006-11-06 Philippe Brochard <pbrochard@common-lisp.net>
1753 * clfswm-pager.lisp (pager-center-group): New function - center a
1754 group at the middle of the screen.
1756 * clfswm-pack.lisp (center-group): New function - center a group
1757 at the middle of the screen.
1759 * clfswm.lisp (show-group): Add a cross line under the group.
1760 (show-group): Group are showned even if fullscreened.
1761 (init-display): Add an exposure event on the root window.
1763 2006-11-05 Philippe Brochard <pbrochard@common-lisp.net>
1765 * package.lisp (*default-group*): Default group is the same size
1766 of a fullscreened group.
1768 * bindings*: Use shift to move, control+shift to copy.
1770 * *.lisp: Add comments for configuration or alternatives. So grep
1771 for CONFIG to see where you can configure clfswm. And grep for
1772 Alternative to use some commented code.
1774 * clfswm.lisp (second-key-mode): Use a single window to show the
1775 second mode. See for alternatives at the end of this file.
1777 2006-11-03 Philippe Brochard <pbrochard@common-lisp.net>
1779 * clfswm-keys.lisp (define-define-key/mouse): Factorisation in a
1780 macro of key and mouse definitions.
1781 (define-define-key/mouse): Use state instead of modifiers list
1782 this fix a bug when the modifiers list is not in the rigth order.
1784 * clfswm.lisp (second-key-mode): Add a colored border in second mode.
1786 2006-11-02 Philippe Brochard <pbrochard@common-lisp.net>
1788 * clfswm-info.lisp (info-mode): Add an info mode.
1790 2006-11-01 Philippe Brochard <pbrochard@common-lisp.net>
1792 * clfswm.lisp (process-new-window): Change border size for
1794 (show-all-windows-in-workspace): Unhide all windows even when the
1795 current group is in fullscreen mode.
1797 2006-10-26 Philippe Brochard <pbrochard@common-lisp.net>
1799 * clfswm-util.lisp (identify-key): Add an exposure handle-event to
1800 redisplay the identify window after a terminal switch.
1802 * clfswm-pager.lisp (pager-mode): Add an exposure handle-event to
1803 redisplay the pager after a terminal switch.
1805 2006-10-24 Philippe Brochard <pbrochard@common-lisp.net>
1807 * clfswm-util.lisp (identify-key): Add a window to display
1808 the keys to identify on screen.
1810 * bindings.lisp, bindings-pager.lisp: Define same keys to
1811 move/copy groups/windows in second mode and in pager.
1813 * clfswm.lisp (handle-event*): Same version in all clfswm (fix some
1815 (show-all-windows-in-workspace): unhide window before adapting it
1818 2006-10-23 Philippe Brochard <pbrochard@common-lisp.net>
1820 * clfswm.lisp (handle-event): Revert to an older version.
1822 2006-10-18 Philippe Brochard <pbrochard@common-lisp.net>
1824 * clfswm-util.lisp (force-window-in-group)
1825 (force-window-center-in-group): New functions for transient windows.
1827 * clfswm-pager.lisp (pager-remove-current-workspace/group):
1828 bugfix: hide all windows before removing group or workspace.
1830 2006-10-17 Philippe Brochard <pbrochard@common-lisp.net>
1832 * bindings-pager.lisp (mouse-pager-move-selected-group)
1833 (mouse-pager-copy-selected-group)
1834 (mouse-pager-move-selected-window)
1835 (mouse-pager-copy-selected-window, mouse-pager-rotate-window-up)
1836 (mouse-pager-rotate-window-down): New functions to have mouse in
1839 * clfswm-pager.lisp (pager-swap-window)
1840 (pager-copy-group-on-next/previous-workspace)
1841 (pager-copy-window-on-next/previous-line): New functions
1843 2006-10-15 Philippe Brochard <pbrochard@common-lisp.net>
1845 * clfswm-pager.lisp (pager-move-window-on-next/previous-line,
1846 (pager-move-group-on-next/previous-workspace): new functions.
1848 * clfswm-pack.lisp (resize-half-x-x-current-group): resize group
1849 to its half size (new functions).
1851 2006-10-11 Philippe Brochard <pbrochard@common-lisp.net>
1853 * clfswm-pager.lisp: workspaces, groups and windows can now be
1854 selectionned with the keyboard or the mouse.
1856 2006-10-09 Philippe Brochard <pbrochard@common-lisp.net>
1858 * clfswm-pager.lisp (pager-select-workspace-right/left):
1859 workspaces can now be selectionned with the keyboard.
1861 2006-10-08 Philippe Brochard <pbrochard@common-lisp.net>
1863 * clfswm-keys.lisp (undefine-main-key, undefine-second-key, undefine-mouse-action):
1864 new function to remove a previous defined key or mouse combination.
1866 2006-10-07 Philippe Brochard <pbrochard@common-lisp.net>
1868 * clfswm.lisp (main): Check for access error in init-display.
1870 * clfswm-keys.lisp (define-ungrab/grab): check for keysym and
1871 keycode before grabbing.
1873 * bindings.lisp: Remove nlambda and use defun to keep the function
1874 documentation with clisp.
1875 (define-shell): new macro to define shell command for the second
1878 2006-10-06 Philippe Brochard <pbrochard@common-lisp.net>
1880 * clfswm-keys.lisp (define-ungrab/grab): use a cond instead of a
1883 2006-10-05 Philippe Brochard <pbrochard@common-lisp.net>
1885 * bindings.lisp (accept-motion): Move group bugfix in upper mouse
1886 workspace circulation.
1888 * clfswm-util.lisp (absorb-orphan-window): new function.
1890 * clfswm-keys.lisp: Keysyms support.
1892 2006-10-02 Philippe Brochard <pbrochard@common-lisp.net>
1894 * clfswm.lisp (show-group): Use one gc for all groups and not one
1897 2006-10-01 Philippe Brochard <pbrochard@common-lisp.net>
1899 * bindings.lisp (define-second-key (#\l :mod-1)): fix a typo.
1901 * clfswm.lisp (adapt-window-to-group): Adapt only windows with
1902 width and height outside group.
1904 2006-09-28 Philippe Brochard <pbrochard@common-lisp.net>
1906 * clfswm.lisp: First public release.