1 2010-11-09 Philippe Brochard <pbrochard@common-lisp.net>
3 * src/clfswm-expose-mode.lisp (expose-windows-current-child-mode):
4 New function an bindings.
6 * src/clfswm-layout.lisp (tile-layout, set-tile-layout): Fill
9 2010-11-07 Philippe Brochard <pbrochard@common-lisp.net>
11 * src/clfswm-layout.lisp (tile-layout-ask-keep-position): New
12 function to let the user choose to keep child position with
15 * src/clfswm-internal.lisp (remove-frame-data-slot): New
18 2010-11-05 Philippe Brochard <pbrochard@common-lisp.net>
20 * src/clfswm-internal.lisp (frame-select-next-child)
21 (frame-select-previous-child): New functions and bindings. Select
22 the next/previous child in the current frame.
24 2010-10-31 Philippe Brochard <pbrochard@common-lisp.net>
26 * src/clfswm-query.lisp (query-mode-complet): New function: Handle
27 completion in query-mode.
29 2010-10-30 Philippe Brochard <pbrochard@common-lisp.net>
31 * src/clfswm-query.lisp (query-print-string): Handle long lines
34 2010-10-27 Philippe Brochard <pbrochard@common-lisp.net>
36 * src/clfswm-expose-mode.lisp (expose-create-window): Ensure that
37 all characters are printable.
39 2010-10-25 Philippe Brochard <pbrochard@common-lisp.net>
41 * contrib/server/server.lisp: Load clfswm client code in the main
42 program and let the user start it with a --client command line
45 * src/package.lisp (*main-entrance-hook*): New hook executed after
46 loading configuration file and before opening the display.
48 2010-10-23 Philippe Brochard <pbrochard@common-lisp.net>
50 * src/xlib-util.lisp: Remove unnecessary xlib:display-finish-output.
52 * src/clfswm-internal.lisp (show-child): Show window only if not
55 * src/clfswm-keys.lisp (binding-substitute-modifier): Utility to
56 change modifiers after binding definition.
58 2010-10-21 Philippe Brochard <pbrochard@common-lisp.net>
60 * contrib/osd.lisp: New file: OSD (On Screen Display) for
63 * src/clfswm-menu.lisp (open-menu): Modularise function.
65 2010-10-13 Philippe Brochard <pbrochard@common-lisp.net>
67 * src/clfswm-info.lisp (show-first-aid-kit): Display the essential
68 key binding in main and second mode.
70 2010-10-10 Philippe Brochard <pbrochard@common-lisp.net>
72 * src/clfswm-util.lisp (open-notify-window): Convert hello-window
73 functions to a more generic Notify-window system.
75 * src/tools.lisp (add-timer): Add an id to identify the timer.
77 2010-10-09 Philippe Brochard <pbrochard@common-lisp.net>
79 * src/tools.lisp (erase-timer): New function.
81 * src/clfswm-util.lisp (display-hello-window): Add a timer to hide
82 the hello window. Add Configuration variables.
84 2010-10-08 Philippe Brochard <pbrochard@common-lisp.net>
86 * src/clfswm-util.lisp (): Add an Hello window at startup.
88 * src/tools.lisp (process-timers): Add a timer system.
90 2010-10-07 Philippe Brochard <pbrochard@common-lisp.net>
92 * src/clfswm-query.lisp (add-in-query-string): Handle correctly
95 2010-10-06 Philippe Brochard <pbrochard@common-lisp.net>
97 * src/clfswm-query.lisp (query-print-string): Change cursor color
98 and show parenthesis matching with colors (on match and on
101 2010-10-05 Philippe Brochard <pbrochard@common-lisp.net>
103 * src/clfswm-internal.lisp (show-all-children): Do not raise a
104 child when its parent is hidden.
106 2010-10-02 Philippe Brochard <pbrochard@common-lisp.net>
108 * src/clfswm-circulate-mode.lisp (select-next-subchild): Add the
109 possibility to circulate over subchild of the current child.
111 * src/clfswm-expose-mode.lisp (expose-all-windows-mode)
112 (expose-windows-generic): Add an escape-body function to return to
113 the original state on escape key.
115 * src/clfswm-util.lisp (bind-on-slot): Add an optional parameter
116 to bind the current child from the configuration file.
118 2010-10-01 Philippe Brochard <pbrochard@common-lisp.net>
120 * src/clfswm-nw-hooks.lisp (absorb-window-nw-hook): Absorb new
121 window hook: the frame absorb all new windows that match
122 nw-absorb-test frame data slot.
124 2010-09-30 Philippe Brochard <pbrochard@common-lisp.net>
126 * src/clfswm-expose-mode.lisp (expose-create-window): Show window
127 title in accel window.
129 2010-09-29 Philippe Brochard <pbrochard@common-lisp.net>
131 * configure: Use the Xavier Maillard clfswm script in contrib to
132 build an executable in the standard way.
134 2010-09-26 Philippe Brochard <pbrochard@common-lisp.net>
136 * src/clfswm-expose-mode.lisp (expose-mode-display-accel-windows):
137 New functions. Add a window on each child in the expose mode to
140 * src/clfswm-internal.lisp (child-x, child-y, child-width)
141 (child-height): New methods to get real child coordinates.
143 2010-09-25 Philippe Brochard <pbrochard@common-lisp.net>
145 * src/clfswm-layout.lisp (*-layout): Use child-position.
147 * src/clfswm-internal.lisp (child-position): New function.
149 * src/clfswm-expose-mode.lisp (expose-windows-mode)
150 (expose-all-windows-mode): Use a generic mode.
152 * src/xlib-util.lisp (with-handle-event-symbol): Use a filled list
153 with handle-event-fun symbols instead of inspecting clfswm
154 internals symbols on each mode change.
156 * src/clfswm-expose-mode.lisp: Move and rename present*-windows in
157 a separate clfswm-expose-mode.lisp file.
159 * src/clfswm-util.lisp (speed-mouse-right, speed-mouse-down): Use
160 screen size instead of hardcoded test coordinates.
162 2010-09-24 Philippe Brochard <pbrochard@common-lisp.net>
164 * src/clfswm-util.lisp (speed-mouse-reset, speed-mouse-left)
165 (speed-mouse-right, speed-mouse-up, speed-mouse-down)
166 (speed-mouse-undo, speed-mouse-first-history): New functions to
167 quickly move the mouse. Implemented for the second mode.
169 2010-09-16 Philippe Brochard <pbrochard@common-lisp.net>
171 * contrib/clfswm: Move clfswm sources to $tmp_dir if there is no
172 write permission on $clfswm_asd_path. So anybody can start clfswm
173 even if there is no write permission on the source directory.
175 2010-09-12 Philippe Brochard <pbrochard@common-lisp.net>
177 * contrib/clfswm: Add support to cmucl, ccl and ecl.
179 2010-09-11 Philippe Brochard <pbrochard@common-lisp.net>
181 * src/clfswm-util.lisp (set-hide-unmanaged-window)
182 (set-show-unmanaged-window, set-default-hide-unmanaged-window):
183 New functions and menu entry.
184 (set-globally-hide-unmanaged-window)
185 (set-globally-show-unmanaged-window): New functions and menu
188 * src/clfswm-internal.lisp (hide-unmanager-window-p): New
190 (show-child): Add a data slot on frame to hide or not unmanaged
193 * src/clfswm-corner.lisp (present-clfswm-terminal)
194 (present-virtual-keyboard): Use a function (generic-present-body)
195 instead of a macro (generate-present-body).
197 * src/clfswm-util.lisp (update-menus): List all directories and
198 subdirectories in $XDG_DATA_DIRS/applications.
200 2010-09-10 Philippe Brochard <pbrochard@common-lisp.net>
202 * src/clfswm-corner.lisp (generate-present-body): New macro.
203 (present-clfswm-terminal, present-virtual-keyboard): Use
204 generate-present-body.
206 2010-09-09 Philippe Brochard <pbrochard@common-lisp.net>
208 * src/clfswm-util.lisp (update-menus): Follow XDG specifications
209 instead of the non-portable Debian update-menu.
211 2010-09-07 Philippe Brochard <pbrochard@common-lisp.net>
213 * src/clfswm.lisp (error-handler): New function do handle
214 asynchronous errors and ignore them.
215 (open-display): Install the new error-handler on display.
217 2010-09-05 Philippe Brochard <pbrochard@common-lisp.net>
219 * src/xlib-util.lisp (with-xlib-protect): Add a
220 with-simple-restart on top of body execution.
222 2010-09-04 Philippe Brochard <pbrochard@common-lisp.net>
224 * src/clfswm.lisp (main-loop): Protect all xlib functions with an
227 * src/xlib-util.lisp (handle-event): use with-xlib-protect only in
228 handle-event. Add a with-simple-restart to prevent a
229 clisp/new-lisp infinite loop.
231 2010-08-30 Philippe Brochard <pbrochard@common-lisp.net>
233 * src/clfswm-corner.lisp (present-clfswm-terminal): Make the
234 clfswm terminal working even on xterm title changes.
236 2010-08-29 Philippe Brochard <pbrochard@common-lisp.net>
238 * src/clfswm-util.lisp (run-other-window-manager): Update for
241 * src/tools.lisp (do-execute): New parameter io to change the
244 * src/clfswm-util.lisp (hide-current-child): Prevent from removing
247 * src/clfswm-internal.lisp (child-member): New predicate.
248 (child-remove): New function.
250 * src/*.lisp: Use child-member and child-remove everywhere it's
253 2010-08-28 Philippe Brochard <pbrochard@common-lisp.net>
255 * src/clfswm.lisp (main-loop): Ensure that all events have been
256 processed after a process-event.
258 * src/clfswm-internal.lisp (is-in-current-child-p): New function.
260 2010-08-27 Philippe Brochard <pbrochard@common-lisp.net>
262 * src/clfswm.lisp (main-mode:configure-request): Raise the window
263 only when present on the current child and focus it accordingly.
265 2010-08-26 Philippe Brochard <pbrochard@common-lisp.net>
267 * src/clfswm-circulate-mode.lisp (circulate-loop-function):
268 Use is-a-key-pressed-p.
270 * src/xlib-util.lisp (is-a-key-pressed-p): New predicate.
272 * src/clfswm-keys.lisp (define-ungrab/grab): Use all values
273 returned by xlib:keysym->keycodes.
275 * src/*.lisp: Use the new child-equal-p to compare children. This
276 prevent a bug with sbcl/cmucl when the standard equal function
277 does not work with xlib:window.
279 * src/clfswm-internal.lisp (child-equal-p): New predicate.
281 2010-08-25 Philippe Brochard <pbrochard@common-lisp.net>
283 * src/clfswm-generic-mode.lisp (generic-mode): Use an
284 xlib:event-listen before processing event with
285 xlib:process-event. This prevent a bug with CLX threaded
286 implementation like sbcl.
288 * src/clfswm.lisp (main-loop): Use an xlib:event-listen before
289 processing event with xlib:process-event. This prevent a bug with
290 CLX threaded implementation like sbcl.
292 2010-08-17 Philippe Brochard <pbrochard@common-lisp.net>
294 * contrib/server/key.lisp (ushell-sh): Add ccl and ecl support.
296 * src/xlib-util.lisp (compress-motion-notify): Use a loop instead
299 * src/clfswm-internal.lisp (with-find-in-all-frames): New macro.
300 (find-parent-frame, find-frame-window, find-frame-by-name)
301 (find-frame-by-number): Use with-find-in-all-frames to search in
302 frames in the right order.
304 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Fix an
305 unwanted flickering with unmanaged windows.
307 2010-08-16 Philippe Brochard <pbrochard@common-lisp.net>
309 * src/package.lisp: Remove event handler hooks as they're not
310 needed anymore (To replace them: use closure and define-handler).
312 * src/xlib-util.lisp (move-window, resize-window)
313 (wait-mouse-button-release): Use a generic mode.
315 * src/*.lisp: Replace the case to handle event with a more (tricky)
316 lispy method which bind a function to each keywords associated
319 2010-07-23 Philippe Brochard <pbrochard@common-lisp.net>
321 * src/clfswm-util.lisp (delete-current-child): Invert bindings and
322 menu entry between delete-current-child and remove-current-child.
323 ie: Delete a child and its children in all frames by default.
325 2010-07-21 Philippe Brochard <pbrochard@common-lisp.net>
327 * src/package.lisp: Add a placement configuration group.
329 * src/binding*.lisp: Bind control+g to escape the current action
332 * src/clfswm-internal.lisp
333 (delete-child-and-children-in-all-frames): New function and
334 binding: Second mode - Control+Delete delete the current child and
335 its children in all frames (ie: close the current child and its
338 2010-07-20 Philippe Brochard <pbrochard@common-lisp.net>
340 * src/clfswm-internal.lisp (remove-child-in-frame): Do not destroy
341 the frame window and the frame gc. Close a very annoying bug when
342 cuting/pasting a frame or moving a child over frames with the
345 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Redisplay
346 all children in *current-root* after moving/resizing a frame.
348 2010-07-18 Philippe Brochard <pbrochard@common-lisp.net>
350 * src/clfswm-util.lisp (delete-focus-window)
351 (destroy-focus-window): Remove child in parent frame before
354 2010-07-16 Philippe Brochard <pbrochard@common-lisp.net>
356 * src/clfswm-util.lisp (identify-key): Add a timeout in
358 (mouse-click-to-focus-generic): Use find-child-under-mouse instead
359 of the window passed by xlib:process-event.
361 * src/xlib-util.lisp (move-window, resize-window)
362 (wait-mouse-button-release): Add a timeout in xlib:process-event.
364 2010-04-11 Philippe Brochard <pbrochard@common-lisp.net>
366 * src/clfswm-util.lisp (run-other-window-manager): Add the ability
367 to launch an other window manager and to return to clfswm.
369 2010-03-18 Philippe Brochard <pbrochard@common-lisp.net>
371 * src/clfswm-layout.lisp (set-tile-space-layout): Set default
374 2009-12-15 Philippe Brochard <pbrochard@common-lisp.net>
376 * src/clfswm.lisp (main-loop): Add a *loop-hook* parameter and a
379 * src/clfswm-generic-mode.lisp (generic-mode): Add a loop-hook
380 parameter and a loop timeout.
382 2009-12-05 Philippe Brochard <pbrochard@common-lisp.net>
384 * src/clfswm.lisp (main): Add an alternate configuration filename
387 * load.lisp: Add a debuging code example.
389 2009-11-14 Philippe Brochard <pbrochard@common-lisp.net>
391 * src/clfswm-configuration.lisp (create-configuration-menu): New
392 menu to configure all clfswm variables while clfswm is running.
394 2009-11-12 Philippe Brochard <pbrochard@common-lisp.net>
396 * src/clfswm-util.lisp (save-configuration-variables): New
397 function to save all configuration variables in clfswmrc.
399 2009-11-11 Philippe Brochard <pbrochard@common-lisp.net>
401 * src/clfswm-info.lisp (info-mode): Begining of mouse support in
403 (set-default-info-keys): Add cursor key support in info mode.
405 2009-11-08 Philippe Brochard <pbrochard@common-lisp.net>
407 * contrib/reboot-halt.lisp: Add a Suspend/Reboot/Halt menu in
410 * src/clfswm.lisp (main): Add a read-conf-file-p parameter to
411 prevent reading the configuration file (this may be useful to
412 produce the original documentation without user modifications
413 with the rc configuration file).
415 2009-11-07 Philippe Brochard <pbrochard@common-lisp.net>
417 * src/bindings-second-mode.lisp (set-default-second-keys):
418 Simplification of Escape key to close/kill/remove the focus window
419 and unhide all windows.
421 * src/bindings.lisp (set-default-main-keys): Simplification of
422 Escape key to close/kill/remove the focus window and unhide all
425 * src/clfswm-util.lisp (ask-close/kill-current-window): Add remove
426 focus and unhide all windows capabilities.
428 2009-10-10 Philippe Brochard <pbrochard@common-lisp.net>
430 * contrib/mpd.lisp (start-gmpc): Add gmpc in the mpd menu.
432 2009-07-29 Philippe Brochard <pbrochard@common-lisp.net>
434 * src/clfswm-layout.lisp (tile-layout, tile-horizontal-layout):
435 Keep child order and don't make unnecessary child movement.
436 (one-column-layout, one-line-layout): New layouts.
438 2009-06-29 Philippe Brochard <pbrochard@common-lisp.net>
440 * contrib/cd-player.lisp: New file to handle the CD player.
442 * contrib/xmms.lisp: New file to handle the xmms player.
444 2009-06-28 Philippe Brochard <pbrochard@common-lisp.net>
446 * src/clfswm-layout.lisp (set-no-layout-remember-size): New layout:
447 Maximize windows in there frame - Leave frames to there actual
450 * src/bindings-second-mode.lisp (set-default-second-keys): Bind
451 "o" on set-open-in-new-frame-in-parent-frame-nw-hook.
453 2009-06-27 Philippe Brochard <pbrochard@common-lisp.net>
455 * contrib/keyb_fr.lisp: New file to handle an azerty keyboard.
457 2009-06-24 Philippe Brochard <pbrochard@common-lisp.net>
459 * contrib/mpd.lisp: Use a standard menu.
461 * src/clfswm-info.lisp: Use a standard menu for the help-menu.
463 2009-06-22 Philippe Brochard <pbrochard@common-lisp.net>
465 * contrib/mpd.lisp: New file to handle the Music Player Daemon (MPD)
467 2009-06-19 Philippe Brochard <pbrochard@common-lisp.net>
469 * src/clfswm-autodoc.lisp (produce-doc, produce-doc-html): Minor
472 2009-06-18 Philippe Brochard <pbrochard@common-lisp.net>
474 * src/config.lisp (get-fullscreen-size): One pixel adjustment
477 * src/clfswm-placement.lisp (*-child-placement): One pixel
480 2009-06-16 Philippe Brochard <pbrochard@common-lisp.net>
482 * src/clfswm-circulate-mode.lisp (draw-circulate-mode-window):
483 Ensure that all characters are printable.
485 * src/config.lisp (get-fullscreen-size): Adjust default fullscreen
488 * src/clfswm-placement.lisp (*-child-placement): Adjust
489 coordinates to one pixel in the current child.
491 2009-06-04 Philippe Brochard <pbrochard@common-lisp.net>
493 * src/clfswm-query.lisp (query-enter-function): Assign font before
494 width and height calculation.
496 2009-06-03 Philippe Brochard <pbrochard@common-lisp.net>
498 * src/xlib-util.lisp (banish-pointer): Use with-placement macro to
499 bannish the pointer in an arbitrary place.
501 * src/clfswm-info.lisp (info-mode): Use with-placement macro to
502 place the info window in an arbitrary place.
504 * src/clfswm-query.lisp (query-enter-function): Use with-placement
505 macro to place the query window in an arbitrary place.
507 * src/clfswm-placement.lisp: New file. Allow to place info windows
508 or query windows on an arbitrary place. Allow to bannish the
509 pointer on an arbitrary place.
511 2009-05-16 Philippe Brochard <pbrochard@common-lisp.net>
513 * src/clfswm-circulate-mode.lisp (reorder-child)
514 (reorder-brother): Unfocus windows before reordering children or
517 2009-05-13 Philippe Brochard <pbrochard@common-lisp.net>
519 * src/clfswm-circulate-mode.lisp (reorder-brother): Ensure that
520 the parent is a frame.
522 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Handle
523 motion with a default modifier.
525 * src/clfswm.lisp (handle-motion-notify): Handle motion with a
528 * src/clfswm-info.lisp (info-mode): Handle motion with a default
530 (info-mode): Optimization in loop function.
532 2009-05-10 Philippe Brochard <pbrochard@common-lisp.net>
534 * src/clfswm-circulate-mode.lisp (reorder-brother): Handle
535 root-frame correctly.
537 * clfswm.asd: Dependency fix for clfswm-generic-mode.
539 * src/clfswm-circulate-mode.lisp (reorder-child)
540 (reorder-brother): Handle empty frames.
541 (reorder-brother): Redisplay only the parent frame of the current
544 * src/clfswm-util.lisp (frame-toggle-maximize): Redisplay only the
545 parent frame of the current frame.
547 2009-05-09 Philippe Brochard <pbrochard@common-lisp.net>
549 * src/clfswm-util.lisp (frame-toggle-maximize): New function:
550 Maximize/Unmaximize the current frame in its parent frame.
552 * src/clfswm-layout.lisp (maximize-layout): New layout: Maximize
553 windows and frames in there parent frame.
555 2009-05-05 Philippe Brochard <pbrochard@common-lisp.net>
557 * src/*.lisp: Add support for Clozure Common Lisp (CCL).
559 * src/clfswm-circulate-mode.lisp (reorder-child)
560 (reorder-brother): Reinitialise on circulate type change
561 child to brother or brother to child.
563 * src/*.lisp (*): Use map-window instead of xlib:map-window. So
564 calls xlib:display-finish-output on each map-request. So speed up
567 * src/xlib-util.lisp (map-window): New function. Call
568 xlib:display-finish-output on each map request.
570 2009-04-28 Philippe Brochard <pbrochard@common-lisp.net>
572 * src/clfswm-second-mode.lisp (sm-handle-motion-notify):
573 Optimisation when drawing second mode window.
575 2009-04-27 Philippe Brochard <pbrochard@common-lisp.net>
577 * src/clfswm-circulate-mode.lisp (circulate-mode): Optimisation in
580 2009-04-22 Philippe Brochard <pbrochard@common-lisp.net>
582 * src/clfswm-util.lisp (run-program-from-query-string): Launch
583 command only with a return validation.
585 2009-04-22 Xavier Maillard <xma@gnu.org>
587 * src/clfswm-query.lisp (query-string): Use a generic mode.
589 2009-04-19 Xavier Maillard <xma@gnu.org>
591 * src/clfswm-info.lisp (info-mode): Use generic-mode for info-mode.
593 2009-04-18 Xavier Maillard <xma@gnu.org>
595 * src/clfswm-generic-mode.lisp (generic-mode): Add a generic mode
596 to define all other modes.
598 2009-04-05 Philippe Brochard <pbrochard@common-lisp.net>
600 * src/package.lisp (): Use *default-font-string* for all
603 * src/clfswm-info.lisp (info-mode): Ensure integer windows size.
605 2009-02-17 Philippe Brochard <pbrochard@common-lisp.net>
607 * src/xlib-util.lisp (null-size-window-p): Better check of null
610 2009-02-14 Philippe Brochard <pbrochard@common-lisp.net>
612 * src/clfswm.lisp (handle-map-request): Add a fix to manage
613 correctly fullscreen windows (SDL particularly).
615 2008-12-20 Philippe Brochard <pbrochard@common-lisp.net>
617 * src/xlib-util.lisp (get-color): Allocate colors only once -> fix
618 a segfault with clisp/new-clx.
620 * src/clfswm.lisp (handle-motion-notify): Add a needed window
623 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Add a
624 needed window argument.
626 2008-10-30 Philippe Brochard <pbrochard@common-lisp.net>
628 * src/xlib-util.lisp (wait-no-key-or-button-press)
629 (wait-a-key-or-button-press): Check buttons press/release correctly"
631 2008-10-28 Philippe Brochard <pbrochard@common-lisp.net>
633 * src/menu-def.lisp: Add children navigation menu in the movement
634 menu (select next/previous child/brother/level).
636 2008-10-26 Philippe Brochard <pbrochard@common-lisp.net>
638 * *: Rename 'sister' frame to 'brother' frame.
640 * src/clfswm-keys.lisp (unalias-modifiers): Convert a modifier
641 alias in a real modifier.
643 * src/package.lisp (*modifier-alias*): New list of modifier alias
644 For example: :alt is :mod-1, :numlock is :mod-2...
646 * src/tools.lisp (remove-hook): New function.
648 * src/clfswm-keys.lisp (with-capslock, without-capslock)
649 (with-numlock, without-cnumlock): New functions.
651 2008-10-25 Philippe Brochard <pbrochard@common-lisp.net>
653 * src/clfswm-info.lisp: Use the *binding-hook* to create info
654 keys and mouse bindings.
656 * src/bindings-second-mode.lisp: Use the *binding-hook* to create
657 second keys and mouse bindings.
659 * src/bindings.lisp: Use the *binding-hook* to create main keys
662 2008-10-10 Philippe Brochard <pbrochard@common-lisp.net>
664 * src/clfswm-menu.lisp (open-menu): Remember parent menu to undo
667 2008-10-09 Philippe Brochard <pbrochard@common-lisp.net>
669 * src/menu-def.lisp: Use a menu instead of a function for the
672 2008-10-08 Philippe Brochard <pbrochard@common-lisp.net>
674 * src/clfswm-util.lisp (show-standard-menu): Display the standard
675 menu from the 'update-menus' command.
677 2008-10-07 Philippe Brochard <pbrochard@common-lisp.net>
679 * src/clfswm-query.lisp (query-string): Do not ungrab keyboard if
680 it's already grabbed.
682 * src/clfswm-internal.lisp (display-frame-info): Use configurable
683 colors and fix a bug with background.
684 (display-frame-info): Set window background when displaying info.
686 2008-10-06 Philippe Brochard <pbrochard@common-lisp.net>
688 * src/xlib-util.lisp (my-character->keysyms): Use a macro to avoid
689 warning with clisp/new-clx.
691 2008-10-04 Philippe Brochard <pbrochard@common-lisp.net>
693 * src/clfswm-util.lisp (jump-to-slot): Prevent to jump on a
696 2008-09-23 Philippe Brochard <pbrochard@common-lisp.net>
697 * *: **** Release 0809 ****
699 2008-09-23 Philippe Brochard <pbrochard@common-lisp.net>
701 * src/clfswm-util.lisp (ensure-unique-name): New function and menu
703 (ensure-unique-number): New function and menu entry.
705 2008-09-22 Philippe Brochard <pbrochard@common-lisp.net>
707 * src/clfswm-nw-hooks.lisp (named-frame-nw-hook): New new window
708 hook: open the next window in a named frame.
709 (numbered-frame-nw-hook): New new window hook: open the next
710 window in a numbered frame.
712 * src/clfswm-query.lisp (query-string): Grab the keyboard in all
713 cases. So query-string can be called even in the main mode.
715 * src/clfswm-internal.lisp (show-all-children): Do not raise a
716 child by default => far less flickering.
718 2008-09-19 Philippe Brochard <pbrochard@common-lisp.net>
720 * src/bindings-second-mode.lisp: Bind "t" to tile-current-frame.
722 * src/menu-def.lisp: Change key binding for the CLFSWM menu
725 * src/xlib-util.lisp (xgrab-pointer): Handle the case where cursor
726 is nil. (workaround on some CLX implementation).
728 2008-09-12 Philippe Brochard <pbrochard@common-lisp.net>
730 * src/menu-def.lisp: Add a menu to set a focus policy for all
733 * src/clfswm-util.lisp (set-focus-policy-generic-for-all)
734 (all-frames-set-*-focus-policy): Set a focus policy for all
737 * src/clfswm.lisp (handle-enter-notify): sloppy-select
738 mode. Select a child and its parents on mouse over.
740 2008-09-03 Philippe Brochard <pbrochard@common-lisp.net>
742 * src/clfswm.lisp (handle-enter-notify): Add a sloppy strict focus
743 policy -> Sloppy focus only for windows in the current frame.
744 (main-unprotected): Exit clfswm on init error (ie: when another
745 window manager is running).
747 * src/clfswm-util.lisp (reset-clfswm): New function.
749 2008-09-02 Philippe Brochard <pbrochard@common-lisp.net>
751 * src/clfswm-menu.lisp (init-menu): New function.
753 * src/clfswm-util.lisp (reload-clfswm): New function to reload
755 (exit-clfswm): Rename quit-clfswm to exit-clfswm.
757 * src/clfswm.lisp (main, main-unprotected): Handle error in a
758 superior main function. Now CLFSWM can't break the X session. It
759 just reinitialize the display and run a new main loop.
761 * src/clfswm-corner.lisp: Make *clfswm-terminal* and
762 *vt-keyboard-on* global to avoid warnings when loading clfswm.
764 * src/clfswm-layout.lisp: Add a specific GIMP layout menu.
765 (help-on-gimp-layout): Describe how to use the GIMP layout.
767 2008-09-01 Philippe Brochard <pbrochard@common-lisp.net>
769 * src/clfswm-layout.lisp (set-gimp-layout): Change the layout to
770 main-window-right-layout. Change the keybinding for (shift)alt+tab
771 to not select windows in the main window lisst.
772 Bind F8 to add a window in the main window list.
773 Bind F9 to remove a window in the main window list.
774 Change the focus policy to :sloppy.
775 (set-previous-layout): Restore the previous layout, keybinding and
778 2008-08-31 Philippe Brochard <pbrochard@common-lisp.net>
780 * src/clfswm-menu.lisp (add-menu-comment): Add comments in menu.
782 * src/clfswm-layout.lisp (main-window-left-layout)
783 (main-window-bottom-layout, main-window-top-layout): New
785 Factorize layouts in menu.
787 2008-08-30 Philippe Brochard <pbrochard@common-lisp.net>
789 * src/clfswm-layout.lisp (main-window-right-layout): A possible
790 GIMP layout: one or more main windows on one side of the
791 frame. Others on the other size.
793 * src/clfswm-util.lisp
794 (current-frame-set-click/sloppy-focus-policy): Each frame can have
795 a different focus policy (one of :click or :sloppy).
796 The default focus policy is set with *default-focus-policy*.
798 2008-08-23 Philippe Brochard <pbrochard@common-lisp.net>
800 * src/clfswm-info.lisp (show-config-variable): New function.
802 2008-08-19 Philippe Brochard <pbrochard@common-lisp.net>
804 * src/clfswm-layout.lisp (tile-horizontal-layout): New layout.
806 * src/clfswm-info.lisp: Colored help for key binding and corners
809 2008-08-18 Philippe Brochard <pbrochard@common-lisp.net>
811 * src/clfswm-util.lisp (delete-focus-window)
812 (destroy-focus-window): Remove chid only in
813 handle-unmap/destroy-notify. Focus *current-root* only when
814 closing/killing the current child.
816 * src/clfswm-autodoc.lisp (produce-corner-*-doc): New autodoc
817 functions or corners.
819 2008-08-17 Philippe Brochard <pbrochard@common-lisp.net>
821 * src/clfswm-corner.lisp (present-clfswm-terminal): New corner
822 action: Hide/Unhide a terminal on mouse corner action. (By default
823 right mouse button on the top left corner).
825 * src/config.lisp (*never-managed-window-list*): New config
828 * src/clfswm-internal.lisp (never-managed-window-p): New function:
829 Handle never managed window in a more simple way.
831 * src/clfswm-corner.lisp: New file and new and more simple method
832 to define corners actions.
834 2008-08-15 Philippe Brochard <pbrochard@common-lisp.net>
836 * src/clfswm-info.lisp (info-mode): Info line can now be colored.
838 * src/clfswm-layout.lisp (fast-layout-switch)
839 (define-fast-layout-switch): New functions: Switch between two
842 * src/clfswm-second-mode.lisp (leave-second-mode): Takes care if
843 really in the second mode. So leave-second-mode can be used even
846 * src/clfswm-util.lisp (switch-to-last-child): New function:
847 Store the current child and switch to the previous one.
849 2008-07-16 Philippe Brochard <pbrochard@common-lisp.net>
851 * src/clfswm-util.lisp (display-current-window-info): Display the
853 (have-to-present-virtual-keyboard): Add a virtual keyboard corner
854 (top right by default). By default 'xvkbd' is used.
856 2008-06-28 Philippe Brochard <pbrochard@common-lisp.net>
858 * src/xlib-util.lisp (move-window, resize-window): Compress motion
861 * src/clfswm.lisp (handle-motion-notify): Compress motion events.
863 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Compress
866 * src/clfswm-info.lisp (info-mode): Compress motion events.
868 2008-06-21 Philippe Brochard <pbrochard@common-lisp.net>
870 * src/clfswm-internal.lisp (show-all-children): Compute geometry
871 and selection first and then show only necessary children.
872 (show-child): remove unneeded display-p parameter.
874 * src/config.lisp (get-fullscreen-size): Place the frame border
875 outside the screen (this prevent the loose of 2 pixels per
878 2008-06-12 Philippe Brochard <pbrochard@common-lisp.net>
880 * src/clfswm-internal.lisp (focus-child): Algorithm change to
881 raise only the selected child.
883 2008-06-08 Philippe Brochard <pbrochard@common-lisp.net>
885 * src/clfswm-internal.lisp (raise-p-list, show-all-children):
886 Raise only viewable children.
888 2008-06-06 Philippe Brochard <pbrochard@common-lisp.net>
890 * src/clfswm-internal.lisp (show-all-children): Always raise all
891 displayed children. Remove all references to raise-p.
893 2008-06-04 Philippe Brochard <pbrochard@common-lisp.net>
895 * src/menu-def.lisp (child-menu): New menu entry on raise/lower
898 * src/bindings-second-mode.lisp ("Page_Down", "Page_Up"): New
899 second mode binding on raise/lower child in its frame.
901 * src/clfswm-nw-hooks.lisp (leave-focus-frame-nw-hook): Adapt
902 behaviour to the new raise/lower property.
903 Call clear-nw-hook before the rest of the hook.
905 * src/bindings.lisp (mouse-click-to-focus-and-move-window)
906 (mouse-click-to-focus-and-resize-window): Stop button event. This
907 prevent a keyboard/pointer freeze.
909 2008-06-03 Philippe Brochard <pbrochard@common-lisp.net>
911 * src/clfswm-internal.lisp (frame-lower-child)
912 (frame-raise-child): New functions to raise/lower a child in its
915 * src/clfswm-util.lisp (have-to-present-windows)
916 (have-to-present-all-windows): New functions to have an MaxOS
917 expose like on mouse click in screen corner.
919 * src/clfswm-info.lisp ("Page_Down", "Page_Up"): Add boundaries.
921 2008-05-30 Philippe Brochard <pbrochard@common-lisp.net>
923 * src/clfswm-util.lisp (unhide-a-child-from-all-frames): Unhide a
924 child from a choice in all frames with hidden children.
926 * src/clfswm-info.lisp (info-mode-menu): Handle separators.
928 2008-05-28 Philippe Brochard <pbrochard@common-lisp.net>
930 * src/clfswm-util.lisp (hide-current-child, unhide-a-child)
931 (unhide-all-children): New functions.
933 * src/clfswm-info.lisp (info-mode-menu): Handle symbols and
936 * src/clfswm-util.lisp (hide/show-frame-window): new function and
939 2008-05-23 Philippe Brochard <pbrochard@common-lisp.net>
941 * src/clfswm-util.lisp (rename-current-child): Do not display the
942 frame info for a window.
944 2008-05-20 Philippe Brochard <pbrochard@common-lisp.net>
946 * src/clfswm-internal.lisp (remove-child-in-frame): Destroy the
947 frame window for the removed child and its children.
949 2008-05-18 Philippe Brochard <pbrochard@common-lisp.net>
951 * src/clfswm-autodoc.lisp (produce-*-doc-*): Add a note to use the
954 2008-05-17 Philippe Brochard <pbrochard@common-lisp.net>
956 * src/clfswm-nw-hooks.lisp (default-frame-nw-hook): Do not handle
957 the ROX pinboard (ie: leave it lowered in the root window as
960 * src/clfswm-layout.lisp (tile-left-space-layout): New layout.
961 (tile-left-layout, tile-right-layout, tile-top-layout)
962 (tile-bottom-layout): Use all the frame space when there is only
965 * src/clfswm-internal.lisp (place-window-from-hints): Center
966 unmanaged windows in the root screen.
968 * src/clfswm-nw-hooks.lisp (clear-nw-hook, clear-all-nw-hooks):
971 2008-05-15 Philippe Brochard <pbrochard@common-lisp.net>
973 * src/clfswm-util.lisp (current-frame-manage-window-type): Fix a
974 typo in managed types.
976 * src/clfswm-internal.lisp (show-child): Always display frame info
977 even if the frame is hidden.
979 * src/xlib-util.lisp (resize-window): Use a better algorithme to
982 2008-05-13 Philippe Brochard <pbrochard@common-lisp.net>
984 * src/clfswm-util.lisp (with-movement): Display frame info for all
985 frames in current root.
987 2008-05-12 Philippe Brochard <pbrochard@common-lisp.net>
989 * src/*.lisp: Rename 'brother' frames to 'sister' frames.
991 * src/bindings-second-mode.lisp (define-second-key #\a): New
992 binding on 'add-default-frame'.
994 * src/clfswm-autodoc.lisp (produce-*-doc-*-in-file): Show a
995 message to follow the autodocumentation process.
997 2008-05-10 Philippe Brochard <pbrochard@common-lisp.net>
999 * src/clfswm-util.lisp (bind-or-jump): Bind "Tab", "Return" and
1000 "Space" to jump to a child. "B" to bind a slot on the current
1003 * src/bindings-second-mode.lisp: Use "Tab" instead of
1006 2008-05-07 Philippe Brochard <pbrochard@common-lisp.net>
1008 * src/clfswm-util.lisp (find-child-under-mouse): Take care of
1009 unmanaged (hidden) windows.
1011 * src/clfswm-internal.lisp (place-window-from-hints): Give a
1012 minimal size for windows.
1013 (with-all-windows-frames-and-parent): New function.
1015 * src/config.lisp (*default-window-width/height*): New parameters.
1017 * src/clfswm-internal.lisp (place-window-from-hints): Center
1018 windows in the screen instead of in there frame.
1020 * src/bindings-second-mode.lisp (tile-space-current-frame): New
1023 * src/clfswm-layout.lisp (register-layout): Intern the once name
1024 in the right package.
1026 2008-05-05 Philippe Brochard <pbrochard@common-lisp.net>
1028 * doc/dot-clfswmrc: Update to follow the new clfswm way.
1030 2008-05-03 Philippe Brochard <pbrochard@common-lisp.net>
1032 * src/clfswm-internal.lisp (set-current-child)
1033 (adapt-child-to-parent, show-child, hide-child): Handle the case
1034 where child is not a frame or a window.
1036 * src/clfswm-util.lisp
1037 (mouse-click-to-focus-generic,mouse-focus-move/resize-generic):
1038 Check if child is a frame.
1040 * src/clfswm-internal.lisp (managed-window-p): Handle the case
1041 where frame is null.
1042 (place-frame): Check if frame and parent are frames.
1044 * src/clfswm-info.lisp (info-mode): display all frame info before
1047 * src/clfswm-second-mode.lisp (second-key-mode): display all frame
1048 info before leaving.
1050 * src/clfswm-internal.lisp (display-all-frame-info): New function.
1052 2008-05-02 Philippe Brochard <pbrochard@common-lisp.net>
1054 * src/tools.lisp (getenv): Implemented for ECL.
1055 (urun-prog): Implemented for ECL.
1057 * src/clfswm-util.lisp (identify-key): Use a double buffer to
1060 * src/clfswm-query.lisp (query-string): Use a double buffer to
1063 * src/clfswm-info.lisp (draw-info-window): Use a double buffer to
1066 * src/xlib-util.lisp (clear-pixmap-buffer, copy-pixmap-buffer):
1069 2008-05-01 Philippe Brochard <pbrochard@common-lisp.net>
1071 * src/clfswm-info.lisp (info-mode): Add boundaries in the info mode window.
1073 * src/menu-def.lisp: New file: move all menu definition in
1076 * src/clfswm-layout.lisp (register-layout): Use a function instead
1079 2008-04-30 Philippe Brochard <pbrochard@common-lisp.net>
1081 * src/clfswm-autodoc.lisp (produce-menu-doc,
1082 (produce-menu-doc-html): New functions.
1083 (produce-doc-*): Moved to clfswm-autodoc.lisp.
1085 * src/clfswm-util.lisp (paste-selection-no-clear): Prevent to
1086 paste a child on one of its own children. (this prevent a
1088 (move-child-to): Rename move/copy-current-child-by to
1090 (mouse-move-window-over-frame): New function to move the window
1091 under the mouse cursor to another frame.
1093 * src/clfswm-internal.lisp (find-child-in-parent): New function.
1095 2008-04-29 Philippe Brochard <pbrochard@common-lisp.net>
1097 * src/clfswm-internal.lisp (show-all-children): Display unmanaged
1098 windows only when its window parent is the current child.
1100 2008-04-28 Philippe Brochard <pbrochard@common-lisp.net>
1102 * src/clfswm-util.lisp (manage-current-window)
1103 (unmanage-current-window): New functions: Allow to force to manage
1104 or unmanage a window by its parent frame.
1106 * src/bindings-second-mode.lisp (#\o): binded to
1107 set-open-in-new-frame-in-parent-frame-nw-hook and
1108 (#\o :control) to set-open-in-new-frame-in-root-frame-nw-hook
1110 * src/clfswm-util.lisp (with-current-window): New macro.
1112 * src/xlib-util.lisp (move-window, resize-window): Remove uneeded
1113 exposure and enter-window handle event.
1115 * src/clfswm-util.lisp (move-frame, resize-frame): Show all
1116 children for the current child after the move/resize.
1118 2008-04-27 Philippe Brochard <pbrochard@common-lisp.net>
1120 * src/xlib-util.lisp (resize-window): Take care of window size
1123 * src/clfswm-util.lisp (mouse-focus-move/resize-generic): Allow to
1124 move/resize unmanaged windows.
1126 * src/xlib-util.lisp (move-window, resize-window): New functions.
1128 2008-04-25 Philippe Brochard <pbrochard@common-lisp.net>
1130 * src/clfswm-util.lisp (current-frame-manage-window-type): Let the
1131 user choose what window type the current frame must handle.
1132 (display-current-window-info): New function.
1133 (current-frame-manage-all-window-type)
1134 (current-frame-manage-only-normal-window-type)
1135 (current-frame-manage-no-window-type): New functions.
1137 * src/clfswm-internal.lisp (managed-window-p): New function.
1139 * src/package.lisp (frame): Managed type: new frame
1140 parameter. This allow to choose what window type a frame must
1143 * src/*.lisp: Rename all 'father' occurrences to 'parent'.
1145 * src/clfswm-nw-hooks.lisp
1146 (open-in-new-frame-in-parent-frame-nw-hook): New new window hook.
1148 * src/clfswm-util.lisp (adapt-current-frame-to-window-hints): New
1151 * src/tools.lisp (ensure-printable): Return always a string even
1154 2008-04-24 Philippe Brochard <pbrochard@common-lisp.net>
1156 * src/config.lisp (*default-nw-hook*): New variable to change the
1157 default new window hook.
1159 2008-04-22 Philippe Brochard <pbrochard@common-lisp.net>
1161 * clfswm.asd (clfswm): Add a dependency from
1162 clfswm-second-mode.lisp to clfswm.lisp.
1164 * src/clfswm-util.lisp (identify-key): Show the documentation for
1165 the function bound on a key.
1166 (with-movement): Move with-movement,
1167 current-frame-fill/pack/resize-* from bindings-second-mode.lisp
1168 to clfswm-util.lisp.
1170 * src/clfswm-menu.lisp: New menu system that let user change keys
1171 or functions associated to keys.
1173 2008-04-18 Philippe Brochard <pbrochard@common-lisp.net>
1175 * src/clfswm-internal.lisp (show-all-children): Display-child is
1176 the first child by default. Solve a bug with father-p.
1178 2008-04-17 Philippe Brochard <pbrochard@common-lisp.net>
1180 * src/clfswm-internal.lisp (add-frame): Add frame return the
1182 (show-all-children): Move the size computation outside the
1185 * src/bindings-second-mode.lisp (with-movement): Redisplay only
1188 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Redisplay
1189 only the current child.
1191 * src/clfswm-internal.lisp (show-all-children): New display-child
1192 parameter to display only the desired child and its children.
1193 (select-next/previous-child): Only display the current child.
1195 2008-04-14 Philippe Brochard <pbrochard@common-lisp.net>
1197 * src/clfswm.lisp (init-display): Move the default frame creation
1198 on the default init hook.
1200 * src/clfswm-keys.lisp (define-ungrab/grab): Handle all keysyms in
1201 the main mode (for example: "1" on an azerty keyboard).
1203 2008-04-13 Philippe Brochard <pbrochard@common-lisp.net>
1205 * src/clfswm-keys.lisp (find-key-from-code): Better handle of
1206 keysyms. Revert to old grabbing method for the main mode.
1208 2008-04-12 Philippe Brochard <pbrochard@common-lisp.net>
1210 * src/clfswm.lisp (init-display): Add key handling on no focus
1211 window and on frame windows.
1213 2008-04-11 Philippe Brochard <pbrochard@common-lisp.net>
1215 * src/clfswm.lisp (main): Keyboard handle strategie change: Grab
1216 all keys by default and replay just what is needed. No change for
1219 * src/clfswm-keys.lisp: remove grab/ungrab main keys.
1220 (find-key-from-code): Test for shift and not shift presence.
1222 2008-04-09 Philippe Brochard <pbrochard@common-lisp.net>
1224 * src/clfswm-internal.lisp (switch-to-root-frame): show later -
1225 new key parameter to have less flickering.
1227 2008-04-07 Philippe Brochard <pbrochard@common-lisp.net>
1229 * src/bindings-second-mode.lisp (frame-layout-once-menu): Set the
1230 layout only one time and revert to no-layout to freely handle
1233 * src/clfswm-nw-hooks.lisp
1234 (open-in-new-frame-in-root-frame-nw-hook): Tile layout with spaces
1235 with new created window.
1237 * src/clfswm-layout.lisp (register-layout): Now register
1238 automatically a once layout to set the layout only one time and
1239 revert to no-layout to freely handle frames.
1241 2008-04-05 Philippe Brochard <pbrochard@common-lisp.net>
1243 * src/clfswm-nw-hooks.lisp (leave-focus-frame-nw-hook): New
1244 nw-hook: Open the next window in the current frame and leave the
1245 focus to the current child.
1247 2008-04-04 Philippe Brochard <pbrochard@common-lisp.net>
1249 * src/bindings-second-mode.lisp: Add keys definitions to
1250 bind-or-jump in the second mode.
1252 * src/clfswm-util.lisp (bind-or-jump): remove the auto-defining
1253 macro for bind-or-jump-(1|2|3...).
1255 * src/clfswm-keys.lisp (define-define-key/mouse): Allow additional
1256 arguments to function. This allow to do things like:
1257 (define-main-key (key) 'my-function 10 20 'foo) -> 10 20 and 'foo
1258 are passed to my-function on key press.
1260 2008-04-03 Philippe Brochard <pbrochard@common-lisp.net>
1262 * src/clfswm-util.lisp (bind-or-jump): New (great) function.
1264 2008-04-02 Philippe Brochard <pbrochard@common-lisp.net>
1266 * src/clfswm-internal.lisp (child-fullname): New function
1268 * src/clfswm-info.lisp (info-mode-menu): Add an explicit optional
1269 docstring in info-mode-menu. An item can be
1270 '((key function) (key function)) or with docstring
1271 '((key function "documentation 1") (key function "bla bla") (key function))
1273 * src/tools.lisp (ensure-n-elems): New function.
1275 * src/bindings-second-mode.lisp: Bind Alt+mouse-1/3 to move or
1276 resize a frame or the window's father.
1278 * src/clfswm.lisp (init-display): Remove tile-space-layout by
1279 default on the root frame.
1281 * src/clfswm-util.lisp (move/resize-frame): Add standard event
1282 hooks handlers (map-request, configure-notify...)
1284 * src/clfswm-internal.lisp (adapt-child-to-father): Limit minimal
1287 2008-04-01 Philippe Brochard <pbrochard@common-lisp.net>
1289 * src/bindings.lisp: Bind Alt+mouse-1/3 to move or resize a frame
1290 or the window's father.
1292 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Stop button
1293 event only if there is a geometry change.
1294 (mouse-focus-move/resize-generic): Generic function to move or
1295 resize a frame or a window father frame.
1297 2008-04-01 Philippe Brochard <pbrochard@common-lisp.net>
1299 * src/clfswm-internal.lisp (show-all-children): Return t if there
1300 is a geometry change.
1302 2008-03-30 Philippe Brochard <pbrochard@common-lisp.net>
1304 * src/bindings.lisp (Up/Down): Swap select previous/next level.
1306 * src/bindings-second-mode.lisp (Up/Down): Swap select previous/next level.
1308 * src/clfswm.lisp (init-display): Create a default frame in the root frame.
1310 * src/clfswm-internal.lisp (place-frame): Place frame from real (pixel) coordinates.
1311 (with-all-*): Reverse the child list to manage the first child last (like in
1314 * src/config.lisp (*create-frame-on-root*): New variable: Create a new frame on the
1315 root window only if true.
1317 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Create a new frame on the
1318 root window only if *create-frame-on-root* is true.
1320 * src/bindings-second-mode.lisp (sm-mouse-click-to-focus-generic): Create a new frame
1323 2008-03-29 Philippe Brochard <pbrochard@common-lisp.net>
1325 * src/bindings-second-mode.lisp (sm-mouse-click-to-focus-generic): Focus, move and resize
1326 the current child (even if it's a window).
1328 2008-03-28 Philippe Brochard <pbrochard@common-lisp.net>
1330 * src/clfswm-util.lisp (mouse-click-to-focus-and-move)
1331 (mouse-click-to-focus-and-resize): New functions.
1333 * src/clfswm-internal.lisp (*-fl->px): Convert float coordinates to pixel.
1334 (*-px->fl): Convert pixel coordinates to float.
1336 * src/tools.lisp (call-hook): Move call-hook to tools.lisp.
1338 2008-03-27 Philippe Brochard <pbrochard@common-lisp.net>
1340 * src/clfswm-layout.lisp (no-layout): Use :first-only to raise only the
1343 * src/clfswm-internal.lisp (hide-all): Split hide-all-children in hide-all
1344 and hide-all-children.
1345 (raise-if-needed): New function.
1346 (show-child): Use a first-p parameter to raise windows only when they are
1349 2008-03-26 Philippe Brochard <pbrochard@common-lisp.net>
1351 * src/clfswm-internal.lisp (select-next/previous-level): Don't use show-all-children
1354 2008-03-25 Philippe Brochard <pbrochard@common-lisp.net>
1356 * src/clfswm-info.lisp (keys-from-list): new function.
1358 * src/*: rename 'childs' in 'children'.
1360 * src/*: rename 'group' in 'frame'.
1362 2008-03-22 Philippe Brochard <pbrochard@common-lisp.net>
1364 * src/clfswm-pack.lisp (explode-group/explode-current-group): new functions.
1366 2008-03-21 Philippe Brochard <pbrochard@common-lisp.net>
1368 * src/clfswm-pack.lisp: Pack, Fill, Resize functions.
1370 2008-03-16 Philippe Brochard <pbrochard@common-lisp.net>
1372 * src/clfswm-nw-hooks.lisp: Register system for new window hooks.
1373 Bind control+o to open the next window in a new group in the root group
1374 (as open in next window in a new workspace in 0801 version).
1376 2008-03-15 Philippe Brochard <pbrochard@common-lisp.net>
1378 * src/clfswm-util.lisp (show/hide-all-groups-info/key): Show/hide all groups info
1381 2008-03-14 Philippe Brochard <pbrochard@common-lisp.net>
1383 * bindings-second-mode.lisp ("ISO_Left_Tab"): Use ISO_Left_Tab
1384 instead of Tab for select-previous-child.
1386 2008-03-13 Philippe Brochard <pbrochard@common-lisp.net>
1388 * clfswm-util.lisp (force-window-in-group/force-window-center-in-group):
1391 2008-03-11 Philippe Brochard <pbrochard@common-lisp.net>
1393 * clfswm-util.lisp (identify-key): Display the documentation
1394 associated to keys when identifying a key.
1396 2008-03-10 Xavier Maillard <xma@gnu.org>
1398 * contrib/clfswm: Complete rewrite of the script. Detect error and
1399 act accordingly. Add command line arguments to configure the
1400 script execution. User can now choose different common lisp
1401 implementation (clisp and sbcl only), choose where to store the
1402 dumped image, where to find clfswm source.
1404 2008-03-09 Philippe Brochard <pbrochard@common-lisp.net>
1406 * clfswm-internal.lisp (process-new-window): Beginning of new
1407 window hook: each group have a hook to tell what he wants to do
1408 with the new created window.
1410 2008-03-08 Xavier Maillard <xma@gnu.org>
1412 * contrib/clfswm: New script. Dump a CLISP image of CLFSWM then
1413 call the resulting executable.
1415 * clfswm.lisp (read-conf-file): Check for the user config file in
1416 XDG_CONFIG_HOME *first*. Freedesktop.org standards should be
1417 prefered whenever possible.
1419 2008-02-27 Philippe Brochard <pbrochard@common-lisp.net>
1421 * clfswm-layout.lisp (*-layout): Add an optional raise-p
1422 parameter in each layout.
1424 2008-02-26 Philippe Brochard <pbrochard@common-lisp.net>
1426 * clfswm-util.lisp (copy/cut-current-child): Does not affect the
1428 (copy/move-current-child-by-name/number): new functions
1429 (focus-group-by-name/number): new functions
1430 (delete-group-by-name/number): new functions
1432 2008-02-24 Philippe Brochard <pbrochard@common-lisp.net>
1434 * ************************************************************ *
1435 *: Major update - No more reference to workspaces. The main *
1436 structure is a tree of groups or application windows. *
1437 * ************************************************************ *
1439 2008-02-07 Philippe Brochard <pbrochard@common-lisp.net>
1441 * clfswm.lisp (read-conf-file): Read configuration in
1442 $HOME/.clfswmrc or in /etc/clfswmrc or in
1443 $XDG_CONFIG_HOME/clfswm/clfswmrc.
1444 (xdg-config-home): Return the content of $XDG-CONFIG-HOME (default
1447 2008-01-18 Philippe Brochard <pbrochard@common-lisp.net>
1449 * clfswm-internal.lisp (show-all-group): Use *root* and *root-gc*
1452 2008-01-03 Philippe Brochard <pbrochard@common-lisp.net>
1454 * clfswm-internal.lisp (find-window-group): New function.
1456 * clfswm*: Change to make clfswm run with clisp/new-clx.
1458 2008-01-01 Philippe Brochard <pbrochard@common-lisp.net>
1460 * clfswm-util.lisp (query-show-paren): Add show parent matching in
1462 (query-string): Bind control+k to delete end of line.
1464 * clfswm-second-mode.lisp (draw-second-mode-window): Display
1465 the action on mouse motion in second mode.
1467 * clfswm.lisp (handle-exposure): Redisplay groups on exposure
1468 event but do not clear the root window.
1469 (handle-configure-request): Adjust unmanaged window from there
1472 * clfswm-internal.lisp (process-new-window): Adjust new window
1473 with the specified hints (max/min/base width/height).
1475 2007-12-31 Philippe Brochard <pbrochard@common-lisp.net>
1477 * clfswm.lisp (handle-configure-request): Send an Configuration
1478 Notify event. This solve a bug with xterm and rxvt who takes some
1479 times to be mapped. Now there is no delay.
1481 * bindings-second-mode.lisp (define-shell): Run programs after
1482 living the second mode.
1484 2007-12-30 Philippe Brochard <pbrochard@common-lisp.net>
1486 * clfswm-internal.lisp (process-new-window): Do not crop transient
1487 window to group size.
1488 (adapt-window-to-group): Do not crop transient window to group
1491 * clfswm.lisp (handle-configure-request): Adapt just the window to
1492 its group and don't take care of the configure request. Remove the
1493 bug with the Gimp outside the group and speed up the window
1495 (handle-exposure): Remove show-all-group on exposure event
1498 2007-12-29 Philippe Brochard <pbrochard@common-lisp.net>
1500 * clfswm-util.lisp (circulate-group-up-copy-window)
1501 (circulate-group-down-copy-window)
1502 (circulate-workspace-up-copy-group)
1503 (circulate-workspace-down-copy-group): Prevent the copy of the
1504 same window in the same workspace.
1506 * bindings-second-mode.lisp (release-copy-selected-window)
1507 (release-copy-selected-group): Prevent the copy of the same window
1508 in the same workspace.
1510 * clfswm-pager.lisp (generic-pager-move-window-on-previous-line)
1511 (generic-pager-move-window-on-next-line): Remove the copy
1513 (generic-pager-move-group-on-next-workspace)
1514 (generic-pager-move-group-on-previous-workspace): Prevent the copy
1515 of the same window in the same workspace.
1517 * bindings-pager.lisp (mouse-pager-copy-selected-window-release)
1518 (mouse-pager-copy-selected-group-release): Prevent the copy of the
1519 same window in the same workspace.
1521 * tools.lisp (setf/=): new macro to set a variable only when
1524 * clfswm-internal.lisp (adapt-window-to-group): use set/= to set
1525 x, y... only when necessary.
1527 2007-12-28 Philippe Brochard <pbrochard@common-lisp.net>
1529 * clfswm.lisp (handle-configure-notify, *configure-notify-hook*):
1530 new function and hook: force windows to stay in its group (solve a
1533 2007-12-25 Philippe Brochard <pbrochard@common-lisp.net>
1535 * bindings-second-mode.lisp (mouse-motion): use hide-group to have
1536 less flickering when moving/resizing groups.
1538 * clfswm-internal.lisp (hide-group): new function.
1539 (show-all-group): clear-all: new parameter.
1541 2007-12-22 Philippe Brochard <pbrochard@common-lisp.net>
1543 * clfswm-keys.lisp (define-define-key): undefine-*-multi-name: new
1545 * clfswm*: Color change for the pager. Typo or better description
1546 in bindings definitions. Define bindings for a qwerty keyboard by
1547 default. dot-clfswmrc show examples to switch to an azerty
1549 License change to GPL v3.
1550 * config.lisp: new file - group all globals variables in this
1553 2007-08-26 Philippe Brochard <pbrochard@common-lisp.net>
1555 * xlib-util.lisp (hide-window): Remove structure-notivy events
1556 when hidding a window.
1558 2007-05-16 Philippe Brochard <pbrochard@common-lisp.net>
1560 * package.lisp (*sm-property-notify-hook*): Readded
1561 property-notify-hook in second mode.
1563 2007-05-15 Philippe Brochard <pbrochard@common-lisp.net>
1565 * clfswm-keys.lisp (produce-doc-html): Better clean up for strings.
1567 2007-05-13 Philippe Brochard <pbrochard@common-lisp.net>
1569 * clfswm-pack.lisp (tile-current-workspace-to/right/left/top/bottom):
1570 Tile the current workspace with the current window on one side and
1571 others on the other (this emulate the larswm, dwm, wmii way). See
1572 the default configuration file to enable this mode by default.
1574 * clfswm-pager.lisp (pager-tile-current-workspace-to): idem for
1577 2007-05-12 Philippe Brochard <pbrochard@common-lisp.net>
1579 * clfswm-pager.lisp (pager-draw-window-in-group): Add
1580 ensure-printable to print windows name even with non-ascii
1583 2007-05-11 Philippe Brochard <pbrochard@common-lisp.net>
1585 * clfswm-pager.lisp (pager-explode-current-group): Create a new
1586 group for each window in group.
1587 (pager-implode-current-group): Move all windows in workspace to
1588 one group and remove other groups.
1590 * clfswm-pack.lisp (explode-group): Create a new group for each
1592 (implode-group): Move all windows in workspace to one group and
1593 remove other groups.
1595 * clfswm-util.lisp (identify-key): Remove local configuration
1596 variables and made them available for configuration from
1598 (query-string): idem.
1600 2007-04-29 Philippe Brochard <pbrochard@common-lisp.net>
1602 * netwm-util.lisp: Start of NetWM compliance.
1603 Add a Netwm client list gestion.
1605 2007-04-28 Philippe Brochard <pbrochard@common-lisp.net>
1607 * clfswm-internal.lisp (create-group-on-request): open a new group
1608 only when the current group is not empty.
1610 * bindings-second-mode.lisp (define-second-key-#\o-control): Fix a
1611 bug with null workspace.
1613 * clfswm-pager.lisp (pager-handle-event): Add a hook
1614 system. This hooks can be changed in the user configuration file.
1616 * package.lisp: All colors and font variables are set in
1617 package.lisp and can be configured in the user configuration
1619 Note: If you have configured some less ugly colors (esp. for the
1620 pager) don't hesitate to let me know :)
1622 * clfswm-second-mode.lisp (sm-handle-event): Add a hook
1623 system. This hooks can be changed in the user configuration file.
1625 * clfswm.lisp (handle-event): Add a hook system. This hooks can be
1626 changed in the user configuration file (~/.clfswmrc)
1628 2007-04-25 Philippe Brochard <pbrochard@common-lisp.net>
1630 * clfswm-util.lisp (stop-all-pending-actions): new function: reset
1631 arrow action, open next window in new workspace/group.
1633 * bindings.lisp (stop-all-pending-actions): new binding.
1634 (open-next-window-in-new-group-once): Open the next windows in a
1635 new group (only once) or open all new windows in a new group (like
1636 others windows managers).
1638 2007-04-22 Philippe Brochard <pbrochard@common-lisp.net>
1640 * clfswm.lisp (read-conf-file): New function to read a lisp
1641 configuration file at startup.
1642 (focus-group-under-mouse): Check if group isn't the current group
1643 ( prevent a bug with unclutter ).
1645 2007-03-02 Philippe Brochard <pbrochard@common-lisp.net>
1647 * bindings.lisp (run-program-from-query-string): A program can be
1648 launch from a input query window.
1650 2007-03-01 Philippe Brochard <pbrochard@common-lisp.net>
1652 * clfswm-info.lisp: Fix a bug with banish pointer in info mode.
1654 2007-02-28 Philippe Brochard <pbrochard@common-lisp.net>
1656 * clfswm.lisp (process-new-window): One can now open the next
1657 window in a workspace called by its number.
1659 * clfswm-util.lisp (query-font-string): Minimal editing
1661 (eval-from-string): And an REPL in the window manager... :)
1663 2007-02-26 Philippe Brochard <pbrochard@common-lisp.net>
1665 * clfswm.lisp (process-new-window): One can now open the next
1666 window in a new workspace or a new group.
1668 * clfswm-pager.lisp (pager-mode): Display the next arrow action
1669 with the hidden windows.
1671 * clfswm.lisp (second-key-mode): Display the current workspace
1672 number and the next arrow action in the state window.
1674 * clfswm-pager.lisp (pager-mode): Hide all windows before leaving
1675 the pager mode and then redisplay only the current workspace.
1677 2007-02-25 Philippe Brochard <pbrochard@common-lisp.net>
1679 * clfswm.lisp (add-workspace): Workspaces are now numbered. So
1680 they can be focused with a keypress, sorted or renumbered.
1682 2007-02-24 Philippe Brochard <pbrochard@common-lisp.net>
1684 * clfswm-pager.lisp (pager-mode): Remove multiple silly
1685 pager-draw-display. This prevent a lot of flickering in the
1688 * clfswm.lisp: Remove all display-force-output and replace them
1689 with only one display-finish-output in the event loop.
1691 2006-11-06 Philippe Brochard <pbrochard@common-lisp.net>
1693 * clfswm-pager.lisp (pager-center-group): New function - center a
1694 group at the middle of the screen.
1696 * clfswm-pack.lisp (center-group): New function - center a group
1697 at the middle of the screen.
1699 * clfswm.lisp (show-group): Add a cross line under the group.
1700 (show-group): Group are showned even if fullscreened.
1701 (init-display): Add an exposure event on the root window.
1703 2006-11-05 Philippe Brochard <pbrochard@common-lisp.net>
1705 * package.lisp (*default-group*): Default group is the same size
1706 of a fullscreened group.
1708 * bindings*: Use shift to move, control+shift to copy.
1710 * *.lisp: Add comments for configuration or alternatives. So grep
1711 for CONFIG to see where you can configure clfswm. And grep for
1712 Alternative to use some commented code.
1714 * clfswm.lisp (second-key-mode): Use a single window to show the
1715 second mode. See for alternatives at the end of this file.
1717 2006-11-03 Philippe Brochard <pbrochard@common-lisp.net>
1719 * clfswm-keys.lisp (define-define-key/mouse): Factorisation in a
1720 macro of key and mouse definitions.
1721 (define-define-key/mouse): Use state instead of modifiers list
1722 this fix a bug when the modifiers list is not in the rigth order.
1724 * clfswm.lisp (second-key-mode): Add a colored border in second mode.
1726 2006-11-02 Philippe Brochard <pbrochard@common-lisp.net>
1728 * clfswm-info.lisp (info-mode): Add an info mode.
1730 2006-11-01 Philippe Brochard <pbrochard@common-lisp.net>
1732 * clfswm.lisp (process-new-window): Change border size for
1734 (show-all-windows-in-workspace): Unhide all windows even when the
1735 current group is in fullscreen mode.
1737 2006-10-26 Philippe Brochard <pbrochard@common-lisp.net>
1739 * clfswm-util.lisp (identify-key): Add an exposure handle-event to
1740 redisplay the identify window after a terminal switch.
1742 * clfswm-pager.lisp (pager-mode): Add an exposure handle-event to
1743 redisplay the pager after a terminal switch.
1745 2006-10-24 Philippe Brochard <pbrochard@common-lisp.net>
1747 * clfswm-util.lisp (identify-key): Add a window to display
1748 the keys to identify on screen.
1750 * bindings.lisp, bindings-pager.lisp: Define same keys to
1751 move/copy groups/windows in second mode and in pager.
1753 * clfswm.lisp (handle-event*): Same version in all clfswm (fix some
1755 (show-all-windows-in-workspace): unhide window before adapting it
1758 2006-10-23 Philippe Brochard <pbrochard@common-lisp.net>
1760 * clfswm.lisp (handle-event): Revert to an older version.
1762 2006-10-18 Philippe Brochard <pbrochard@common-lisp.net>
1764 * clfswm-util.lisp (force-window-in-group)
1765 (force-window-center-in-group): New functions for transient windows.
1767 * clfswm-pager.lisp (pager-remove-current-workspace/group):
1768 bugfix: hide all windows before removing group or workspace.
1770 2006-10-17 Philippe Brochard <pbrochard@common-lisp.net>
1772 * bindings-pager.lisp (mouse-pager-move-selected-group)
1773 (mouse-pager-copy-selected-group)
1774 (mouse-pager-move-selected-window)
1775 (mouse-pager-copy-selected-window, mouse-pager-rotate-window-up)
1776 (mouse-pager-rotate-window-down): New functions to have mouse in
1779 * clfswm-pager.lisp (pager-swap-window)
1780 (pager-copy-group-on-next/previous-workspace)
1781 (pager-copy-window-on-next/previous-line): New functions
1783 2006-10-15 Philippe Brochard <pbrochard@common-lisp.net>
1785 * clfswm-pager.lisp (pager-move-window-on-next/previous-line,
1786 (pager-move-group-on-next/previous-workspace): new functions.
1788 * clfswm-pack.lisp (resize-half-x-x-current-group): resize group
1789 to its half size (new functions).
1791 2006-10-11 Philippe Brochard <pbrochard@common-lisp.net>
1793 * clfswm-pager.lisp: workspaces, groups and windows can now be
1794 selectionned with the keyboard or the mouse.
1796 2006-10-09 Philippe Brochard <pbrochard@common-lisp.net>
1798 * clfswm-pager.lisp (pager-select-workspace-right/left):
1799 workspaces can now be selectionned with the keyboard.
1801 2006-10-08 Philippe Brochard <pbrochard@common-lisp.net>
1803 * clfswm-keys.lisp (undefine-main-key, undefine-second-key, undefine-mouse-action):
1804 new function to remove a previous defined key or mouse combination.
1806 2006-10-07 Philippe Brochard <pbrochard@common-lisp.net>
1808 * clfswm.lisp (main): Check for access error in init-display.
1810 * clfswm-keys.lisp (define-ungrab/grab): check for keysym and
1811 keycode before grabbing.
1813 * bindings.lisp: Remove nlambda and use defun to keep the function
1814 documentation with clisp.
1815 (define-shell): new macro to define shell command for the second
1818 2006-10-06 Philippe Brochard <pbrochard@common-lisp.net>
1820 * clfswm-keys.lisp (define-ungrab/grab): use a cond instead of a
1823 2006-10-05 Philippe Brochard <pbrochard@common-lisp.net>
1825 * bindings.lisp (accept-motion): Move group bugfix in upper mouse
1826 workspace circulation.
1828 * clfswm-util.lisp (absorb-orphan-window): new function.
1830 * clfswm-keys.lisp: Keysyms support.
1832 2006-10-02 Philippe Brochard <pbrochard@common-lisp.net>
1834 * clfswm.lisp (show-group): Use one gc for all groups and not one
1837 2006-10-01 Philippe Brochard <pbrochard@common-lisp.net>
1839 * bindings.lisp (define-second-key (#\l :mod-1)): fix a typo.
1841 * clfswm.lisp (adapt-window-to-group): Adapt only windows with
1842 width and height outside group.
1844 2006-09-28 Philippe Brochard <pbrochard@common-lisp.net>
1846 * clfswm.lisp: First public release.