src/xlib-util.lisp (handle-event): use with-xlib-protect only in handle-event. Add...
[clfswm.git] / ChangeLog
blob3b1993a4fa488ae0b810cfe5da65a628069ff657
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
15         clisp compatibility.
17         * src/tools.lisp (do-execute): New parameter io to change the
18         input/output method.
20         * src/clfswm-util.lisp (hide-current-child): Prevent from removing
21         the current root.
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
27         needed.
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
73         of an event-case.
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
93         to graphics events.
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
106         like emacs.
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
112         children).
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
119         mouse.
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
128         stopping it.
130 2010-07-16  Philippe Brochard  <pbrochard@common-lisp.net>
132         * src/clfswm-util.lisp (identify-key): Add a timeout in
133         xlib:process-event.
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
148         to 1%.
150 2009-12-15  Philippe Brochard  <pbrochard@common-lisp.net>
152         * src/clfswm.lisp (main-loop): Add a *loop-hook* parameter and a
153         loop timeout.
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
161         parameter.
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
178         info mode.
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
184         contrib.
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
199         windows.
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
224         size.
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
246         number key cleanup.
248 2009-06-18  Philippe Brochard  <pbrochard@common-lisp.net>
250         * src/config.lisp (get-fullscreen-size):  One pixel adjustment
251         (again).
253         * src/clfswm-placement.lisp (*-child-placement): One pixel
254         adjustment (again).
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
262         sizes.
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
291         brothers.
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
302         default modifier.
304         * src/clfswm-info.lisp (info-mode): Handle motion with a default
305         modifier.
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
318         child.
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
341         the window display.
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
354         window redraw.
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
377         font-string.
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
384         sized windows.
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
397         argument.
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
436         and mouse bindings.
438 2008-10-10  Philippe Brochard  <pbrochard@common-lisp.net>
440         * src/clfswm-menu.lisp (open-menu): Remember parent menu to undo
441         menu opening.
443 2008-10-09  Philippe Brochard  <pbrochard@common-lisp.net>
445         * src/menu-def.lisp: Use a menu instead of a function for the
446         standard menu.
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
470         deleted child.
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
478         entry.
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
499         entry.
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
507         frames.
509         * src/clfswm-util.lisp (set-focus-policy-generic-for-all)
510         (all-frames-set-*-focus-policy): Set a focus policy for all
511         frames.
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
530         CLFSWM.
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
552         focus policy.
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
560         functions.
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
583         actions.
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
602         variable.
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
616         layouts.
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
620         in the main mode.
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
628         window id.
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
635         events.
637         * src/clfswm.lisp (handle-motion-notify): Compress motion events.
639         * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Compress
640         motion events.
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
652         directions :)
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
672         child in its frame.
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
689         frame.
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
710         functions.
712         * src/clfswm-util.lisp (hide/show-frame-window): new function and
713         menu item.
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
728         autodoc functions.
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
734         expected).
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
739         one child.
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):
745         new functions.
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
756         resize windows.
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
777         child.
779         * src/bindings-second-mode.lisp: Use "Tab" instead of
780         "Iso_Left_Tab".
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
797         binding on C-t.
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
817         where frame is null.
818         (place-frame): Check if frame and parent are frames.
820         * src/clfswm-info.lisp (info-mode): display all frame info before
821         leaving.
823         * src/clfswm-second-mode.lisp (second-key-mode): display all frame
824         info before leaving.
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
834         display text.
836         * src/clfswm-query.lisp (query-string): Use a double buffer to
837         display text.
839         * src/clfswm-info.lisp (draw-info-window): Use a double buffer to
840         display text.
842         * src/xlib-util.lisp (clear-pixmap-buffer, copy-pixmap-buffer):
843         New functions.
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
850         menu-def.lisp.
852         * src/clfswm-layout.lisp (register-layout): Use a function instead
853         of a macro.
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
863         recursive bug).
864         (move-child-to): Rename move/copy-current-child-by to
865         move/copy-child-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
897         hints.
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
917         handle.
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
925         function.
927         * src/tools.lisp (ensure-printable): Return always a string even
928         with a null string.
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
944         to clfswm-util.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
957         created frame.
958         (show-all-children): Move the size computation outside the
959         show-child part.
961         * src/bindings-second-mode.lisp (with-movement): Redisplay only
962         the current child.
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
993         the second mode.
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
1007         frames.
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
1061         child size to 1x1.
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
1088         show-all-children).
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
1097         on the root window.
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
1117         first child.
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
1123         first child.
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
1128         -> less flickering.
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
1155         window.
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):
1165         new functions.
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
1203         root group.
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
1221         to $HOME/.config/).
1223 2008-01-18  Philippe Brochard  <pbrochard@common-lisp.net>
1225         * clfswm-internal.lisp (show-all-group): Use *root* and *root-gc*
1226         by default.
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
1237         query string.
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
1246         request.
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
1265         size.
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
1270         manipulation.
1271         (handle-exposure): Remove show-all-group on exposure event
1272         -> Speed up.
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
1288         property.
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
1298         necessary.
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
1307         bug with the Gimp).
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
1320         macro.
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
1324         keyboard.
1325         License change to GPL v3.
1326         * config.lisp: new file - group all globals variables in this
1327         file.
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
1351         the pager.
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
1357         characters.
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
1367         window in group.
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
1373         package.lisp.
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
1394         file.
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
1436         capabilities.
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
1462         pager.
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
1509         transient windows.
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
1530         drawing lags).
1531         (show-all-windows-in-workspace): unhide window before adapting it
1532         to group.
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
1553         pager mode.
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
1592         mode.
1594 2006-10-06  Philippe Brochard  <pbrochard@common-lisp.net>
1596         * clfswm-keys.lisp (define-ungrab/grab): use a cond instead of a
1597         boggus typecase.
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
1611         per group.
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.