1 2010-09-04 Philippe Brochard <pbrochard@common-lisp.net>
3 * src/xlib-util.lisp (handle-event): use with-xlib-protect only in
4 handle-event. Add a with-simple-restart to prevent a
5 clisp/new-lisp infinite loop.
7 2010-08-30 Philippe Brochard <pbrochard@common-lisp.net>
9 * src/clfswm-corner.lisp (present-clfswm-terminal): Make the
10 clfswm terminal working even on xterm title changes.
12 2010-08-29 Philippe Brochard <pbrochard@common-lisp.net>
14 * src/clfswm-util.lisp (run-other-window-manager): Update for
17 * src/tools.lisp (do-execute): New parameter io to change the
20 * src/clfswm-util.lisp (hide-current-child): Prevent from removing
23 * src/clfswm-internal.lisp (child-member): New predicate.
24 (child-remove): New function.
26 * src/*.lisp: Use child-member and child-remove everywhere it's
29 2010-08-28 Philippe Brochard <pbrochard@common-lisp.net>
31 * src/clfswm.lisp (main-loop): Ensure that all events have been
32 processed after a process-event.
34 * src/clfswm-internal.lisp (is-in-current-child-p): New function.
36 2010-08-27 Philippe Brochard <pbrochard@common-lisp.net>
38 * src/clfswm.lisp (main-mode:configure-request): Raise the window
39 only when present on the current child and focus it accordingly.
41 2010-08-26 Philippe Brochard <pbrochard@common-lisp.net>
43 * src/clfswm-circulate-mode.lisp (circulate-loop-function):
44 Use is-a-key-pressed-p.
46 * src/xlib-util.lisp (is-a-key-pressed-p): New predicate.
48 * src/clfswm-keys.lisp (define-ungrab/grab): Use all values
49 returned by xlib:keysym->keycodes.
51 * src/*.lisp: Use the new child-equal-p to compare children. This
52 prevent a bug with sbcl/cmucl when the standard equal function
53 does not work with xlib:window.
55 * src/clfswm-internal.lisp (child-equal-p): New predicate.
57 2010-08-25 Philippe Brochard <pbrochard@common-lisp.net>
59 * src/clfswm-generic-mode.lisp (generic-mode): Use an
60 xlib:event-listen before processing event with
61 xlib:process-event. This prevent a bug with CLX threaded
62 implementation like sbcl.
64 * src/clfswm.lisp (main-loop): Use an xlib:event-listen before
65 processing event with xlib:process-event. This prevent a bug with
66 CLX threaded implementation like sbcl.
68 2010-08-17 Philippe Brochard <pbrochard@common-lisp.net>
70 * contrib/server/key.lisp (ushell-sh): Add ccl and ecl support.
72 * src/xlib-util.lisp (compress-motion-notify): Use a loop instead
75 * src/clfswm-internal.lisp (with-find-in-all-frames): New macro.
76 (find-parent-frame, find-frame-window, find-frame-by-name)
77 (find-frame-by-number): Use with-find-in-all-frames to search in
78 frames in the right order.
80 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Fix an
81 unwanted flickering with unmanaged windows.
83 2010-08-16 Philippe Brochard <pbrochard@common-lisp.net>
85 * src/package.lisp: Remove event handler hooks as they're not
86 needed anymore (To replace them: use closure and define-handler).
88 * src/xlib-util.lisp (move-window, resize-window)
89 (wait-mouse-button-release): Use a generic mode.
91 * src/*.lisp: Replace the case to handle event with a more (tricky)
92 lispy method which bind a function to each keywords associated
95 2010-07-23 Philippe Brochard <pbrochard@common-lisp.net>
97 * src/clfswm-util.lisp (delete-current-child): Invert bindings and
98 menu entry between delete-current-child and remove-current-child.
99 ie: Delete a child and its children in all frames by default.
101 2010-07-21 Philippe Brochard <pbrochard@common-lisp.net>
103 * src/package.lisp: Add a placement configuration group.
105 * src/binding*.lisp: Bind control+g to escape the current action
108 * src/clfswm-internal.lisp
109 (delete-child-and-children-in-all-frames): New function and
110 binding: Second mode - Control+Delete delete the current child and
111 its children in all frames (ie: close the current child and its
114 2010-07-20 Philippe Brochard <pbrochard@common-lisp.net>
116 * src/clfswm-internal.lisp (remove-child-in-frame): Do not destroy
117 the frame window and the frame gc. Close a very annoying bug when
118 cuting/pasting a frame or moving a child over frames with the
121 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Redisplay
122 all children in *current-root* after moving/resizing a frame.
124 2010-07-18 Philippe Brochard <pbrochard@common-lisp.net>
126 * src/clfswm-util.lisp (delete-focus-window)
127 (destroy-focus-window): Remove child in parent frame before
130 2010-07-16 Philippe Brochard <pbrochard@common-lisp.net>
132 * src/clfswm-util.lisp (identify-key): Add a timeout in
134 (mouse-click-to-focus-generic): Use find-child-under-mouse instead
135 of the window passed by xlib:process-event.
137 * src/xlib-util.lisp (move-window, resize-window)
138 (wait-mouse-button-release): Add a timeout in xlib:process-event.
140 2010-04-11 Philippe Brochard <pbrochard@common-lisp.net>
142 * src/clfswm-util.lisp (run-other-window-manager): Add the ability
143 to launch an other window manager and to return to clfswm.
145 2010-03-18 Philippe Brochard <pbrochard@common-lisp.net>
147 * src/clfswm-layout.lisp (set-tile-space-layout): Set default
150 2009-12-15 Philippe Brochard <pbrochard@common-lisp.net>
152 * src/clfswm.lisp (main-loop): Add a *loop-hook* parameter and a
155 * src/clfswm-generic-mode.lisp (generic-mode): Add a loop-hook
156 parameter and a loop timeout.
158 2009-12-05 Philippe Brochard <pbrochard@common-lisp.net>
160 * src/clfswm.lisp (main): Add an alternate configuration filename
163 * load.lisp: Add a debuging code example.
165 2009-11-14 Philippe Brochard <pbrochard@common-lisp.net>
167 * src/clfswm-configuration.lisp (create-configuration-menu): New
168 menu to configure all clfswm variables while clfswm is running.
170 2009-11-12 Philippe Brochard <pbrochard@common-lisp.net>
172 * src/clfswm-util.lisp (save-configuration-variables): New
173 function to save all configuration variables in clfswmrc.
175 2009-11-11 Philippe Brochard <pbrochard@common-lisp.net>
177 * src/clfswm-info.lisp (info-mode): Begining of mouse support in
179 (set-default-info-keys): Add cursor key support in info mode.
181 2009-11-08 Philippe Brochard <pbrochard@common-lisp.net>
183 * contrib/reboot-halt.lisp: Add a Suspend/Reboot/Halt menu in
186 * src/clfswm.lisp (main): Add a read-conf-file-p parameter to
187 prevent reading the configuration file (this may be useful to
188 produce the original documentation without user modifications
189 with the rc configuration file).
191 2009-11-07 Philippe Brochard <pbrochard@common-lisp.net>
193 * src/bindings-second-mode.lisp (set-default-second-keys):
194 Simplification of Escape key to close/kill/remove the focus window
195 and unhide all windows.
197 * src/bindings.lisp (set-default-main-keys): Simplification of
198 Escape key to close/kill/remove the focus window and unhide all
201 * src/clfswm-util.lisp (ask-close/kill-current-window): Add remove
202 focus and unhide all windows capabilities.
204 2009-10-10 Philippe Brochard <pbrochard@common-lisp.net>
206 * contrib/mpd.lisp (start-gmpc): Add gmpc in the mpd menu.
208 2009-07-29 Philippe Brochard <pbrochard@common-lisp.net>
210 * src/clfswm-layout.lisp (tile-layout, tile-horizontal-layout):
211 Keep child order and don't make unnecessary child movement.
212 (one-column-layout, one-line-layout): New layouts.
214 2009-06-29 Philippe Brochard <pbrochard@common-lisp.net>
216 * contrib/cd-player.lisp: New file to handle the CD player.
218 * contrib/xmms.lisp: New file to handle the xmms player.
220 2009-06-28 Philippe Brochard <pbrochard@common-lisp.net>
222 * src/clfswm-layout.lisp (set-no-layout-remember-size): New layout:
223 Maximize windows in there frame - Leave frames to there actual
226 * src/bindings-second-mode.lisp (set-default-second-keys): Bind
227 "o" on set-open-in-new-frame-in-parent-frame-nw-hook.
229 2009-06-27 Philippe Brochard <pbrochard@common-lisp.net>
231 * contrib/keyb_fr.lisp: New file to handle an azerty keyboard.
233 2009-06-24 Philippe Brochard <pbrochard@common-lisp.net>
235 * contrib/mpd.lisp: Use a standard menu.
237 * src/clfswm-info.lisp: Use a standard menu for the help-menu.
239 2009-06-22 Philippe Brochard <pbrochard@common-lisp.net>
241 * contrib/mpd.lisp: New file to handle the Music Player Daemon (MPD)
243 2009-06-19 Philippe Brochard <pbrochard@common-lisp.net>
245 * src/clfswm-autodoc.lisp (produce-doc, produce-doc-html): Minor
248 2009-06-18 Philippe Brochard <pbrochard@common-lisp.net>
250 * src/config.lisp (get-fullscreen-size): One pixel adjustment
253 * src/clfswm-placement.lisp (*-child-placement): One pixel
256 2009-06-16 Philippe Brochard <pbrochard@common-lisp.net>
258 * src/clfswm-circulate-mode.lisp (draw-circulate-mode-window):
259 Ensure that all characters are printable.
261 * src/config.lisp (get-fullscreen-size): Adjust default fullscreen
264 * src/clfswm-placement.lisp (*-child-placement): Adjust
265 coordinates to one pixel in the current child.
267 2009-06-04 Philippe Brochard <pbrochard@common-lisp.net>
269 * src/clfswm-query.lisp (query-enter-function): Assign font before
270 width and height calculation.
272 2009-06-03 Philippe Brochard <pbrochard@common-lisp.net>
274 * src/xlib-util.lisp (banish-pointer): Use with-placement macro to
275 bannish the pointer in an arbitrary place.
277 * src/clfswm-info.lisp (info-mode): Use with-placement macro to
278 place the info window in an arbitrary place.
280 * src/clfswm-query.lisp (query-enter-function): Use with-placement
281 macro to place the query window in an arbitrary place.
283 * src/clfswm-placement.lisp: New file. Allow to place info windows
284 or query windows on an arbitrary place. Allow to bannish the
285 pointer on an arbitrary place.
287 2009-05-16 Philippe Brochard <pbrochard@common-lisp.net>
289 * src/clfswm-circulate-mode.lisp (reorder-child)
290 (reorder-brother): Unfocus windows before reordering children or
293 2009-05-13 Philippe Brochard <pbrochard@common-lisp.net>
295 * src/clfswm-circulate-mode.lisp (reorder-brother): Ensure that
296 the parent is a frame.
298 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Handle
299 motion with a default modifier.
301 * src/clfswm.lisp (handle-motion-notify): Handle motion with a
304 * src/clfswm-info.lisp (info-mode): Handle motion with a default
306 (info-mode): Optimization in loop function.
308 2009-05-10 Philippe Brochard <pbrochard@common-lisp.net>
310 * src/clfswm-circulate-mode.lisp (reorder-brother): Handle
311 root-frame correctly.
313 * clfswm.asd: Dependency fix for clfswm-generic-mode.
315 * src/clfswm-circulate-mode.lisp (reorder-child)
316 (reorder-brother): Handle empty frames.
317 (reorder-brother): Redisplay only the parent frame of the current
320 * src/clfswm-util.lisp (frame-toggle-maximize): Redisplay only the
321 parent frame of the current frame.
323 2009-05-09 Philippe Brochard <pbrochard@common-lisp.net>
325 * src/clfswm-util.lisp (frame-toggle-maximize): New function:
326 Maximize/Unmaximize the current frame in its parent frame.
328 * src/clfswm-layout.lisp (maximize-layout): New layout: Maximize
329 windows and frames in there parent frame.
331 2009-05-05 Philippe Brochard <pbrochard@common-lisp.net>
333 * src/*.lisp: Add support for Clozure Common Lisp (CCL).
335 * src/clfswm-circulate-mode.lisp (reorder-child)
336 (reorder-brother): Reinitialise on circulate type change
337 child to brother or brother to child.
339 * src/*.lisp (*): Use map-window instead of xlib:map-window. So
340 calls xlib:display-finish-output on each map-request. So speed up
343 * src/xlib-util.lisp (map-window): New function. Call
344 xlib:display-finish-output on each map request.
346 2009-04-28 Philippe Brochard <pbrochard@common-lisp.net>
348 * src/clfswm-second-mode.lisp (sm-handle-motion-notify):
349 Optimisation when drawing second mode window.
351 2009-04-27 Philippe Brochard <pbrochard@common-lisp.net>
353 * src/clfswm-circulate-mode.lisp (circulate-mode): Optimisation in
356 2009-04-22 Philippe Brochard <pbrochard@common-lisp.net>
358 * src/clfswm-util.lisp (run-program-from-query-string): Launch
359 command only with a return validation.
361 2009-04-22 Xavier Maillard <xma@gnu.org>
363 * src/clfswm-query.lisp (query-string): Use a generic mode.
365 2009-04-19 Xavier Maillard <xma@gnu.org>
367 * src/clfswm-info.lisp (info-mode): Use generic-mode for info-mode.
369 2009-04-18 Xavier Maillard <xma@gnu.org>
371 * src/clfswm-generic-mode.lisp (generic-mode): Add a generic mode
372 to define all other modes.
374 2009-04-05 Philippe Brochard <pbrochard@common-lisp.net>
376 * src/package.lisp (): Use *default-font-string* for all
379 * src/clfswm-info.lisp (info-mode): Ensure integer windows size.
381 2009-02-17 Philippe Brochard <pbrochard@common-lisp.net>
383 * src/xlib-util.lisp (null-size-window-p): Better check of null
386 2009-02-14 Philippe Brochard <pbrochard@common-lisp.net>
388 * src/clfswm.lisp (handle-map-request): Add a fix to manage
389 correctly fullscreen windows (SDL particularly).
391 2008-12-20 Philippe Brochard <pbrochard@common-lisp.net>
393 * src/xlib-util.lisp (get-color): Allocate colors only once -> fix
394 a segfault with clisp/new-clx.
396 * src/clfswm.lisp (handle-motion-notify): Add a needed window
399 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Add a
400 needed window argument.
402 2008-10-30 Philippe Brochard <pbrochard@common-lisp.net>
404 * src/xlib-util.lisp (wait-no-key-or-button-press)
405 (wait-a-key-or-button-press): Check buttons press/release correctly"
407 2008-10-28 Philippe Brochard <pbrochard@common-lisp.net>
409 * src/menu-def.lisp: Add children navigation menu in the movement
410 menu (select next/previous child/brother/level).
412 2008-10-26 Philippe Brochard <pbrochard@common-lisp.net>
414 * *: Rename 'sister' frame to 'brother' frame.
416 * src/clfswm-keys.lisp (unalias-modifiers): Convert a modifier
417 alias in a real modifier.
419 * src/package.lisp (*modifier-alias*): New list of modifier alias
420 For example: :alt is :mod-1, :numlock is :mod-2...
422 * src/tools.lisp (remove-hook): New function.
424 * src/clfswm-keys.lisp (with-capslock, without-capslock)
425 (with-numlock, without-cnumlock): New functions.
427 2008-10-25 Philippe Brochard <pbrochard@common-lisp.net>
429 * src/clfswm-info.lisp: Use the *binding-hook* to create info
430 keys and mouse bindings.
432 * src/bindings-second-mode.lisp: Use the *binding-hook* to create
433 second keys and mouse bindings.
435 * src/bindings.lisp: Use the *binding-hook* to create main keys
438 2008-10-10 Philippe Brochard <pbrochard@common-lisp.net>
440 * src/clfswm-menu.lisp (open-menu): Remember parent menu to undo
443 2008-10-09 Philippe Brochard <pbrochard@common-lisp.net>
445 * src/menu-def.lisp: Use a menu instead of a function for the
448 2008-10-08 Philippe Brochard <pbrochard@common-lisp.net>
450 * src/clfswm-util.lisp (show-standard-menu): Display the standard
451 menu from the 'update-menus' command.
453 2008-10-07 Philippe Brochard <pbrochard@common-lisp.net>
455 * src/clfswm-query.lisp (query-string): Do not ungrab keyboard if
456 it's already grabbed.
458 * src/clfswm-internal.lisp (display-frame-info): Use configurable
459 colors and fix a bug with background.
460 (display-frame-info): Set window background when displaying info.
462 2008-10-06 Philippe Brochard <pbrochard@common-lisp.net>
464 * src/xlib-util.lisp (my-character->keysyms): Use a macro to avoid
465 warning with clisp/new-clx.
467 2008-10-04 Philippe Brochard <pbrochard@common-lisp.net>
469 * src/clfswm-util.lisp (jump-to-slot): Prevent to jump on a
472 2008-09-23 Philippe Brochard <pbrochard@common-lisp.net>
473 * *: **** Release 0809 ****
475 2008-09-23 Philippe Brochard <pbrochard@common-lisp.net>
477 * src/clfswm-util.lisp (ensure-unique-name): New function and menu
479 (ensure-unique-number): New function and menu entry.
481 2008-09-22 Philippe Brochard <pbrochard@common-lisp.net>
483 * src/clfswm-nw-hooks.lisp (named-frame-nw-hook): New new window
484 hook: open the next window in a named frame.
485 (numbered-frame-nw-hook): New new window hook: open the next
486 window in a numbered frame.
488 * src/clfswm-query.lisp (query-string): Grab the keyboard in all
489 cases. So query-string can be called even in the main mode.
491 * src/clfswm-internal.lisp (show-all-children): Do not raise a
492 child by default => far less flickering.
494 2008-09-19 Philippe Brochard <pbrochard@common-lisp.net>
496 * src/bindings-second-mode.lisp: Bind "t" to tile-current-frame.
498 * src/menu-def.lisp: Change key binding for the CLFSWM menu
501 * src/xlib-util.lisp (xgrab-pointer): Handle the case where cursor
502 is nil. (workaround on some CLX implementation).
504 2008-09-12 Philippe Brochard <pbrochard@common-lisp.net>
506 * src/menu-def.lisp: Add a menu to set a focus policy for all
509 * src/clfswm-util.lisp (set-focus-policy-generic-for-all)
510 (all-frames-set-*-focus-policy): Set a focus policy for all
513 * src/clfswm.lisp (handle-enter-notify): sloppy-select
514 mode. Select a child and its parents on mouse over.
516 2008-09-03 Philippe Brochard <pbrochard@common-lisp.net>
518 * src/clfswm.lisp (handle-enter-notify): Add a sloppy strict focus
519 policy -> Sloppy focus only for windows in the current frame.
520 (main-unprotected): Exit clfswm on init error (ie: when another
521 window manager is running).
523 * src/clfswm-util.lisp (reset-clfswm): New function.
525 2008-09-02 Philippe Brochard <pbrochard@common-lisp.net>
527 * src/clfswm-menu.lisp (init-menu): New function.
529 * src/clfswm-util.lisp (reload-clfswm): New function to reload
531 (exit-clfswm): Rename quit-clfswm to exit-clfswm.
533 * src/clfswm.lisp (main, main-unprotected): Handle error in a
534 superior main function. Now CLFSWM can't break the X session. It
535 just reinitialize the display and run a new main loop.
537 * src/clfswm-corner.lisp: Make *clfswm-terminal* and
538 *vt-keyboard-on* global to avoid warnings when loading clfswm.
540 * src/clfswm-layout.lisp: Add a specific GIMP layout menu.
541 (help-on-gimp-layout): Describe how to use the GIMP layout.
543 2008-09-01 Philippe Brochard <pbrochard@common-lisp.net>
545 * src/clfswm-layout.lisp (set-gimp-layout): Change the layout to
546 main-window-right-layout. Change the keybinding for (shift)alt+tab
547 to not select windows in the main window lisst.
548 Bind F8 to add a window in the main window list.
549 Bind F9 to remove a window in the main window list.
550 Change the focus policy to :sloppy.
551 (set-previous-layout): Restore the previous layout, keybinding and
554 2008-08-31 Philippe Brochard <pbrochard@common-lisp.net>
556 * src/clfswm-menu.lisp (add-menu-comment): Add comments in menu.
558 * src/clfswm-layout.lisp (main-window-left-layout)
559 (main-window-bottom-layout, main-window-top-layout): New
561 Factorize layouts in menu.
563 2008-08-30 Philippe Brochard <pbrochard@common-lisp.net>
565 * src/clfswm-layout.lisp (main-window-right-layout): A possible
566 GIMP layout: one or more main windows on one side of the
567 frame. Others on the other size.
569 * src/clfswm-util.lisp
570 (current-frame-set-click/sloppy-focus-policy): Each frame can have
571 a different focus policy (one of :click or :sloppy).
572 The default focus policy is set with *default-focus-policy*.
574 2008-08-23 Philippe Brochard <pbrochard@common-lisp.net>
576 * src/clfswm-info.lisp (show-config-variable): New function.
578 2008-08-19 Philippe Brochard <pbrochard@common-lisp.net>
580 * src/clfswm-layout.lisp (tile-horizontal-layout): New layout.
582 * src/clfswm-info.lisp: Colored help for key binding and corners
585 2008-08-18 Philippe Brochard <pbrochard@common-lisp.net>
587 * src/clfswm-util.lisp (delete-focus-window)
588 (destroy-focus-window): Remove chid only in
589 handle-unmap/destroy-notify. Focus *current-root* only when
590 closing/killing the current child.
592 * src/clfswm-autodoc.lisp (produce-corner-*-doc): New autodoc
593 functions or corners.
595 2008-08-17 Philippe Brochard <pbrochard@common-lisp.net>
597 * src/clfswm-corner.lisp (present-clfswm-terminal): New corner
598 action: Hide/Unhide a terminal on mouse corner action. (By default
599 right mouse button on the top left corner).
601 * src/config.lisp (*never-managed-window-list*): New config
604 * src/clfswm-internal.lisp (never-managed-window-p): New function:
605 Handle never managed window in a more simple way.
607 * src/clfswm-corner.lisp: New file and new and more simple method
608 to define corners actions.
610 2008-08-15 Philippe Brochard <pbrochard@common-lisp.net>
612 * src/clfswm-info.lisp (info-mode): Info line can now be colored.
614 * src/clfswm-layout.lisp (fast-layout-switch)
615 (define-fast-layout-switch): New functions: Switch between two
618 * src/clfswm-second-mode.lisp (leave-second-mode): Takes care if
619 really in the second mode. So leave-second-mode can be used even
622 * src/clfswm-util.lisp (switch-to-last-child): New function:
623 Store the current child and switch to the previous one.
625 2008-07-16 Philippe Brochard <pbrochard@common-lisp.net>
627 * src/clfswm-util.lisp (display-current-window-info): Display the
629 (have-to-present-virtual-keyboard): Add a virtual keyboard corner
630 (top right by default). By default 'xvkbd' is used.
632 2008-06-28 Philippe Brochard <pbrochard@common-lisp.net>
634 * src/xlib-util.lisp (move-window, resize-window): Compress motion
637 * src/clfswm.lisp (handle-motion-notify): Compress motion events.
639 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Compress
642 * src/clfswm-info.lisp (info-mode): Compress motion events.
644 2008-06-21 Philippe Brochard <pbrochard@common-lisp.net>
646 * src/clfswm-internal.lisp (show-all-children): Compute geometry
647 and selection first and then show only necessary children.
648 (show-child): remove unneeded display-p parameter.
650 * src/config.lisp (get-fullscreen-size): Place the frame border
651 outside the screen (this prevent the loose of 2 pixels per
654 2008-06-12 Philippe Brochard <pbrochard@common-lisp.net>
656 * src/clfswm-internal.lisp (focus-child): Algorithm change to
657 raise only the selected child.
659 2008-06-08 Philippe Brochard <pbrochard@common-lisp.net>
661 * src/clfswm-internal.lisp (raise-p-list, show-all-children):
662 Raise only viewable children.
664 2008-06-06 Philippe Brochard <pbrochard@common-lisp.net>
666 * src/clfswm-internal.lisp (show-all-children): Always raise all
667 displayed children. Remove all references to raise-p.
669 2008-06-04 Philippe Brochard <pbrochard@common-lisp.net>
671 * src/menu-def.lisp (child-menu): New menu entry on raise/lower
674 * src/bindings-second-mode.lisp ("Page_Down", "Page_Up"): New
675 second mode binding on raise/lower child in its frame.
677 * src/clfswm-nw-hooks.lisp (leave-focus-frame-nw-hook): Adapt
678 behaviour to the new raise/lower property.
679 Call clear-nw-hook before the rest of the hook.
681 * src/bindings.lisp (mouse-click-to-focus-and-move-window)
682 (mouse-click-to-focus-and-resize-window): Stop button event. This
683 prevent a keyboard/pointer freeze.
685 2008-06-03 Philippe Brochard <pbrochard@common-lisp.net>
687 * src/clfswm-internal.lisp (frame-lower-child)
688 (frame-raise-child): New functions to raise/lower a child in its
691 * src/clfswm-util.lisp (have-to-present-windows)
692 (have-to-present-all-windows): New functions to have an MaxOS
693 expose like on mouse click in screen corner.
695 * src/clfswm-info.lisp ("Page_Down", "Page_Up"): Add boundaries.
697 2008-05-30 Philippe Brochard <pbrochard@common-lisp.net>
699 * src/clfswm-util.lisp (unhide-a-child-from-all-frames): Unhide a
700 child from a choice in all frames with hidden children.
702 * src/clfswm-info.lisp (info-mode-menu): Handle separators.
704 2008-05-28 Philippe Brochard <pbrochard@common-lisp.net>
706 * src/clfswm-util.lisp (hide-current-child, unhide-a-child)
707 (unhide-all-children): New functions.
709 * src/clfswm-info.lisp (info-mode-menu): Handle symbols and
712 * src/clfswm-util.lisp (hide/show-frame-window): new function and
715 2008-05-23 Philippe Brochard <pbrochard@common-lisp.net>
717 * src/clfswm-util.lisp (rename-current-child): Do not display the
718 frame info for a window.
720 2008-05-20 Philippe Brochard <pbrochard@common-lisp.net>
722 * src/clfswm-internal.lisp (remove-child-in-frame): Destroy the
723 frame window for the removed child and its children.
725 2008-05-18 Philippe Brochard <pbrochard@common-lisp.net>
727 * src/clfswm-autodoc.lisp (produce-*-doc-*): Add a note to use the
730 2008-05-17 Philippe Brochard <pbrochard@common-lisp.net>
732 * src/clfswm-nw-hooks.lisp (default-frame-nw-hook): Do not handle
733 the ROX pinboard (ie: leave it lowered in the root window as
736 * src/clfswm-layout.lisp (tile-left-space-layout): New layout.
737 (tile-left-layout, tile-right-layout, tile-top-layout)
738 (tile-bottom-layout): Use all the frame space when there is only
741 * src/clfswm-internal.lisp (place-window-from-hints): Center
742 unmanaged windows in the root screen.
744 * src/clfswm-nw-hooks.lisp (clear-nw-hook, clear-all-nw-hooks):
747 2008-05-15 Philippe Brochard <pbrochard@common-lisp.net>
749 * src/clfswm-util.lisp (current-frame-manage-window-type): Fix a
750 typo in managed types.
752 * src/clfswm-internal.lisp (show-child): Always display frame info
753 even if the frame is hidden.
755 * src/xlib-util.lisp (resize-window): Use a better algorithme to
758 2008-05-13 Philippe Brochard <pbrochard@common-lisp.net>
760 * src/clfswm-util.lisp (with-movement): Display frame info for all
761 frames in current root.
763 2008-05-12 Philippe Brochard <pbrochard@common-lisp.net>
765 * src/*.lisp: Rename 'brother' frames to 'sister' frames.
767 * src/bindings-second-mode.lisp (define-second-key #\a): New
768 binding on 'add-default-frame'.
770 * src/clfswm-autodoc.lisp (produce-*-doc-*-in-file): Show a
771 message to follow the autodocumentation process.
773 2008-05-10 Philippe Brochard <pbrochard@common-lisp.net>
775 * src/clfswm-util.lisp (bind-or-jump): Bind "Tab", "Return" and
776 "Space" to jump to a child. "B" to bind a slot on the current
779 * src/bindings-second-mode.lisp: Use "Tab" instead of
782 2008-05-07 Philippe Brochard <pbrochard@common-lisp.net>
784 * src/clfswm-util.lisp (find-child-under-mouse): Take care of
785 unmanaged (hidden) windows.
787 * src/clfswm-internal.lisp (place-window-from-hints): Give a
788 minimal size for windows.
789 (with-all-windows-frames-and-parent): New function.
791 * src/config.lisp (*default-window-width/height*): New parameters.
793 * src/clfswm-internal.lisp (place-window-from-hints): Center
794 windows in the screen instead of in there frame.
796 * src/bindings-second-mode.lisp (tile-space-current-frame): New
799 * src/clfswm-layout.lisp (register-layout): Intern the once name
800 in the right package.
802 2008-05-05 Philippe Brochard <pbrochard@common-lisp.net>
804 * doc/dot-clfswmrc: Update to follow the new clfswm way.
806 2008-05-03 Philippe Brochard <pbrochard@common-lisp.net>
808 * src/clfswm-internal.lisp (set-current-child)
809 (adapt-child-to-parent, show-child, hide-child): Handle the case
810 where child is not a frame or a window.
812 * src/clfswm-util.lisp
813 (mouse-click-to-focus-generic,mouse-focus-move/resize-generic):
814 Check if child is a frame.
816 * src/clfswm-internal.lisp (managed-window-p): Handle the case
818 (place-frame): Check if frame and parent are frames.
820 * src/clfswm-info.lisp (info-mode): display all frame info before
823 * src/clfswm-second-mode.lisp (second-key-mode): display all frame
826 * src/clfswm-internal.lisp (display-all-frame-info): New function.
828 2008-05-02 Philippe Brochard <pbrochard@common-lisp.net>
830 * src/tools.lisp (getenv): Implemented for ECL.
831 (urun-prog): Implemented for ECL.
833 * src/clfswm-util.lisp (identify-key): Use a double buffer to
836 * src/clfswm-query.lisp (query-string): Use a double buffer to
839 * src/clfswm-info.lisp (draw-info-window): Use a double buffer to
842 * src/xlib-util.lisp (clear-pixmap-buffer, copy-pixmap-buffer):
845 2008-05-01 Philippe Brochard <pbrochard@common-lisp.net>
847 * src/clfswm-info.lisp (info-mode): Add boundaries in the info mode window.
849 * src/menu-def.lisp: New file: move all menu definition in
852 * src/clfswm-layout.lisp (register-layout): Use a function instead
855 2008-04-30 Philippe Brochard <pbrochard@common-lisp.net>
857 * src/clfswm-autodoc.lisp (produce-menu-doc,
858 (produce-menu-doc-html): New functions.
859 (produce-doc-*): Moved to clfswm-autodoc.lisp.
861 * src/clfswm-util.lisp (paste-selection-no-clear): Prevent to
862 paste a child on one of its own children. (this prevent a
864 (move-child-to): Rename move/copy-current-child-by to
866 (mouse-move-window-over-frame): New function to move the window
867 under the mouse cursor to another frame.
869 * src/clfswm-internal.lisp (find-child-in-parent): New function.
871 2008-04-29 Philippe Brochard <pbrochard@common-lisp.net>
873 * src/clfswm-internal.lisp (show-all-children): Display unmanaged
874 windows only when its window parent is the current child.
876 2008-04-28 Philippe Brochard <pbrochard@common-lisp.net>
878 * src/clfswm-util.lisp (manage-current-window)
879 (unmanage-current-window): New functions: Allow to force to manage
880 or unmanage a window by its parent frame.
882 * src/bindings-second-mode.lisp (#\o): binded to
883 set-open-in-new-frame-in-parent-frame-nw-hook and
884 (#\o :control) to set-open-in-new-frame-in-root-frame-nw-hook
886 * src/clfswm-util.lisp (with-current-window): New macro.
888 * src/xlib-util.lisp (move-window, resize-window): Remove uneeded
889 exposure and enter-window handle event.
891 * src/clfswm-util.lisp (move-frame, resize-frame): Show all
892 children for the current child after the move/resize.
894 2008-04-27 Philippe Brochard <pbrochard@common-lisp.net>
896 * src/xlib-util.lisp (resize-window): Take care of window size
899 * src/clfswm-util.lisp (mouse-focus-move/resize-generic): Allow to
900 move/resize unmanaged windows.
902 * src/xlib-util.lisp (move-window, resize-window): New functions.
904 2008-04-25 Philippe Brochard <pbrochard@common-lisp.net>
906 * src/clfswm-util.lisp (current-frame-manage-window-type): Let the
907 user choose what window type the current frame must handle.
908 (display-current-window-info): New function.
909 (current-frame-manage-all-window-type)
910 (current-frame-manage-only-normal-window-type)
911 (current-frame-manage-no-window-type): New functions.
913 * src/clfswm-internal.lisp (managed-window-p): New function.
915 * src/package.lisp (frame): Managed type: new frame
916 parameter. This allow to choose what window type a frame must
919 * src/*.lisp: Rename all 'father' occurrences to 'parent'.
921 * src/clfswm-nw-hooks.lisp
922 (open-in-new-frame-in-parent-frame-nw-hook): New new window hook.
924 * src/clfswm-util.lisp (adapt-current-frame-to-window-hints): New
927 * src/tools.lisp (ensure-printable): Return always a string even
930 2008-04-24 Philippe Brochard <pbrochard@common-lisp.net>
932 * src/config.lisp (*default-nw-hook*): New variable to change the
933 default new window hook.
935 2008-04-22 Philippe Brochard <pbrochard@common-lisp.net>
937 * clfswm.asd (clfswm): Add a dependency from
938 clfswm-second-mode.lisp to clfswm.lisp.
940 * src/clfswm-util.lisp (identify-key): Show the documentation for
941 the function bound on a key.
942 (with-movement): Move with-movement,
943 current-frame-fill/pack/resize-* from bindings-second-mode.lisp
946 * src/clfswm-menu.lisp: New menu system that let user change keys
947 or functions associated to keys.
949 2008-04-18 Philippe Brochard <pbrochard@common-lisp.net>
951 * src/clfswm-internal.lisp (show-all-children): Display-child is
952 the first child by default. Solve a bug with father-p.
954 2008-04-17 Philippe Brochard <pbrochard@common-lisp.net>
956 * src/clfswm-internal.lisp (add-frame): Add frame return the
958 (show-all-children): Move the size computation outside the
961 * src/bindings-second-mode.lisp (with-movement): Redisplay only
964 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Redisplay
965 only the current child.
967 * src/clfswm-internal.lisp (show-all-children): New display-child
968 parameter to display only the desired child and its children.
969 (select-next/previous-child): Only display the current child.
971 2008-04-14 Philippe Brochard <pbrochard@common-lisp.net>
973 * src/clfswm.lisp (init-display): Move the default frame creation
974 on the default init hook.
976 * src/clfswm-keys.lisp (define-ungrab/grab): Handle all keysyms in
977 the main mode (for example: "1" on an azerty keyboard).
979 2008-04-13 Philippe Brochard <pbrochard@common-lisp.net>
981 * src/clfswm-keys.lisp (find-key-from-code): Better handle of
982 keysyms. Revert to old grabbing method for the main mode.
984 2008-04-12 Philippe Brochard <pbrochard@common-lisp.net>
986 * src/clfswm.lisp (init-display): Add key handling on no focus
987 window and on frame windows.
989 2008-04-11 Philippe Brochard <pbrochard@common-lisp.net>
991 * src/clfswm.lisp (main): Keyboard handle strategie change: Grab
992 all keys by default and replay just what is needed. No change for
995 * src/clfswm-keys.lisp: remove grab/ungrab main keys.
996 (find-key-from-code): Test for shift and not shift presence.
998 2008-04-09 Philippe Brochard <pbrochard@common-lisp.net>
1000 * src/clfswm-internal.lisp (switch-to-root-frame): show later -
1001 new key parameter to have less flickering.
1003 2008-04-07 Philippe Brochard <pbrochard@common-lisp.net>
1005 * src/bindings-second-mode.lisp (frame-layout-once-menu): Set the
1006 layout only one time and revert to no-layout to freely handle
1009 * src/clfswm-nw-hooks.lisp
1010 (open-in-new-frame-in-root-frame-nw-hook): Tile layout with spaces
1011 with new created window.
1013 * src/clfswm-layout.lisp (register-layout): Now register
1014 automatically a once layout to set the layout only one time and
1015 revert to no-layout to freely handle frames.
1017 2008-04-05 Philippe Brochard <pbrochard@common-lisp.net>
1019 * src/clfswm-nw-hooks.lisp (leave-focus-frame-nw-hook): New
1020 nw-hook: Open the next window in the current frame and leave the
1021 focus to the current child.
1023 2008-04-04 Philippe Brochard <pbrochard@common-lisp.net>
1025 * src/bindings-second-mode.lisp: Add keys definitions to
1026 bind-or-jump in the second mode.
1028 * src/clfswm-util.lisp (bind-or-jump): remove the auto-defining
1029 macro for bind-or-jump-(1|2|3...).
1031 * src/clfswm-keys.lisp (define-define-key/mouse): Allow additional
1032 arguments to function. This allow to do things like:
1033 (define-main-key (key) 'my-function 10 20 'foo) -> 10 20 and 'foo
1034 are passed to my-function on key press.
1036 2008-04-03 Philippe Brochard <pbrochard@common-lisp.net>
1038 * src/clfswm-util.lisp (bind-or-jump): New (great) function.
1040 2008-04-02 Philippe Brochard <pbrochard@common-lisp.net>
1042 * src/clfswm-internal.lisp (child-fullname): New function
1044 * src/clfswm-info.lisp (info-mode-menu): Add an explicit optional
1045 docstring in info-mode-menu. An item can be
1046 '((key function) (key function)) or with docstring
1047 '((key function "documentation 1") (key function "bla bla") (key function))
1049 * src/tools.lisp (ensure-n-elems): New function.
1051 * src/bindings-second-mode.lisp: Bind Alt+mouse-1/3 to move or
1052 resize a frame or the window's father.
1054 * src/clfswm.lisp (init-display): Remove tile-space-layout by
1055 default on the root frame.
1057 * src/clfswm-util.lisp (move/resize-frame): Add standard event
1058 hooks handlers (map-request, configure-notify...)
1060 * src/clfswm-internal.lisp (adapt-child-to-father): Limit minimal
1063 2008-04-01 Philippe Brochard <pbrochard@common-lisp.net>
1065 * src/bindings.lisp: Bind Alt+mouse-1/3 to move or resize a frame
1066 or the window's father.
1068 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Stop button
1069 event only if there is a geometry change.
1070 (mouse-focus-move/resize-generic): Generic function to move or
1071 resize a frame or a window father frame.
1073 2008-04-01 Philippe Brochard <pbrochard@common-lisp.net>
1075 * src/clfswm-internal.lisp (show-all-children): Return t if there
1076 is a geometry change.
1078 2008-03-30 Philippe Brochard <pbrochard@common-lisp.net>
1080 * src/bindings.lisp (Up/Down): Swap select previous/next level.
1082 * src/bindings-second-mode.lisp (Up/Down): Swap select previous/next level.
1084 * src/clfswm.lisp (init-display): Create a default frame in the root frame.
1086 * src/clfswm-internal.lisp (place-frame): Place frame from real (pixel) coordinates.
1087 (with-all-*): Reverse the child list to manage the first child last (like in
1090 * src/config.lisp (*create-frame-on-root*): New variable: Create a new frame on the
1091 root window only if true.
1093 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Create a new frame on the
1094 root window only if *create-frame-on-root* is true.
1096 * src/bindings-second-mode.lisp (sm-mouse-click-to-focus-generic): Create a new frame
1099 2008-03-29 Philippe Brochard <pbrochard@common-lisp.net>
1101 * src/bindings-second-mode.lisp (sm-mouse-click-to-focus-generic): Focus, move and resize
1102 the current child (even if it's a window).
1104 2008-03-28 Philippe Brochard <pbrochard@common-lisp.net>
1106 * src/clfswm-util.lisp (mouse-click-to-focus-and-move)
1107 (mouse-click-to-focus-and-resize): New functions.
1109 * src/clfswm-internal.lisp (*-fl->px): Convert float coordinates to pixel.
1110 (*-px->fl): Convert pixel coordinates to float.
1112 * src/tools.lisp (call-hook): Move call-hook to tools.lisp.
1114 2008-03-27 Philippe Brochard <pbrochard@common-lisp.net>
1116 * src/clfswm-layout.lisp (no-layout): Use :first-only to raise only the
1119 * src/clfswm-internal.lisp (hide-all): Split hide-all-children in hide-all
1120 and hide-all-children.
1121 (raise-if-needed): New function.
1122 (show-child): Use a first-p parameter to raise windows only when they are
1125 2008-03-26 Philippe Brochard <pbrochard@common-lisp.net>
1127 * src/clfswm-internal.lisp (select-next/previous-level): Don't use show-all-children
1130 2008-03-25 Philippe Brochard <pbrochard@common-lisp.net>
1132 * src/clfswm-info.lisp (keys-from-list): new function.
1134 * src/*: rename 'childs' in 'children'.
1136 * src/*: rename 'group' in 'frame'.
1138 2008-03-22 Philippe Brochard <pbrochard@common-lisp.net>
1140 * src/clfswm-pack.lisp (explode-group/explode-current-group): new functions.
1142 2008-03-21 Philippe Brochard <pbrochard@common-lisp.net>
1144 * src/clfswm-pack.lisp: Pack, Fill, Resize functions.
1146 2008-03-16 Philippe Brochard <pbrochard@common-lisp.net>
1148 * src/clfswm-nw-hooks.lisp: Register system for new window hooks.
1149 Bind control+o to open the next window in a new group in the root group
1150 (as open in next window in a new workspace in 0801 version).
1152 2008-03-15 Philippe Brochard <pbrochard@common-lisp.net>
1154 * src/clfswm-util.lisp (show/hide-all-groups-info/key): Show/hide all groups info
1157 2008-03-14 Philippe Brochard <pbrochard@common-lisp.net>
1159 * bindings-second-mode.lisp ("ISO_Left_Tab"): Use ISO_Left_Tab
1160 instead of Tab for select-previous-child.
1162 2008-03-13 Philippe Brochard <pbrochard@common-lisp.net>
1164 * clfswm-util.lisp (force-window-in-group/force-window-center-in-group):
1167 2008-03-11 Philippe Brochard <pbrochard@common-lisp.net>
1169 * clfswm-util.lisp (identify-key): Display the documentation
1170 associated to keys when identifying a key.
1172 2008-03-10 Xavier Maillard <xma@gnu.org>
1174 * contrib/clfswm: Complete rewrite of the script. Detect error and
1175 act accordingly. Add command line arguments to configure the
1176 script execution. User can now choose different common lisp
1177 implementation (clisp and sbcl only), choose where to store the
1178 dumped image, where to find clfswm source.
1180 2008-03-09 Philippe Brochard <pbrochard@common-lisp.net>
1182 * clfswm-internal.lisp (process-new-window): Beginning of new
1183 window hook: each group have a hook to tell what he wants to do
1184 with the new created window.
1186 2008-03-08 Xavier Maillard <xma@gnu.org>
1188 * contrib/clfswm: New script. Dump a CLISP image of CLFSWM then
1189 call the resulting executable.
1191 * clfswm.lisp (read-conf-file): Check for the user config file in
1192 XDG_CONFIG_HOME *first*. Freedesktop.org standards should be
1193 prefered whenever possible.
1195 2008-02-27 Philippe Brochard <pbrochard@common-lisp.net>
1197 * clfswm-layout.lisp (*-layout): Add an optional raise-p
1198 parameter in each layout.
1200 2008-02-26 Philippe Brochard <pbrochard@common-lisp.net>
1202 * clfswm-util.lisp (copy/cut-current-child): Does not affect the
1204 (copy/move-current-child-by-name/number): new functions
1205 (focus-group-by-name/number): new functions
1206 (delete-group-by-name/number): new functions
1208 2008-02-24 Philippe Brochard <pbrochard@common-lisp.net>
1210 * ************************************************************ *
1211 *: Major update - No more reference to workspaces. The main *
1212 structure is a tree of groups or application windows. *
1213 * ************************************************************ *
1215 2008-02-07 Philippe Brochard <pbrochard@common-lisp.net>
1217 * clfswm.lisp (read-conf-file): Read configuration in
1218 $HOME/.clfswmrc or in /etc/clfswmrc or in
1219 $XDG_CONFIG_HOME/clfswm/clfswmrc.
1220 (xdg-config-home): Return the content of $XDG-CONFIG-HOME (default
1223 2008-01-18 Philippe Brochard <pbrochard@common-lisp.net>
1225 * clfswm-internal.lisp (show-all-group): Use *root* and *root-gc*
1228 2008-01-03 Philippe Brochard <pbrochard@common-lisp.net>
1230 * clfswm-internal.lisp (find-window-group): New function.
1232 * clfswm*: Change to make clfswm run with clisp/new-clx.
1234 2008-01-01 Philippe Brochard <pbrochard@common-lisp.net>
1236 * clfswm-util.lisp (query-show-paren): Add show parent matching in
1238 (query-string): Bind control+k to delete end of line.
1240 * clfswm-second-mode.lisp (draw-second-mode-window): Display
1241 the action on mouse motion in second mode.
1243 * clfswm.lisp (handle-exposure): Redisplay groups on exposure
1244 event but do not clear the root window.
1245 (handle-configure-request): Adjust unmanaged window from there
1248 * clfswm-internal.lisp (process-new-window): Adjust new window
1249 with the specified hints (max/min/base width/height).
1251 2007-12-31 Philippe Brochard <pbrochard@common-lisp.net>
1253 * clfswm.lisp (handle-configure-request): Send an Configuration
1254 Notify event. This solve a bug with xterm and rxvt who takes some
1255 times to be mapped. Now there is no delay.
1257 * bindings-second-mode.lisp (define-shell): Run programs after
1258 living the second mode.
1260 2007-12-30 Philippe Brochard <pbrochard@common-lisp.net>
1262 * clfswm-internal.lisp (process-new-window): Do not crop transient
1263 window to group size.
1264 (adapt-window-to-group): Do not crop transient window to group
1267 * clfswm.lisp (handle-configure-request): Adapt just the window to
1268 its group and don't take care of the configure request. Remove the
1269 bug with the Gimp outside the group and speed up the window
1271 (handle-exposure): Remove show-all-group on exposure event
1274 2007-12-29 Philippe Brochard <pbrochard@common-lisp.net>
1276 * clfswm-util.lisp (circulate-group-up-copy-window)
1277 (circulate-group-down-copy-window)
1278 (circulate-workspace-up-copy-group)
1279 (circulate-workspace-down-copy-group): Prevent the copy of the
1280 same window in the same workspace.
1282 * bindings-second-mode.lisp (release-copy-selected-window)
1283 (release-copy-selected-group): Prevent the copy of the same window
1284 in the same workspace.
1286 * clfswm-pager.lisp (generic-pager-move-window-on-previous-line)
1287 (generic-pager-move-window-on-next-line): Remove the copy
1289 (generic-pager-move-group-on-next-workspace)
1290 (generic-pager-move-group-on-previous-workspace): Prevent the copy
1291 of the same window in the same workspace.
1293 * bindings-pager.lisp (mouse-pager-copy-selected-window-release)
1294 (mouse-pager-copy-selected-group-release): Prevent the copy of the
1295 same window in the same workspace.
1297 * tools.lisp (setf/=): new macro to set a variable only when
1300 * clfswm-internal.lisp (adapt-window-to-group): use set/= to set
1301 x, y... only when necessary.
1303 2007-12-28 Philippe Brochard <pbrochard@common-lisp.net>
1305 * clfswm.lisp (handle-configure-notify, *configure-notify-hook*):
1306 new function and hook: force windows to stay in its group (solve a
1309 2007-12-25 Philippe Brochard <pbrochard@common-lisp.net>
1311 * bindings-second-mode.lisp (mouse-motion): use hide-group to have
1312 less flickering when moving/resizing groups.
1314 * clfswm-internal.lisp (hide-group): new function.
1315 (show-all-group): clear-all: new parameter.
1317 2007-12-22 Philippe Brochard <pbrochard@common-lisp.net>
1319 * clfswm-keys.lisp (define-define-key): undefine-*-multi-name: new
1321 * clfswm*: Color change for the pager. Typo or better description
1322 in bindings definitions. Define bindings for a qwerty keyboard by
1323 default. dot-clfswmrc show examples to switch to an azerty
1325 License change to GPL v3.
1326 * config.lisp: new file - group all globals variables in this
1329 2007-08-26 Philippe Brochard <pbrochard@common-lisp.net>
1331 * xlib-util.lisp (hide-window): Remove structure-notivy events
1332 when hidding a window.
1334 2007-05-16 Philippe Brochard <pbrochard@common-lisp.net>
1336 * package.lisp (*sm-property-notify-hook*): Readded
1337 property-notify-hook in second mode.
1339 2007-05-15 Philippe Brochard <pbrochard@common-lisp.net>
1341 * clfswm-keys.lisp (produce-doc-html): Better clean up for strings.
1343 2007-05-13 Philippe Brochard <pbrochard@common-lisp.net>
1345 * clfswm-pack.lisp (tile-current-workspace-to/right/left/top/bottom):
1346 Tile the current workspace with the current window on one side and
1347 others on the other (this emulate the larswm, dwm, wmii way). See
1348 the default configuration file to enable this mode by default.
1350 * clfswm-pager.lisp (pager-tile-current-workspace-to): idem for
1353 2007-05-12 Philippe Brochard <pbrochard@common-lisp.net>
1355 * clfswm-pager.lisp (pager-draw-window-in-group): Add
1356 ensure-printable to print windows name even with non-ascii
1359 2007-05-11 Philippe Brochard <pbrochard@common-lisp.net>
1361 * clfswm-pager.lisp (pager-explode-current-group): Create a new
1362 group for each window in group.
1363 (pager-implode-current-group): Move all windows in workspace to
1364 one group and remove other groups.
1366 * clfswm-pack.lisp (explode-group): Create a new group for each
1368 (implode-group): Move all windows in workspace to one group and
1369 remove other groups.
1371 * clfswm-util.lisp (identify-key): Remove local configuration
1372 variables and made them available for configuration from
1374 (query-string): idem.
1376 2007-04-29 Philippe Brochard <pbrochard@common-lisp.net>
1378 * netwm-util.lisp: Start of NetWM compliance.
1379 Add a Netwm client list gestion.
1381 2007-04-28 Philippe Brochard <pbrochard@common-lisp.net>
1383 * clfswm-internal.lisp (create-group-on-request): open a new group
1384 only when the current group is not empty.
1386 * bindings-second-mode.lisp (define-second-key-#\o-control): Fix a
1387 bug with null workspace.
1389 * clfswm-pager.lisp (pager-handle-event): Add a hook
1390 system. This hooks can be changed in the user configuration file.
1392 * package.lisp: All colors and font variables are set in
1393 package.lisp and can be configured in the user configuration
1395 Note: If you have configured some less ugly colors (esp. for the
1396 pager) don't hesitate to let me know :)
1398 * clfswm-second-mode.lisp (sm-handle-event): Add a hook
1399 system. This hooks can be changed in the user configuration file.
1401 * clfswm.lisp (handle-event): Add a hook system. This hooks can be
1402 changed in the user configuration file (~/.clfswmrc)
1404 2007-04-25 Philippe Brochard <pbrochard@common-lisp.net>
1406 * clfswm-util.lisp (stop-all-pending-actions): new function: reset
1407 arrow action, open next window in new workspace/group.
1409 * bindings.lisp (stop-all-pending-actions): new binding.
1410 (open-next-window-in-new-group-once): Open the next windows in a
1411 new group (only once) or open all new windows in a new group (like
1412 others windows managers).
1414 2007-04-22 Philippe Brochard <pbrochard@common-lisp.net>
1416 * clfswm.lisp (read-conf-file): New function to read a lisp
1417 configuration file at startup.
1418 (focus-group-under-mouse): Check if group isn't the current group
1419 ( prevent a bug with unclutter ).
1421 2007-03-02 Philippe Brochard <pbrochard@common-lisp.net>
1423 * bindings.lisp (run-program-from-query-string): A program can be
1424 launch from a input query window.
1426 2007-03-01 Philippe Brochard <pbrochard@common-lisp.net>
1428 * clfswm-info.lisp: Fix a bug with banish pointer in info mode.
1430 2007-02-28 Philippe Brochard <pbrochard@common-lisp.net>
1432 * clfswm.lisp (process-new-window): One can now open the next
1433 window in a workspace called by its number.
1435 * clfswm-util.lisp (query-font-string): Minimal editing
1437 (eval-from-string): And an REPL in the window manager... :)
1439 2007-02-26 Philippe Brochard <pbrochard@common-lisp.net>
1441 * clfswm.lisp (process-new-window): One can now open the next
1442 window in a new workspace or a new group.
1444 * clfswm-pager.lisp (pager-mode): Display the next arrow action
1445 with the hidden windows.
1447 * clfswm.lisp (second-key-mode): Display the current workspace
1448 number and the next arrow action in the state window.
1450 * clfswm-pager.lisp (pager-mode): Hide all windows before leaving
1451 the pager mode and then redisplay only the current workspace.
1453 2007-02-25 Philippe Brochard <pbrochard@common-lisp.net>
1455 * clfswm.lisp (add-workspace): Workspaces are now numbered. So
1456 they can be focused with a keypress, sorted or renumbered.
1458 2007-02-24 Philippe Brochard <pbrochard@common-lisp.net>
1460 * clfswm-pager.lisp (pager-mode): Remove multiple silly
1461 pager-draw-display. This prevent a lot of flickering in the
1464 * clfswm.lisp: Remove all display-force-output and replace them
1465 with only one display-finish-output in the event loop.
1467 2006-11-06 Philippe Brochard <pbrochard@common-lisp.net>
1469 * clfswm-pager.lisp (pager-center-group): New function - center a
1470 group at the middle of the screen.
1472 * clfswm-pack.lisp (center-group): New function - center a group
1473 at the middle of the screen.
1475 * clfswm.lisp (show-group): Add a cross line under the group.
1476 (show-group): Group are showned even if fullscreened.
1477 (init-display): Add an exposure event on the root window.
1479 2006-11-05 Philippe Brochard <pbrochard@common-lisp.net>
1481 * package.lisp (*default-group*): Default group is the same size
1482 of a fullscreened group.
1484 * bindings*: Use shift to move, control+shift to copy.
1486 * *.lisp: Add comments for configuration or alternatives. So grep
1487 for CONFIG to see where you can configure clfswm. And grep for
1488 Alternative to use some commented code.
1490 * clfswm.lisp (second-key-mode): Use a single window to show the
1491 second mode. See for alternatives at the end of this file.
1493 2006-11-03 Philippe Brochard <pbrochard@common-lisp.net>
1495 * clfswm-keys.lisp (define-define-key/mouse): Factorisation in a
1496 macro of key and mouse definitions.
1497 (define-define-key/mouse): Use state instead of modifiers list
1498 this fix a bug when the modifiers list is not in the rigth order.
1500 * clfswm.lisp (second-key-mode): Add a colored border in second mode.
1502 2006-11-02 Philippe Brochard <pbrochard@common-lisp.net>
1504 * clfswm-info.lisp (info-mode): Add an info mode.
1506 2006-11-01 Philippe Brochard <pbrochard@common-lisp.net>
1508 * clfswm.lisp (process-new-window): Change border size for
1510 (show-all-windows-in-workspace): Unhide all windows even when the
1511 current group is in fullscreen mode.
1513 2006-10-26 Philippe Brochard <pbrochard@common-lisp.net>
1515 * clfswm-util.lisp (identify-key): Add an exposure handle-event to
1516 redisplay the identify window after a terminal switch.
1518 * clfswm-pager.lisp (pager-mode): Add an exposure handle-event to
1519 redisplay the pager after a terminal switch.
1521 2006-10-24 Philippe Brochard <pbrochard@common-lisp.net>
1523 * clfswm-util.lisp (identify-key): Add a window to display
1524 the keys to identify on screen.
1526 * bindings.lisp, bindings-pager.lisp: Define same keys to
1527 move/copy groups/windows in second mode and in pager.
1529 * clfswm.lisp (handle-event*): Same version in all clfswm (fix some
1531 (show-all-windows-in-workspace): unhide window before adapting it
1534 2006-10-23 Philippe Brochard <pbrochard@common-lisp.net>
1536 * clfswm.lisp (handle-event): Revert to an older version.
1538 2006-10-18 Philippe Brochard <pbrochard@common-lisp.net>
1540 * clfswm-util.lisp (force-window-in-group)
1541 (force-window-center-in-group): New functions for transient windows.
1543 * clfswm-pager.lisp (pager-remove-current-workspace/group):
1544 bugfix: hide all windows before removing group or workspace.
1546 2006-10-17 Philippe Brochard <pbrochard@common-lisp.net>
1548 * bindings-pager.lisp (mouse-pager-move-selected-group)
1549 (mouse-pager-copy-selected-group)
1550 (mouse-pager-move-selected-window)
1551 (mouse-pager-copy-selected-window, mouse-pager-rotate-window-up)
1552 (mouse-pager-rotate-window-down): New functions to have mouse in
1555 * clfswm-pager.lisp (pager-swap-window)
1556 (pager-copy-group-on-next/previous-workspace)
1557 (pager-copy-window-on-next/previous-line): New functions
1559 2006-10-15 Philippe Brochard <pbrochard@common-lisp.net>
1561 * clfswm-pager.lisp (pager-move-window-on-next/previous-line,
1562 (pager-move-group-on-next/previous-workspace): new functions.
1564 * clfswm-pack.lisp (resize-half-x-x-current-group): resize group
1565 to its half size (new functions).
1567 2006-10-11 Philippe Brochard <pbrochard@common-lisp.net>
1569 * clfswm-pager.lisp: workspaces, groups and windows can now be
1570 selectionned with the keyboard or the mouse.
1572 2006-10-09 Philippe Brochard <pbrochard@common-lisp.net>
1574 * clfswm-pager.lisp (pager-select-workspace-right/left):
1575 workspaces can now be selectionned with the keyboard.
1577 2006-10-08 Philippe Brochard <pbrochard@common-lisp.net>
1579 * clfswm-keys.lisp (undefine-main-key, undefine-second-key, undefine-mouse-action):
1580 new function to remove a previous defined key or mouse combination.
1582 2006-10-07 Philippe Brochard <pbrochard@common-lisp.net>
1584 * clfswm.lisp (main): Check for access error in init-display.
1586 * clfswm-keys.lisp (define-ungrab/grab): check for keysym and
1587 keycode before grabbing.
1589 * bindings.lisp: Remove nlambda and use defun to keep the function
1590 documentation with clisp.
1591 (define-shell): new macro to define shell command for the second
1594 2006-10-06 Philippe Brochard <pbrochard@common-lisp.net>
1596 * clfswm-keys.lisp (define-ungrab/grab): use a cond instead of a
1599 2006-10-05 Philippe Brochard <pbrochard@common-lisp.net>
1601 * bindings.lisp (accept-motion): Move group bugfix in upper mouse
1602 workspace circulation.
1604 * clfswm-util.lisp (absorb-orphan-window): new function.
1606 * clfswm-keys.lisp: Keysyms support.
1608 2006-10-02 Philippe Brochard <pbrochard@common-lisp.net>
1610 * clfswm.lisp (show-group): Use one gc for all groups and not one
1613 2006-10-01 Philippe Brochard <pbrochard@common-lisp.net>
1615 * bindings.lisp (define-second-key (#\l :mod-1)): fix a typo.
1617 * clfswm.lisp (adapt-window-to-group): Adapt only windows with
1618 width and height outside group.
1620 2006-09-28 Philippe Brochard <pbrochard@common-lisp.net>
1622 * clfswm.lisp: First public release.