1 2010-10-27 Philippe Brochard <pbrochard@common-lisp.net>
3 * src/clfswm-expose-mode.lisp (expose-create-window): Ensure that
4 all characters are printable.
6 2010-10-25 Philippe Brochard <pbrochard@common-lisp.net>
8 * contrib/server/server.lisp: Load clfswm client code in the main
9 program and let the user start it with a --client command line
12 * src/package.lisp (*main-entrance-hook*): New hook executed after
13 loading configuration file and before opening the display.
15 2010-10-23 Philippe Brochard <pbrochard@common-lisp.net>
17 * src/xlib-util.lisp: Remove unnecessary xlib:display-finish-output.
19 * src/clfswm-internal.lisp (show-child): Show window only if not
22 * src/clfswm-keys.lisp (binding-substitute-modifier): Utility to
23 change modifiers after binding definition.
25 2010-10-21 Philippe Brochard <pbrochard@common-lisp.net>
27 * contrib/osd.lisp: New file: OSD (On Screen Display) for
30 * src/clfswm-menu.lisp (open-menu): Modularise function.
32 2010-10-13 Philippe Brochard <pbrochard@common-lisp.net>
34 * src/clfswm-info.lisp (show-first-aid-kit): Display the essential
35 key binding in main and second mode.
37 2010-10-10 Philippe Brochard <pbrochard@common-lisp.net>
39 * src/clfswm-util.lisp (open-notify-window): Convert hello-window
40 functions to a more generic Notify-window system.
42 * src/tools.lisp (add-timer): Add an id to identify the timer.
44 2010-10-09 Philippe Brochard <pbrochard@common-lisp.net>
46 * src/tools.lisp (erase-timer): New function.
48 * src/clfswm-util.lisp (display-hello-window): Add a timer to hide
49 the hello window. Add Configuration variables.
51 2010-10-08 Philippe Brochard <pbrochard@common-lisp.net>
53 * src/clfswm-util.lisp (): Add an Hello window at startup.
55 * src/tools.lisp (process-timers): Add a timer system.
57 2010-10-07 Philippe Brochard <pbrochard@common-lisp.net>
59 * src/clfswm-query.lisp (add-in-query-string): Handle correctly
62 2010-10-06 Philippe Brochard <pbrochard@common-lisp.net>
64 * src/clfswm-query.lisp (query-print-string): Change cursor color
65 and show parenthesis matching with colors (on match and on
68 2010-10-05 Philippe Brochard <pbrochard@common-lisp.net>
70 * src/clfswm-internal.lisp (show-all-children): Do not raise a
71 child when its parent is hidden.
73 2010-10-02 Philippe Brochard <pbrochard@common-lisp.net>
75 * src/clfswm-circulate-mode.lisp (select-next-subchild): Add the
76 possibility to circulate over subchild of the current child.
78 * src/clfswm-expose-mode.lisp (expose-all-windows-mode)
79 (expose-windows-generic): Add an escape-body function to return to
80 the original state on escape key.
82 * src/clfswm-util.lisp (bind-on-slot): Add an optional parameter
83 to bind the current child from the configuration file.
85 2010-10-01 Philippe Brochard <pbrochard@common-lisp.net>
87 * src/clfswm-nw-hooks.lisp (absorb-window-nw-hook): Absorb new
88 window hook: the frame absorb all new windows that match
89 nw-absorb-test frame data slot.
91 2010-09-30 Philippe Brochard <pbrochard@common-lisp.net>
93 * src/clfswm-expose-mode.lisp (expose-create-window): Show window
94 title in accel window.
96 2010-09-29 Philippe Brochard <pbrochard@common-lisp.net>
98 * configure: Use the Xavier Maillard clfswm script in contrib to
99 build an executable in the standard way.
101 2010-09-26 Philippe Brochard <pbrochard@common-lisp.net>
103 * src/clfswm-expose-mode.lisp (expose-mode-display-accel-windows):
104 New functions. Add a window on each child in the expose mode to
107 * src/clfswm-internal.lisp (child-x, child-y, child-width)
108 (child-height): New methods to get real child coordinates.
110 2010-09-25 Philippe Brochard <pbrochard@common-lisp.net>
112 * src/clfswm-layout.lisp (*-layout): Use child-position.
114 * src/clfswm-internal.lisp (child-position): New function.
116 * src/clfswm-expose-mode.lisp (expose-windows-mode)
117 (expose-all-windows-mode): Use a generic mode.
119 * src/xlib-util.lisp (with-handle-event-symbol): Use a filled list
120 with handle-event-fun symbols instead of inspecting clfswm
121 internals symbols on each mode change.
123 * src/clfswm-expose-mode.lisp: Move and rename present*-windows in
124 a separate clfswm-expose-mode.lisp file.
126 * src/clfswm-util.lisp (speed-mouse-right, speed-mouse-down): Use
127 screen size instead of hardcoded test coordinates.
129 2010-09-24 Philippe Brochard <pbrochard@common-lisp.net>
131 * src/clfswm-util.lisp (speed-mouse-reset, speed-mouse-left)
132 (speed-mouse-right, speed-mouse-up, speed-mouse-down)
133 (speed-mouse-undo, speed-mouse-first-history): New functions to
134 quickly move the mouse. Implemented for the second mode.
136 2010-09-16 Philippe Brochard <pbrochard@common-lisp.net>
138 * contrib/clfswm: Move clfswm sources to $tmp_dir if there is no
139 write permission on $clfswm_asd_path. So anybody can start clfswm
140 even if there is no write permission on the source directory.
142 2010-09-12 Philippe Brochard <pbrochard@common-lisp.net>
144 * contrib/clfswm: Add support to cmucl, ccl and ecl.
146 2010-09-11 Philippe Brochard <pbrochard@common-lisp.net>
148 * src/clfswm-util.lisp (set-hide-unmanaged-window)
149 (set-show-unmanaged-window, set-default-hide-unmanaged-window):
150 New functions and menu entry.
151 (set-globally-hide-unmanaged-window)
152 (set-globally-show-unmanaged-window): New functions and menu
155 * src/clfswm-internal.lisp (hide-unmanager-window-p): New
157 (show-child): Add a data slot on frame to hide or not unmanaged
160 * src/clfswm-corner.lisp (present-clfswm-terminal)
161 (present-virtual-keyboard): Use a function (generic-present-body)
162 instead of a macro (generate-present-body).
164 * src/clfswm-util.lisp (update-menus): List all directories and
165 subdirectories in $XDG_DATA_DIRS/applications.
167 2010-09-10 Philippe Brochard <pbrochard@common-lisp.net>
169 * src/clfswm-corner.lisp (generate-present-body): New macro.
170 (present-clfswm-terminal, present-virtual-keyboard): Use
171 generate-present-body.
173 2010-09-09 Philippe Brochard <pbrochard@common-lisp.net>
175 * src/clfswm-util.lisp (update-menus): Follow XDG specifications
176 instead of the non-portable Debian update-menu.
178 2010-09-07 Philippe Brochard <pbrochard@common-lisp.net>
180 * src/clfswm.lisp (error-handler): New function do handle
181 asynchronous errors and ignore them.
182 (open-display): Install the new error-handler on display.
184 2010-09-05 Philippe Brochard <pbrochard@common-lisp.net>
186 * src/xlib-util.lisp (with-xlib-protect): Add a
187 with-simple-restart on top of body execution.
189 2010-09-04 Philippe Brochard <pbrochard@common-lisp.net>
191 * src/clfswm.lisp (main-loop): Protect all xlib functions with an
194 * src/xlib-util.lisp (handle-event): use with-xlib-protect only in
195 handle-event. Add a with-simple-restart to prevent a
196 clisp/new-lisp infinite loop.
198 2010-08-30 Philippe Brochard <pbrochard@common-lisp.net>
200 * src/clfswm-corner.lisp (present-clfswm-terminal): Make the
201 clfswm terminal working even on xterm title changes.
203 2010-08-29 Philippe Brochard <pbrochard@common-lisp.net>
205 * src/clfswm-util.lisp (run-other-window-manager): Update for
208 * src/tools.lisp (do-execute): New parameter io to change the
211 * src/clfswm-util.lisp (hide-current-child): Prevent from removing
214 * src/clfswm-internal.lisp (child-member): New predicate.
215 (child-remove): New function.
217 * src/*.lisp: Use child-member and child-remove everywhere it's
220 2010-08-28 Philippe Brochard <pbrochard@common-lisp.net>
222 * src/clfswm.lisp (main-loop): Ensure that all events have been
223 processed after a process-event.
225 * src/clfswm-internal.lisp (is-in-current-child-p): New function.
227 2010-08-27 Philippe Brochard <pbrochard@common-lisp.net>
229 * src/clfswm.lisp (main-mode:configure-request): Raise the window
230 only when present on the current child and focus it accordingly.
232 2010-08-26 Philippe Brochard <pbrochard@common-lisp.net>
234 * src/clfswm-circulate-mode.lisp (circulate-loop-function):
235 Use is-a-key-pressed-p.
237 * src/xlib-util.lisp (is-a-key-pressed-p): New predicate.
239 * src/clfswm-keys.lisp (define-ungrab/grab): Use all values
240 returned by xlib:keysym->keycodes.
242 * src/*.lisp: Use the new child-equal-p to compare children. This
243 prevent a bug with sbcl/cmucl when the standard equal function
244 does not work with xlib:window.
246 * src/clfswm-internal.lisp (child-equal-p): New predicate.
248 2010-08-25 Philippe Brochard <pbrochard@common-lisp.net>
250 * src/clfswm-generic-mode.lisp (generic-mode): Use an
251 xlib:event-listen before processing event with
252 xlib:process-event. This prevent a bug with CLX threaded
253 implementation like sbcl.
255 * src/clfswm.lisp (main-loop): Use an xlib:event-listen before
256 processing event with xlib:process-event. This prevent a bug with
257 CLX threaded implementation like sbcl.
259 2010-08-17 Philippe Brochard <pbrochard@common-lisp.net>
261 * contrib/server/key.lisp (ushell-sh): Add ccl and ecl support.
263 * src/xlib-util.lisp (compress-motion-notify): Use a loop instead
266 * src/clfswm-internal.lisp (with-find-in-all-frames): New macro.
267 (find-parent-frame, find-frame-window, find-frame-by-name)
268 (find-frame-by-number): Use with-find-in-all-frames to search in
269 frames in the right order.
271 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Fix an
272 unwanted flickering with unmanaged windows.
274 2010-08-16 Philippe Brochard <pbrochard@common-lisp.net>
276 * src/package.lisp: Remove event handler hooks as they're not
277 needed anymore (To replace them: use closure and define-handler).
279 * src/xlib-util.lisp (move-window, resize-window)
280 (wait-mouse-button-release): Use a generic mode.
282 * src/*.lisp: Replace the case to handle event with a more (tricky)
283 lispy method which bind a function to each keywords associated
286 2010-07-23 Philippe Brochard <pbrochard@common-lisp.net>
288 * src/clfswm-util.lisp (delete-current-child): Invert bindings and
289 menu entry between delete-current-child and remove-current-child.
290 ie: Delete a child and its children in all frames by default.
292 2010-07-21 Philippe Brochard <pbrochard@common-lisp.net>
294 * src/package.lisp: Add a placement configuration group.
296 * src/binding*.lisp: Bind control+g to escape the current action
299 * src/clfswm-internal.lisp
300 (delete-child-and-children-in-all-frames): New function and
301 binding: Second mode - Control+Delete delete the current child and
302 its children in all frames (ie: close the current child and its
305 2010-07-20 Philippe Brochard <pbrochard@common-lisp.net>
307 * src/clfswm-internal.lisp (remove-child-in-frame): Do not destroy
308 the frame window and the frame gc. Close a very annoying bug when
309 cuting/pasting a frame or moving a child over frames with the
312 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Redisplay
313 all children in *current-root* after moving/resizing a frame.
315 2010-07-18 Philippe Brochard <pbrochard@common-lisp.net>
317 * src/clfswm-util.lisp (delete-focus-window)
318 (destroy-focus-window): Remove child in parent frame before
321 2010-07-16 Philippe Brochard <pbrochard@common-lisp.net>
323 * src/clfswm-util.lisp (identify-key): Add a timeout in
325 (mouse-click-to-focus-generic): Use find-child-under-mouse instead
326 of the window passed by xlib:process-event.
328 * src/xlib-util.lisp (move-window, resize-window)
329 (wait-mouse-button-release): Add a timeout in xlib:process-event.
331 2010-04-11 Philippe Brochard <pbrochard@common-lisp.net>
333 * src/clfswm-util.lisp (run-other-window-manager): Add the ability
334 to launch an other window manager and to return to clfswm.
336 2010-03-18 Philippe Brochard <pbrochard@common-lisp.net>
338 * src/clfswm-layout.lisp (set-tile-space-layout): Set default
341 2009-12-15 Philippe Brochard <pbrochard@common-lisp.net>
343 * src/clfswm.lisp (main-loop): Add a *loop-hook* parameter and a
346 * src/clfswm-generic-mode.lisp (generic-mode): Add a loop-hook
347 parameter and a loop timeout.
349 2009-12-05 Philippe Brochard <pbrochard@common-lisp.net>
351 * src/clfswm.lisp (main): Add an alternate configuration filename
354 * load.lisp: Add a debuging code example.
356 2009-11-14 Philippe Brochard <pbrochard@common-lisp.net>
358 * src/clfswm-configuration.lisp (create-configuration-menu): New
359 menu to configure all clfswm variables while clfswm is running.
361 2009-11-12 Philippe Brochard <pbrochard@common-lisp.net>
363 * src/clfswm-util.lisp (save-configuration-variables): New
364 function to save all configuration variables in clfswmrc.
366 2009-11-11 Philippe Brochard <pbrochard@common-lisp.net>
368 * src/clfswm-info.lisp (info-mode): Begining of mouse support in
370 (set-default-info-keys): Add cursor key support in info mode.
372 2009-11-08 Philippe Brochard <pbrochard@common-lisp.net>
374 * contrib/reboot-halt.lisp: Add a Suspend/Reboot/Halt menu in
377 * src/clfswm.lisp (main): Add a read-conf-file-p parameter to
378 prevent reading the configuration file (this may be useful to
379 produce the original documentation without user modifications
380 with the rc configuration file).
382 2009-11-07 Philippe Brochard <pbrochard@common-lisp.net>
384 * src/bindings-second-mode.lisp (set-default-second-keys):
385 Simplification of Escape key to close/kill/remove the focus window
386 and unhide all windows.
388 * src/bindings.lisp (set-default-main-keys): Simplification of
389 Escape key to close/kill/remove the focus window and unhide all
392 * src/clfswm-util.lisp (ask-close/kill-current-window): Add remove
393 focus and unhide all windows capabilities.
395 2009-10-10 Philippe Brochard <pbrochard@common-lisp.net>
397 * contrib/mpd.lisp (start-gmpc): Add gmpc in the mpd menu.
399 2009-07-29 Philippe Brochard <pbrochard@common-lisp.net>
401 * src/clfswm-layout.lisp (tile-layout, tile-horizontal-layout):
402 Keep child order and don't make unnecessary child movement.
403 (one-column-layout, one-line-layout): New layouts.
405 2009-06-29 Philippe Brochard <pbrochard@common-lisp.net>
407 * contrib/cd-player.lisp: New file to handle the CD player.
409 * contrib/xmms.lisp: New file to handle the xmms player.
411 2009-06-28 Philippe Brochard <pbrochard@common-lisp.net>
413 * src/clfswm-layout.lisp (set-no-layout-remember-size): New layout:
414 Maximize windows in there frame - Leave frames to there actual
417 * src/bindings-second-mode.lisp (set-default-second-keys): Bind
418 "o" on set-open-in-new-frame-in-parent-frame-nw-hook.
420 2009-06-27 Philippe Brochard <pbrochard@common-lisp.net>
422 * contrib/keyb_fr.lisp: New file to handle an azerty keyboard.
424 2009-06-24 Philippe Brochard <pbrochard@common-lisp.net>
426 * contrib/mpd.lisp: Use a standard menu.
428 * src/clfswm-info.lisp: Use a standard menu for the help-menu.
430 2009-06-22 Philippe Brochard <pbrochard@common-lisp.net>
432 * contrib/mpd.lisp: New file to handle the Music Player Daemon (MPD)
434 2009-06-19 Philippe Brochard <pbrochard@common-lisp.net>
436 * src/clfswm-autodoc.lisp (produce-doc, produce-doc-html): Minor
439 2009-06-18 Philippe Brochard <pbrochard@common-lisp.net>
441 * src/config.lisp (get-fullscreen-size): One pixel adjustment
444 * src/clfswm-placement.lisp (*-child-placement): One pixel
447 2009-06-16 Philippe Brochard <pbrochard@common-lisp.net>
449 * src/clfswm-circulate-mode.lisp (draw-circulate-mode-window):
450 Ensure that all characters are printable.
452 * src/config.lisp (get-fullscreen-size): Adjust default fullscreen
455 * src/clfswm-placement.lisp (*-child-placement): Adjust
456 coordinates to one pixel in the current child.
458 2009-06-04 Philippe Brochard <pbrochard@common-lisp.net>
460 * src/clfswm-query.lisp (query-enter-function): Assign font before
461 width and height calculation.
463 2009-06-03 Philippe Brochard <pbrochard@common-lisp.net>
465 * src/xlib-util.lisp (banish-pointer): Use with-placement macro to
466 bannish the pointer in an arbitrary place.
468 * src/clfswm-info.lisp (info-mode): Use with-placement macro to
469 place the info window in an arbitrary place.
471 * src/clfswm-query.lisp (query-enter-function): Use with-placement
472 macro to place the query window in an arbitrary place.
474 * src/clfswm-placement.lisp: New file. Allow to place info windows
475 or query windows on an arbitrary place. Allow to bannish the
476 pointer on an arbitrary place.
478 2009-05-16 Philippe Brochard <pbrochard@common-lisp.net>
480 * src/clfswm-circulate-mode.lisp (reorder-child)
481 (reorder-brother): Unfocus windows before reordering children or
484 2009-05-13 Philippe Brochard <pbrochard@common-lisp.net>
486 * src/clfswm-circulate-mode.lisp (reorder-brother): Ensure that
487 the parent is a frame.
489 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Handle
490 motion with a default modifier.
492 * src/clfswm.lisp (handle-motion-notify): Handle motion with a
495 * src/clfswm-info.lisp (info-mode): Handle motion with a default
497 (info-mode): Optimization in loop function.
499 2009-05-10 Philippe Brochard <pbrochard@common-lisp.net>
501 * src/clfswm-circulate-mode.lisp (reorder-brother): Handle
502 root-frame correctly.
504 * clfswm.asd: Dependency fix for clfswm-generic-mode.
506 * src/clfswm-circulate-mode.lisp (reorder-child)
507 (reorder-brother): Handle empty frames.
508 (reorder-brother): Redisplay only the parent frame of the current
511 * src/clfswm-util.lisp (frame-toggle-maximize): Redisplay only the
512 parent frame of the current frame.
514 2009-05-09 Philippe Brochard <pbrochard@common-lisp.net>
516 * src/clfswm-util.lisp (frame-toggle-maximize): New function:
517 Maximize/Unmaximize the current frame in its parent frame.
519 * src/clfswm-layout.lisp (maximize-layout): New layout: Maximize
520 windows and frames in there parent frame.
522 2009-05-05 Philippe Brochard <pbrochard@common-lisp.net>
524 * src/*.lisp: Add support for Clozure Common Lisp (CCL).
526 * src/clfswm-circulate-mode.lisp (reorder-child)
527 (reorder-brother): Reinitialise on circulate type change
528 child to brother or brother to child.
530 * src/*.lisp (*): Use map-window instead of xlib:map-window. So
531 calls xlib:display-finish-output on each map-request. So speed up
534 * src/xlib-util.lisp (map-window): New function. Call
535 xlib:display-finish-output on each map request.
537 2009-04-28 Philippe Brochard <pbrochard@common-lisp.net>
539 * src/clfswm-second-mode.lisp (sm-handle-motion-notify):
540 Optimisation when drawing second mode window.
542 2009-04-27 Philippe Brochard <pbrochard@common-lisp.net>
544 * src/clfswm-circulate-mode.lisp (circulate-mode): Optimisation in
547 2009-04-22 Philippe Brochard <pbrochard@common-lisp.net>
549 * src/clfswm-util.lisp (run-program-from-query-string): Launch
550 command only with a return validation.
552 2009-04-22 Xavier Maillard <xma@gnu.org>
554 * src/clfswm-query.lisp (query-string): Use a generic mode.
556 2009-04-19 Xavier Maillard <xma@gnu.org>
558 * src/clfswm-info.lisp (info-mode): Use generic-mode for info-mode.
560 2009-04-18 Xavier Maillard <xma@gnu.org>
562 * src/clfswm-generic-mode.lisp (generic-mode): Add a generic mode
563 to define all other modes.
565 2009-04-05 Philippe Brochard <pbrochard@common-lisp.net>
567 * src/package.lisp (): Use *default-font-string* for all
570 * src/clfswm-info.lisp (info-mode): Ensure integer windows size.
572 2009-02-17 Philippe Brochard <pbrochard@common-lisp.net>
574 * src/xlib-util.lisp (null-size-window-p): Better check of null
577 2009-02-14 Philippe Brochard <pbrochard@common-lisp.net>
579 * src/clfswm.lisp (handle-map-request): Add a fix to manage
580 correctly fullscreen windows (SDL particularly).
582 2008-12-20 Philippe Brochard <pbrochard@common-lisp.net>
584 * src/xlib-util.lisp (get-color): Allocate colors only once -> fix
585 a segfault with clisp/new-clx.
587 * src/clfswm.lisp (handle-motion-notify): Add a needed window
590 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Add a
591 needed window argument.
593 2008-10-30 Philippe Brochard <pbrochard@common-lisp.net>
595 * src/xlib-util.lisp (wait-no-key-or-button-press)
596 (wait-a-key-or-button-press): Check buttons press/release correctly"
598 2008-10-28 Philippe Brochard <pbrochard@common-lisp.net>
600 * src/menu-def.lisp: Add children navigation menu in the movement
601 menu (select next/previous child/brother/level).
603 2008-10-26 Philippe Brochard <pbrochard@common-lisp.net>
605 * *: Rename 'sister' frame to 'brother' frame.
607 * src/clfswm-keys.lisp (unalias-modifiers): Convert a modifier
608 alias in a real modifier.
610 * src/package.lisp (*modifier-alias*): New list of modifier alias
611 For example: :alt is :mod-1, :numlock is :mod-2...
613 * src/tools.lisp (remove-hook): New function.
615 * src/clfswm-keys.lisp (with-capslock, without-capslock)
616 (with-numlock, without-cnumlock): New functions.
618 2008-10-25 Philippe Brochard <pbrochard@common-lisp.net>
620 * src/clfswm-info.lisp: Use the *binding-hook* to create info
621 keys and mouse bindings.
623 * src/bindings-second-mode.lisp: Use the *binding-hook* to create
624 second keys and mouse bindings.
626 * src/bindings.lisp: Use the *binding-hook* to create main keys
629 2008-10-10 Philippe Brochard <pbrochard@common-lisp.net>
631 * src/clfswm-menu.lisp (open-menu): Remember parent menu to undo
634 2008-10-09 Philippe Brochard <pbrochard@common-lisp.net>
636 * src/menu-def.lisp: Use a menu instead of a function for the
639 2008-10-08 Philippe Brochard <pbrochard@common-lisp.net>
641 * src/clfswm-util.lisp (show-standard-menu): Display the standard
642 menu from the 'update-menus' command.
644 2008-10-07 Philippe Brochard <pbrochard@common-lisp.net>
646 * src/clfswm-query.lisp (query-string): Do not ungrab keyboard if
647 it's already grabbed.
649 * src/clfswm-internal.lisp (display-frame-info): Use configurable
650 colors and fix a bug with background.
651 (display-frame-info): Set window background when displaying info.
653 2008-10-06 Philippe Brochard <pbrochard@common-lisp.net>
655 * src/xlib-util.lisp (my-character->keysyms): Use a macro to avoid
656 warning with clisp/new-clx.
658 2008-10-04 Philippe Brochard <pbrochard@common-lisp.net>
660 * src/clfswm-util.lisp (jump-to-slot): Prevent to jump on a
663 2008-09-23 Philippe Brochard <pbrochard@common-lisp.net>
664 * *: **** Release 0809 ****
666 2008-09-23 Philippe Brochard <pbrochard@common-lisp.net>
668 * src/clfswm-util.lisp (ensure-unique-name): New function and menu
670 (ensure-unique-number): New function and menu entry.
672 2008-09-22 Philippe Brochard <pbrochard@common-lisp.net>
674 * src/clfswm-nw-hooks.lisp (named-frame-nw-hook): New new window
675 hook: open the next window in a named frame.
676 (numbered-frame-nw-hook): New new window hook: open the next
677 window in a numbered frame.
679 * src/clfswm-query.lisp (query-string): Grab the keyboard in all
680 cases. So query-string can be called even in the main mode.
682 * src/clfswm-internal.lisp (show-all-children): Do not raise a
683 child by default => far less flickering.
685 2008-09-19 Philippe Brochard <pbrochard@common-lisp.net>
687 * src/bindings-second-mode.lisp: Bind "t" to tile-current-frame.
689 * src/menu-def.lisp: Change key binding for the CLFSWM menu
692 * src/xlib-util.lisp (xgrab-pointer): Handle the case where cursor
693 is nil. (workaround on some CLX implementation).
695 2008-09-12 Philippe Brochard <pbrochard@common-lisp.net>
697 * src/menu-def.lisp: Add a menu to set a focus policy for all
700 * src/clfswm-util.lisp (set-focus-policy-generic-for-all)
701 (all-frames-set-*-focus-policy): Set a focus policy for all
704 * src/clfswm.lisp (handle-enter-notify): sloppy-select
705 mode. Select a child and its parents on mouse over.
707 2008-09-03 Philippe Brochard <pbrochard@common-lisp.net>
709 * src/clfswm.lisp (handle-enter-notify): Add a sloppy strict focus
710 policy -> Sloppy focus only for windows in the current frame.
711 (main-unprotected): Exit clfswm on init error (ie: when another
712 window manager is running).
714 * src/clfswm-util.lisp (reset-clfswm): New function.
716 2008-09-02 Philippe Brochard <pbrochard@common-lisp.net>
718 * src/clfswm-menu.lisp (init-menu): New function.
720 * src/clfswm-util.lisp (reload-clfswm): New function to reload
722 (exit-clfswm): Rename quit-clfswm to exit-clfswm.
724 * src/clfswm.lisp (main, main-unprotected): Handle error in a
725 superior main function. Now CLFSWM can't break the X session. It
726 just reinitialize the display and run a new main loop.
728 * src/clfswm-corner.lisp: Make *clfswm-terminal* and
729 *vt-keyboard-on* global to avoid warnings when loading clfswm.
731 * src/clfswm-layout.lisp: Add a specific GIMP layout menu.
732 (help-on-gimp-layout): Describe how to use the GIMP layout.
734 2008-09-01 Philippe Brochard <pbrochard@common-lisp.net>
736 * src/clfswm-layout.lisp (set-gimp-layout): Change the layout to
737 main-window-right-layout. Change the keybinding for (shift)alt+tab
738 to not select windows in the main window lisst.
739 Bind F8 to add a window in the main window list.
740 Bind F9 to remove a window in the main window list.
741 Change the focus policy to :sloppy.
742 (set-previous-layout): Restore the previous layout, keybinding and
745 2008-08-31 Philippe Brochard <pbrochard@common-lisp.net>
747 * src/clfswm-menu.lisp (add-menu-comment): Add comments in menu.
749 * src/clfswm-layout.lisp (main-window-left-layout)
750 (main-window-bottom-layout, main-window-top-layout): New
752 Factorize layouts in menu.
754 2008-08-30 Philippe Brochard <pbrochard@common-lisp.net>
756 * src/clfswm-layout.lisp (main-window-right-layout): A possible
757 GIMP layout: one or more main windows on one side of the
758 frame. Others on the other size.
760 * src/clfswm-util.lisp
761 (current-frame-set-click/sloppy-focus-policy): Each frame can have
762 a different focus policy (one of :click or :sloppy).
763 The default focus policy is set with *default-focus-policy*.
765 2008-08-23 Philippe Brochard <pbrochard@common-lisp.net>
767 * src/clfswm-info.lisp (show-config-variable): New function.
769 2008-08-19 Philippe Brochard <pbrochard@common-lisp.net>
771 * src/clfswm-layout.lisp (tile-horizontal-layout): New layout.
773 * src/clfswm-info.lisp: Colored help for key binding and corners
776 2008-08-18 Philippe Brochard <pbrochard@common-lisp.net>
778 * src/clfswm-util.lisp (delete-focus-window)
779 (destroy-focus-window): Remove chid only in
780 handle-unmap/destroy-notify. Focus *current-root* only when
781 closing/killing the current child.
783 * src/clfswm-autodoc.lisp (produce-corner-*-doc): New autodoc
784 functions or corners.
786 2008-08-17 Philippe Brochard <pbrochard@common-lisp.net>
788 * src/clfswm-corner.lisp (present-clfswm-terminal): New corner
789 action: Hide/Unhide a terminal on mouse corner action. (By default
790 right mouse button on the top left corner).
792 * src/config.lisp (*never-managed-window-list*): New config
795 * src/clfswm-internal.lisp (never-managed-window-p): New function:
796 Handle never managed window in a more simple way.
798 * src/clfswm-corner.lisp: New file and new and more simple method
799 to define corners actions.
801 2008-08-15 Philippe Brochard <pbrochard@common-lisp.net>
803 * src/clfswm-info.lisp (info-mode): Info line can now be colored.
805 * src/clfswm-layout.lisp (fast-layout-switch)
806 (define-fast-layout-switch): New functions: Switch between two
809 * src/clfswm-second-mode.lisp (leave-second-mode): Takes care if
810 really in the second mode. So leave-second-mode can be used even
813 * src/clfswm-util.lisp (switch-to-last-child): New function:
814 Store the current child and switch to the previous one.
816 2008-07-16 Philippe Brochard <pbrochard@common-lisp.net>
818 * src/clfswm-util.lisp (display-current-window-info): Display the
820 (have-to-present-virtual-keyboard): Add a virtual keyboard corner
821 (top right by default). By default 'xvkbd' is used.
823 2008-06-28 Philippe Brochard <pbrochard@common-lisp.net>
825 * src/xlib-util.lisp (move-window, resize-window): Compress motion
828 * src/clfswm.lisp (handle-motion-notify): Compress motion events.
830 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Compress
833 * src/clfswm-info.lisp (info-mode): Compress motion events.
835 2008-06-21 Philippe Brochard <pbrochard@common-lisp.net>
837 * src/clfswm-internal.lisp (show-all-children): Compute geometry
838 and selection first and then show only necessary children.
839 (show-child): remove unneeded display-p parameter.
841 * src/config.lisp (get-fullscreen-size): Place the frame border
842 outside the screen (this prevent the loose of 2 pixels per
845 2008-06-12 Philippe Brochard <pbrochard@common-lisp.net>
847 * src/clfswm-internal.lisp (focus-child): Algorithm change to
848 raise only the selected child.
850 2008-06-08 Philippe Brochard <pbrochard@common-lisp.net>
852 * src/clfswm-internal.lisp (raise-p-list, show-all-children):
853 Raise only viewable children.
855 2008-06-06 Philippe Brochard <pbrochard@common-lisp.net>
857 * src/clfswm-internal.lisp (show-all-children): Always raise all
858 displayed children. Remove all references to raise-p.
860 2008-06-04 Philippe Brochard <pbrochard@common-lisp.net>
862 * src/menu-def.lisp (child-menu): New menu entry on raise/lower
865 * src/bindings-second-mode.lisp ("Page_Down", "Page_Up"): New
866 second mode binding on raise/lower child in its frame.
868 * src/clfswm-nw-hooks.lisp (leave-focus-frame-nw-hook): Adapt
869 behaviour to the new raise/lower property.
870 Call clear-nw-hook before the rest of the hook.
872 * src/bindings.lisp (mouse-click-to-focus-and-move-window)
873 (mouse-click-to-focus-and-resize-window): Stop button event. This
874 prevent a keyboard/pointer freeze.
876 2008-06-03 Philippe Brochard <pbrochard@common-lisp.net>
878 * src/clfswm-internal.lisp (frame-lower-child)
879 (frame-raise-child): New functions to raise/lower a child in its
882 * src/clfswm-util.lisp (have-to-present-windows)
883 (have-to-present-all-windows): New functions to have an MaxOS
884 expose like on mouse click in screen corner.
886 * src/clfswm-info.lisp ("Page_Down", "Page_Up"): Add boundaries.
888 2008-05-30 Philippe Brochard <pbrochard@common-lisp.net>
890 * src/clfswm-util.lisp (unhide-a-child-from-all-frames): Unhide a
891 child from a choice in all frames with hidden children.
893 * src/clfswm-info.lisp (info-mode-menu): Handle separators.
895 2008-05-28 Philippe Brochard <pbrochard@common-lisp.net>
897 * src/clfswm-util.lisp (hide-current-child, unhide-a-child)
898 (unhide-all-children): New functions.
900 * src/clfswm-info.lisp (info-mode-menu): Handle symbols and
903 * src/clfswm-util.lisp (hide/show-frame-window): new function and
906 2008-05-23 Philippe Brochard <pbrochard@common-lisp.net>
908 * src/clfswm-util.lisp (rename-current-child): Do not display the
909 frame info for a window.
911 2008-05-20 Philippe Brochard <pbrochard@common-lisp.net>
913 * src/clfswm-internal.lisp (remove-child-in-frame): Destroy the
914 frame window for the removed child and its children.
916 2008-05-18 Philippe Brochard <pbrochard@common-lisp.net>
918 * src/clfswm-autodoc.lisp (produce-*-doc-*): Add a note to use the
921 2008-05-17 Philippe Brochard <pbrochard@common-lisp.net>
923 * src/clfswm-nw-hooks.lisp (default-frame-nw-hook): Do not handle
924 the ROX pinboard (ie: leave it lowered in the root window as
927 * src/clfswm-layout.lisp (tile-left-space-layout): New layout.
928 (tile-left-layout, tile-right-layout, tile-top-layout)
929 (tile-bottom-layout): Use all the frame space when there is only
932 * src/clfswm-internal.lisp (place-window-from-hints): Center
933 unmanaged windows in the root screen.
935 * src/clfswm-nw-hooks.lisp (clear-nw-hook, clear-all-nw-hooks):
938 2008-05-15 Philippe Brochard <pbrochard@common-lisp.net>
940 * src/clfswm-util.lisp (current-frame-manage-window-type): Fix a
941 typo in managed types.
943 * src/clfswm-internal.lisp (show-child): Always display frame info
944 even if the frame is hidden.
946 * src/xlib-util.lisp (resize-window): Use a better algorithme to
949 2008-05-13 Philippe Brochard <pbrochard@common-lisp.net>
951 * src/clfswm-util.lisp (with-movement): Display frame info for all
952 frames in current root.
954 2008-05-12 Philippe Brochard <pbrochard@common-lisp.net>
956 * src/*.lisp: Rename 'brother' frames to 'sister' frames.
958 * src/bindings-second-mode.lisp (define-second-key #\a): New
959 binding on 'add-default-frame'.
961 * src/clfswm-autodoc.lisp (produce-*-doc-*-in-file): Show a
962 message to follow the autodocumentation process.
964 2008-05-10 Philippe Brochard <pbrochard@common-lisp.net>
966 * src/clfswm-util.lisp (bind-or-jump): Bind "Tab", "Return" and
967 "Space" to jump to a child. "B" to bind a slot on the current
970 * src/bindings-second-mode.lisp: Use "Tab" instead of
973 2008-05-07 Philippe Brochard <pbrochard@common-lisp.net>
975 * src/clfswm-util.lisp (find-child-under-mouse): Take care of
976 unmanaged (hidden) windows.
978 * src/clfswm-internal.lisp (place-window-from-hints): Give a
979 minimal size for windows.
980 (with-all-windows-frames-and-parent): New function.
982 * src/config.lisp (*default-window-width/height*): New parameters.
984 * src/clfswm-internal.lisp (place-window-from-hints): Center
985 windows in the screen instead of in there frame.
987 * src/bindings-second-mode.lisp (tile-space-current-frame): New
990 * src/clfswm-layout.lisp (register-layout): Intern the once name
991 in the right package.
993 2008-05-05 Philippe Brochard <pbrochard@common-lisp.net>
995 * doc/dot-clfswmrc: Update to follow the new clfswm way.
997 2008-05-03 Philippe Brochard <pbrochard@common-lisp.net>
999 * src/clfswm-internal.lisp (set-current-child)
1000 (adapt-child-to-parent, show-child, hide-child): Handle the case
1001 where child is not a frame or a window.
1003 * src/clfswm-util.lisp
1004 (mouse-click-to-focus-generic,mouse-focus-move/resize-generic):
1005 Check if child is a frame.
1007 * src/clfswm-internal.lisp (managed-window-p): Handle the case
1008 where frame is null.
1009 (place-frame): Check if frame and parent are frames.
1011 * src/clfswm-info.lisp (info-mode): display all frame info before
1014 * src/clfswm-second-mode.lisp (second-key-mode): display all frame
1015 info before leaving.
1017 * src/clfswm-internal.lisp (display-all-frame-info): New function.
1019 2008-05-02 Philippe Brochard <pbrochard@common-lisp.net>
1021 * src/tools.lisp (getenv): Implemented for ECL.
1022 (urun-prog): Implemented for ECL.
1024 * src/clfswm-util.lisp (identify-key): Use a double buffer to
1027 * src/clfswm-query.lisp (query-string): Use a double buffer to
1030 * src/clfswm-info.lisp (draw-info-window): Use a double buffer to
1033 * src/xlib-util.lisp (clear-pixmap-buffer, copy-pixmap-buffer):
1036 2008-05-01 Philippe Brochard <pbrochard@common-lisp.net>
1038 * src/clfswm-info.lisp (info-mode): Add boundaries in the info mode window.
1040 * src/menu-def.lisp: New file: move all menu definition in
1043 * src/clfswm-layout.lisp (register-layout): Use a function instead
1046 2008-04-30 Philippe Brochard <pbrochard@common-lisp.net>
1048 * src/clfswm-autodoc.lisp (produce-menu-doc,
1049 (produce-menu-doc-html): New functions.
1050 (produce-doc-*): Moved to clfswm-autodoc.lisp.
1052 * src/clfswm-util.lisp (paste-selection-no-clear): Prevent to
1053 paste a child on one of its own children. (this prevent a
1055 (move-child-to): Rename move/copy-current-child-by to
1057 (mouse-move-window-over-frame): New function to move the window
1058 under the mouse cursor to another frame.
1060 * src/clfswm-internal.lisp (find-child-in-parent): New function.
1062 2008-04-29 Philippe Brochard <pbrochard@common-lisp.net>
1064 * src/clfswm-internal.lisp (show-all-children): Display unmanaged
1065 windows only when its window parent is the current child.
1067 2008-04-28 Philippe Brochard <pbrochard@common-lisp.net>
1069 * src/clfswm-util.lisp (manage-current-window)
1070 (unmanage-current-window): New functions: Allow to force to manage
1071 or unmanage a window by its parent frame.
1073 * src/bindings-second-mode.lisp (#\o): binded to
1074 set-open-in-new-frame-in-parent-frame-nw-hook and
1075 (#\o :control) to set-open-in-new-frame-in-root-frame-nw-hook
1077 * src/clfswm-util.lisp (with-current-window): New macro.
1079 * src/xlib-util.lisp (move-window, resize-window): Remove uneeded
1080 exposure and enter-window handle event.
1082 * src/clfswm-util.lisp (move-frame, resize-frame): Show all
1083 children for the current child after the move/resize.
1085 2008-04-27 Philippe Brochard <pbrochard@common-lisp.net>
1087 * src/xlib-util.lisp (resize-window): Take care of window size
1090 * src/clfswm-util.lisp (mouse-focus-move/resize-generic): Allow to
1091 move/resize unmanaged windows.
1093 * src/xlib-util.lisp (move-window, resize-window): New functions.
1095 2008-04-25 Philippe Brochard <pbrochard@common-lisp.net>
1097 * src/clfswm-util.lisp (current-frame-manage-window-type): Let the
1098 user choose what window type the current frame must handle.
1099 (display-current-window-info): New function.
1100 (current-frame-manage-all-window-type)
1101 (current-frame-manage-only-normal-window-type)
1102 (current-frame-manage-no-window-type): New functions.
1104 * src/clfswm-internal.lisp (managed-window-p): New function.
1106 * src/package.lisp (frame): Managed type: new frame
1107 parameter. This allow to choose what window type a frame must
1110 * src/*.lisp: Rename all 'father' occurrences to 'parent'.
1112 * src/clfswm-nw-hooks.lisp
1113 (open-in-new-frame-in-parent-frame-nw-hook): New new window hook.
1115 * src/clfswm-util.lisp (adapt-current-frame-to-window-hints): New
1118 * src/tools.lisp (ensure-printable): Return always a string even
1121 2008-04-24 Philippe Brochard <pbrochard@common-lisp.net>
1123 * src/config.lisp (*default-nw-hook*): New variable to change the
1124 default new window hook.
1126 2008-04-22 Philippe Brochard <pbrochard@common-lisp.net>
1128 * clfswm.asd (clfswm): Add a dependency from
1129 clfswm-second-mode.lisp to clfswm.lisp.
1131 * src/clfswm-util.lisp (identify-key): Show the documentation for
1132 the function bound on a key.
1133 (with-movement): Move with-movement,
1134 current-frame-fill/pack/resize-* from bindings-second-mode.lisp
1135 to clfswm-util.lisp.
1137 * src/clfswm-menu.lisp: New menu system that let user change keys
1138 or functions associated to keys.
1140 2008-04-18 Philippe Brochard <pbrochard@common-lisp.net>
1142 * src/clfswm-internal.lisp (show-all-children): Display-child is
1143 the first child by default. Solve a bug with father-p.
1145 2008-04-17 Philippe Brochard <pbrochard@common-lisp.net>
1147 * src/clfswm-internal.lisp (add-frame): Add frame return the
1149 (show-all-children): Move the size computation outside the
1152 * src/bindings-second-mode.lisp (with-movement): Redisplay only
1155 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Redisplay
1156 only the current child.
1158 * src/clfswm-internal.lisp (show-all-children): New display-child
1159 parameter to display only the desired child and its children.
1160 (select-next/previous-child): Only display the current child.
1162 2008-04-14 Philippe Brochard <pbrochard@common-lisp.net>
1164 * src/clfswm.lisp (init-display): Move the default frame creation
1165 on the default init hook.
1167 * src/clfswm-keys.lisp (define-ungrab/grab): Handle all keysyms in
1168 the main mode (for example: "1" on an azerty keyboard).
1170 2008-04-13 Philippe Brochard <pbrochard@common-lisp.net>
1172 * src/clfswm-keys.lisp (find-key-from-code): Better handle of
1173 keysyms. Revert to old grabbing method for the main mode.
1175 2008-04-12 Philippe Brochard <pbrochard@common-lisp.net>
1177 * src/clfswm.lisp (init-display): Add key handling on no focus
1178 window and on frame windows.
1180 2008-04-11 Philippe Brochard <pbrochard@common-lisp.net>
1182 * src/clfswm.lisp (main): Keyboard handle strategie change: Grab
1183 all keys by default and replay just what is needed. No change for
1186 * src/clfswm-keys.lisp: remove grab/ungrab main keys.
1187 (find-key-from-code): Test for shift and not shift presence.
1189 2008-04-09 Philippe Brochard <pbrochard@common-lisp.net>
1191 * src/clfswm-internal.lisp (switch-to-root-frame): show later -
1192 new key parameter to have less flickering.
1194 2008-04-07 Philippe Brochard <pbrochard@common-lisp.net>
1196 * src/bindings-second-mode.lisp (frame-layout-once-menu): Set the
1197 layout only one time and revert to no-layout to freely handle
1200 * src/clfswm-nw-hooks.lisp
1201 (open-in-new-frame-in-root-frame-nw-hook): Tile layout with spaces
1202 with new created window.
1204 * src/clfswm-layout.lisp (register-layout): Now register
1205 automatically a once layout to set the layout only one time and
1206 revert to no-layout to freely handle frames.
1208 2008-04-05 Philippe Brochard <pbrochard@common-lisp.net>
1210 * src/clfswm-nw-hooks.lisp (leave-focus-frame-nw-hook): New
1211 nw-hook: Open the next window in the current frame and leave the
1212 focus to the current child.
1214 2008-04-04 Philippe Brochard <pbrochard@common-lisp.net>
1216 * src/bindings-second-mode.lisp: Add keys definitions to
1217 bind-or-jump in the second mode.
1219 * src/clfswm-util.lisp (bind-or-jump): remove the auto-defining
1220 macro for bind-or-jump-(1|2|3...).
1222 * src/clfswm-keys.lisp (define-define-key/mouse): Allow additional
1223 arguments to function. This allow to do things like:
1224 (define-main-key (key) 'my-function 10 20 'foo) -> 10 20 and 'foo
1225 are passed to my-function on key press.
1227 2008-04-03 Philippe Brochard <pbrochard@common-lisp.net>
1229 * src/clfswm-util.lisp (bind-or-jump): New (great) function.
1231 2008-04-02 Philippe Brochard <pbrochard@common-lisp.net>
1233 * src/clfswm-internal.lisp (child-fullname): New function
1235 * src/clfswm-info.lisp (info-mode-menu): Add an explicit optional
1236 docstring in info-mode-menu. An item can be
1237 '((key function) (key function)) or with docstring
1238 '((key function "documentation 1") (key function "bla bla") (key function))
1240 * src/tools.lisp (ensure-n-elems): New function.
1242 * src/bindings-second-mode.lisp: Bind Alt+mouse-1/3 to move or
1243 resize a frame or the window's father.
1245 * src/clfswm.lisp (init-display): Remove tile-space-layout by
1246 default on the root frame.
1248 * src/clfswm-util.lisp (move/resize-frame): Add standard event
1249 hooks handlers (map-request, configure-notify...)
1251 * src/clfswm-internal.lisp (adapt-child-to-father): Limit minimal
1254 2008-04-01 Philippe Brochard <pbrochard@common-lisp.net>
1256 * src/bindings.lisp: Bind Alt+mouse-1/3 to move or resize a frame
1257 or the window's father.
1259 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Stop button
1260 event only if there is a geometry change.
1261 (mouse-focus-move/resize-generic): Generic function to move or
1262 resize a frame or a window father frame.
1264 2008-04-01 Philippe Brochard <pbrochard@common-lisp.net>
1266 * src/clfswm-internal.lisp (show-all-children): Return t if there
1267 is a geometry change.
1269 2008-03-30 Philippe Brochard <pbrochard@common-lisp.net>
1271 * src/bindings.lisp (Up/Down): Swap select previous/next level.
1273 * src/bindings-second-mode.lisp (Up/Down): Swap select previous/next level.
1275 * src/clfswm.lisp (init-display): Create a default frame in the root frame.
1277 * src/clfswm-internal.lisp (place-frame): Place frame from real (pixel) coordinates.
1278 (with-all-*): Reverse the child list to manage the first child last (like in
1281 * src/config.lisp (*create-frame-on-root*): New variable: Create a new frame on the
1282 root window only if true.
1284 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Create a new frame on the
1285 root window only if *create-frame-on-root* is true.
1287 * src/bindings-second-mode.lisp (sm-mouse-click-to-focus-generic): Create a new frame
1290 2008-03-29 Philippe Brochard <pbrochard@common-lisp.net>
1292 * src/bindings-second-mode.lisp (sm-mouse-click-to-focus-generic): Focus, move and resize
1293 the current child (even if it's a window).
1295 2008-03-28 Philippe Brochard <pbrochard@common-lisp.net>
1297 * src/clfswm-util.lisp (mouse-click-to-focus-and-move)
1298 (mouse-click-to-focus-and-resize): New functions.
1300 * src/clfswm-internal.lisp (*-fl->px): Convert float coordinates to pixel.
1301 (*-px->fl): Convert pixel coordinates to float.
1303 * src/tools.lisp (call-hook): Move call-hook to tools.lisp.
1305 2008-03-27 Philippe Brochard <pbrochard@common-lisp.net>
1307 * src/clfswm-layout.lisp (no-layout): Use :first-only to raise only the
1310 * src/clfswm-internal.lisp (hide-all): Split hide-all-children in hide-all
1311 and hide-all-children.
1312 (raise-if-needed): New function.
1313 (show-child): Use a first-p parameter to raise windows only when they are
1316 2008-03-26 Philippe Brochard <pbrochard@common-lisp.net>
1318 * src/clfswm-internal.lisp (select-next/previous-level): Don't use show-all-children
1321 2008-03-25 Philippe Brochard <pbrochard@common-lisp.net>
1323 * src/clfswm-info.lisp (keys-from-list): new function.
1325 * src/*: rename 'childs' in 'children'.
1327 * src/*: rename 'group' in 'frame'.
1329 2008-03-22 Philippe Brochard <pbrochard@common-lisp.net>
1331 * src/clfswm-pack.lisp (explode-group/explode-current-group): new functions.
1333 2008-03-21 Philippe Brochard <pbrochard@common-lisp.net>
1335 * src/clfswm-pack.lisp: Pack, Fill, Resize functions.
1337 2008-03-16 Philippe Brochard <pbrochard@common-lisp.net>
1339 * src/clfswm-nw-hooks.lisp: Register system for new window hooks.
1340 Bind control+o to open the next window in a new group in the root group
1341 (as open in next window in a new workspace in 0801 version).
1343 2008-03-15 Philippe Brochard <pbrochard@common-lisp.net>
1345 * src/clfswm-util.lisp (show/hide-all-groups-info/key): Show/hide all groups info
1348 2008-03-14 Philippe Brochard <pbrochard@common-lisp.net>
1350 * bindings-second-mode.lisp ("ISO_Left_Tab"): Use ISO_Left_Tab
1351 instead of Tab for select-previous-child.
1353 2008-03-13 Philippe Brochard <pbrochard@common-lisp.net>
1355 * clfswm-util.lisp (force-window-in-group/force-window-center-in-group):
1358 2008-03-11 Philippe Brochard <pbrochard@common-lisp.net>
1360 * clfswm-util.lisp (identify-key): Display the documentation
1361 associated to keys when identifying a key.
1363 2008-03-10 Xavier Maillard <xma@gnu.org>
1365 * contrib/clfswm: Complete rewrite of the script. Detect error and
1366 act accordingly. Add command line arguments to configure the
1367 script execution. User can now choose different common lisp
1368 implementation (clisp and sbcl only), choose where to store the
1369 dumped image, where to find clfswm source.
1371 2008-03-09 Philippe Brochard <pbrochard@common-lisp.net>
1373 * clfswm-internal.lisp (process-new-window): Beginning of new
1374 window hook: each group have a hook to tell what he wants to do
1375 with the new created window.
1377 2008-03-08 Xavier Maillard <xma@gnu.org>
1379 * contrib/clfswm: New script. Dump a CLISP image of CLFSWM then
1380 call the resulting executable.
1382 * clfswm.lisp (read-conf-file): Check for the user config file in
1383 XDG_CONFIG_HOME *first*. Freedesktop.org standards should be
1384 prefered whenever possible.
1386 2008-02-27 Philippe Brochard <pbrochard@common-lisp.net>
1388 * clfswm-layout.lisp (*-layout): Add an optional raise-p
1389 parameter in each layout.
1391 2008-02-26 Philippe Brochard <pbrochard@common-lisp.net>
1393 * clfswm-util.lisp (copy/cut-current-child): Does not affect the
1395 (copy/move-current-child-by-name/number): new functions
1396 (focus-group-by-name/number): new functions
1397 (delete-group-by-name/number): new functions
1399 2008-02-24 Philippe Brochard <pbrochard@common-lisp.net>
1401 * ************************************************************ *
1402 *: Major update - No more reference to workspaces. The main *
1403 structure is a tree of groups or application windows. *
1404 * ************************************************************ *
1406 2008-02-07 Philippe Brochard <pbrochard@common-lisp.net>
1408 * clfswm.lisp (read-conf-file): Read configuration in
1409 $HOME/.clfswmrc or in /etc/clfswmrc or in
1410 $XDG_CONFIG_HOME/clfswm/clfswmrc.
1411 (xdg-config-home): Return the content of $XDG-CONFIG-HOME (default
1414 2008-01-18 Philippe Brochard <pbrochard@common-lisp.net>
1416 * clfswm-internal.lisp (show-all-group): Use *root* and *root-gc*
1419 2008-01-03 Philippe Brochard <pbrochard@common-lisp.net>
1421 * clfswm-internal.lisp (find-window-group): New function.
1423 * clfswm*: Change to make clfswm run with clisp/new-clx.
1425 2008-01-01 Philippe Brochard <pbrochard@common-lisp.net>
1427 * clfswm-util.lisp (query-show-paren): Add show parent matching in
1429 (query-string): Bind control+k to delete end of line.
1431 * clfswm-second-mode.lisp (draw-second-mode-window): Display
1432 the action on mouse motion in second mode.
1434 * clfswm.lisp (handle-exposure): Redisplay groups on exposure
1435 event but do not clear the root window.
1436 (handle-configure-request): Adjust unmanaged window from there
1439 * clfswm-internal.lisp (process-new-window): Adjust new window
1440 with the specified hints (max/min/base width/height).
1442 2007-12-31 Philippe Brochard <pbrochard@common-lisp.net>
1444 * clfswm.lisp (handle-configure-request): Send an Configuration
1445 Notify event. This solve a bug with xterm and rxvt who takes some
1446 times to be mapped. Now there is no delay.
1448 * bindings-second-mode.lisp (define-shell): Run programs after
1449 living the second mode.
1451 2007-12-30 Philippe Brochard <pbrochard@common-lisp.net>
1453 * clfswm-internal.lisp (process-new-window): Do not crop transient
1454 window to group size.
1455 (adapt-window-to-group): Do not crop transient window to group
1458 * clfswm.lisp (handle-configure-request): Adapt just the window to
1459 its group and don't take care of the configure request. Remove the
1460 bug with the Gimp outside the group and speed up the window
1462 (handle-exposure): Remove show-all-group on exposure event
1465 2007-12-29 Philippe Brochard <pbrochard@common-lisp.net>
1467 * clfswm-util.lisp (circulate-group-up-copy-window)
1468 (circulate-group-down-copy-window)
1469 (circulate-workspace-up-copy-group)
1470 (circulate-workspace-down-copy-group): Prevent the copy of the
1471 same window in the same workspace.
1473 * bindings-second-mode.lisp (release-copy-selected-window)
1474 (release-copy-selected-group): Prevent the copy of the same window
1475 in the same workspace.
1477 * clfswm-pager.lisp (generic-pager-move-window-on-previous-line)
1478 (generic-pager-move-window-on-next-line): Remove the copy
1480 (generic-pager-move-group-on-next-workspace)
1481 (generic-pager-move-group-on-previous-workspace): Prevent the copy
1482 of the same window in the same workspace.
1484 * bindings-pager.lisp (mouse-pager-copy-selected-window-release)
1485 (mouse-pager-copy-selected-group-release): Prevent the copy of the
1486 same window in the same workspace.
1488 * tools.lisp (setf/=): new macro to set a variable only when
1491 * clfswm-internal.lisp (adapt-window-to-group): use set/= to set
1492 x, y... only when necessary.
1494 2007-12-28 Philippe Brochard <pbrochard@common-lisp.net>
1496 * clfswm.lisp (handle-configure-notify, *configure-notify-hook*):
1497 new function and hook: force windows to stay in its group (solve a
1500 2007-12-25 Philippe Brochard <pbrochard@common-lisp.net>
1502 * bindings-second-mode.lisp (mouse-motion): use hide-group to have
1503 less flickering when moving/resizing groups.
1505 * clfswm-internal.lisp (hide-group): new function.
1506 (show-all-group): clear-all: new parameter.
1508 2007-12-22 Philippe Brochard <pbrochard@common-lisp.net>
1510 * clfswm-keys.lisp (define-define-key): undefine-*-multi-name: new
1512 * clfswm*: Color change for the pager. Typo or better description
1513 in bindings definitions. Define bindings for a qwerty keyboard by
1514 default. dot-clfswmrc show examples to switch to an azerty
1516 License change to GPL v3.
1517 * config.lisp: new file - group all globals variables in this
1520 2007-08-26 Philippe Brochard <pbrochard@common-lisp.net>
1522 * xlib-util.lisp (hide-window): Remove structure-notivy events
1523 when hidding a window.
1525 2007-05-16 Philippe Brochard <pbrochard@common-lisp.net>
1527 * package.lisp (*sm-property-notify-hook*): Readded
1528 property-notify-hook in second mode.
1530 2007-05-15 Philippe Brochard <pbrochard@common-lisp.net>
1532 * clfswm-keys.lisp (produce-doc-html): Better clean up for strings.
1534 2007-05-13 Philippe Brochard <pbrochard@common-lisp.net>
1536 * clfswm-pack.lisp (tile-current-workspace-to/right/left/top/bottom):
1537 Tile the current workspace with the current window on one side and
1538 others on the other (this emulate the larswm, dwm, wmii way). See
1539 the default configuration file to enable this mode by default.
1541 * clfswm-pager.lisp (pager-tile-current-workspace-to): idem for
1544 2007-05-12 Philippe Brochard <pbrochard@common-lisp.net>
1546 * clfswm-pager.lisp (pager-draw-window-in-group): Add
1547 ensure-printable to print windows name even with non-ascii
1550 2007-05-11 Philippe Brochard <pbrochard@common-lisp.net>
1552 * clfswm-pager.lisp (pager-explode-current-group): Create a new
1553 group for each window in group.
1554 (pager-implode-current-group): Move all windows in workspace to
1555 one group and remove other groups.
1557 * clfswm-pack.lisp (explode-group): Create a new group for each
1559 (implode-group): Move all windows in workspace to one group and
1560 remove other groups.
1562 * clfswm-util.lisp (identify-key): Remove local configuration
1563 variables and made them available for configuration from
1565 (query-string): idem.
1567 2007-04-29 Philippe Brochard <pbrochard@common-lisp.net>
1569 * netwm-util.lisp: Start of NetWM compliance.
1570 Add a Netwm client list gestion.
1572 2007-04-28 Philippe Brochard <pbrochard@common-lisp.net>
1574 * clfswm-internal.lisp (create-group-on-request): open a new group
1575 only when the current group is not empty.
1577 * bindings-second-mode.lisp (define-second-key-#\o-control): Fix a
1578 bug with null workspace.
1580 * clfswm-pager.lisp (pager-handle-event): Add a hook
1581 system. This hooks can be changed in the user configuration file.
1583 * package.lisp: All colors and font variables are set in
1584 package.lisp and can be configured in the user configuration
1586 Note: If you have configured some less ugly colors (esp. for the
1587 pager) don't hesitate to let me know :)
1589 * clfswm-second-mode.lisp (sm-handle-event): Add a hook
1590 system. This hooks can be changed in the user configuration file.
1592 * clfswm.lisp (handle-event): Add a hook system. This hooks can be
1593 changed in the user configuration file (~/.clfswmrc)
1595 2007-04-25 Philippe Brochard <pbrochard@common-lisp.net>
1597 * clfswm-util.lisp (stop-all-pending-actions): new function: reset
1598 arrow action, open next window in new workspace/group.
1600 * bindings.lisp (stop-all-pending-actions): new binding.
1601 (open-next-window-in-new-group-once): Open the next windows in a
1602 new group (only once) or open all new windows in a new group (like
1603 others windows managers).
1605 2007-04-22 Philippe Brochard <pbrochard@common-lisp.net>
1607 * clfswm.lisp (read-conf-file): New function to read a lisp
1608 configuration file at startup.
1609 (focus-group-under-mouse): Check if group isn't the current group
1610 ( prevent a bug with unclutter ).
1612 2007-03-02 Philippe Brochard <pbrochard@common-lisp.net>
1614 * bindings.lisp (run-program-from-query-string): A program can be
1615 launch from a input query window.
1617 2007-03-01 Philippe Brochard <pbrochard@common-lisp.net>
1619 * clfswm-info.lisp: Fix a bug with banish pointer in info mode.
1621 2007-02-28 Philippe Brochard <pbrochard@common-lisp.net>
1623 * clfswm.lisp (process-new-window): One can now open the next
1624 window in a workspace called by its number.
1626 * clfswm-util.lisp (query-font-string): Minimal editing
1628 (eval-from-string): And an REPL in the window manager... :)
1630 2007-02-26 Philippe Brochard <pbrochard@common-lisp.net>
1632 * clfswm.lisp (process-new-window): One can now open the next
1633 window in a new workspace or a new group.
1635 * clfswm-pager.lisp (pager-mode): Display the next arrow action
1636 with the hidden windows.
1638 * clfswm.lisp (second-key-mode): Display the current workspace
1639 number and the next arrow action in the state window.
1641 * clfswm-pager.lisp (pager-mode): Hide all windows before leaving
1642 the pager mode and then redisplay only the current workspace.
1644 2007-02-25 Philippe Brochard <pbrochard@common-lisp.net>
1646 * clfswm.lisp (add-workspace): Workspaces are now numbered. So
1647 they can be focused with a keypress, sorted or renumbered.
1649 2007-02-24 Philippe Brochard <pbrochard@common-lisp.net>
1651 * clfswm-pager.lisp (pager-mode): Remove multiple silly
1652 pager-draw-display. This prevent a lot of flickering in the
1655 * clfswm.lisp: Remove all display-force-output and replace them
1656 with only one display-finish-output in the event loop.
1658 2006-11-06 Philippe Brochard <pbrochard@common-lisp.net>
1660 * clfswm-pager.lisp (pager-center-group): New function - center a
1661 group at the middle of the screen.
1663 * clfswm-pack.lisp (center-group): New function - center a group
1664 at the middle of the screen.
1666 * clfswm.lisp (show-group): Add a cross line under the group.
1667 (show-group): Group are showned even if fullscreened.
1668 (init-display): Add an exposure event on the root window.
1670 2006-11-05 Philippe Brochard <pbrochard@common-lisp.net>
1672 * package.lisp (*default-group*): Default group is the same size
1673 of a fullscreened group.
1675 * bindings*: Use shift to move, control+shift to copy.
1677 * *.lisp: Add comments for configuration or alternatives. So grep
1678 for CONFIG to see where you can configure clfswm. And grep for
1679 Alternative to use some commented code.
1681 * clfswm.lisp (second-key-mode): Use a single window to show the
1682 second mode. See for alternatives at the end of this file.
1684 2006-11-03 Philippe Brochard <pbrochard@common-lisp.net>
1686 * clfswm-keys.lisp (define-define-key/mouse): Factorisation in a
1687 macro of key and mouse definitions.
1688 (define-define-key/mouse): Use state instead of modifiers list
1689 this fix a bug when the modifiers list is not in the rigth order.
1691 * clfswm.lisp (second-key-mode): Add a colored border in second mode.
1693 2006-11-02 Philippe Brochard <pbrochard@common-lisp.net>
1695 * clfswm-info.lisp (info-mode): Add an info mode.
1697 2006-11-01 Philippe Brochard <pbrochard@common-lisp.net>
1699 * clfswm.lisp (process-new-window): Change border size for
1701 (show-all-windows-in-workspace): Unhide all windows even when the
1702 current group is in fullscreen mode.
1704 2006-10-26 Philippe Brochard <pbrochard@common-lisp.net>
1706 * clfswm-util.lisp (identify-key): Add an exposure handle-event to
1707 redisplay the identify window after a terminal switch.
1709 * clfswm-pager.lisp (pager-mode): Add an exposure handle-event to
1710 redisplay the pager after a terminal switch.
1712 2006-10-24 Philippe Brochard <pbrochard@common-lisp.net>
1714 * clfswm-util.lisp (identify-key): Add a window to display
1715 the keys to identify on screen.
1717 * bindings.lisp, bindings-pager.lisp: Define same keys to
1718 move/copy groups/windows in second mode and in pager.
1720 * clfswm.lisp (handle-event*): Same version in all clfswm (fix some
1722 (show-all-windows-in-workspace): unhide window before adapting it
1725 2006-10-23 Philippe Brochard <pbrochard@common-lisp.net>
1727 * clfswm.lisp (handle-event): Revert to an older version.
1729 2006-10-18 Philippe Brochard <pbrochard@common-lisp.net>
1731 * clfswm-util.lisp (force-window-in-group)
1732 (force-window-center-in-group): New functions for transient windows.
1734 * clfswm-pager.lisp (pager-remove-current-workspace/group):
1735 bugfix: hide all windows before removing group or workspace.
1737 2006-10-17 Philippe Brochard <pbrochard@common-lisp.net>
1739 * bindings-pager.lisp (mouse-pager-move-selected-group)
1740 (mouse-pager-copy-selected-group)
1741 (mouse-pager-move-selected-window)
1742 (mouse-pager-copy-selected-window, mouse-pager-rotate-window-up)
1743 (mouse-pager-rotate-window-down): New functions to have mouse in
1746 * clfswm-pager.lisp (pager-swap-window)
1747 (pager-copy-group-on-next/previous-workspace)
1748 (pager-copy-window-on-next/previous-line): New functions
1750 2006-10-15 Philippe Brochard <pbrochard@common-lisp.net>
1752 * clfswm-pager.lisp (pager-move-window-on-next/previous-line,
1753 (pager-move-group-on-next/previous-workspace): new functions.
1755 * clfswm-pack.lisp (resize-half-x-x-current-group): resize group
1756 to its half size (new functions).
1758 2006-10-11 Philippe Brochard <pbrochard@common-lisp.net>
1760 * clfswm-pager.lisp: workspaces, groups and windows can now be
1761 selectionned with the keyboard or the mouse.
1763 2006-10-09 Philippe Brochard <pbrochard@common-lisp.net>
1765 * clfswm-pager.lisp (pager-select-workspace-right/left):
1766 workspaces can now be selectionned with the keyboard.
1768 2006-10-08 Philippe Brochard <pbrochard@common-lisp.net>
1770 * clfswm-keys.lisp (undefine-main-key, undefine-second-key, undefine-mouse-action):
1771 new function to remove a previous defined key or mouse combination.
1773 2006-10-07 Philippe Brochard <pbrochard@common-lisp.net>
1775 * clfswm.lisp (main): Check for access error in init-display.
1777 * clfswm-keys.lisp (define-ungrab/grab): check for keysym and
1778 keycode before grabbing.
1780 * bindings.lisp: Remove nlambda and use defun to keep the function
1781 documentation with clisp.
1782 (define-shell): new macro to define shell command for the second
1785 2006-10-06 Philippe Brochard <pbrochard@common-lisp.net>
1787 * clfswm-keys.lisp (define-ungrab/grab): use a cond instead of a
1790 2006-10-05 Philippe Brochard <pbrochard@common-lisp.net>
1792 * bindings.lisp (accept-motion): Move group bugfix in upper mouse
1793 workspace circulation.
1795 * clfswm-util.lisp (absorb-orphan-window): new function.
1797 * clfswm-keys.lisp: Keysyms support.
1799 2006-10-02 Philippe Brochard <pbrochard@common-lisp.net>
1801 * clfswm.lisp (show-group): Use one gc for all groups and not one
1804 2006-10-01 Philippe Brochard <pbrochard@common-lisp.net>
1806 * bindings.lisp (define-second-key (#\l :mod-1)): fix a typo.
1808 * clfswm.lisp (adapt-window-to-group): Adapt only windows with
1809 width and height outside group.
1811 2006-09-28 Philippe Brochard <pbrochard@common-lisp.net>
1813 * clfswm.lisp: First public release.