1 2010-10-25 Philippe Brochard <pbrochard@common-lisp.net>
3 * contrib/server/server.lisp: Load clfswm client code in the main
4 program and let the user start it with a --client command line
7 * src/package.lisp (*main-entrance-hook*): New hook executed after
8 loading configuration file and before opening the display.
10 2010-10-23 Philippe Brochard <pbrochard@common-lisp.net>
12 * src/xlib-util.lisp: Remove unnecessary xlib:display-finish-output.
14 * src/clfswm-internal.lisp (show-child): Show window only if not
17 * src/clfswm-keys.lisp (binding-substitute-modifier): Utility to
18 change modifiers after binding definition.
20 2010-10-21 Philippe Brochard <pbrochard@common-lisp.net>
22 * contrib/osd.lisp: New file: OSD (On Screen Display) for
25 * src/clfswm-menu.lisp (open-menu): Modularise function.
27 2010-10-13 Philippe Brochard <pbrochard@common-lisp.net>
29 * src/clfswm-info.lisp (show-first-aid-kit): Display the essential
30 key binding in main and second mode.
32 2010-10-10 Philippe Brochard <pbrochard@common-lisp.net>
34 * src/clfswm-util.lisp (open-notify-window): Convert hello-window
35 functions to a more generic Notify-window system.
37 * src/tools.lisp (add-timer): Add an id to identify the timer.
39 2010-10-09 Philippe Brochard <pbrochard@common-lisp.net>
41 * src/tools.lisp (erase-timer): New function.
43 * src/clfswm-util.lisp (display-hello-window): Add a timer to hide
44 the hello window. Add Configuration variables.
46 2010-10-08 Philippe Brochard <pbrochard@common-lisp.net>
48 * src/clfswm-util.lisp (): Add an Hello window at startup.
50 * src/tools.lisp (process-timers): Add a timer system.
52 2010-10-07 Philippe Brochard <pbrochard@common-lisp.net>
54 * src/clfswm-query.lisp (add-in-query-string): Handle correctly
57 2010-10-06 Philippe Brochard <pbrochard@common-lisp.net>
59 * src/clfswm-query.lisp (query-print-string): Change cursor color
60 and show parenthesis matching with colors (on match and on
63 2010-10-05 Philippe Brochard <pbrochard@common-lisp.net>
65 * src/clfswm-internal.lisp (show-all-children): Do not raise a
66 child when its parent is hidden.
68 2010-10-02 Philippe Brochard <pbrochard@common-lisp.net>
70 * src/clfswm-circulate-mode.lisp (select-next-subchild): Add the
71 possibility to circulate over subchild of the current child.
73 * src/clfswm-expose-mode.lisp (expose-all-windows-mode)
74 (expose-windows-generic): Add an escape-body function to return to
75 the original state on escape key.
77 * src/clfswm-util.lisp (bind-on-slot): Add an optional parameter
78 to bind the current child from the configuration file.
80 2010-10-01 Philippe Brochard <pbrochard@common-lisp.net>
82 * src/clfswm-nw-hooks.lisp (absorb-window-nw-hook): Absorb new
83 window hook: the frame absorb all new windows that match
84 nw-absorb-test frame data slot.
86 2010-09-30 Philippe Brochard <pbrochard@common-lisp.net>
88 * src/clfswm-expose-mode.lisp (expose-create-window): Show window
89 title in accel window.
91 2010-09-29 Philippe Brochard <pbrochard@common-lisp.net>
93 * configure: Use the Xavier Maillard clfswm script in contrib to
94 build an executable in the standard way.
96 2010-09-26 Philippe Brochard <pbrochard@common-lisp.net>
98 * src/clfswm-expose-mode.lisp (expose-mode-display-accel-windows):
99 New functions. Add a window on each child in the expose mode to
102 * src/clfswm-internal.lisp (child-x, child-y, child-width)
103 (child-height): New methods to get real child coordinates.
105 2010-09-25 Philippe Brochard <pbrochard@common-lisp.net>
107 * src/clfswm-layout.lisp (*-layout): Use child-position.
109 * src/clfswm-internal.lisp (child-position): New function.
111 * src/clfswm-expose-mode.lisp (expose-windows-mode)
112 (expose-all-windows-mode): Use a generic mode.
114 * src/xlib-util.lisp (with-handle-event-symbol): Use a filled list
115 with handle-event-fun symbols instead of inspecting clfswm
116 internals symbols on each mode change.
118 * src/clfswm-expose-mode.lisp: Move and rename present*-windows in
119 a separate clfswm-expose-mode.lisp file.
121 * src/clfswm-util.lisp (speed-mouse-right, speed-mouse-down): Use
122 screen size instead of hardcoded test coordinates.
124 2010-09-24 Philippe Brochard <pbrochard@common-lisp.net>
126 * src/clfswm-util.lisp (speed-mouse-reset, speed-mouse-left)
127 (speed-mouse-right, speed-mouse-up, speed-mouse-down)
128 (speed-mouse-undo, speed-mouse-first-history): New functions to
129 quickly move the mouse. Implemented for the second mode.
131 2010-09-16 Philippe Brochard <pbrochard@common-lisp.net>
133 * contrib/clfswm: Move clfswm sources to $tmp_dir if there is no
134 write permission on $clfswm_asd_path. So anybody can start clfswm
135 even if there is no write permission on the source directory.
137 2010-09-12 Philippe Brochard <pbrochard@common-lisp.net>
139 * contrib/clfswm: Add support to cmucl, ccl and ecl.
141 2010-09-11 Philippe Brochard <pbrochard@common-lisp.net>
143 * src/clfswm-util.lisp (set-hide-unmanaged-window)
144 (set-show-unmanaged-window, set-default-hide-unmanaged-window):
145 New functions and menu entry.
146 (set-globally-hide-unmanaged-window)
147 (set-globally-show-unmanaged-window): New functions and menu
150 * src/clfswm-internal.lisp (hide-unmanager-window-p): New
152 (show-child): Add a data slot on frame to hide or not unmanaged
155 * src/clfswm-corner.lisp (present-clfswm-terminal)
156 (present-virtual-keyboard): Use a function (generic-present-body)
157 instead of a macro (generate-present-body).
159 * src/clfswm-util.lisp (update-menus): List all directories and
160 subdirectories in $XDG_DATA_DIRS/applications.
162 2010-09-10 Philippe Brochard <pbrochard@common-lisp.net>
164 * src/clfswm-corner.lisp (generate-present-body): New macro.
165 (present-clfswm-terminal, present-virtual-keyboard): Use
166 generate-present-body.
168 2010-09-09 Philippe Brochard <pbrochard@common-lisp.net>
170 * src/clfswm-util.lisp (update-menus): Follow XDG specifications
171 instead of the non-portable Debian update-menu.
173 2010-09-07 Philippe Brochard <pbrochard@common-lisp.net>
175 * src/clfswm.lisp (error-handler): New function do handle
176 asynchronous errors and ignore them.
177 (open-display): Install the new error-handler on display.
179 2010-09-05 Philippe Brochard <pbrochard@common-lisp.net>
181 * src/xlib-util.lisp (with-xlib-protect): Add a
182 with-simple-restart on top of body execution.
184 2010-09-04 Philippe Brochard <pbrochard@common-lisp.net>
186 * src/clfswm.lisp (main-loop): Protect all xlib functions with an
189 * src/xlib-util.lisp (handle-event): use with-xlib-protect only in
190 handle-event. Add a with-simple-restart to prevent a
191 clisp/new-lisp infinite loop.
193 2010-08-30 Philippe Brochard <pbrochard@common-lisp.net>
195 * src/clfswm-corner.lisp (present-clfswm-terminal): Make the
196 clfswm terminal working even on xterm title changes.
198 2010-08-29 Philippe Brochard <pbrochard@common-lisp.net>
200 * src/clfswm-util.lisp (run-other-window-manager): Update for
203 * src/tools.lisp (do-execute): New parameter io to change the
206 * src/clfswm-util.lisp (hide-current-child): Prevent from removing
209 * src/clfswm-internal.lisp (child-member): New predicate.
210 (child-remove): New function.
212 * src/*.lisp: Use child-member and child-remove everywhere it's
215 2010-08-28 Philippe Brochard <pbrochard@common-lisp.net>
217 * src/clfswm.lisp (main-loop): Ensure that all events have been
218 processed after a process-event.
220 * src/clfswm-internal.lisp (is-in-current-child-p): New function.
222 2010-08-27 Philippe Brochard <pbrochard@common-lisp.net>
224 * src/clfswm.lisp (main-mode:configure-request): Raise the window
225 only when present on the current child and focus it accordingly.
227 2010-08-26 Philippe Brochard <pbrochard@common-lisp.net>
229 * src/clfswm-circulate-mode.lisp (circulate-loop-function):
230 Use is-a-key-pressed-p.
232 * src/xlib-util.lisp (is-a-key-pressed-p): New predicate.
234 * src/clfswm-keys.lisp (define-ungrab/grab): Use all values
235 returned by xlib:keysym->keycodes.
237 * src/*.lisp: Use the new child-equal-p to compare children. This
238 prevent a bug with sbcl/cmucl when the standard equal function
239 does not work with xlib:window.
241 * src/clfswm-internal.lisp (child-equal-p): New predicate.
243 2010-08-25 Philippe Brochard <pbrochard@common-lisp.net>
245 * src/clfswm-generic-mode.lisp (generic-mode): Use an
246 xlib:event-listen before processing event with
247 xlib:process-event. This prevent a bug with CLX threaded
248 implementation like sbcl.
250 * src/clfswm.lisp (main-loop): Use an xlib:event-listen before
251 processing event with xlib:process-event. This prevent a bug with
252 CLX threaded implementation like sbcl.
254 2010-08-17 Philippe Brochard <pbrochard@common-lisp.net>
256 * contrib/server/key.lisp (ushell-sh): Add ccl and ecl support.
258 * src/xlib-util.lisp (compress-motion-notify): Use a loop instead
261 * src/clfswm-internal.lisp (with-find-in-all-frames): New macro.
262 (find-parent-frame, find-frame-window, find-frame-by-name)
263 (find-frame-by-number): Use with-find-in-all-frames to search in
264 frames in the right order.
266 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Fix an
267 unwanted flickering with unmanaged windows.
269 2010-08-16 Philippe Brochard <pbrochard@common-lisp.net>
271 * src/package.lisp: Remove event handler hooks as they're not
272 needed anymore (To replace them: use closure and define-handler).
274 * src/xlib-util.lisp (move-window, resize-window)
275 (wait-mouse-button-release): Use a generic mode.
277 * src/*.lisp: Replace the case to handle event with a more (tricky)
278 lispy method which bind a function to each keywords associated
281 2010-07-23 Philippe Brochard <pbrochard@common-lisp.net>
283 * src/clfswm-util.lisp (delete-current-child): Invert bindings and
284 menu entry between delete-current-child and remove-current-child.
285 ie: Delete a child and its children in all frames by default.
287 2010-07-21 Philippe Brochard <pbrochard@common-lisp.net>
289 * src/package.lisp: Add a placement configuration group.
291 * src/binding*.lisp: Bind control+g to escape the current action
294 * src/clfswm-internal.lisp
295 (delete-child-and-children-in-all-frames): New function and
296 binding: Second mode - Control+Delete delete the current child and
297 its children in all frames (ie: close the current child and its
300 2010-07-20 Philippe Brochard <pbrochard@common-lisp.net>
302 * src/clfswm-internal.lisp (remove-child-in-frame): Do not destroy
303 the frame window and the frame gc. Close a very annoying bug when
304 cuting/pasting a frame or moving a child over frames with the
307 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Redisplay
308 all children in *current-root* after moving/resizing a frame.
310 2010-07-18 Philippe Brochard <pbrochard@common-lisp.net>
312 * src/clfswm-util.lisp (delete-focus-window)
313 (destroy-focus-window): Remove child in parent frame before
316 2010-07-16 Philippe Brochard <pbrochard@common-lisp.net>
318 * src/clfswm-util.lisp (identify-key): Add a timeout in
320 (mouse-click-to-focus-generic): Use find-child-under-mouse instead
321 of the window passed by xlib:process-event.
323 * src/xlib-util.lisp (move-window, resize-window)
324 (wait-mouse-button-release): Add a timeout in xlib:process-event.
326 2010-04-11 Philippe Brochard <pbrochard@common-lisp.net>
328 * src/clfswm-util.lisp (run-other-window-manager): Add the ability
329 to launch an other window manager and to return to clfswm.
331 2010-03-18 Philippe Brochard <pbrochard@common-lisp.net>
333 * src/clfswm-layout.lisp (set-tile-space-layout): Set default
336 2009-12-15 Philippe Brochard <pbrochard@common-lisp.net>
338 * src/clfswm.lisp (main-loop): Add a *loop-hook* parameter and a
341 * src/clfswm-generic-mode.lisp (generic-mode): Add a loop-hook
342 parameter and a loop timeout.
344 2009-12-05 Philippe Brochard <pbrochard@common-lisp.net>
346 * src/clfswm.lisp (main): Add an alternate configuration filename
349 * load.lisp: Add a debuging code example.
351 2009-11-14 Philippe Brochard <pbrochard@common-lisp.net>
353 * src/clfswm-configuration.lisp (create-configuration-menu): New
354 menu to configure all clfswm variables while clfswm is running.
356 2009-11-12 Philippe Brochard <pbrochard@common-lisp.net>
358 * src/clfswm-util.lisp (save-configuration-variables): New
359 function to save all configuration variables in clfswmrc.
361 2009-11-11 Philippe Brochard <pbrochard@common-lisp.net>
363 * src/clfswm-info.lisp (info-mode): Begining of mouse support in
365 (set-default-info-keys): Add cursor key support in info mode.
367 2009-11-08 Philippe Brochard <pbrochard@common-lisp.net>
369 * contrib/reboot-halt.lisp: Add a Suspend/Reboot/Halt menu in
372 * src/clfswm.lisp (main): Add a read-conf-file-p parameter to
373 prevent reading the configuration file (this may be useful to
374 produce the original documentation without user modifications
375 with the rc configuration file).
377 2009-11-07 Philippe Brochard <pbrochard@common-lisp.net>
379 * src/bindings-second-mode.lisp (set-default-second-keys):
380 Simplification of Escape key to close/kill/remove the focus window
381 and unhide all windows.
383 * src/bindings.lisp (set-default-main-keys): Simplification of
384 Escape key to close/kill/remove the focus window and unhide all
387 * src/clfswm-util.lisp (ask-close/kill-current-window): Add remove
388 focus and unhide all windows capabilities.
390 2009-10-10 Philippe Brochard <pbrochard@common-lisp.net>
392 * contrib/mpd.lisp (start-gmpc): Add gmpc in the mpd menu.
394 2009-07-29 Philippe Brochard <pbrochard@common-lisp.net>
396 * src/clfswm-layout.lisp (tile-layout, tile-horizontal-layout):
397 Keep child order and don't make unnecessary child movement.
398 (one-column-layout, one-line-layout): New layouts.
400 2009-06-29 Philippe Brochard <pbrochard@common-lisp.net>
402 * contrib/cd-player.lisp: New file to handle the CD player.
404 * contrib/xmms.lisp: New file to handle the xmms player.
406 2009-06-28 Philippe Brochard <pbrochard@common-lisp.net>
408 * src/clfswm-layout.lisp (set-no-layout-remember-size): New layout:
409 Maximize windows in there frame - Leave frames to there actual
412 * src/bindings-second-mode.lisp (set-default-second-keys): Bind
413 "o" on set-open-in-new-frame-in-parent-frame-nw-hook.
415 2009-06-27 Philippe Brochard <pbrochard@common-lisp.net>
417 * contrib/keyb_fr.lisp: New file to handle an azerty keyboard.
419 2009-06-24 Philippe Brochard <pbrochard@common-lisp.net>
421 * contrib/mpd.lisp: Use a standard menu.
423 * src/clfswm-info.lisp: Use a standard menu for the help-menu.
425 2009-06-22 Philippe Brochard <pbrochard@common-lisp.net>
427 * contrib/mpd.lisp: New file to handle the Music Player Daemon (MPD)
429 2009-06-19 Philippe Brochard <pbrochard@common-lisp.net>
431 * src/clfswm-autodoc.lisp (produce-doc, produce-doc-html): Minor
434 2009-06-18 Philippe Brochard <pbrochard@common-lisp.net>
436 * src/config.lisp (get-fullscreen-size): One pixel adjustment
439 * src/clfswm-placement.lisp (*-child-placement): One pixel
442 2009-06-16 Philippe Brochard <pbrochard@common-lisp.net>
444 * src/clfswm-circulate-mode.lisp (draw-circulate-mode-window):
445 Ensure that all characters are printable.
447 * src/config.lisp (get-fullscreen-size): Adjust default fullscreen
450 * src/clfswm-placement.lisp (*-child-placement): Adjust
451 coordinates to one pixel in the current child.
453 2009-06-04 Philippe Brochard <pbrochard@common-lisp.net>
455 * src/clfswm-query.lisp (query-enter-function): Assign font before
456 width and height calculation.
458 2009-06-03 Philippe Brochard <pbrochard@common-lisp.net>
460 * src/xlib-util.lisp (banish-pointer): Use with-placement macro to
461 bannish the pointer in an arbitrary place.
463 * src/clfswm-info.lisp (info-mode): Use with-placement macro to
464 place the info window in an arbitrary place.
466 * src/clfswm-query.lisp (query-enter-function): Use with-placement
467 macro to place the query window in an arbitrary place.
469 * src/clfswm-placement.lisp: New file. Allow to place info windows
470 or query windows on an arbitrary place. Allow to bannish the
471 pointer on an arbitrary place.
473 2009-05-16 Philippe Brochard <pbrochard@common-lisp.net>
475 * src/clfswm-circulate-mode.lisp (reorder-child)
476 (reorder-brother): Unfocus windows before reordering children or
479 2009-05-13 Philippe Brochard <pbrochard@common-lisp.net>
481 * src/clfswm-circulate-mode.lisp (reorder-brother): Ensure that
482 the parent is a frame.
484 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Handle
485 motion with a default modifier.
487 * src/clfswm.lisp (handle-motion-notify): Handle motion with a
490 * src/clfswm-info.lisp (info-mode): Handle motion with a default
492 (info-mode): Optimization in loop function.
494 2009-05-10 Philippe Brochard <pbrochard@common-lisp.net>
496 * src/clfswm-circulate-mode.lisp (reorder-brother): Handle
497 root-frame correctly.
499 * clfswm.asd: Dependency fix for clfswm-generic-mode.
501 * src/clfswm-circulate-mode.lisp (reorder-child)
502 (reorder-brother): Handle empty frames.
503 (reorder-brother): Redisplay only the parent frame of the current
506 * src/clfswm-util.lisp (frame-toggle-maximize): Redisplay only the
507 parent frame of the current frame.
509 2009-05-09 Philippe Brochard <pbrochard@common-lisp.net>
511 * src/clfswm-util.lisp (frame-toggle-maximize): New function:
512 Maximize/Unmaximize the current frame in its parent frame.
514 * src/clfswm-layout.lisp (maximize-layout): New layout: Maximize
515 windows and frames in there parent frame.
517 2009-05-05 Philippe Brochard <pbrochard@common-lisp.net>
519 * src/*.lisp: Add support for Clozure Common Lisp (CCL).
521 * src/clfswm-circulate-mode.lisp (reorder-child)
522 (reorder-brother): Reinitialise on circulate type change
523 child to brother or brother to child.
525 * src/*.lisp (*): Use map-window instead of xlib:map-window. So
526 calls xlib:display-finish-output on each map-request. So speed up
529 * src/xlib-util.lisp (map-window): New function. Call
530 xlib:display-finish-output on each map request.
532 2009-04-28 Philippe Brochard <pbrochard@common-lisp.net>
534 * src/clfswm-second-mode.lisp (sm-handle-motion-notify):
535 Optimisation when drawing second mode window.
537 2009-04-27 Philippe Brochard <pbrochard@common-lisp.net>
539 * src/clfswm-circulate-mode.lisp (circulate-mode): Optimisation in
542 2009-04-22 Philippe Brochard <pbrochard@common-lisp.net>
544 * src/clfswm-util.lisp (run-program-from-query-string): Launch
545 command only with a return validation.
547 2009-04-22 Xavier Maillard <xma@gnu.org>
549 * src/clfswm-query.lisp (query-string): Use a generic mode.
551 2009-04-19 Xavier Maillard <xma@gnu.org>
553 * src/clfswm-info.lisp (info-mode): Use generic-mode for info-mode.
555 2009-04-18 Xavier Maillard <xma@gnu.org>
557 * src/clfswm-generic-mode.lisp (generic-mode): Add a generic mode
558 to define all other modes.
560 2009-04-05 Philippe Brochard <pbrochard@common-lisp.net>
562 * src/package.lisp (): Use *default-font-string* for all
565 * src/clfswm-info.lisp (info-mode): Ensure integer windows size.
567 2009-02-17 Philippe Brochard <pbrochard@common-lisp.net>
569 * src/xlib-util.lisp (null-size-window-p): Better check of null
572 2009-02-14 Philippe Brochard <pbrochard@common-lisp.net>
574 * src/clfswm.lisp (handle-map-request): Add a fix to manage
575 correctly fullscreen windows (SDL particularly).
577 2008-12-20 Philippe Brochard <pbrochard@common-lisp.net>
579 * src/xlib-util.lisp (get-color): Allocate colors only once -> fix
580 a segfault with clisp/new-clx.
582 * src/clfswm.lisp (handle-motion-notify): Add a needed window
585 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Add a
586 needed window argument.
588 2008-10-30 Philippe Brochard <pbrochard@common-lisp.net>
590 * src/xlib-util.lisp (wait-no-key-or-button-press)
591 (wait-a-key-or-button-press): Check buttons press/release correctly"
593 2008-10-28 Philippe Brochard <pbrochard@common-lisp.net>
595 * src/menu-def.lisp: Add children navigation menu in the movement
596 menu (select next/previous child/brother/level).
598 2008-10-26 Philippe Brochard <pbrochard@common-lisp.net>
600 * *: Rename 'sister' frame to 'brother' frame.
602 * src/clfswm-keys.lisp (unalias-modifiers): Convert a modifier
603 alias in a real modifier.
605 * src/package.lisp (*modifier-alias*): New list of modifier alias
606 For example: :alt is :mod-1, :numlock is :mod-2...
608 * src/tools.lisp (remove-hook): New function.
610 * src/clfswm-keys.lisp (with-capslock, without-capslock)
611 (with-numlock, without-cnumlock): New functions.
613 2008-10-25 Philippe Brochard <pbrochard@common-lisp.net>
615 * src/clfswm-info.lisp: Use the *binding-hook* to create info
616 keys and mouse bindings.
618 * src/bindings-second-mode.lisp: Use the *binding-hook* to create
619 second keys and mouse bindings.
621 * src/bindings.lisp: Use the *binding-hook* to create main keys
624 2008-10-10 Philippe Brochard <pbrochard@common-lisp.net>
626 * src/clfswm-menu.lisp (open-menu): Remember parent menu to undo
629 2008-10-09 Philippe Brochard <pbrochard@common-lisp.net>
631 * src/menu-def.lisp: Use a menu instead of a function for the
634 2008-10-08 Philippe Brochard <pbrochard@common-lisp.net>
636 * src/clfswm-util.lisp (show-standard-menu): Display the standard
637 menu from the 'update-menus' command.
639 2008-10-07 Philippe Brochard <pbrochard@common-lisp.net>
641 * src/clfswm-query.lisp (query-string): Do not ungrab keyboard if
642 it's already grabbed.
644 * src/clfswm-internal.lisp (display-frame-info): Use configurable
645 colors and fix a bug with background.
646 (display-frame-info): Set window background when displaying info.
648 2008-10-06 Philippe Brochard <pbrochard@common-lisp.net>
650 * src/xlib-util.lisp (my-character->keysyms): Use a macro to avoid
651 warning with clisp/new-clx.
653 2008-10-04 Philippe Brochard <pbrochard@common-lisp.net>
655 * src/clfswm-util.lisp (jump-to-slot): Prevent to jump on a
658 2008-09-23 Philippe Brochard <pbrochard@common-lisp.net>
659 * *: **** Release 0809 ****
661 2008-09-23 Philippe Brochard <pbrochard@common-lisp.net>
663 * src/clfswm-util.lisp (ensure-unique-name): New function and menu
665 (ensure-unique-number): New function and menu entry.
667 2008-09-22 Philippe Brochard <pbrochard@common-lisp.net>
669 * src/clfswm-nw-hooks.lisp (named-frame-nw-hook): New new window
670 hook: open the next window in a named frame.
671 (numbered-frame-nw-hook): New new window hook: open the next
672 window in a numbered frame.
674 * src/clfswm-query.lisp (query-string): Grab the keyboard in all
675 cases. So query-string can be called even in the main mode.
677 * src/clfswm-internal.lisp (show-all-children): Do not raise a
678 child by default => far less flickering.
680 2008-09-19 Philippe Brochard <pbrochard@common-lisp.net>
682 * src/bindings-second-mode.lisp: Bind "t" to tile-current-frame.
684 * src/menu-def.lisp: Change key binding for the CLFSWM menu
687 * src/xlib-util.lisp (xgrab-pointer): Handle the case where cursor
688 is nil. (workaround on some CLX implementation).
690 2008-09-12 Philippe Brochard <pbrochard@common-lisp.net>
692 * src/menu-def.lisp: Add a menu to set a focus policy for all
695 * src/clfswm-util.lisp (set-focus-policy-generic-for-all)
696 (all-frames-set-*-focus-policy): Set a focus policy for all
699 * src/clfswm.lisp (handle-enter-notify): sloppy-select
700 mode. Select a child and its parents on mouse over.
702 2008-09-03 Philippe Brochard <pbrochard@common-lisp.net>
704 * src/clfswm.lisp (handle-enter-notify): Add a sloppy strict focus
705 policy -> Sloppy focus only for windows in the current frame.
706 (main-unprotected): Exit clfswm on init error (ie: when another
707 window manager is running).
709 * src/clfswm-util.lisp (reset-clfswm): New function.
711 2008-09-02 Philippe Brochard <pbrochard@common-lisp.net>
713 * src/clfswm-menu.lisp (init-menu): New function.
715 * src/clfswm-util.lisp (reload-clfswm): New function to reload
717 (exit-clfswm): Rename quit-clfswm to exit-clfswm.
719 * src/clfswm.lisp (main, main-unprotected): Handle error in a
720 superior main function. Now CLFSWM can't break the X session. It
721 just reinitialize the display and run a new main loop.
723 * src/clfswm-corner.lisp: Make *clfswm-terminal* and
724 *vt-keyboard-on* global to avoid warnings when loading clfswm.
726 * src/clfswm-layout.lisp: Add a specific GIMP layout menu.
727 (help-on-gimp-layout): Describe how to use the GIMP layout.
729 2008-09-01 Philippe Brochard <pbrochard@common-lisp.net>
731 * src/clfswm-layout.lisp (set-gimp-layout): Change the layout to
732 main-window-right-layout. Change the keybinding for (shift)alt+tab
733 to not select windows in the main window lisst.
734 Bind F8 to add a window in the main window list.
735 Bind F9 to remove a window in the main window list.
736 Change the focus policy to :sloppy.
737 (set-previous-layout): Restore the previous layout, keybinding and
740 2008-08-31 Philippe Brochard <pbrochard@common-lisp.net>
742 * src/clfswm-menu.lisp (add-menu-comment): Add comments in menu.
744 * src/clfswm-layout.lisp (main-window-left-layout)
745 (main-window-bottom-layout, main-window-top-layout): New
747 Factorize layouts in menu.
749 2008-08-30 Philippe Brochard <pbrochard@common-lisp.net>
751 * src/clfswm-layout.lisp (main-window-right-layout): A possible
752 GIMP layout: one or more main windows on one side of the
753 frame. Others on the other size.
755 * src/clfswm-util.lisp
756 (current-frame-set-click/sloppy-focus-policy): Each frame can have
757 a different focus policy (one of :click or :sloppy).
758 The default focus policy is set with *default-focus-policy*.
760 2008-08-23 Philippe Brochard <pbrochard@common-lisp.net>
762 * src/clfswm-info.lisp (show-config-variable): New function.
764 2008-08-19 Philippe Brochard <pbrochard@common-lisp.net>
766 * src/clfswm-layout.lisp (tile-horizontal-layout): New layout.
768 * src/clfswm-info.lisp: Colored help for key binding and corners
771 2008-08-18 Philippe Brochard <pbrochard@common-lisp.net>
773 * src/clfswm-util.lisp (delete-focus-window)
774 (destroy-focus-window): Remove chid only in
775 handle-unmap/destroy-notify. Focus *current-root* only when
776 closing/killing the current child.
778 * src/clfswm-autodoc.lisp (produce-corner-*-doc): New autodoc
779 functions or corners.
781 2008-08-17 Philippe Brochard <pbrochard@common-lisp.net>
783 * src/clfswm-corner.lisp (present-clfswm-terminal): New corner
784 action: Hide/Unhide a terminal on mouse corner action. (By default
785 right mouse button on the top left corner).
787 * src/config.lisp (*never-managed-window-list*): New config
790 * src/clfswm-internal.lisp (never-managed-window-p): New function:
791 Handle never managed window in a more simple way.
793 * src/clfswm-corner.lisp: New file and new and more simple method
794 to define corners actions.
796 2008-08-15 Philippe Brochard <pbrochard@common-lisp.net>
798 * src/clfswm-info.lisp (info-mode): Info line can now be colored.
800 * src/clfswm-layout.lisp (fast-layout-switch)
801 (define-fast-layout-switch): New functions: Switch between two
804 * src/clfswm-second-mode.lisp (leave-second-mode): Takes care if
805 really in the second mode. So leave-second-mode can be used even
808 * src/clfswm-util.lisp (switch-to-last-child): New function:
809 Store the current child and switch to the previous one.
811 2008-07-16 Philippe Brochard <pbrochard@common-lisp.net>
813 * src/clfswm-util.lisp (display-current-window-info): Display the
815 (have-to-present-virtual-keyboard): Add a virtual keyboard corner
816 (top right by default). By default 'xvkbd' is used.
818 2008-06-28 Philippe Brochard <pbrochard@common-lisp.net>
820 * src/xlib-util.lisp (move-window, resize-window): Compress motion
823 * src/clfswm.lisp (handle-motion-notify): Compress motion events.
825 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Compress
828 * src/clfswm-info.lisp (info-mode): Compress motion events.
830 2008-06-21 Philippe Brochard <pbrochard@common-lisp.net>
832 * src/clfswm-internal.lisp (show-all-children): Compute geometry
833 and selection first and then show only necessary children.
834 (show-child): remove unneeded display-p parameter.
836 * src/config.lisp (get-fullscreen-size): Place the frame border
837 outside the screen (this prevent the loose of 2 pixels per
840 2008-06-12 Philippe Brochard <pbrochard@common-lisp.net>
842 * src/clfswm-internal.lisp (focus-child): Algorithm change to
843 raise only the selected child.
845 2008-06-08 Philippe Brochard <pbrochard@common-lisp.net>
847 * src/clfswm-internal.lisp (raise-p-list, show-all-children):
848 Raise only viewable children.
850 2008-06-06 Philippe Brochard <pbrochard@common-lisp.net>
852 * src/clfswm-internal.lisp (show-all-children): Always raise all
853 displayed children. Remove all references to raise-p.
855 2008-06-04 Philippe Brochard <pbrochard@common-lisp.net>
857 * src/menu-def.lisp (child-menu): New menu entry on raise/lower
860 * src/bindings-second-mode.lisp ("Page_Down", "Page_Up"): New
861 second mode binding on raise/lower child in its frame.
863 * src/clfswm-nw-hooks.lisp (leave-focus-frame-nw-hook): Adapt
864 behaviour to the new raise/lower property.
865 Call clear-nw-hook before the rest of the hook.
867 * src/bindings.lisp (mouse-click-to-focus-and-move-window)
868 (mouse-click-to-focus-and-resize-window): Stop button event. This
869 prevent a keyboard/pointer freeze.
871 2008-06-03 Philippe Brochard <pbrochard@common-lisp.net>
873 * src/clfswm-internal.lisp (frame-lower-child)
874 (frame-raise-child): New functions to raise/lower a child in its
877 * src/clfswm-util.lisp (have-to-present-windows)
878 (have-to-present-all-windows): New functions to have an MaxOS
879 expose like on mouse click in screen corner.
881 * src/clfswm-info.lisp ("Page_Down", "Page_Up"): Add boundaries.
883 2008-05-30 Philippe Brochard <pbrochard@common-lisp.net>
885 * src/clfswm-util.lisp (unhide-a-child-from-all-frames): Unhide a
886 child from a choice in all frames with hidden children.
888 * src/clfswm-info.lisp (info-mode-menu): Handle separators.
890 2008-05-28 Philippe Brochard <pbrochard@common-lisp.net>
892 * src/clfswm-util.lisp (hide-current-child, unhide-a-child)
893 (unhide-all-children): New functions.
895 * src/clfswm-info.lisp (info-mode-menu): Handle symbols and
898 * src/clfswm-util.lisp (hide/show-frame-window): new function and
901 2008-05-23 Philippe Brochard <pbrochard@common-lisp.net>
903 * src/clfswm-util.lisp (rename-current-child): Do not display the
904 frame info for a window.
906 2008-05-20 Philippe Brochard <pbrochard@common-lisp.net>
908 * src/clfswm-internal.lisp (remove-child-in-frame): Destroy the
909 frame window for the removed child and its children.
911 2008-05-18 Philippe Brochard <pbrochard@common-lisp.net>
913 * src/clfswm-autodoc.lisp (produce-*-doc-*): Add a note to use the
916 2008-05-17 Philippe Brochard <pbrochard@common-lisp.net>
918 * src/clfswm-nw-hooks.lisp (default-frame-nw-hook): Do not handle
919 the ROX pinboard (ie: leave it lowered in the root window as
922 * src/clfswm-layout.lisp (tile-left-space-layout): New layout.
923 (tile-left-layout, tile-right-layout, tile-top-layout)
924 (tile-bottom-layout): Use all the frame space when there is only
927 * src/clfswm-internal.lisp (place-window-from-hints): Center
928 unmanaged windows in the root screen.
930 * src/clfswm-nw-hooks.lisp (clear-nw-hook, clear-all-nw-hooks):
933 2008-05-15 Philippe Brochard <pbrochard@common-lisp.net>
935 * src/clfswm-util.lisp (current-frame-manage-window-type): Fix a
936 typo in managed types.
938 * src/clfswm-internal.lisp (show-child): Always display frame info
939 even if the frame is hidden.
941 * src/xlib-util.lisp (resize-window): Use a better algorithme to
944 2008-05-13 Philippe Brochard <pbrochard@common-lisp.net>
946 * src/clfswm-util.lisp (with-movement): Display frame info for all
947 frames in current root.
949 2008-05-12 Philippe Brochard <pbrochard@common-lisp.net>
951 * src/*.lisp: Rename 'brother' frames to 'sister' frames.
953 * src/bindings-second-mode.lisp (define-second-key #\a): New
954 binding on 'add-default-frame'.
956 * src/clfswm-autodoc.lisp (produce-*-doc-*-in-file): Show a
957 message to follow the autodocumentation process.
959 2008-05-10 Philippe Brochard <pbrochard@common-lisp.net>
961 * src/clfswm-util.lisp (bind-or-jump): Bind "Tab", "Return" and
962 "Space" to jump to a child. "B" to bind a slot on the current
965 * src/bindings-second-mode.lisp: Use "Tab" instead of
968 2008-05-07 Philippe Brochard <pbrochard@common-lisp.net>
970 * src/clfswm-util.lisp (find-child-under-mouse): Take care of
971 unmanaged (hidden) windows.
973 * src/clfswm-internal.lisp (place-window-from-hints): Give a
974 minimal size for windows.
975 (with-all-windows-frames-and-parent): New function.
977 * src/config.lisp (*default-window-width/height*): New parameters.
979 * src/clfswm-internal.lisp (place-window-from-hints): Center
980 windows in the screen instead of in there frame.
982 * src/bindings-second-mode.lisp (tile-space-current-frame): New
985 * src/clfswm-layout.lisp (register-layout): Intern the once name
986 in the right package.
988 2008-05-05 Philippe Brochard <pbrochard@common-lisp.net>
990 * doc/dot-clfswmrc: Update to follow the new clfswm way.
992 2008-05-03 Philippe Brochard <pbrochard@common-lisp.net>
994 * src/clfswm-internal.lisp (set-current-child)
995 (adapt-child-to-parent, show-child, hide-child): Handle the case
996 where child is not a frame or a window.
998 * src/clfswm-util.lisp
999 (mouse-click-to-focus-generic,mouse-focus-move/resize-generic):
1000 Check if child is a frame.
1002 * src/clfswm-internal.lisp (managed-window-p): Handle the case
1003 where frame is null.
1004 (place-frame): Check if frame and parent are frames.
1006 * src/clfswm-info.lisp (info-mode): display all frame info before
1009 * src/clfswm-second-mode.lisp (second-key-mode): display all frame
1010 info before leaving.
1012 * src/clfswm-internal.lisp (display-all-frame-info): New function.
1014 2008-05-02 Philippe Brochard <pbrochard@common-lisp.net>
1016 * src/tools.lisp (getenv): Implemented for ECL.
1017 (urun-prog): Implemented for ECL.
1019 * src/clfswm-util.lisp (identify-key): Use a double buffer to
1022 * src/clfswm-query.lisp (query-string): Use a double buffer to
1025 * src/clfswm-info.lisp (draw-info-window): Use a double buffer to
1028 * src/xlib-util.lisp (clear-pixmap-buffer, copy-pixmap-buffer):
1031 2008-05-01 Philippe Brochard <pbrochard@common-lisp.net>
1033 * src/clfswm-info.lisp (info-mode): Add boundaries in the info mode window.
1035 * src/menu-def.lisp: New file: move all menu definition in
1038 * src/clfswm-layout.lisp (register-layout): Use a function instead
1041 2008-04-30 Philippe Brochard <pbrochard@common-lisp.net>
1043 * src/clfswm-autodoc.lisp (produce-menu-doc,
1044 (produce-menu-doc-html): New functions.
1045 (produce-doc-*): Moved to clfswm-autodoc.lisp.
1047 * src/clfswm-util.lisp (paste-selection-no-clear): Prevent to
1048 paste a child on one of its own children. (this prevent a
1050 (move-child-to): Rename move/copy-current-child-by to
1052 (mouse-move-window-over-frame): New function to move the window
1053 under the mouse cursor to another frame.
1055 * src/clfswm-internal.lisp (find-child-in-parent): New function.
1057 2008-04-29 Philippe Brochard <pbrochard@common-lisp.net>
1059 * src/clfswm-internal.lisp (show-all-children): Display unmanaged
1060 windows only when its window parent is the current child.
1062 2008-04-28 Philippe Brochard <pbrochard@common-lisp.net>
1064 * src/clfswm-util.lisp (manage-current-window)
1065 (unmanage-current-window): New functions: Allow to force to manage
1066 or unmanage a window by its parent frame.
1068 * src/bindings-second-mode.lisp (#\o): binded to
1069 set-open-in-new-frame-in-parent-frame-nw-hook and
1070 (#\o :control) to set-open-in-new-frame-in-root-frame-nw-hook
1072 * src/clfswm-util.lisp (with-current-window): New macro.
1074 * src/xlib-util.lisp (move-window, resize-window): Remove uneeded
1075 exposure and enter-window handle event.
1077 * src/clfswm-util.lisp (move-frame, resize-frame): Show all
1078 children for the current child after the move/resize.
1080 2008-04-27 Philippe Brochard <pbrochard@common-lisp.net>
1082 * src/xlib-util.lisp (resize-window): Take care of window size
1085 * src/clfswm-util.lisp (mouse-focus-move/resize-generic): Allow to
1086 move/resize unmanaged windows.
1088 * src/xlib-util.lisp (move-window, resize-window): New functions.
1090 2008-04-25 Philippe Brochard <pbrochard@common-lisp.net>
1092 * src/clfswm-util.lisp (current-frame-manage-window-type): Let the
1093 user choose what window type the current frame must handle.
1094 (display-current-window-info): New function.
1095 (current-frame-manage-all-window-type)
1096 (current-frame-manage-only-normal-window-type)
1097 (current-frame-manage-no-window-type): New functions.
1099 * src/clfswm-internal.lisp (managed-window-p): New function.
1101 * src/package.lisp (frame): Managed type: new frame
1102 parameter. This allow to choose what window type a frame must
1105 * src/*.lisp: Rename all 'father' occurrences to 'parent'.
1107 * src/clfswm-nw-hooks.lisp
1108 (open-in-new-frame-in-parent-frame-nw-hook): New new window hook.
1110 * src/clfswm-util.lisp (adapt-current-frame-to-window-hints): New
1113 * src/tools.lisp (ensure-printable): Return always a string even
1116 2008-04-24 Philippe Brochard <pbrochard@common-lisp.net>
1118 * src/config.lisp (*default-nw-hook*): New variable to change the
1119 default new window hook.
1121 2008-04-22 Philippe Brochard <pbrochard@common-lisp.net>
1123 * clfswm.asd (clfswm): Add a dependency from
1124 clfswm-second-mode.lisp to clfswm.lisp.
1126 * src/clfswm-util.lisp (identify-key): Show the documentation for
1127 the function bound on a key.
1128 (with-movement): Move with-movement,
1129 current-frame-fill/pack/resize-* from bindings-second-mode.lisp
1130 to clfswm-util.lisp.
1132 * src/clfswm-menu.lisp: New menu system that let user change keys
1133 or functions associated to keys.
1135 2008-04-18 Philippe Brochard <pbrochard@common-lisp.net>
1137 * src/clfswm-internal.lisp (show-all-children): Display-child is
1138 the first child by default. Solve a bug with father-p.
1140 2008-04-17 Philippe Brochard <pbrochard@common-lisp.net>
1142 * src/clfswm-internal.lisp (add-frame): Add frame return the
1144 (show-all-children): Move the size computation outside the
1147 * src/bindings-second-mode.lisp (with-movement): Redisplay only
1150 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Redisplay
1151 only the current child.
1153 * src/clfswm-internal.lisp (show-all-children): New display-child
1154 parameter to display only the desired child and its children.
1155 (select-next/previous-child): Only display the current child.
1157 2008-04-14 Philippe Brochard <pbrochard@common-lisp.net>
1159 * src/clfswm.lisp (init-display): Move the default frame creation
1160 on the default init hook.
1162 * src/clfswm-keys.lisp (define-ungrab/grab): Handle all keysyms in
1163 the main mode (for example: "1" on an azerty keyboard).
1165 2008-04-13 Philippe Brochard <pbrochard@common-lisp.net>
1167 * src/clfswm-keys.lisp (find-key-from-code): Better handle of
1168 keysyms. Revert to old grabbing method for the main mode.
1170 2008-04-12 Philippe Brochard <pbrochard@common-lisp.net>
1172 * src/clfswm.lisp (init-display): Add key handling on no focus
1173 window and on frame windows.
1175 2008-04-11 Philippe Brochard <pbrochard@common-lisp.net>
1177 * src/clfswm.lisp (main): Keyboard handle strategie change: Grab
1178 all keys by default and replay just what is needed. No change for
1181 * src/clfswm-keys.lisp: remove grab/ungrab main keys.
1182 (find-key-from-code): Test for shift and not shift presence.
1184 2008-04-09 Philippe Brochard <pbrochard@common-lisp.net>
1186 * src/clfswm-internal.lisp (switch-to-root-frame): show later -
1187 new key parameter to have less flickering.
1189 2008-04-07 Philippe Brochard <pbrochard@common-lisp.net>
1191 * src/bindings-second-mode.lisp (frame-layout-once-menu): Set the
1192 layout only one time and revert to no-layout to freely handle
1195 * src/clfswm-nw-hooks.lisp
1196 (open-in-new-frame-in-root-frame-nw-hook): Tile layout with spaces
1197 with new created window.
1199 * src/clfswm-layout.lisp (register-layout): Now register
1200 automatically a once layout to set the layout only one time and
1201 revert to no-layout to freely handle frames.
1203 2008-04-05 Philippe Brochard <pbrochard@common-lisp.net>
1205 * src/clfswm-nw-hooks.lisp (leave-focus-frame-nw-hook): New
1206 nw-hook: Open the next window in the current frame and leave the
1207 focus to the current child.
1209 2008-04-04 Philippe Brochard <pbrochard@common-lisp.net>
1211 * src/bindings-second-mode.lisp: Add keys definitions to
1212 bind-or-jump in the second mode.
1214 * src/clfswm-util.lisp (bind-or-jump): remove the auto-defining
1215 macro for bind-or-jump-(1|2|3...).
1217 * src/clfswm-keys.lisp (define-define-key/mouse): Allow additional
1218 arguments to function. This allow to do things like:
1219 (define-main-key (key) 'my-function 10 20 'foo) -> 10 20 and 'foo
1220 are passed to my-function on key press.
1222 2008-04-03 Philippe Brochard <pbrochard@common-lisp.net>
1224 * src/clfswm-util.lisp (bind-or-jump): New (great) function.
1226 2008-04-02 Philippe Brochard <pbrochard@common-lisp.net>
1228 * src/clfswm-internal.lisp (child-fullname): New function
1230 * src/clfswm-info.lisp (info-mode-menu): Add an explicit optional
1231 docstring in info-mode-menu. An item can be
1232 '((key function) (key function)) or with docstring
1233 '((key function "documentation 1") (key function "bla bla") (key function))
1235 * src/tools.lisp (ensure-n-elems): New function.
1237 * src/bindings-second-mode.lisp: Bind Alt+mouse-1/3 to move or
1238 resize a frame or the window's father.
1240 * src/clfswm.lisp (init-display): Remove tile-space-layout by
1241 default on the root frame.
1243 * src/clfswm-util.lisp (move/resize-frame): Add standard event
1244 hooks handlers (map-request, configure-notify...)
1246 * src/clfswm-internal.lisp (adapt-child-to-father): Limit minimal
1249 2008-04-01 Philippe Brochard <pbrochard@common-lisp.net>
1251 * src/bindings.lisp: Bind Alt+mouse-1/3 to move or resize a frame
1252 or the window's father.
1254 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Stop button
1255 event only if there is a geometry change.
1256 (mouse-focus-move/resize-generic): Generic function to move or
1257 resize a frame or a window father frame.
1259 2008-04-01 Philippe Brochard <pbrochard@common-lisp.net>
1261 * src/clfswm-internal.lisp (show-all-children): Return t if there
1262 is a geometry change.
1264 2008-03-30 Philippe Brochard <pbrochard@common-lisp.net>
1266 * src/bindings.lisp (Up/Down): Swap select previous/next level.
1268 * src/bindings-second-mode.lisp (Up/Down): Swap select previous/next level.
1270 * src/clfswm.lisp (init-display): Create a default frame in the root frame.
1272 * src/clfswm-internal.lisp (place-frame): Place frame from real (pixel) coordinates.
1273 (with-all-*): Reverse the child list to manage the first child last (like in
1276 * src/config.lisp (*create-frame-on-root*): New variable: Create a new frame on the
1277 root window only if true.
1279 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Create a new frame on the
1280 root window only if *create-frame-on-root* is true.
1282 * src/bindings-second-mode.lisp (sm-mouse-click-to-focus-generic): Create a new frame
1285 2008-03-29 Philippe Brochard <pbrochard@common-lisp.net>
1287 * src/bindings-second-mode.lisp (sm-mouse-click-to-focus-generic): Focus, move and resize
1288 the current child (even if it's a window).
1290 2008-03-28 Philippe Brochard <pbrochard@common-lisp.net>
1292 * src/clfswm-util.lisp (mouse-click-to-focus-and-move)
1293 (mouse-click-to-focus-and-resize): New functions.
1295 * src/clfswm-internal.lisp (*-fl->px): Convert float coordinates to pixel.
1296 (*-px->fl): Convert pixel coordinates to float.
1298 * src/tools.lisp (call-hook): Move call-hook to tools.lisp.
1300 2008-03-27 Philippe Brochard <pbrochard@common-lisp.net>
1302 * src/clfswm-layout.lisp (no-layout): Use :first-only to raise only the
1305 * src/clfswm-internal.lisp (hide-all): Split hide-all-children in hide-all
1306 and hide-all-children.
1307 (raise-if-needed): New function.
1308 (show-child): Use a first-p parameter to raise windows only when they are
1311 2008-03-26 Philippe Brochard <pbrochard@common-lisp.net>
1313 * src/clfswm-internal.lisp (select-next/previous-level): Don't use show-all-children
1316 2008-03-25 Philippe Brochard <pbrochard@common-lisp.net>
1318 * src/clfswm-info.lisp (keys-from-list): new function.
1320 * src/*: rename 'childs' in 'children'.
1322 * src/*: rename 'group' in 'frame'.
1324 2008-03-22 Philippe Brochard <pbrochard@common-lisp.net>
1326 * src/clfswm-pack.lisp (explode-group/explode-current-group): new functions.
1328 2008-03-21 Philippe Brochard <pbrochard@common-lisp.net>
1330 * src/clfswm-pack.lisp: Pack, Fill, Resize functions.
1332 2008-03-16 Philippe Brochard <pbrochard@common-lisp.net>
1334 * src/clfswm-nw-hooks.lisp: Register system for new window hooks.
1335 Bind control+o to open the next window in a new group in the root group
1336 (as open in next window in a new workspace in 0801 version).
1338 2008-03-15 Philippe Brochard <pbrochard@common-lisp.net>
1340 * src/clfswm-util.lisp (show/hide-all-groups-info/key): Show/hide all groups info
1343 2008-03-14 Philippe Brochard <pbrochard@common-lisp.net>
1345 * bindings-second-mode.lisp ("ISO_Left_Tab"): Use ISO_Left_Tab
1346 instead of Tab for select-previous-child.
1348 2008-03-13 Philippe Brochard <pbrochard@common-lisp.net>
1350 * clfswm-util.lisp (force-window-in-group/force-window-center-in-group):
1353 2008-03-11 Philippe Brochard <pbrochard@common-lisp.net>
1355 * clfswm-util.lisp (identify-key): Display the documentation
1356 associated to keys when identifying a key.
1358 2008-03-10 Xavier Maillard <xma@gnu.org>
1360 * contrib/clfswm: Complete rewrite of the script. Detect error and
1361 act accordingly. Add command line arguments to configure the
1362 script execution. User can now choose different common lisp
1363 implementation (clisp and sbcl only), choose where to store the
1364 dumped image, where to find clfswm source.
1366 2008-03-09 Philippe Brochard <pbrochard@common-lisp.net>
1368 * clfswm-internal.lisp (process-new-window): Beginning of new
1369 window hook: each group have a hook to tell what he wants to do
1370 with the new created window.
1372 2008-03-08 Xavier Maillard <xma@gnu.org>
1374 * contrib/clfswm: New script. Dump a CLISP image of CLFSWM then
1375 call the resulting executable.
1377 * clfswm.lisp (read-conf-file): Check for the user config file in
1378 XDG_CONFIG_HOME *first*. Freedesktop.org standards should be
1379 prefered whenever possible.
1381 2008-02-27 Philippe Brochard <pbrochard@common-lisp.net>
1383 * clfswm-layout.lisp (*-layout): Add an optional raise-p
1384 parameter in each layout.
1386 2008-02-26 Philippe Brochard <pbrochard@common-lisp.net>
1388 * clfswm-util.lisp (copy/cut-current-child): Does not affect the
1390 (copy/move-current-child-by-name/number): new functions
1391 (focus-group-by-name/number): new functions
1392 (delete-group-by-name/number): new functions
1394 2008-02-24 Philippe Brochard <pbrochard@common-lisp.net>
1396 * ************************************************************ *
1397 *: Major update - No more reference to workspaces. The main *
1398 structure is a tree of groups or application windows. *
1399 * ************************************************************ *
1401 2008-02-07 Philippe Brochard <pbrochard@common-lisp.net>
1403 * clfswm.lisp (read-conf-file): Read configuration in
1404 $HOME/.clfswmrc or in /etc/clfswmrc or in
1405 $XDG_CONFIG_HOME/clfswm/clfswmrc.
1406 (xdg-config-home): Return the content of $XDG-CONFIG-HOME (default
1409 2008-01-18 Philippe Brochard <pbrochard@common-lisp.net>
1411 * clfswm-internal.lisp (show-all-group): Use *root* and *root-gc*
1414 2008-01-03 Philippe Brochard <pbrochard@common-lisp.net>
1416 * clfswm-internal.lisp (find-window-group): New function.
1418 * clfswm*: Change to make clfswm run with clisp/new-clx.
1420 2008-01-01 Philippe Brochard <pbrochard@common-lisp.net>
1422 * clfswm-util.lisp (query-show-paren): Add show parent matching in
1424 (query-string): Bind control+k to delete end of line.
1426 * clfswm-second-mode.lisp (draw-second-mode-window): Display
1427 the action on mouse motion in second mode.
1429 * clfswm.lisp (handle-exposure): Redisplay groups on exposure
1430 event but do not clear the root window.
1431 (handle-configure-request): Adjust unmanaged window from there
1434 * clfswm-internal.lisp (process-new-window): Adjust new window
1435 with the specified hints (max/min/base width/height).
1437 2007-12-31 Philippe Brochard <pbrochard@common-lisp.net>
1439 * clfswm.lisp (handle-configure-request): Send an Configuration
1440 Notify event. This solve a bug with xterm and rxvt who takes some
1441 times to be mapped. Now there is no delay.
1443 * bindings-second-mode.lisp (define-shell): Run programs after
1444 living the second mode.
1446 2007-12-30 Philippe Brochard <pbrochard@common-lisp.net>
1448 * clfswm-internal.lisp (process-new-window): Do not crop transient
1449 window to group size.
1450 (adapt-window-to-group): Do not crop transient window to group
1453 * clfswm.lisp (handle-configure-request): Adapt just the window to
1454 its group and don't take care of the configure request. Remove the
1455 bug with the Gimp outside the group and speed up the window
1457 (handle-exposure): Remove show-all-group on exposure event
1460 2007-12-29 Philippe Brochard <pbrochard@common-lisp.net>
1462 * clfswm-util.lisp (circulate-group-up-copy-window)
1463 (circulate-group-down-copy-window)
1464 (circulate-workspace-up-copy-group)
1465 (circulate-workspace-down-copy-group): Prevent the copy of the
1466 same window in the same workspace.
1468 * bindings-second-mode.lisp (release-copy-selected-window)
1469 (release-copy-selected-group): Prevent the copy of the same window
1470 in the same workspace.
1472 * clfswm-pager.lisp (generic-pager-move-window-on-previous-line)
1473 (generic-pager-move-window-on-next-line): Remove the copy
1475 (generic-pager-move-group-on-next-workspace)
1476 (generic-pager-move-group-on-previous-workspace): Prevent the copy
1477 of the same window in the same workspace.
1479 * bindings-pager.lisp (mouse-pager-copy-selected-window-release)
1480 (mouse-pager-copy-selected-group-release): Prevent the copy of the
1481 same window in the same workspace.
1483 * tools.lisp (setf/=): new macro to set a variable only when
1486 * clfswm-internal.lisp (adapt-window-to-group): use set/= to set
1487 x, y... only when necessary.
1489 2007-12-28 Philippe Brochard <pbrochard@common-lisp.net>
1491 * clfswm.lisp (handle-configure-notify, *configure-notify-hook*):
1492 new function and hook: force windows to stay in its group (solve a
1495 2007-12-25 Philippe Brochard <pbrochard@common-lisp.net>
1497 * bindings-second-mode.lisp (mouse-motion): use hide-group to have
1498 less flickering when moving/resizing groups.
1500 * clfswm-internal.lisp (hide-group): new function.
1501 (show-all-group): clear-all: new parameter.
1503 2007-12-22 Philippe Brochard <pbrochard@common-lisp.net>
1505 * clfswm-keys.lisp (define-define-key): undefine-*-multi-name: new
1507 * clfswm*: Color change for the pager. Typo or better description
1508 in bindings definitions. Define bindings for a qwerty keyboard by
1509 default. dot-clfswmrc show examples to switch to an azerty
1511 License change to GPL v3.
1512 * config.lisp: new file - group all globals variables in this
1515 2007-08-26 Philippe Brochard <pbrochard@common-lisp.net>
1517 * xlib-util.lisp (hide-window): Remove structure-notivy events
1518 when hidding a window.
1520 2007-05-16 Philippe Brochard <pbrochard@common-lisp.net>
1522 * package.lisp (*sm-property-notify-hook*): Readded
1523 property-notify-hook in second mode.
1525 2007-05-15 Philippe Brochard <pbrochard@common-lisp.net>
1527 * clfswm-keys.lisp (produce-doc-html): Better clean up for strings.
1529 2007-05-13 Philippe Brochard <pbrochard@common-lisp.net>
1531 * clfswm-pack.lisp (tile-current-workspace-to/right/left/top/bottom):
1532 Tile the current workspace with the current window on one side and
1533 others on the other (this emulate the larswm, dwm, wmii way). See
1534 the default configuration file to enable this mode by default.
1536 * clfswm-pager.lisp (pager-tile-current-workspace-to): idem for
1539 2007-05-12 Philippe Brochard <pbrochard@common-lisp.net>
1541 * clfswm-pager.lisp (pager-draw-window-in-group): Add
1542 ensure-printable to print windows name even with non-ascii
1545 2007-05-11 Philippe Brochard <pbrochard@common-lisp.net>
1547 * clfswm-pager.lisp (pager-explode-current-group): Create a new
1548 group for each window in group.
1549 (pager-implode-current-group): Move all windows in workspace to
1550 one group and remove other groups.
1552 * clfswm-pack.lisp (explode-group): Create a new group for each
1554 (implode-group): Move all windows in workspace to one group and
1555 remove other groups.
1557 * clfswm-util.lisp (identify-key): Remove local configuration
1558 variables and made them available for configuration from
1560 (query-string): idem.
1562 2007-04-29 Philippe Brochard <pbrochard@common-lisp.net>
1564 * netwm-util.lisp: Start of NetWM compliance.
1565 Add a Netwm client list gestion.
1567 2007-04-28 Philippe Brochard <pbrochard@common-lisp.net>
1569 * clfswm-internal.lisp (create-group-on-request): open a new group
1570 only when the current group is not empty.
1572 * bindings-second-mode.lisp (define-second-key-#\o-control): Fix a
1573 bug with null workspace.
1575 * clfswm-pager.lisp (pager-handle-event): Add a hook
1576 system. This hooks can be changed in the user configuration file.
1578 * package.lisp: All colors and font variables are set in
1579 package.lisp and can be configured in the user configuration
1581 Note: If you have configured some less ugly colors (esp. for the
1582 pager) don't hesitate to let me know :)
1584 * clfswm-second-mode.lisp (sm-handle-event): Add a hook
1585 system. This hooks can be changed in the user configuration file.
1587 * clfswm.lisp (handle-event): Add a hook system. This hooks can be
1588 changed in the user configuration file (~/.clfswmrc)
1590 2007-04-25 Philippe Brochard <pbrochard@common-lisp.net>
1592 * clfswm-util.lisp (stop-all-pending-actions): new function: reset
1593 arrow action, open next window in new workspace/group.
1595 * bindings.lisp (stop-all-pending-actions): new binding.
1596 (open-next-window-in-new-group-once): Open the next windows in a
1597 new group (only once) or open all new windows in a new group (like
1598 others windows managers).
1600 2007-04-22 Philippe Brochard <pbrochard@common-lisp.net>
1602 * clfswm.lisp (read-conf-file): New function to read a lisp
1603 configuration file at startup.
1604 (focus-group-under-mouse): Check if group isn't the current group
1605 ( prevent a bug with unclutter ).
1607 2007-03-02 Philippe Brochard <pbrochard@common-lisp.net>
1609 * bindings.lisp (run-program-from-query-string): A program can be
1610 launch from a input query window.
1612 2007-03-01 Philippe Brochard <pbrochard@common-lisp.net>
1614 * clfswm-info.lisp: Fix a bug with banish pointer in info mode.
1616 2007-02-28 Philippe Brochard <pbrochard@common-lisp.net>
1618 * clfswm.lisp (process-new-window): One can now open the next
1619 window in a workspace called by its number.
1621 * clfswm-util.lisp (query-font-string): Minimal editing
1623 (eval-from-string): And an REPL in the window manager... :)
1625 2007-02-26 Philippe Brochard <pbrochard@common-lisp.net>
1627 * clfswm.lisp (process-new-window): One can now open the next
1628 window in a new workspace or a new group.
1630 * clfswm-pager.lisp (pager-mode): Display the next arrow action
1631 with the hidden windows.
1633 * clfswm.lisp (second-key-mode): Display the current workspace
1634 number and the next arrow action in the state window.
1636 * clfswm-pager.lisp (pager-mode): Hide all windows before leaving
1637 the pager mode and then redisplay only the current workspace.
1639 2007-02-25 Philippe Brochard <pbrochard@common-lisp.net>
1641 * clfswm.lisp (add-workspace): Workspaces are now numbered. So
1642 they can be focused with a keypress, sorted or renumbered.
1644 2007-02-24 Philippe Brochard <pbrochard@common-lisp.net>
1646 * clfswm-pager.lisp (pager-mode): Remove multiple silly
1647 pager-draw-display. This prevent a lot of flickering in the
1650 * clfswm.lisp: Remove all display-force-output and replace them
1651 with only one display-finish-output in the event loop.
1653 2006-11-06 Philippe Brochard <pbrochard@common-lisp.net>
1655 * clfswm-pager.lisp (pager-center-group): New function - center a
1656 group at the middle of the screen.
1658 * clfswm-pack.lisp (center-group): New function - center a group
1659 at the middle of the screen.
1661 * clfswm.lisp (show-group): Add a cross line under the group.
1662 (show-group): Group are showned even if fullscreened.
1663 (init-display): Add an exposure event on the root window.
1665 2006-11-05 Philippe Brochard <pbrochard@common-lisp.net>
1667 * package.lisp (*default-group*): Default group is the same size
1668 of a fullscreened group.
1670 * bindings*: Use shift to move, control+shift to copy.
1672 * *.lisp: Add comments for configuration or alternatives. So grep
1673 for CONFIG to see where you can configure clfswm. And grep for
1674 Alternative to use some commented code.
1676 * clfswm.lisp (second-key-mode): Use a single window to show the
1677 second mode. See for alternatives at the end of this file.
1679 2006-11-03 Philippe Brochard <pbrochard@common-lisp.net>
1681 * clfswm-keys.lisp (define-define-key/mouse): Factorisation in a
1682 macro of key and mouse definitions.
1683 (define-define-key/mouse): Use state instead of modifiers list
1684 this fix a bug when the modifiers list is not in the rigth order.
1686 * clfswm.lisp (second-key-mode): Add a colored border in second mode.
1688 2006-11-02 Philippe Brochard <pbrochard@common-lisp.net>
1690 * clfswm-info.lisp (info-mode): Add an info mode.
1692 2006-11-01 Philippe Brochard <pbrochard@common-lisp.net>
1694 * clfswm.lisp (process-new-window): Change border size for
1696 (show-all-windows-in-workspace): Unhide all windows even when the
1697 current group is in fullscreen mode.
1699 2006-10-26 Philippe Brochard <pbrochard@common-lisp.net>
1701 * clfswm-util.lisp (identify-key): Add an exposure handle-event to
1702 redisplay the identify window after a terminal switch.
1704 * clfswm-pager.lisp (pager-mode): Add an exposure handle-event to
1705 redisplay the pager after a terminal switch.
1707 2006-10-24 Philippe Brochard <pbrochard@common-lisp.net>
1709 * clfswm-util.lisp (identify-key): Add a window to display
1710 the keys to identify on screen.
1712 * bindings.lisp, bindings-pager.lisp: Define same keys to
1713 move/copy groups/windows in second mode and in pager.
1715 * clfswm.lisp (handle-event*): Same version in all clfswm (fix some
1717 (show-all-windows-in-workspace): unhide window before adapting it
1720 2006-10-23 Philippe Brochard <pbrochard@common-lisp.net>
1722 * clfswm.lisp (handle-event): Revert to an older version.
1724 2006-10-18 Philippe Brochard <pbrochard@common-lisp.net>
1726 * clfswm-util.lisp (force-window-in-group)
1727 (force-window-center-in-group): New functions for transient windows.
1729 * clfswm-pager.lisp (pager-remove-current-workspace/group):
1730 bugfix: hide all windows before removing group or workspace.
1732 2006-10-17 Philippe Brochard <pbrochard@common-lisp.net>
1734 * bindings-pager.lisp (mouse-pager-move-selected-group)
1735 (mouse-pager-copy-selected-group)
1736 (mouse-pager-move-selected-window)
1737 (mouse-pager-copy-selected-window, mouse-pager-rotate-window-up)
1738 (mouse-pager-rotate-window-down): New functions to have mouse in
1741 * clfswm-pager.lisp (pager-swap-window)
1742 (pager-copy-group-on-next/previous-workspace)
1743 (pager-copy-window-on-next/previous-line): New functions
1745 2006-10-15 Philippe Brochard <pbrochard@common-lisp.net>
1747 * clfswm-pager.lisp (pager-move-window-on-next/previous-line,
1748 (pager-move-group-on-next/previous-workspace): new functions.
1750 * clfswm-pack.lisp (resize-half-x-x-current-group): resize group
1751 to its half size (new functions).
1753 2006-10-11 Philippe Brochard <pbrochard@common-lisp.net>
1755 * clfswm-pager.lisp: workspaces, groups and windows can now be
1756 selectionned with the keyboard or the mouse.
1758 2006-10-09 Philippe Brochard <pbrochard@common-lisp.net>
1760 * clfswm-pager.lisp (pager-select-workspace-right/left):
1761 workspaces can now be selectionned with the keyboard.
1763 2006-10-08 Philippe Brochard <pbrochard@common-lisp.net>
1765 * clfswm-keys.lisp (undefine-main-key, undefine-second-key, undefine-mouse-action):
1766 new function to remove a previous defined key or mouse combination.
1768 2006-10-07 Philippe Brochard <pbrochard@common-lisp.net>
1770 * clfswm.lisp (main): Check for access error in init-display.
1772 * clfswm-keys.lisp (define-ungrab/grab): check for keysym and
1773 keycode before grabbing.
1775 * bindings.lisp: Remove nlambda and use defun to keep the function
1776 documentation with clisp.
1777 (define-shell): new macro to define shell command for the second
1780 2006-10-06 Philippe Brochard <pbrochard@common-lisp.net>
1782 * clfswm-keys.lisp (define-ungrab/grab): use a cond instead of a
1785 2006-10-05 Philippe Brochard <pbrochard@common-lisp.net>
1787 * bindings.lisp (accept-motion): Move group bugfix in upper mouse
1788 workspace circulation.
1790 * clfswm-util.lisp (absorb-orphan-window): new function.
1792 * clfswm-keys.lisp: Keysyms support.
1794 2006-10-02 Philippe Brochard <pbrochard@common-lisp.net>
1796 * clfswm.lisp (show-group): Use one gc for all groups and not one
1799 2006-10-01 Philippe Brochard <pbrochard@common-lisp.net>
1801 * bindings.lisp (define-second-key (#\l :mod-1)): fix a typo.
1803 * clfswm.lisp (adapt-window-to-group): Adapt only windows with
1804 width and height outside group.
1806 2006-09-28 Philippe Brochard <pbrochard@common-lisp.net>
1808 * clfswm.lisp: First public release.