1 2010-11-11 Philippe Brochard <pbrochard@common-lisp.net>
3 * src/clfswm-internal.lisp (set-current-root): Handle
4 window-parent in set-current-root.
6 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Do not
7 focus the parent child when the current root is a window.
9 2010-11-09 Philippe Brochard <pbrochard@common-lisp.net>
11 * src/clfswm-expose-mode.lisp (expose-windows-current-child-mode):
12 New function an bindings.
14 * src/clfswm-layout.lisp (tile-layout, set-tile-layout): Fill
17 2010-11-07 Philippe Brochard <pbrochard@common-lisp.net>
19 * src/clfswm-layout.lisp (tile-layout-ask-keep-position): New
20 function to let the user choose to keep child position with
23 * src/clfswm-internal.lisp (remove-frame-data-slot): New
26 2010-11-05 Philippe Brochard <pbrochard@common-lisp.net>
28 * src/clfswm-internal.lisp (frame-select-next-child)
29 (frame-select-previous-child): New functions and bindings. Select
30 the next/previous child in the current frame.
32 2010-10-31 Philippe Brochard <pbrochard@common-lisp.net>
34 * src/clfswm-query.lisp (query-mode-complet): New function: Handle
35 completion in query-mode.
37 2010-10-30 Philippe Brochard <pbrochard@common-lisp.net>
39 * src/clfswm-query.lisp (query-print-string): Handle long lines
42 2010-10-27 Philippe Brochard <pbrochard@common-lisp.net>
44 * src/clfswm-expose-mode.lisp (expose-create-window): Ensure that
45 all characters are printable.
47 2010-10-25 Philippe Brochard <pbrochard@common-lisp.net>
49 * contrib/server/server.lisp: Load clfswm client code in the main
50 program and let the user start it with a --client command line
53 * src/package.lisp (*main-entrance-hook*): New hook executed after
54 loading configuration file and before opening the display.
56 2010-10-23 Philippe Brochard <pbrochard@common-lisp.net>
58 * src/xlib-util.lisp: Remove unnecessary xlib:display-finish-output.
60 * src/clfswm-internal.lisp (show-child): Show window only if not
63 * src/clfswm-keys.lisp (binding-substitute-modifier): Utility to
64 change modifiers after binding definition.
66 2010-10-21 Philippe Brochard <pbrochard@common-lisp.net>
68 * contrib/osd.lisp: New file: OSD (On Screen Display) for
71 * src/clfswm-menu.lisp (open-menu): Modularise function.
73 2010-10-13 Philippe Brochard <pbrochard@common-lisp.net>
75 * src/clfswm-info.lisp (show-first-aid-kit): Display the essential
76 key binding in main and second mode.
78 2010-10-10 Philippe Brochard <pbrochard@common-lisp.net>
80 * src/clfswm-util.lisp (open-notify-window): Convert hello-window
81 functions to a more generic Notify-window system.
83 * src/tools.lisp (add-timer): Add an id to identify the timer.
85 2010-10-09 Philippe Brochard <pbrochard@common-lisp.net>
87 * src/tools.lisp (erase-timer): New function.
89 * src/clfswm-util.lisp (display-hello-window): Add a timer to hide
90 the hello window. Add Configuration variables.
92 2010-10-08 Philippe Brochard <pbrochard@common-lisp.net>
94 * src/clfswm-util.lisp (): Add an Hello window at startup.
96 * src/tools.lisp (process-timers): Add a timer system.
98 2010-10-07 Philippe Brochard <pbrochard@common-lisp.net>
100 * src/clfswm-query.lisp (add-in-query-string): Handle correctly
103 2010-10-06 Philippe Brochard <pbrochard@common-lisp.net>
105 * src/clfswm-query.lisp (query-print-string): Change cursor color
106 and show parenthesis matching with colors (on match and on
109 2010-10-05 Philippe Brochard <pbrochard@common-lisp.net>
111 * src/clfswm-internal.lisp (show-all-children): Do not raise a
112 child when its parent is hidden.
114 2010-10-02 Philippe Brochard <pbrochard@common-lisp.net>
116 * src/clfswm-circulate-mode.lisp (select-next-subchild): Add the
117 possibility to circulate over subchild of the current child.
119 * src/clfswm-expose-mode.lisp (expose-all-windows-mode)
120 (expose-windows-generic): Add an escape-body function to return to
121 the original state on escape key.
123 * src/clfswm-util.lisp (bind-on-slot): Add an optional parameter
124 to bind the current child from the configuration file.
126 2010-10-01 Philippe Brochard <pbrochard@common-lisp.net>
128 * src/clfswm-nw-hooks.lisp (absorb-window-nw-hook): Absorb new
129 window hook: the frame absorb all new windows that match
130 nw-absorb-test frame data slot.
132 2010-09-30 Philippe Brochard <pbrochard@common-lisp.net>
134 * src/clfswm-expose-mode.lisp (expose-create-window): Show window
135 title in accel window.
137 2010-09-29 Philippe Brochard <pbrochard@common-lisp.net>
139 * configure: Use the Xavier Maillard clfswm script in contrib to
140 build an executable in the standard way.
142 2010-09-26 Philippe Brochard <pbrochard@common-lisp.net>
144 * src/clfswm-expose-mode.lisp (expose-mode-display-accel-windows):
145 New functions. Add a window on each child in the expose mode to
148 * src/clfswm-internal.lisp (child-x, child-y, child-width)
149 (child-height): New methods to get real child coordinates.
151 2010-09-25 Philippe Brochard <pbrochard@common-lisp.net>
153 * src/clfswm-layout.lisp (*-layout): Use child-position.
155 * src/clfswm-internal.lisp (child-position): New function.
157 * src/clfswm-expose-mode.lisp (expose-windows-mode)
158 (expose-all-windows-mode): Use a generic mode.
160 * src/xlib-util.lisp (with-handle-event-symbol): Use a filled list
161 with handle-event-fun symbols instead of inspecting clfswm
162 internals symbols on each mode change.
164 * src/clfswm-expose-mode.lisp: Move and rename present*-windows in
165 a separate clfswm-expose-mode.lisp file.
167 * src/clfswm-util.lisp (speed-mouse-right, speed-mouse-down): Use
168 screen size instead of hardcoded test coordinates.
170 2010-09-24 Philippe Brochard <pbrochard@common-lisp.net>
172 * src/clfswm-util.lisp (speed-mouse-reset, speed-mouse-left)
173 (speed-mouse-right, speed-mouse-up, speed-mouse-down)
174 (speed-mouse-undo, speed-mouse-first-history): New functions to
175 quickly move the mouse. Implemented for the second mode.
177 2010-09-16 Philippe Brochard <pbrochard@common-lisp.net>
179 * contrib/clfswm: Move clfswm sources to $tmp_dir if there is no
180 write permission on $clfswm_asd_path. So anybody can start clfswm
181 even if there is no write permission on the source directory.
183 2010-09-12 Philippe Brochard <pbrochard@common-lisp.net>
185 * contrib/clfswm: Add support to cmucl, ccl and ecl.
187 2010-09-11 Philippe Brochard <pbrochard@common-lisp.net>
189 * src/clfswm-util.lisp (set-hide-unmanaged-window)
190 (set-show-unmanaged-window, set-default-hide-unmanaged-window):
191 New functions and menu entry.
192 (set-globally-hide-unmanaged-window)
193 (set-globally-show-unmanaged-window): New functions and menu
196 * src/clfswm-internal.lisp (hide-unmanager-window-p): New
198 (show-child): Add a data slot on frame to hide or not unmanaged
201 * src/clfswm-corner.lisp (present-clfswm-terminal)
202 (present-virtual-keyboard): Use a function (generic-present-body)
203 instead of a macro (generate-present-body).
205 * src/clfswm-util.lisp (update-menus): List all directories and
206 subdirectories in $XDG_DATA_DIRS/applications.
208 2010-09-10 Philippe Brochard <pbrochard@common-lisp.net>
210 * src/clfswm-corner.lisp (generate-present-body): New macro.
211 (present-clfswm-terminal, present-virtual-keyboard): Use
212 generate-present-body.
214 2010-09-09 Philippe Brochard <pbrochard@common-lisp.net>
216 * src/clfswm-util.lisp (update-menus): Follow XDG specifications
217 instead of the non-portable Debian update-menu.
219 2010-09-07 Philippe Brochard <pbrochard@common-lisp.net>
221 * src/clfswm.lisp (error-handler): New function do handle
222 asynchronous errors and ignore them.
223 (open-display): Install the new error-handler on display.
225 2010-09-05 Philippe Brochard <pbrochard@common-lisp.net>
227 * src/xlib-util.lisp (with-xlib-protect): Add a
228 with-simple-restart on top of body execution.
230 2010-09-04 Philippe Brochard <pbrochard@common-lisp.net>
232 * src/clfswm.lisp (main-loop): Protect all xlib functions with an
235 * src/xlib-util.lisp (handle-event): use with-xlib-protect only in
236 handle-event. Add a with-simple-restart to prevent a
237 clisp/new-lisp infinite loop.
239 2010-08-30 Philippe Brochard <pbrochard@common-lisp.net>
241 * src/clfswm-corner.lisp (present-clfswm-terminal): Make the
242 clfswm terminal working even on xterm title changes.
244 2010-08-29 Philippe Brochard <pbrochard@common-lisp.net>
246 * src/clfswm-util.lisp (run-other-window-manager): Update for
249 * src/tools.lisp (do-execute): New parameter io to change the
252 * src/clfswm-util.lisp (hide-current-child): Prevent from removing
255 * src/clfswm-internal.lisp (child-member): New predicate.
256 (child-remove): New function.
258 * src/*.lisp: Use child-member and child-remove everywhere it's
261 2010-08-28 Philippe Brochard <pbrochard@common-lisp.net>
263 * src/clfswm.lisp (main-loop): Ensure that all events have been
264 processed after a process-event.
266 * src/clfswm-internal.lisp (is-in-current-child-p): New function.
268 2010-08-27 Philippe Brochard <pbrochard@common-lisp.net>
270 * src/clfswm.lisp (main-mode:configure-request): Raise the window
271 only when present on the current child and focus it accordingly.
273 2010-08-26 Philippe Brochard <pbrochard@common-lisp.net>
275 * src/clfswm-circulate-mode.lisp (circulate-loop-function):
276 Use is-a-key-pressed-p.
278 * src/xlib-util.lisp (is-a-key-pressed-p): New predicate.
280 * src/clfswm-keys.lisp (define-ungrab/grab): Use all values
281 returned by xlib:keysym->keycodes.
283 * src/*.lisp: Use the new child-equal-p to compare children. This
284 prevent a bug with sbcl/cmucl when the standard equal function
285 does not work with xlib:window.
287 * src/clfswm-internal.lisp (child-equal-p): New predicate.
289 2010-08-25 Philippe Brochard <pbrochard@common-lisp.net>
291 * src/clfswm-generic-mode.lisp (generic-mode): Use an
292 xlib:event-listen before processing event with
293 xlib:process-event. This prevent a bug with CLX threaded
294 implementation like sbcl.
296 * src/clfswm.lisp (main-loop): Use an xlib:event-listen before
297 processing event with xlib:process-event. This prevent a bug with
298 CLX threaded implementation like sbcl.
300 2010-08-17 Philippe Brochard <pbrochard@common-lisp.net>
302 * contrib/server/key.lisp (ushell-sh): Add ccl and ecl support.
304 * src/xlib-util.lisp (compress-motion-notify): Use a loop instead
307 * src/clfswm-internal.lisp (with-find-in-all-frames): New macro.
308 (find-parent-frame, find-frame-window, find-frame-by-name)
309 (find-frame-by-number): Use with-find-in-all-frames to search in
310 frames in the right order.
312 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Fix an
313 unwanted flickering with unmanaged windows.
315 2010-08-16 Philippe Brochard <pbrochard@common-lisp.net>
317 * src/package.lisp: Remove event handler hooks as they're not
318 needed anymore (To replace them: use closure and define-handler).
320 * src/xlib-util.lisp (move-window, resize-window)
321 (wait-mouse-button-release): Use a generic mode.
323 * src/*.lisp: Replace the case to handle event with a more (tricky)
324 lispy method which bind a function to each keywords associated
327 2010-07-23 Philippe Brochard <pbrochard@common-lisp.net>
329 * src/clfswm-util.lisp (delete-current-child): Invert bindings and
330 menu entry between delete-current-child and remove-current-child.
331 ie: Delete a child and its children in all frames by default.
333 2010-07-21 Philippe Brochard <pbrochard@common-lisp.net>
335 * src/package.lisp: Add a placement configuration group.
337 * src/binding*.lisp: Bind control+g to escape the current action
340 * src/clfswm-internal.lisp
341 (delete-child-and-children-in-all-frames): New function and
342 binding: Second mode - Control+Delete delete the current child and
343 its children in all frames (ie: close the current child and its
346 2010-07-20 Philippe Brochard <pbrochard@common-lisp.net>
348 * src/clfswm-internal.lisp (remove-child-in-frame): Do not destroy
349 the frame window and the frame gc. Close a very annoying bug when
350 cuting/pasting a frame or moving a child over frames with the
353 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Redisplay
354 all children in *current-root* after moving/resizing a frame.
356 2010-07-18 Philippe Brochard <pbrochard@common-lisp.net>
358 * src/clfswm-util.lisp (delete-focus-window)
359 (destroy-focus-window): Remove child in parent frame before
362 2010-07-16 Philippe Brochard <pbrochard@common-lisp.net>
364 * src/clfswm-util.lisp (identify-key): Add a timeout in
366 (mouse-click-to-focus-generic): Use find-child-under-mouse instead
367 of the window passed by xlib:process-event.
369 * src/xlib-util.lisp (move-window, resize-window)
370 (wait-mouse-button-release): Add a timeout in xlib:process-event.
372 2010-04-11 Philippe Brochard <pbrochard@common-lisp.net>
374 * src/clfswm-util.lisp (run-other-window-manager): Add the ability
375 to launch an other window manager and to return to clfswm.
377 2010-03-18 Philippe Brochard <pbrochard@common-lisp.net>
379 * src/clfswm-layout.lisp (set-tile-space-layout): Set default
382 2009-12-15 Philippe Brochard <pbrochard@common-lisp.net>
384 * src/clfswm.lisp (main-loop): Add a *loop-hook* parameter and a
387 * src/clfswm-generic-mode.lisp (generic-mode): Add a loop-hook
388 parameter and a loop timeout.
390 2009-12-05 Philippe Brochard <pbrochard@common-lisp.net>
392 * src/clfswm.lisp (main): Add an alternate configuration filename
395 * load.lisp: Add a debuging code example.
397 2009-11-14 Philippe Brochard <pbrochard@common-lisp.net>
399 * src/clfswm-configuration.lisp (create-configuration-menu): New
400 menu to configure all clfswm variables while clfswm is running.
402 2009-11-12 Philippe Brochard <pbrochard@common-lisp.net>
404 * src/clfswm-util.lisp (save-configuration-variables): New
405 function to save all configuration variables in clfswmrc.
407 2009-11-11 Philippe Brochard <pbrochard@common-lisp.net>
409 * src/clfswm-info.lisp (info-mode): Begining of mouse support in
411 (set-default-info-keys): Add cursor key support in info mode.
413 2009-11-08 Philippe Brochard <pbrochard@common-lisp.net>
415 * contrib/reboot-halt.lisp: Add a Suspend/Reboot/Halt menu in
418 * src/clfswm.lisp (main): Add a read-conf-file-p parameter to
419 prevent reading the configuration file (this may be useful to
420 produce the original documentation without user modifications
421 with the rc configuration file).
423 2009-11-07 Philippe Brochard <pbrochard@common-lisp.net>
425 * src/bindings-second-mode.lisp (set-default-second-keys):
426 Simplification of Escape key to close/kill/remove the focus window
427 and unhide all windows.
429 * src/bindings.lisp (set-default-main-keys): Simplification of
430 Escape key to close/kill/remove the focus window and unhide all
433 * src/clfswm-util.lisp (ask-close/kill-current-window): Add remove
434 focus and unhide all windows capabilities.
436 2009-10-10 Philippe Brochard <pbrochard@common-lisp.net>
438 * contrib/mpd.lisp (start-gmpc): Add gmpc in the mpd menu.
440 2009-07-29 Philippe Brochard <pbrochard@common-lisp.net>
442 * src/clfswm-layout.lisp (tile-layout, tile-horizontal-layout):
443 Keep child order and don't make unnecessary child movement.
444 (one-column-layout, one-line-layout): New layouts.
446 2009-06-29 Philippe Brochard <pbrochard@common-lisp.net>
448 * contrib/cd-player.lisp: New file to handle the CD player.
450 * contrib/xmms.lisp: New file to handle the xmms player.
452 2009-06-28 Philippe Brochard <pbrochard@common-lisp.net>
454 * src/clfswm-layout.lisp (set-no-layout-remember-size): New layout:
455 Maximize windows in there frame - Leave frames to there actual
458 * src/bindings-second-mode.lisp (set-default-second-keys): Bind
459 "o" on set-open-in-new-frame-in-parent-frame-nw-hook.
461 2009-06-27 Philippe Brochard <pbrochard@common-lisp.net>
463 * contrib/keyb_fr.lisp: New file to handle an azerty keyboard.
465 2009-06-24 Philippe Brochard <pbrochard@common-lisp.net>
467 * contrib/mpd.lisp: Use a standard menu.
469 * src/clfswm-info.lisp: Use a standard menu for the help-menu.
471 2009-06-22 Philippe Brochard <pbrochard@common-lisp.net>
473 * contrib/mpd.lisp: New file to handle the Music Player Daemon (MPD)
475 2009-06-19 Philippe Brochard <pbrochard@common-lisp.net>
477 * src/clfswm-autodoc.lisp (produce-doc, produce-doc-html): Minor
480 2009-06-18 Philippe Brochard <pbrochard@common-lisp.net>
482 * src/config.lisp (get-fullscreen-size): One pixel adjustment
485 * src/clfswm-placement.lisp (*-child-placement): One pixel
488 2009-06-16 Philippe Brochard <pbrochard@common-lisp.net>
490 * src/clfswm-circulate-mode.lisp (draw-circulate-mode-window):
491 Ensure that all characters are printable.
493 * src/config.lisp (get-fullscreen-size): Adjust default fullscreen
496 * src/clfswm-placement.lisp (*-child-placement): Adjust
497 coordinates to one pixel in the current child.
499 2009-06-04 Philippe Brochard <pbrochard@common-lisp.net>
501 * src/clfswm-query.lisp (query-enter-function): Assign font before
502 width and height calculation.
504 2009-06-03 Philippe Brochard <pbrochard@common-lisp.net>
506 * src/xlib-util.lisp (banish-pointer): Use with-placement macro to
507 bannish the pointer in an arbitrary place.
509 * src/clfswm-info.lisp (info-mode): Use with-placement macro to
510 place the info window in an arbitrary place.
512 * src/clfswm-query.lisp (query-enter-function): Use with-placement
513 macro to place the query window in an arbitrary place.
515 * src/clfswm-placement.lisp: New file. Allow to place info windows
516 or query windows on an arbitrary place. Allow to bannish the
517 pointer on an arbitrary place.
519 2009-05-16 Philippe Brochard <pbrochard@common-lisp.net>
521 * src/clfswm-circulate-mode.lisp (reorder-child)
522 (reorder-brother): Unfocus windows before reordering children or
525 2009-05-13 Philippe Brochard <pbrochard@common-lisp.net>
527 * src/clfswm-circulate-mode.lisp (reorder-brother): Ensure that
528 the parent is a frame.
530 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Handle
531 motion with a default modifier.
533 * src/clfswm.lisp (handle-motion-notify): Handle motion with a
536 * src/clfswm-info.lisp (info-mode): Handle motion with a default
538 (info-mode): Optimization in loop function.
540 2009-05-10 Philippe Brochard <pbrochard@common-lisp.net>
542 * src/clfswm-circulate-mode.lisp (reorder-brother): Handle
543 root-frame correctly.
545 * clfswm.asd: Dependency fix for clfswm-generic-mode.
547 * src/clfswm-circulate-mode.lisp (reorder-child)
548 (reorder-brother): Handle empty frames.
549 (reorder-brother): Redisplay only the parent frame of the current
552 * src/clfswm-util.lisp (frame-toggle-maximize): Redisplay only the
553 parent frame of the current frame.
555 2009-05-09 Philippe Brochard <pbrochard@common-lisp.net>
557 * src/clfswm-util.lisp (frame-toggle-maximize): New function:
558 Maximize/Unmaximize the current frame in its parent frame.
560 * src/clfswm-layout.lisp (maximize-layout): New layout: Maximize
561 windows and frames in there parent frame.
563 2009-05-05 Philippe Brochard <pbrochard@common-lisp.net>
565 * src/*.lisp: Add support for Clozure Common Lisp (CCL).
567 * src/clfswm-circulate-mode.lisp (reorder-child)
568 (reorder-brother): Reinitialise on circulate type change
569 child to brother or brother to child.
571 * src/*.lisp (*): Use map-window instead of xlib:map-window. So
572 calls xlib:display-finish-output on each map-request. So speed up
575 * src/xlib-util.lisp (map-window): New function. Call
576 xlib:display-finish-output on each map request.
578 2009-04-28 Philippe Brochard <pbrochard@common-lisp.net>
580 * src/clfswm-second-mode.lisp (sm-handle-motion-notify):
581 Optimisation when drawing second mode window.
583 2009-04-27 Philippe Brochard <pbrochard@common-lisp.net>
585 * src/clfswm-circulate-mode.lisp (circulate-mode): Optimisation in
588 2009-04-22 Philippe Brochard <pbrochard@common-lisp.net>
590 * src/clfswm-util.lisp (run-program-from-query-string): Launch
591 command only with a return validation.
593 2009-04-22 Xavier Maillard <xma@gnu.org>
595 * src/clfswm-query.lisp (query-string): Use a generic mode.
597 2009-04-19 Xavier Maillard <xma@gnu.org>
599 * src/clfswm-info.lisp (info-mode): Use generic-mode for info-mode.
601 2009-04-18 Xavier Maillard <xma@gnu.org>
603 * src/clfswm-generic-mode.lisp (generic-mode): Add a generic mode
604 to define all other modes.
606 2009-04-05 Philippe Brochard <pbrochard@common-lisp.net>
608 * src/package.lisp (): Use *default-font-string* for all
611 * src/clfswm-info.lisp (info-mode): Ensure integer windows size.
613 2009-02-17 Philippe Brochard <pbrochard@common-lisp.net>
615 * src/xlib-util.lisp (null-size-window-p): Better check of null
618 2009-02-14 Philippe Brochard <pbrochard@common-lisp.net>
620 * src/clfswm.lisp (handle-map-request): Add a fix to manage
621 correctly fullscreen windows (SDL particularly).
623 2008-12-20 Philippe Brochard <pbrochard@common-lisp.net>
625 * src/xlib-util.lisp (get-color): Allocate colors only once -> fix
626 a segfault with clisp/new-clx.
628 * src/clfswm.lisp (handle-motion-notify): Add a needed window
631 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Add a
632 needed window argument.
634 2008-10-30 Philippe Brochard <pbrochard@common-lisp.net>
636 * src/xlib-util.lisp (wait-no-key-or-button-press)
637 (wait-a-key-or-button-press): Check buttons press/release correctly"
639 2008-10-28 Philippe Brochard <pbrochard@common-lisp.net>
641 * src/menu-def.lisp: Add children navigation menu in the movement
642 menu (select next/previous child/brother/level).
644 2008-10-26 Philippe Brochard <pbrochard@common-lisp.net>
646 * *: Rename 'sister' frame to 'brother' frame.
648 * src/clfswm-keys.lisp (unalias-modifiers): Convert a modifier
649 alias in a real modifier.
651 * src/package.lisp (*modifier-alias*): New list of modifier alias
652 For example: :alt is :mod-1, :numlock is :mod-2...
654 * src/tools.lisp (remove-hook): New function.
656 * src/clfswm-keys.lisp (with-capslock, without-capslock)
657 (with-numlock, without-cnumlock): New functions.
659 2008-10-25 Philippe Brochard <pbrochard@common-lisp.net>
661 * src/clfswm-info.lisp: Use the *binding-hook* to create info
662 keys and mouse bindings.
664 * src/bindings-second-mode.lisp: Use the *binding-hook* to create
665 second keys and mouse bindings.
667 * src/bindings.lisp: Use the *binding-hook* to create main keys
670 2008-10-10 Philippe Brochard <pbrochard@common-lisp.net>
672 * src/clfswm-menu.lisp (open-menu): Remember parent menu to undo
675 2008-10-09 Philippe Brochard <pbrochard@common-lisp.net>
677 * src/menu-def.lisp: Use a menu instead of a function for the
680 2008-10-08 Philippe Brochard <pbrochard@common-lisp.net>
682 * src/clfswm-util.lisp (show-standard-menu): Display the standard
683 menu from the 'update-menus' command.
685 2008-10-07 Philippe Brochard <pbrochard@common-lisp.net>
687 * src/clfswm-query.lisp (query-string): Do not ungrab keyboard if
688 it's already grabbed.
690 * src/clfswm-internal.lisp (display-frame-info): Use configurable
691 colors and fix a bug with background.
692 (display-frame-info): Set window background when displaying info.
694 2008-10-06 Philippe Brochard <pbrochard@common-lisp.net>
696 * src/xlib-util.lisp (my-character->keysyms): Use a macro to avoid
697 warning with clisp/new-clx.
699 2008-10-04 Philippe Brochard <pbrochard@common-lisp.net>
701 * src/clfswm-util.lisp (jump-to-slot): Prevent to jump on a
704 2008-09-23 Philippe Brochard <pbrochard@common-lisp.net>
705 * *: **** Release 0809 ****
707 2008-09-23 Philippe Brochard <pbrochard@common-lisp.net>
709 * src/clfswm-util.lisp (ensure-unique-name): New function and menu
711 (ensure-unique-number): New function and menu entry.
713 2008-09-22 Philippe Brochard <pbrochard@common-lisp.net>
715 * src/clfswm-nw-hooks.lisp (named-frame-nw-hook): New new window
716 hook: open the next window in a named frame.
717 (numbered-frame-nw-hook): New new window hook: open the next
718 window in a numbered frame.
720 * src/clfswm-query.lisp (query-string): Grab the keyboard in all
721 cases. So query-string can be called even in the main mode.
723 * src/clfswm-internal.lisp (show-all-children): Do not raise a
724 child by default => far less flickering.
726 2008-09-19 Philippe Brochard <pbrochard@common-lisp.net>
728 * src/bindings-second-mode.lisp: Bind "t" to tile-current-frame.
730 * src/menu-def.lisp: Change key binding for the CLFSWM menu
733 * src/xlib-util.lisp (xgrab-pointer): Handle the case where cursor
734 is nil. (workaround on some CLX implementation).
736 2008-09-12 Philippe Brochard <pbrochard@common-lisp.net>
738 * src/menu-def.lisp: Add a menu to set a focus policy for all
741 * src/clfswm-util.lisp (set-focus-policy-generic-for-all)
742 (all-frames-set-*-focus-policy): Set a focus policy for all
745 * src/clfswm.lisp (handle-enter-notify): sloppy-select
746 mode. Select a child and its parents on mouse over.
748 2008-09-03 Philippe Brochard <pbrochard@common-lisp.net>
750 * src/clfswm.lisp (handle-enter-notify): Add a sloppy strict focus
751 policy -> Sloppy focus only for windows in the current frame.
752 (main-unprotected): Exit clfswm on init error (ie: when another
753 window manager is running).
755 * src/clfswm-util.lisp (reset-clfswm): New function.
757 2008-09-02 Philippe Brochard <pbrochard@common-lisp.net>
759 * src/clfswm-menu.lisp (init-menu): New function.
761 * src/clfswm-util.lisp (reload-clfswm): New function to reload
763 (exit-clfswm): Rename quit-clfswm to exit-clfswm.
765 * src/clfswm.lisp (main, main-unprotected): Handle error in a
766 superior main function. Now CLFSWM can't break the X session. It
767 just reinitialize the display and run a new main loop.
769 * src/clfswm-corner.lisp: Make *clfswm-terminal* and
770 *vt-keyboard-on* global to avoid warnings when loading clfswm.
772 * src/clfswm-layout.lisp: Add a specific GIMP layout menu.
773 (help-on-gimp-layout): Describe how to use the GIMP layout.
775 2008-09-01 Philippe Brochard <pbrochard@common-lisp.net>
777 * src/clfswm-layout.lisp (set-gimp-layout): Change the layout to
778 main-window-right-layout. Change the keybinding for (shift)alt+tab
779 to not select windows in the main window lisst.
780 Bind F8 to add a window in the main window list.
781 Bind F9 to remove a window in the main window list.
782 Change the focus policy to :sloppy.
783 (set-previous-layout): Restore the previous layout, keybinding and
786 2008-08-31 Philippe Brochard <pbrochard@common-lisp.net>
788 * src/clfswm-menu.lisp (add-menu-comment): Add comments in menu.
790 * src/clfswm-layout.lisp (main-window-left-layout)
791 (main-window-bottom-layout, main-window-top-layout): New
793 Factorize layouts in menu.
795 2008-08-30 Philippe Brochard <pbrochard@common-lisp.net>
797 * src/clfswm-layout.lisp (main-window-right-layout): A possible
798 GIMP layout: one or more main windows on one side of the
799 frame. Others on the other size.
801 * src/clfswm-util.lisp
802 (current-frame-set-click/sloppy-focus-policy): Each frame can have
803 a different focus policy (one of :click or :sloppy).
804 The default focus policy is set with *default-focus-policy*.
806 2008-08-23 Philippe Brochard <pbrochard@common-lisp.net>
808 * src/clfswm-info.lisp (show-config-variable): New function.
810 2008-08-19 Philippe Brochard <pbrochard@common-lisp.net>
812 * src/clfswm-layout.lisp (tile-horizontal-layout): New layout.
814 * src/clfswm-info.lisp: Colored help for key binding and corners
817 2008-08-18 Philippe Brochard <pbrochard@common-lisp.net>
819 * src/clfswm-util.lisp (delete-focus-window)
820 (destroy-focus-window): Remove chid only in
821 handle-unmap/destroy-notify. Focus *current-root* only when
822 closing/killing the current child.
824 * src/clfswm-autodoc.lisp (produce-corner-*-doc): New autodoc
825 functions or corners.
827 2008-08-17 Philippe Brochard <pbrochard@common-lisp.net>
829 * src/clfswm-corner.lisp (present-clfswm-terminal): New corner
830 action: Hide/Unhide a terminal on mouse corner action. (By default
831 right mouse button on the top left corner).
833 * src/config.lisp (*never-managed-window-list*): New config
836 * src/clfswm-internal.lisp (never-managed-window-p): New function:
837 Handle never managed window in a more simple way.
839 * src/clfswm-corner.lisp: New file and new and more simple method
840 to define corners actions.
842 2008-08-15 Philippe Brochard <pbrochard@common-lisp.net>
844 * src/clfswm-info.lisp (info-mode): Info line can now be colored.
846 * src/clfswm-layout.lisp (fast-layout-switch)
847 (define-fast-layout-switch): New functions: Switch between two
850 * src/clfswm-second-mode.lisp (leave-second-mode): Takes care if
851 really in the second mode. So leave-second-mode can be used even
854 * src/clfswm-util.lisp (switch-to-last-child): New function:
855 Store the current child and switch to the previous one.
857 2008-07-16 Philippe Brochard <pbrochard@common-lisp.net>
859 * src/clfswm-util.lisp (display-current-window-info): Display the
861 (have-to-present-virtual-keyboard): Add a virtual keyboard corner
862 (top right by default). By default 'xvkbd' is used.
864 2008-06-28 Philippe Brochard <pbrochard@common-lisp.net>
866 * src/xlib-util.lisp (move-window, resize-window): Compress motion
869 * src/clfswm.lisp (handle-motion-notify): Compress motion events.
871 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Compress
874 * src/clfswm-info.lisp (info-mode): Compress motion events.
876 2008-06-21 Philippe Brochard <pbrochard@common-lisp.net>
878 * src/clfswm-internal.lisp (show-all-children): Compute geometry
879 and selection first and then show only necessary children.
880 (show-child): remove unneeded display-p parameter.
882 * src/config.lisp (get-fullscreen-size): Place the frame border
883 outside the screen (this prevent the loose of 2 pixels per
886 2008-06-12 Philippe Brochard <pbrochard@common-lisp.net>
888 * src/clfswm-internal.lisp (focus-child): Algorithm change to
889 raise only the selected child.
891 2008-06-08 Philippe Brochard <pbrochard@common-lisp.net>
893 * src/clfswm-internal.lisp (raise-p-list, show-all-children):
894 Raise only viewable children.
896 2008-06-06 Philippe Brochard <pbrochard@common-lisp.net>
898 * src/clfswm-internal.lisp (show-all-children): Always raise all
899 displayed children. Remove all references to raise-p.
901 2008-06-04 Philippe Brochard <pbrochard@common-lisp.net>
903 * src/menu-def.lisp (child-menu): New menu entry on raise/lower
906 * src/bindings-second-mode.lisp ("Page_Down", "Page_Up"): New
907 second mode binding on raise/lower child in its frame.
909 * src/clfswm-nw-hooks.lisp (leave-focus-frame-nw-hook): Adapt
910 behaviour to the new raise/lower property.
911 Call clear-nw-hook before the rest of the hook.
913 * src/bindings.lisp (mouse-click-to-focus-and-move-window)
914 (mouse-click-to-focus-and-resize-window): Stop button event. This
915 prevent a keyboard/pointer freeze.
917 2008-06-03 Philippe Brochard <pbrochard@common-lisp.net>
919 * src/clfswm-internal.lisp (frame-lower-child)
920 (frame-raise-child): New functions to raise/lower a child in its
923 * src/clfswm-util.lisp (have-to-present-windows)
924 (have-to-present-all-windows): New functions to have an MaxOS
925 expose like on mouse click in screen corner.
927 * src/clfswm-info.lisp ("Page_Down", "Page_Up"): Add boundaries.
929 2008-05-30 Philippe Brochard <pbrochard@common-lisp.net>
931 * src/clfswm-util.lisp (unhide-a-child-from-all-frames): Unhide a
932 child from a choice in all frames with hidden children.
934 * src/clfswm-info.lisp (info-mode-menu): Handle separators.
936 2008-05-28 Philippe Brochard <pbrochard@common-lisp.net>
938 * src/clfswm-util.lisp (hide-current-child, unhide-a-child)
939 (unhide-all-children): New functions.
941 * src/clfswm-info.lisp (info-mode-menu): Handle symbols and
944 * src/clfswm-util.lisp (hide/show-frame-window): new function and
947 2008-05-23 Philippe Brochard <pbrochard@common-lisp.net>
949 * src/clfswm-util.lisp (rename-current-child): Do not display the
950 frame info for a window.
952 2008-05-20 Philippe Brochard <pbrochard@common-lisp.net>
954 * src/clfswm-internal.lisp (remove-child-in-frame): Destroy the
955 frame window for the removed child and its children.
957 2008-05-18 Philippe Brochard <pbrochard@common-lisp.net>
959 * src/clfswm-autodoc.lisp (produce-*-doc-*): Add a note to use the
962 2008-05-17 Philippe Brochard <pbrochard@common-lisp.net>
964 * src/clfswm-nw-hooks.lisp (default-frame-nw-hook): Do not handle
965 the ROX pinboard (ie: leave it lowered in the root window as
968 * src/clfswm-layout.lisp (tile-left-space-layout): New layout.
969 (tile-left-layout, tile-right-layout, tile-top-layout)
970 (tile-bottom-layout): Use all the frame space when there is only
973 * src/clfswm-internal.lisp (place-window-from-hints): Center
974 unmanaged windows in the root screen.
976 * src/clfswm-nw-hooks.lisp (clear-nw-hook, clear-all-nw-hooks):
979 2008-05-15 Philippe Brochard <pbrochard@common-lisp.net>
981 * src/clfswm-util.lisp (current-frame-manage-window-type): Fix a
982 typo in managed types.
984 * src/clfswm-internal.lisp (show-child): Always display frame info
985 even if the frame is hidden.
987 * src/xlib-util.lisp (resize-window): Use a better algorithme to
990 2008-05-13 Philippe Brochard <pbrochard@common-lisp.net>
992 * src/clfswm-util.lisp (with-movement): Display frame info for all
993 frames in current root.
995 2008-05-12 Philippe Brochard <pbrochard@common-lisp.net>
997 * src/*.lisp: Rename 'brother' frames to 'sister' frames.
999 * src/bindings-second-mode.lisp (define-second-key #\a): New
1000 binding on 'add-default-frame'.
1002 * src/clfswm-autodoc.lisp (produce-*-doc-*-in-file): Show a
1003 message to follow the autodocumentation process.
1005 2008-05-10 Philippe Brochard <pbrochard@common-lisp.net>
1007 * src/clfswm-util.lisp (bind-or-jump): Bind "Tab", "Return" and
1008 "Space" to jump to a child. "B" to bind a slot on the current
1011 * src/bindings-second-mode.lisp: Use "Tab" instead of
1014 2008-05-07 Philippe Brochard <pbrochard@common-lisp.net>
1016 * src/clfswm-util.lisp (find-child-under-mouse): Take care of
1017 unmanaged (hidden) windows.
1019 * src/clfswm-internal.lisp (place-window-from-hints): Give a
1020 minimal size for windows.
1021 (with-all-windows-frames-and-parent): New function.
1023 * src/config.lisp (*default-window-width/height*): New parameters.
1025 * src/clfswm-internal.lisp (place-window-from-hints): Center
1026 windows in the screen instead of in there frame.
1028 * src/bindings-second-mode.lisp (tile-space-current-frame): New
1031 * src/clfswm-layout.lisp (register-layout): Intern the once name
1032 in the right package.
1034 2008-05-05 Philippe Brochard <pbrochard@common-lisp.net>
1036 * doc/dot-clfswmrc: Update to follow the new clfswm way.
1038 2008-05-03 Philippe Brochard <pbrochard@common-lisp.net>
1040 * src/clfswm-internal.lisp (set-current-child)
1041 (adapt-child-to-parent, show-child, hide-child): Handle the case
1042 where child is not a frame or a window.
1044 * src/clfswm-util.lisp
1045 (mouse-click-to-focus-generic,mouse-focus-move/resize-generic):
1046 Check if child is a frame.
1048 * src/clfswm-internal.lisp (managed-window-p): Handle the case
1049 where frame is null.
1050 (place-frame): Check if frame and parent are frames.
1052 * src/clfswm-info.lisp (info-mode): display all frame info before
1055 * src/clfswm-second-mode.lisp (second-key-mode): display all frame
1056 info before leaving.
1058 * src/clfswm-internal.lisp (display-all-frame-info): New function.
1060 2008-05-02 Philippe Brochard <pbrochard@common-lisp.net>
1062 * src/tools.lisp (getenv): Implemented for ECL.
1063 (urun-prog): Implemented for ECL.
1065 * src/clfswm-util.lisp (identify-key): Use a double buffer to
1068 * src/clfswm-query.lisp (query-string): Use a double buffer to
1071 * src/clfswm-info.lisp (draw-info-window): Use a double buffer to
1074 * src/xlib-util.lisp (clear-pixmap-buffer, copy-pixmap-buffer):
1077 2008-05-01 Philippe Brochard <pbrochard@common-lisp.net>
1079 * src/clfswm-info.lisp (info-mode): Add boundaries in the info mode window.
1081 * src/menu-def.lisp: New file: move all menu definition in
1084 * src/clfswm-layout.lisp (register-layout): Use a function instead
1087 2008-04-30 Philippe Brochard <pbrochard@common-lisp.net>
1089 * src/clfswm-autodoc.lisp (produce-menu-doc,
1090 (produce-menu-doc-html): New functions.
1091 (produce-doc-*): Moved to clfswm-autodoc.lisp.
1093 * src/clfswm-util.lisp (paste-selection-no-clear): Prevent to
1094 paste a child on one of its own children. (this prevent a
1096 (move-child-to): Rename move/copy-current-child-by to
1098 (mouse-move-window-over-frame): New function to move the window
1099 under the mouse cursor to another frame.
1101 * src/clfswm-internal.lisp (find-child-in-parent): New function.
1103 2008-04-29 Philippe Brochard <pbrochard@common-lisp.net>
1105 * src/clfswm-internal.lisp (show-all-children): Display unmanaged
1106 windows only when its window parent is the current child.
1108 2008-04-28 Philippe Brochard <pbrochard@common-lisp.net>
1110 * src/clfswm-util.lisp (manage-current-window)
1111 (unmanage-current-window): New functions: Allow to force to manage
1112 or unmanage a window by its parent frame.
1114 * src/bindings-second-mode.lisp (#\o): binded to
1115 set-open-in-new-frame-in-parent-frame-nw-hook and
1116 (#\o :control) to set-open-in-new-frame-in-root-frame-nw-hook
1118 * src/clfswm-util.lisp (with-current-window): New macro.
1120 * src/xlib-util.lisp (move-window, resize-window): Remove uneeded
1121 exposure and enter-window handle event.
1123 * src/clfswm-util.lisp (move-frame, resize-frame): Show all
1124 children for the current child after the move/resize.
1126 2008-04-27 Philippe Brochard <pbrochard@common-lisp.net>
1128 * src/xlib-util.lisp (resize-window): Take care of window size
1131 * src/clfswm-util.lisp (mouse-focus-move/resize-generic): Allow to
1132 move/resize unmanaged windows.
1134 * src/xlib-util.lisp (move-window, resize-window): New functions.
1136 2008-04-25 Philippe Brochard <pbrochard@common-lisp.net>
1138 * src/clfswm-util.lisp (current-frame-manage-window-type): Let the
1139 user choose what window type the current frame must handle.
1140 (display-current-window-info): New function.
1141 (current-frame-manage-all-window-type)
1142 (current-frame-manage-only-normal-window-type)
1143 (current-frame-manage-no-window-type): New functions.
1145 * src/clfswm-internal.lisp (managed-window-p): New function.
1147 * src/package.lisp (frame): Managed type: new frame
1148 parameter. This allow to choose what window type a frame must
1151 * src/*.lisp: Rename all 'father' occurrences to 'parent'.
1153 * src/clfswm-nw-hooks.lisp
1154 (open-in-new-frame-in-parent-frame-nw-hook): New new window hook.
1156 * src/clfswm-util.lisp (adapt-current-frame-to-window-hints): New
1159 * src/tools.lisp (ensure-printable): Return always a string even
1162 2008-04-24 Philippe Brochard <pbrochard@common-lisp.net>
1164 * src/config.lisp (*default-nw-hook*): New variable to change the
1165 default new window hook.
1167 2008-04-22 Philippe Brochard <pbrochard@common-lisp.net>
1169 * clfswm.asd (clfswm): Add a dependency from
1170 clfswm-second-mode.lisp to clfswm.lisp.
1172 * src/clfswm-util.lisp (identify-key): Show the documentation for
1173 the function bound on a key.
1174 (with-movement): Move with-movement,
1175 current-frame-fill/pack/resize-* from bindings-second-mode.lisp
1176 to clfswm-util.lisp.
1178 * src/clfswm-menu.lisp: New menu system that let user change keys
1179 or functions associated to keys.
1181 2008-04-18 Philippe Brochard <pbrochard@common-lisp.net>
1183 * src/clfswm-internal.lisp (show-all-children): Display-child is
1184 the first child by default. Solve a bug with father-p.
1186 2008-04-17 Philippe Brochard <pbrochard@common-lisp.net>
1188 * src/clfswm-internal.lisp (add-frame): Add frame return the
1190 (show-all-children): Move the size computation outside the
1193 * src/bindings-second-mode.lisp (with-movement): Redisplay only
1196 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Redisplay
1197 only the current child.
1199 * src/clfswm-internal.lisp (show-all-children): New display-child
1200 parameter to display only the desired child and its children.
1201 (select-next/previous-child): Only display the current child.
1203 2008-04-14 Philippe Brochard <pbrochard@common-lisp.net>
1205 * src/clfswm.lisp (init-display): Move the default frame creation
1206 on the default init hook.
1208 * src/clfswm-keys.lisp (define-ungrab/grab): Handle all keysyms in
1209 the main mode (for example: "1" on an azerty keyboard).
1211 2008-04-13 Philippe Brochard <pbrochard@common-lisp.net>
1213 * src/clfswm-keys.lisp (find-key-from-code): Better handle of
1214 keysyms. Revert to old grabbing method for the main mode.
1216 2008-04-12 Philippe Brochard <pbrochard@common-lisp.net>
1218 * src/clfswm.lisp (init-display): Add key handling on no focus
1219 window and on frame windows.
1221 2008-04-11 Philippe Brochard <pbrochard@common-lisp.net>
1223 * src/clfswm.lisp (main): Keyboard handle strategie change: Grab
1224 all keys by default and replay just what is needed. No change for
1227 * src/clfswm-keys.lisp: remove grab/ungrab main keys.
1228 (find-key-from-code): Test for shift and not shift presence.
1230 2008-04-09 Philippe Brochard <pbrochard@common-lisp.net>
1232 * src/clfswm-internal.lisp (switch-to-root-frame): show later -
1233 new key parameter to have less flickering.
1235 2008-04-07 Philippe Brochard <pbrochard@common-lisp.net>
1237 * src/bindings-second-mode.lisp (frame-layout-once-menu): Set the
1238 layout only one time and revert to no-layout to freely handle
1241 * src/clfswm-nw-hooks.lisp
1242 (open-in-new-frame-in-root-frame-nw-hook): Tile layout with spaces
1243 with new created window.
1245 * src/clfswm-layout.lisp (register-layout): Now register
1246 automatically a once layout to set the layout only one time and
1247 revert to no-layout to freely handle frames.
1249 2008-04-05 Philippe Brochard <pbrochard@common-lisp.net>
1251 * src/clfswm-nw-hooks.lisp (leave-focus-frame-nw-hook): New
1252 nw-hook: Open the next window in the current frame and leave the
1253 focus to the current child.
1255 2008-04-04 Philippe Brochard <pbrochard@common-lisp.net>
1257 * src/bindings-second-mode.lisp: Add keys definitions to
1258 bind-or-jump in the second mode.
1260 * src/clfswm-util.lisp (bind-or-jump): remove the auto-defining
1261 macro for bind-or-jump-(1|2|3...).
1263 * src/clfswm-keys.lisp (define-define-key/mouse): Allow additional
1264 arguments to function. This allow to do things like:
1265 (define-main-key (key) 'my-function 10 20 'foo) -> 10 20 and 'foo
1266 are passed to my-function on key press.
1268 2008-04-03 Philippe Brochard <pbrochard@common-lisp.net>
1270 * src/clfswm-util.lisp (bind-or-jump): New (great) function.
1272 2008-04-02 Philippe Brochard <pbrochard@common-lisp.net>
1274 * src/clfswm-internal.lisp (child-fullname): New function
1276 * src/clfswm-info.lisp (info-mode-menu): Add an explicit optional
1277 docstring in info-mode-menu. An item can be
1278 '((key function) (key function)) or with docstring
1279 '((key function "documentation 1") (key function "bla bla") (key function))
1281 * src/tools.lisp (ensure-n-elems): New function.
1283 * src/bindings-second-mode.lisp: Bind Alt+mouse-1/3 to move or
1284 resize a frame or the window's father.
1286 * src/clfswm.lisp (init-display): Remove tile-space-layout by
1287 default on the root frame.
1289 * src/clfswm-util.lisp (move/resize-frame): Add standard event
1290 hooks handlers (map-request, configure-notify...)
1292 * src/clfswm-internal.lisp (adapt-child-to-father): Limit minimal
1295 2008-04-01 Philippe Brochard <pbrochard@common-lisp.net>
1297 * src/bindings.lisp: Bind Alt+mouse-1/3 to move or resize a frame
1298 or the window's father.
1300 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Stop button
1301 event only if there is a geometry change.
1302 (mouse-focus-move/resize-generic): Generic function to move or
1303 resize a frame or a window father frame.
1305 2008-04-01 Philippe Brochard <pbrochard@common-lisp.net>
1307 * src/clfswm-internal.lisp (show-all-children): Return t if there
1308 is a geometry change.
1310 2008-03-30 Philippe Brochard <pbrochard@common-lisp.net>
1312 * src/bindings.lisp (Up/Down): Swap select previous/next level.
1314 * src/bindings-second-mode.lisp (Up/Down): Swap select previous/next level.
1316 * src/clfswm.lisp (init-display): Create a default frame in the root frame.
1318 * src/clfswm-internal.lisp (place-frame): Place frame from real (pixel) coordinates.
1319 (with-all-*): Reverse the child list to manage the first child last (like in
1322 * src/config.lisp (*create-frame-on-root*): New variable: Create a new frame on the
1323 root window only if true.
1325 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Create a new frame on the
1326 root window only if *create-frame-on-root* is true.
1328 * src/bindings-second-mode.lisp (sm-mouse-click-to-focus-generic): Create a new frame
1331 2008-03-29 Philippe Brochard <pbrochard@common-lisp.net>
1333 * src/bindings-second-mode.lisp (sm-mouse-click-to-focus-generic): Focus, move and resize
1334 the current child (even if it's a window).
1336 2008-03-28 Philippe Brochard <pbrochard@common-lisp.net>
1338 * src/clfswm-util.lisp (mouse-click-to-focus-and-move)
1339 (mouse-click-to-focus-and-resize): New functions.
1341 * src/clfswm-internal.lisp (*-fl->px): Convert float coordinates to pixel.
1342 (*-px->fl): Convert pixel coordinates to float.
1344 * src/tools.lisp (call-hook): Move call-hook to tools.lisp.
1346 2008-03-27 Philippe Brochard <pbrochard@common-lisp.net>
1348 * src/clfswm-layout.lisp (no-layout): Use :first-only to raise only the
1351 * src/clfswm-internal.lisp (hide-all): Split hide-all-children in hide-all
1352 and hide-all-children.
1353 (raise-if-needed): New function.
1354 (show-child): Use a first-p parameter to raise windows only when they are
1357 2008-03-26 Philippe Brochard <pbrochard@common-lisp.net>
1359 * src/clfswm-internal.lisp (select-next/previous-level): Don't use show-all-children
1362 2008-03-25 Philippe Brochard <pbrochard@common-lisp.net>
1364 * src/clfswm-info.lisp (keys-from-list): new function.
1366 * src/*: rename 'childs' in 'children'.
1368 * src/*: rename 'group' in 'frame'.
1370 2008-03-22 Philippe Brochard <pbrochard@common-lisp.net>
1372 * src/clfswm-pack.lisp (explode-group/explode-current-group): new functions.
1374 2008-03-21 Philippe Brochard <pbrochard@common-lisp.net>
1376 * src/clfswm-pack.lisp: Pack, Fill, Resize functions.
1378 2008-03-16 Philippe Brochard <pbrochard@common-lisp.net>
1380 * src/clfswm-nw-hooks.lisp: Register system for new window hooks.
1381 Bind control+o to open the next window in a new group in the root group
1382 (as open in next window in a new workspace in 0801 version).
1384 2008-03-15 Philippe Brochard <pbrochard@common-lisp.net>
1386 * src/clfswm-util.lisp (show/hide-all-groups-info/key): Show/hide all groups info
1389 2008-03-14 Philippe Brochard <pbrochard@common-lisp.net>
1391 * bindings-second-mode.lisp ("ISO_Left_Tab"): Use ISO_Left_Tab
1392 instead of Tab for select-previous-child.
1394 2008-03-13 Philippe Brochard <pbrochard@common-lisp.net>
1396 * clfswm-util.lisp (force-window-in-group/force-window-center-in-group):
1399 2008-03-11 Philippe Brochard <pbrochard@common-lisp.net>
1401 * clfswm-util.lisp (identify-key): Display the documentation
1402 associated to keys when identifying a key.
1404 2008-03-10 Xavier Maillard <xma@gnu.org>
1406 * contrib/clfswm: Complete rewrite of the script. Detect error and
1407 act accordingly. Add command line arguments to configure the
1408 script execution. User can now choose different common lisp
1409 implementation (clisp and sbcl only), choose where to store the
1410 dumped image, where to find clfswm source.
1412 2008-03-09 Philippe Brochard <pbrochard@common-lisp.net>
1414 * clfswm-internal.lisp (process-new-window): Beginning of new
1415 window hook: each group have a hook to tell what he wants to do
1416 with the new created window.
1418 2008-03-08 Xavier Maillard <xma@gnu.org>
1420 * contrib/clfswm: New script. Dump a CLISP image of CLFSWM then
1421 call the resulting executable.
1423 * clfswm.lisp (read-conf-file): Check for the user config file in
1424 XDG_CONFIG_HOME *first*. Freedesktop.org standards should be
1425 prefered whenever possible.
1427 2008-02-27 Philippe Brochard <pbrochard@common-lisp.net>
1429 * clfswm-layout.lisp (*-layout): Add an optional raise-p
1430 parameter in each layout.
1432 2008-02-26 Philippe Brochard <pbrochard@common-lisp.net>
1434 * clfswm-util.lisp (copy/cut-current-child): Does not affect the
1436 (copy/move-current-child-by-name/number): new functions
1437 (focus-group-by-name/number): new functions
1438 (delete-group-by-name/number): new functions
1440 2008-02-24 Philippe Brochard <pbrochard@common-lisp.net>
1442 * ************************************************************ *
1443 *: Major update - No more reference to workspaces. The main *
1444 structure is a tree of groups or application windows. *
1445 * ************************************************************ *
1447 2008-02-07 Philippe Brochard <pbrochard@common-lisp.net>
1449 * clfswm.lisp (read-conf-file): Read configuration in
1450 $HOME/.clfswmrc or in /etc/clfswmrc or in
1451 $XDG_CONFIG_HOME/clfswm/clfswmrc.
1452 (xdg-config-home): Return the content of $XDG-CONFIG-HOME (default
1455 2008-01-18 Philippe Brochard <pbrochard@common-lisp.net>
1457 * clfswm-internal.lisp (show-all-group): Use *root* and *root-gc*
1460 2008-01-03 Philippe Brochard <pbrochard@common-lisp.net>
1462 * clfswm-internal.lisp (find-window-group): New function.
1464 * clfswm*: Change to make clfswm run with clisp/new-clx.
1466 2008-01-01 Philippe Brochard <pbrochard@common-lisp.net>
1468 * clfswm-util.lisp (query-show-paren): Add show parent matching in
1470 (query-string): Bind control+k to delete end of line.
1472 * clfswm-second-mode.lisp (draw-second-mode-window): Display
1473 the action on mouse motion in second mode.
1475 * clfswm.lisp (handle-exposure): Redisplay groups on exposure
1476 event but do not clear the root window.
1477 (handle-configure-request): Adjust unmanaged window from there
1480 * clfswm-internal.lisp (process-new-window): Adjust new window
1481 with the specified hints (max/min/base width/height).
1483 2007-12-31 Philippe Brochard <pbrochard@common-lisp.net>
1485 * clfswm.lisp (handle-configure-request): Send an Configuration
1486 Notify event. This solve a bug with xterm and rxvt who takes some
1487 times to be mapped. Now there is no delay.
1489 * bindings-second-mode.lisp (define-shell): Run programs after
1490 living the second mode.
1492 2007-12-30 Philippe Brochard <pbrochard@common-lisp.net>
1494 * clfswm-internal.lisp (process-new-window): Do not crop transient
1495 window to group size.
1496 (adapt-window-to-group): Do not crop transient window to group
1499 * clfswm.lisp (handle-configure-request): Adapt just the window to
1500 its group and don't take care of the configure request. Remove the
1501 bug with the Gimp outside the group and speed up the window
1503 (handle-exposure): Remove show-all-group on exposure event
1506 2007-12-29 Philippe Brochard <pbrochard@common-lisp.net>
1508 * clfswm-util.lisp (circulate-group-up-copy-window)
1509 (circulate-group-down-copy-window)
1510 (circulate-workspace-up-copy-group)
1511 (circulate-workspace-down-copy-group): Prevent the copy of the
1512 same window in the same workspace.
1514 * bindings-second-mode.lisp (release-copy-selected-window)
1515 (release-copy-selected-group): Prevent the copy of the same window
1516 in the same workspace.
1518 * clfswm-pager.lisp (generic-pager-move-window-on-previous-line)
1519 (generic-pager-move-window-on-next-line): Remove the copy
1521 (generic-pager-move-group-on-next-workspace)
1522 (generic-pager-move-group-on-previous-workspace): Prevent the copy
1523 of the same window in the same workspace.
1525 * bindings-pager.lisp (mouse-pager-copy-selected-window-release)
1526 (mouse-pager-copy-selected-group-release): Prevent the copy of the
1527 same window in the same workspace.
1529 * tools.lisp (setf/=): new macro to set a variable only when
1532 * clfswm-internal.lisp (adapt-window-to-group): use set/= to set
1533 x, y... only when necessary.
1535 2007-12-28 Philippe Brochard <pbrochard@common-lisp.net>
1537 * clfswm.lisp (handle-configure-notify, *configure-notify-hook*):
1538 new function and hook: force windows to stay in its group (solve a
1541 2007-12-25 Philippe Brochard <pbrochard@common-lisp.net>
1543 * bindings-second-mode.lisp (mouse-motion): use hide-group to have
1544 less flickering when moving/resizing groups.
1546 * clfswm-internal.lisp (hide-group): new function.
1547 (show-all-group): clear-all: new parameter.
1549 2007-12-22 Philippe Brochard <pbrochard@common-lisp.net>
1551 * clfswm-keys.lisp (define-define-key): undefine-*-multi-name: new
1553 * clfswm*: Color change for the pager. Typo or better description
1554 in bindings definitions. Define bindings for a qwerty keyboard by
1555 default. dot-clfswmrc show examples to switch to an azerty
1557 License change to GPL v3.
1558 * config.lisp: new file - group all globals variables in this
1561 2007-08-26 Philippe Brochard <pbrochard@common-lisp.net>
1563 * xlib-util.lisp (hide-window): Remove structure-notivy events
1564 when hidding a window.
1566 2007-05-16 Philippe Brochard <pbrochard@common-lisp.net>
1568 * package.lisp (*sm-property-notify-hook*): Readded
1569 property-notify-hook in second mode.
1571 2007-05-15 Philippe Brochard <pbrochard@common-lisp.net>
1573 * clfswm-keys.lisp (produce-doc-html): Better clean up for strings.
1575 2007-05-13 Philippe Brochard <pbrochard@common-lisp.net>
1577 * clfswm-pack.lisp (tile-current-workspace-to/right/left/top/bottom):
1578 Tile the current workspace with the current window on one side and
1579 others on the other (this emulate the larswm, dwm, wmii way). See
1580 the default configuration file to enable this mode by default.
1582 * clfswm-pager.lisp (pager-tile-current-workspace-to): idem for
1585 2007-05-12 Philippe Brochard <pbrochard@common-lisp.net>
1587 * clfswm-pager.lisp (pager-draw-window-in-group): Add
1588 ensure-printable to print windows name even with non-ascii
1591 2007-05-11 Philippe Brochard <pbrochard@common-lisp.net>
1593 * clfswm-pager.lisp (pager-explode-current-group): Create a new
1594 group for each window in group.
1595 (pager-implode-current-group): Move all windows in workspace to
1596 one group and remove other groups.
1598 * clfswm-pack.lisp (explode-group): Create a new group for each
1600 (implode-group): Move all windows in workspace to one group and
1601 remove other groups.
1603 * clfswm-util.lisp (identify-key): Remove local configuration
1604 variables and made them available for configuration from
1606 (query-string): idem.
1608 2007-04-29 Philippe Brochard <pbrochard@common-lisp.net>
1610 * netwm-util.lisp: Start of NetWM compliance.
1611 Add a Netwm client list gestion.
1613 2007-04-28 Philippe Brochard <pbrochard@common-lisp.net>
1615 * clfswm-internal.lisp (create-group-on-request): open a new group
1616 only when the current group is not empty.
1618 * bindings-second-mode.lisp (define-second-key-#\o-control): Fix a
1619 bug with null workspace.
1621 * clfswm-pager.lisp (pager-handle-event): Add a hook
1622 system. This hooks can be changed in the user configuration file.
1624 * package.lisp: All colors and font variables are set in
1625 package.lisp and can be configured in the user configuration
1627 Note: If you have configured some less ugly colors (esp. for the
1628 pager) don't hesitate to let me know :)
1630 * clfswm-second-mode.lisp (sm-handle-event): Add a hook
1631 system. This hooks can be changed in the user configuration file.
1633 * clfswm.lisp (handle-event): Add a hook system. This hooks can be
1634 changed in the user configuration file (~/.clfswmrc)
1636 2007-04-25 Philippe Brochard <pbrochard@common-lisp.net>
1638 * clfswm-util.lisp (stop-all-pending-actions): new function: reset
1639 arrow action, open next window in new workspace/group.
1641 * bindings.lisp (stop-all-pending-actions): new binding.
1642 (open-next-window-in-new-group-once): Open the next windows in a
1643 new group (only once) or open all new windows in a new group (like
1644 others windows managers).
1646 2007-04-22 Philippe Brochard <pbrochard@common-lisp.net>
1648 * clfswm.lisp (read-conf-file): New function to read a lisp
1649 configuration file at startup.
1650 (focus-group-under-mouse): Check if group isn't the current group
1651 ( prevent a bug with unclutter ).
1653 2007-03-02 Philippe Brochard <pbrochard@common-lisp.net>
1655 * bindings.lisp (run-program-from-query-string): A program can be
1656 launch from a input query window.
1658 2007-03-01 Philippe Brochard <pbrochard@common-lisp.net>
1660 * clfswm-info.lisp: Fix a bug with banish pointer in info mode.
1662 2007-02-28 Philippe Brochard <pbrochard@common-lisp.net>
1664 * clfswm.lisp (process-new-window): One can now open the next
1665 window in a workspace called by its number.
1667 * clfswm-util.lisp (query-font-string): Minimal editing
1669 (eval-from-string): And an REPL in the window manager... :)
1671 2007-02-26 Philippe Brochard <pbrochard@common-lisp.net>
1673 * clfswm.lisp (process-new-window): One can now open the next
1674 window in a new workspace or a new group.
1676 * clfswm-pager.lisp (pager-mode): Display the next arrow action
1677 with the hidden windows.
1679 * clfswm.lisp (second-key-mode): Display the current workspace
1680 number and the next arrow action in the state window.
1682 * clfswm-pager.lisp (pager-mode): Hide all windows before leaving
1683 the pager mode and then redisplay only the current workspace.
1685 2007-02-25 Philippe Brochard <pbrochard@common-lisp.net>
1687 * clfswm.lisp (add-workspace): Workspaces are now numbered. So
1688 they can be focused with a keypress, sorted or renumbered.
1690 2007-02-24 Philippe Brochard <pbrochard@common-lisp.net>
1692 * clfswm-pager.lisp (pager-mode): Remove multiple silly
1693 pager-draw-display. This prevent a lot of flickering in the
1696 * clfswm.lisp: Remove all display-force-output and replace them
1697 with only one display-finish-output in the event loop.
1699 2006-11-06 Philippe Brochard <pbrochard@common-lisp.net>
1701 * clfswm-pager.lisp (pager-center-group): New function - center a
1702 group at the middle of the screen.
1704 * clfswm-pack.lisp (center-group): New function - center a group
1705 at the middle of the screen.
1707 * clfswm.lisp (show-group): Add a cross line under the group.
1708 (show-group): Group are showned even if fullscreened.
1709 (init-display): Add an exposure event on the root window.
1711 2006-11-05 Philippe Brochard <pbrochard@common-lisp.net>
1713 * package.lisp (*default-group*): Default group is the same size
1714 of a fullscreened group.
1716 * bindings*: Use shift to move, control+shift to copy.
1718 * *.lisp: Add comments for configuration or alternatives. So grep
1719 for CONFIG to see where you can configure clfswm. And grep for
1720 Alternative to use some commented code.
1722 * clfswm.lisp (second-key-mode): Use a single window to show the
1723 second mode. See for alternatives at the end of this file.
1725 2006-11-03 Philippe Brochard <pbrochard@common-lisp.net>
1727 * clfswm-keys.lisp (define-define-key/mouse): Factorisation in a
1728 macro of key and mouse definitions.
1729 (define-define-key/mouse): Use state instead of modifiers list
1730 this fix a bug when the modifiers list is not in the rigth order.
1732 * clfswm.lisp (second-key-mode): Add a colored border in second mode.
1734 2006-11-02 Philippe Brochard <pbrochard@common-lisp.net>
1736 * clfswm-info.lisp (info-mode): Add an info mode.
1738 2006-11-01 Philippe Brochard <pbrochard@common-lisp.net>
1740 * clfswm.lisp (process-new-window): Change border size for
1742 (show-all-windows-in-workspace): Unhide all windows even when the
1743 current group is in fullscreen mode.
1745 2006-10-26 Philippe Brochard <pbrochard@common-lisp.net>
1747 * clfswm-util.lisp (identify-key): Add an exposure handle-event to
1748 redisplay the identify window after a terminal switch.
1750 * clfswm-pager.lisp (pager-mode): Add an exposure handle-event to
1751 redisplay the pager after a terminal switch.
1753 2006-10-24 Philippe Brochard <pbrochard@common-lisp.net>
1755 * clfswm-util.lisp (identify-key): Add a window to display
1756 the keys to identify on screen.
1758 * bindings.lisp, bindings-pager.lisp: Define same keys to
1759 move/copy groups/windows in second mode and in pager.
1761 * clfswm.lisp (handle-event*): Same version in all clfswm (fix some
1763 (show-all-windows-in-workspace): unhide window before adapting it
1766 2006-10-23 Philippe Brochard <pbrochard@common-lisp.net>
1768 * clfswm.lisp (handle-event): Revert to an older version.
1770 2006-10-18 Philippe Brochard <pbrochard@common-lisp.net>
1772 * clfswm-util.lisp (force-window-in-group)
1773 (force-window-center-in-group): New functions for transient windows.
1775 * clfswm-pager.lisp (pager-remove-current-workspace/group):
1776 bugfix: hide all windows before removing group or workspace.
1778 2006-10-17 Philippe Brochard <pbrochard@common-lisp.net>
1780 * bindings-pager.lisp (mouse-pager-move-selected-group)
1781 (mouse-pager-copy-selected-group)
1782 (mouse-pager-move-selected-window)
1783 (mouse-pager-copy-selected-window, mouse-pager-rotate-window-up)
1784 (mouse-pager-rotate-window-down): New functions to have mouse in
1787 * clfswm-pager.lisp (pager-swap-window)
1788 (pager-copy-group-on-next/previous-workspace)
1789 (pager-copy-window-on-next/previous-line): New functions
1791 2006-10-15 Philippe Brochard <pbrochard@common-lisp.net>
1793 * clfswm-pager.lisp (pager-move-window-on-next/previous-line,
1794 (pager-move-group-on-next/previous-workspace): new functions.
1796 * clfswm-pack.lisp (resize-half-x-x-current-group): resize group
1797 to its half size (new functions).
1799 2006-10-11 Philippe Brochard <pbrochard@common-lisp.net>
1801 * clfswm-pager.lisp: workspaces, groups and windows can now be
1802 selectionned with the keyboard or the mouse.
1804 2006-10-09 Philippe Brochard <pbrochard@common-lisp.net>
1806 * clfswm-pager.lisp (pager-select-workspace-right/left):
1807 workspaces can now be selectionned with the keyboard.
1809 2006-10-08 Philippe Brochard <pbrochard@common-lisp.net>
1811 * clfswm-keys.lisp (undefine-main-key, undefine-second-key, undefine-mouse-action):
1812 new function to remove a previous defined key or mouse combination.
1814 2006-10-07 Philippe Brochard <pbrochard@common-lisp.net>
1816 * clfswm.lisp (main): Check for access error in init-display.
1818 * clfswm-keys.lisp (define-ungrab/grab): check for keysym and
1819 keycode before grabbing.
1821 * bindings.lisp: Remove nlambda and use defun to keep the function
1822 documentation with clisp.
1823 (define-shell): new macro to define shell command for the second
1826 2006-10-06 Philippe Brochard <pbrochard@common-lisp.net>
1828 * clfswm-keys.lisp (define-ungrab/grab): use a cond instead of a
1831 2006-10-05 Philippe Brochard <pbrochard@common-lisp.net>
1833 * bindings.lisp (accept-motion): Move group bugfix in upper mouse
1834 workspace circulation.
1836 * clfswm-util.lisp (absorb-orphan-window): new function.
1838 * clfswm-keys.lisp: Keysyms support.
1840 2006-10-02 Philippe Brochard <pbrochard@common-lisp.net>
1842 * clfswm.lisp (show-group): Use one gc for all groups and not one
1845 2006-10-01 Philippe Brochard <pbrochard@common-lisp.net>
1847 * bindings.lisp (define-second-key (#\l :mod-1)): fix a typo.
1849 * clfswm.lisp (adapt-window-to-group): Adapt only windows with
1850 width and height outside group.
1852 2006-09-28 Philippe Brochard <pbrochard@common-lisp.net>
1854 * clfswm.lisp: First public release.