1 2010-11-05 Philippe Brochard <pbrochard@common-lisp.net>
3 * src/clfswm-internal.lisp (frame-select-next-child)
4 (frame-select-previous-child): New functions and bindings. Select
5 the next/previous child in the current frame.
7 2010-10-31 Philippe Brochard <pbrochard@common-lisp.net>
9 * src/clfswm-query.lisp (query-mode-complet): New function: Handle
10 completion in query-mode.
12 2010-10-30 Philippe Brochard <pbrochard@common-lisp.net>
14 * src/clfswm-query.lisp (query-print-string): Handle long lines
17 2010-10-27 Philippe Brochard <pbrochard@common-lisp.net>
19 * src/clfswm-expose-mode.lisp (expose-create-window): Ensure that
20 all characters are printable.
22 2010-10-25 Philippe Brochard <pbrochard@common-lisp.net>
24 * contrib/server/server.lisp: Load clfswm client code in the main
25 program and let the user start it with a --client command line
28 * src/package.lisp (*main-entrance-hook*): New hook executed after
29 loading configuration file and before opening the display.
31 2010-10-23 Philippe Brochard <pbrochard@common-lisp.net>
33 * src/xlib-util.lisp: Remove unnecessary xlib:display-finish-output.
35 * src/clfswm-internal.lisp (show-child): Show window only if not
38 * src/clfswm-keys.lisp (binding-substitute-modifier): Utility to
39 change modifiers after binding definition.
41 2010-10-21 Philippe Brochard <pbrochard@common-lisp.net>
43 * contrib/osd.lisp: New file: OSD (On Screen Display) for
46 * src/clfswm-menu.lisp (open-menu): Modularise function.
48 2010-10-13 Philippe Brochard <pbrochard@common-lisp.net>
50 * src/clfswm-info.lisp (show-first-aid-kit): Display the essential
51 key binding in main and second mode.
53 2010-10-10 Philippe Brochard <pbrochard@common-lisp.net>
55 * src/clfswm-util.lisp (open-notify-window): Convert hello-window
56 functions to a more generic Notify-window system.
58 * src/tools.lisp (add-timer): Add an id to identify the timer.
60 2010-10-09 Philippe Brochard <pbrochard@common-lisp.net>
62 * src/tools.lisp (erase-timer): New function.
64 * src/clfswm-util.lisp (display-hello-window): Add a timer to hide
65 the hello window. Add Configuration variables.
67 2010-10-08 Philippe Brochard <pbrochard@common-lisp.net>
69 * src/clfswm-util.lisp (): Add an Hello window at startup.
71 * src/tools.lisp (process-timers): Add a timer system.
73 2010-10-07 Philippe Brochard <pbrochard@common-lisp.net>
75 * src/clfswm-query.lisp (add-in-query-string): Handle correctly
78 2010-10-06 Philippe Brochard <pbrochard@common-lisp.net>
80 * src/clfswm-query.lisp (query-print-string): Change cursor color
81 and show parenthesis matching with colors (on match and on
84 2010-10-05 Philippe Brochard <pbrochard@common-lisp.net>
86 * src/clfswm-internal.lisp (show-all-children): Do not raise a
87 child when its parent is hidden.
89 2010-10-02 Philippe Brochard <pbrochard@common-lisp.net>
91 * src/clfswm-circulate-mode.lisp (select-next-subchild): Add the
92 possibility to circulate over subchild of the current child.
94 * src/clfswm-expose-mode.lisp (expose-all-windows-mode)
95 (expose-windows-generic): Add an escape-body function to return to
96 the original state on escape key.
98 * src/clfswm-util.lisp (bind-on-slot): Add an optional parameter
99 to bind the current child from the configuration file.
101 2010-10-01 Philippe Brochard <pbrochard@common-lisp.net>
103 * src/clfswm-nw-hooks.lisp (absorb-window-nw-hook): Absorb new
104 window hook: the frame absorb all new windows that match
105 nw-absorb-test frame data slot.
107 2010-09-30 Philippe Brochard <pbrochard@common-lisp.net>
109 * src/clfswm-expose-mode.lisp (expose-create-window): Show window
110 title in accel window.
112 2010-09-29 Philippe Brochard <pbrochard@common-lisp.net>
114 * configure: Use the Xavier Maillard clfswm script in contrib to
115 build an executable in the standard way.
117 2010-09-26 Philippe Brochard <pbrochard@common-lisp.net>
119 * src/clfswm-expose-mode.lisp (expose-mode-display-accel-windows):
120 New functions. Add a window on each child in the expose mode to
123 * src/clfswm-internal.lisp (child-x, child-y, child-width)
124 (child-height): New methods to get real child coordinates.
126 2010-09-25 Philippe Brochard <pbrochard@common-lisp.net>
128 * src/clfswm-layout.lisp (*-layout): Use child-position.
130 * src/clfswm-internal.lisp (child-position): New function.
132 * src/clfswm-expose-mode.lisp (expose-windows-mode)
133 (expose-all-windows-mode): Use a generic mode.
135 * src/xlib-util.lisp (with-handle-event-symbol): Use a filled list
136 with handle-event-fun symbols instead of inspecting clfswm
137 internals symbols on each mode change.
139 * src/clfswm-expose-mode.lisp: Move and rename present*-windows in
140 a separate clfswm-expose-mode.lisp file.
142 * src/clfswm-util.lisp (speed-mouse-right, speed-mouse-down): Use
143 screen size instead of hardcoded test coordinates.
145 2010-09-24 Philippe Brochard <pbrochard@common-lisp.net>
147 * src/clfswm-util.lisp (speed-mouse-reset, speed-mouse-left)
148 (speed-mouse-right, speed-mouse-up, speed-mouse-down)
149 (speed-mouse-undo, speed-mouse-first-history): New functions to
150 quickly move the mouse. Implemented for the second mode.
152 2010-09-16 Philippe Brochard <pbrochard@common-lisp.net>
154 * contrib/clfswm: Move clfswm sources to $tmp_dir if there is no
155 write permission on $clfswm_asd_path. So anybody can start clfswm
156 even if there is no write permission on the source directory.
158 2010-09-12 Philippe Brochard <pbrochard@common-lisp.net>
160 * contrib/clfswm: Add support to cmucl, ccl and ecl.
162 2010-09-11 Philippe Brochard <pbrochard@common-lisp.net>
164 * src/clfswm-util.lisp (set-hide-unmanaged-window)
165 (set-show-unmanaged-window, set-default-hide-unmanaged-window):
166 New functions and menu entry.
167 (set-globally-hide-unmanaged-window)
168 (set-globally-show-unmanaged-window): New functions and menu
171 * src/clfswm-internal.lisp (hide-unmanager-window-p): New
173 (show-child): Add a data slot on frame to hide or not unmanaged
176 * src/clfswm-corner.lisp (present-clfswm-terminal)
177 (present-virtual-keyboard): Use a function (generic-present-body)
178 instead of a macro (generate-present-body).
180 * src/clfswm-util.lisp (update-menus): List all directories and
181 subdirectories in $XDG_DATA_DIRS/applications.
183 2010-09-10 Philippe Brochard <pbrochard@common-lisp.net>
185 * src/clfswm-corner.lisp (generate-present-body): New macro.
186 (present-clfswm-terminal, present-virtual-keyboard): Use
187 generate-present-body.
189 2010-09-09 Philippe Brochard <pbrochard@common-lisp.net>
191 * src/clfswm-util.lisp (update-menus): Follow XDG specifications
192 instead of the non-portable Debian update-menu.
194 2010-09-07 Philippe Brochard <pbrochard@common-lisp.net>
196 * src/clfswm.lisp (error-handler): New function do handle
197 asynchronous errors and ignore them.
198 (open-display): Install the new error-handler on display.
200 2010-09-05 Philippe Brochard <pbrochard@common-lisp.net>
202 * src/xlib-util.lisp (with-xlib-protect): Add a
203 with-simple-restart on top of body execution.
205 2010-09-04 Philippe Brochard <pbrochard@common-lisp.net>
207 * src/clfswm.lisp (main-loop): Protect all xlib functions with an
210 * src/xlib-util.lisp (handle-event): use with-xlib-protect only in
211 handle-event. Add a with-simple-restart to prevent a
212 clisp/new-lisp infinite loop.
214 2010-08-30 Philippe Brochard <pbrochard@common-lisp.net>
216 * src/clfswm-corner.lisp (present-clfswm-terminal): Make the
217 clfswm terminal working even on xterm title changes.
219 2010-08-29 Philippe Brochard <pbrochard@common-lisp.net>
221 * src/clfswm-util.lisp (run-other-window-manager): Update for
224 * src/tools.lisp (do-execute): New parameter io to change the
227 * src/clfswm-util.lisp (hide-current-child): Prevent from removing
230 * src/clfswm-internal.lisp (child-member): New predicate.
231 (child-remove): New function.
233 * src/*.lisp: Use child-member and child-remove everywhere it's
236 2010-08-28 Philippe Brochard <pbrochard@common-lisp.net>
238 * src/clfswm.lisp (main-loop): Ensure that all events have been
239 processed after a process-event.
241 * src/clfswm-internal.lisp (is-in-current-child-p): New function.
243 2010-08-27 Philippe Brochard <pbrochard@common-lisp.net>
245 * src/clfswm.lisp (main-mode:configure-request): Raise the window
246 only when present on the current child and focus it accordingly.
248 2010-08-26 Philippe Brochard <pbrochard@common-lisp.net>
250 * src/clfswm-circulate-mode.lisp (circulate-loop-function):
251 Use is-a-key-pressed-p.
253 * src/xlib-util.lisp (is-a-key-pressed-p): New predicate.
255 * src/clfswm-keys.lisp (define-ungrab/grab): Use all values
256 returned by xlib:keysym->keycodes.
258 * src/*.lisp: Use the new child-equal-p to compare children. This
259 prevent a bug with sbcl/cmucl when the standard equal function
260 does not work with xlib:window.
262 * src/clfswm-internal.lisp (child-equal-p): New predicate.
264 2010-08-25 Philippe Brochard <pbrochard@common-lisp.net>
266 * src/clfswm-generic-mode.lisp (generic-mode): Use an
267 xlib:event-listen before processing event with
268 xlib:process-event. This prevent a bug with CLX threaded
269 implementation like sbcl.
271 * src/clfswm.lisp (main-loop): Use an xlib:event-listen before
272 processing event with xlib:process-event. This prevent a bug with
273 CLX threaded implementation like sbcl.
275 2010-08-17 Philippe Brochard <pbrochard@common-lisp.net>
277 * contrib/server/key.lisp (ushell-sh): Add ccl and ecl support.
279 * src/xlib-util.lisp (compress-motion-notify): Use a loop instead
282 * src/clfswm-internal.lisp (with-find-in-all-frames): New macro.
283 (find-parent-frame, find-frame-window, find-frame-by-name)
284 (find-frame-by-number): Use with-find-in-all-frames to search in
285 frames in the right order.
287 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Fix an
288 unwanted flickering with unmanaged windows.
290 2010-08-16 Philippe Brochard <pbrochard@common-lisp.net>
292 * src/package.lisp: Remove event handler hooks as they're not
293 needed anymore (To replace them: use closure and define-handler).
295 * src/xlib-util.lisp (move-window, resize-window)
296 (wait-mouse-button-release): Use a generic mode.
298 * src/*.lisp: Replace the case to handle event with a more (tricky)
299 lispy method which bind a function to each keywords associated
302 2010-07-23 Philippe Brochard <pbrochard@common-lisp.net>
304 * src/clfswm-util.lisp (delete-current-child): Invert bindings and
305 menu entry between delete-current-child and remove-current-child.
306 ie: Delete a child and its children in all frames by default.
308 2010-07-21 Philippe Brochard <pbrochard@common-lisp.net>
310 * src/package.lisp: Add a placement configuration group.
312 * src/binding*.lisp: Bind control+g to escape the current action
315 * src/clfswm-internal.lisp
316 (delete-child-and-children-in-all-frames): New function and
317 binding: Second mode - Control+Delete delete the current child and
318 its children in all frames (ie: close the current child and its
321 2010-07-20 Philippe Brochard <pbrochard@common-lisp.net>
323 * src/clfswm-internal.lisp (remove-child-in-frame): Do not destroy
324 the frame window and the frame gc. Close a very annoying bug when
325 cuting/pasting a frame or moving a child over frames with the
328 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Redisplay
329 all children in *current-root* after moving/resizing a frame.
331 2010-07-18 Philippe Brochard <pbrochard@common-lisp.net>
333 * src/clfswm-util.lisp (delete-focus-window)
334 (destroy-focus-window): Remove child in parent frame before
337 2010-07-16 Philippe Brochard <pbrochard@common-lisp.net>
339 * src/clfswm-util.lisp (identify-key): Add a timeout in
341 (mouse-click-to-focus-generic): Use find-child-under-mouse instead
342 of the window passed by xlib:process-event.
344 * src/xlib-util.lisp (move-window, resize-window)
345 (wait-mouse-button-release): Add a timeout in xlib:process-event.
347 2010-04-11 Philippe Brochard <pbrochard@common-lisp.net>
349 * src/clfswm-util.lisp (run-other-window-manager): Add the ability
350 to launch an other window manager and to return to clfswm.
352 2010-03-18 Philippe Brochard <pbrochard@common-lisp.net>
354 * src/clfswm-layout.lisp (set-tile-space-layout): Set default
357 2009-12-15 Philippe Brochard <pbrochard@common-lisp.net>
359 * src/clfswm.lisp (main-loop): Add a *loop-hook* parameter and a
362 * src/clfswm-generic-mode.lisp (generic-mode): Add a loop-hook
363 parameter and a loop timeout.
365 2009-12-05 Philippe Brochard <pbrochard@common-lisp.net>
367 * src/clfswm.lisp (main): Add an alternate configuration filename
370 * load.lisp: Add a debuging code example.
372 2009-11-14 Philippe Brochard <pbrochard@common-lisp.net>
374 * src/clfswm-configuration.lisp (create-configuration-menu): New
375 menu to configure all clfswm variables while clfswm is running.
377 2009-11-12 Philippe Brochard <pbrochard@common-lisp.net>
379 * src/clfswm-util.lisp (save-configuration-variables): New
380 function to save all configuration variables in clfswmrc.
382 2009-11-11 Philippe Brochard <pbrochard@common-lisp.net>
384 * src/clfswm-info.lisp (info-mode): Begining of mouse support in
386 (set-default-info-keys): Add cursor key support in info mode.
388 2009-11-08 Philippe Brochard <pbrochard@common-lisp.net>
390 * contrib/reboot-halt.lisp: Add a Suspend/Reboot/Halt menu in
393 * src/clfswm.lisp (main): Add a read-conf-file-p parameter to
394 prevent reading the configuration file (this may be useful to
395 produce the original documentation without user modifications
396 with the rc configuration file).
398 2009-11-07 Philippe Brochard <pbrochard@common-lisp.net>
400 * src/bindings-second-mode.lisp (set-default-second-keys):
401 Simplification of Escape key to close/kill/remove the focus window
402 and unhide all windows.
404 * src/bindings.lisp (set-default-main-keys): Simplification of
405 Escape key to close/kill/remove the focus window and unhide all
408 * src/clfswm-util.lisp (ask-close/kill-current-window): Add remove
409 focus and unhide all windows capabilities.
411 2009-10-10 Philippe Brochard <pbrochard@common-lisp.net>
413 * contrib/mpd.lisp (start-gmpc): Add gmpc in the mpd menu.
415 2009-07-29 Philippe Brochard <pbrochard@common-lisp.net>
417 * src/clfswm-layout.lisp (tile-layout, tile-horizontal-layout):
418 Keep child order and don't make unnecessary child movement.
419 (one-column-layout, one-line-layout): New layouts.
421 2009-06-29 Philippe Brochard <pbrochard@common-lisp.net>
423 * contrib/cd-player.lisp: New file to handle the CD player.
425 * contrib/xmms.lisp: New file to handle the xmms player.
427 2009-06-28 Philippe Brochard <pbrochard@common-lisp.net>
429 * src/clfswm-layout.lisp (set-no-layout-remember-size): New layout:
430 Maximize windows in there frame - Leave frames to there actual
433 * src/bindings-second-mode.lisp (set-default-second-keys): Bind
434 "o" on set-open-in-new-frame-in-parent-frame-nw-hook.
436 2009-06-27 Philippe Brochard <pbrochard@common-lisp.net>
438 * contrib/keyb_fr.lisp: New file to handle an azerty keyboard.
440 2009-06-24 Philippe Brochard <pbrochard@common-lisp.net>
442 * contrib/mpd.lisp: Use a standard menu.
444 * src/clfswm-info.lisp: Use a standard menu for the help-menu.
446 2009-06-22 Philippe Brochard <pbrochard@common-lisp.net>
448 * contrib/mpd.lisp: New file to handle the Music Player Daemon (MPD)
450 2009-06-19 Philippe Brochard <pbrochard@common-lisp.net>
452 * src/clfswm-autodoc.lisp (produce-doc, produce-doc-html): Minor
455 2009-06-18 Philippe Brochard <pbrochard@common-lisp.net>
457 * src/config.lisp (get-fullscreen-size): One pixel adjustment
460 * src/clfswm-placement.lisp (*-child-placement): One pixel
463 2009-06-16 Philippe Brochard <pbrochard@common-lisp.net>
465 * src/clfswm-circulate-mode.lisp (draw-circulate-mode-window):
466 Ensure that all characters are printable.
468 * src/config.lisp (get-fullscreen-size): Adjust default fullscreen
471 * src/clfswm-placement.lisp (*-child-placement): Adjust
472 coordinates to one pixel in the current child.
474 2009-06-04 Philippe Brochard <pbrochard@common-lisp.net>
476 * src/clfswm-query.lisp (query-enter-function): Assign font before
477 width and height calculation.
479 2009-06-03 Philippe Brochard <pbrochard@common-lisp.net>
481 * src/xlib-util.lisp (banish-pointer): Use with-placement macro to
482 bannish the pointer in an arbitrary place.
484 * src/clfswm-info.lisp (info-mode): Use with-placement macro to
485 place the info window in an arbitrary place.
487 * src/clfswm-query.lisp (query-enter-function): Use with-placement
488 macro to place the query window in an arbitrary place.
490 * src/clfswm-placement.lisp: New file. Allow to place info windows
491 or query windows on an arbitrary place. Allow to bannish the
492 pointer on an arbitrary place.
494 2009-05-16 Philippe Brochard <pbrochard@common-lisp.net>
496 * src/clfswm-circulate-mode.lisp (reorder-child)
497 (reorder-brother): Unfocus windows before reordering children or
500 2009-05-13 Philippe Brochard <pbrochard@common-lisp.net>
502 * src/clfswm-circulate-mode.lisp (reorder-brother): Ensure that
503 the parent is a frame.
505 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Handle
506 motion with a default modifier.
508 * src/clfswm.lisp (handle-motion-notify): Handle motion with a
511 * src/clfswm-info.lisp (info-mode): Handle motion with a default
513 (info-mode): Optimization in loop function.
515 2009-05-10 Philippe Brochard <pbrochard@common-lisp.net>
517 * src/clfswm-circulate-mode.lisp (reorder-brother): Handle
518 root-frame correctly.
520 * clfswm.asd: Dependency fix for clfswm-generic-mode.
522 * src/clfswm-circulate-mode.lisp (reorder-child)
523 (reorder-brother): Handle empty frames.
524 (reorder-brother): Redisplay only the parent frame of the current
527 * src/clfswm-util.lisp (frame-toggle-maximize): Redisplay only the
528 parent frame of the current frame.
530 2009-05-09 Philippe Brochard <pbrochard@common-lisp.net>
532 * src/clfswm-util.lisp (frame-toggle-maximize): New function:
533 Maximize/Unmaximize the current frame in its parent frame.
535 * src/clfswm-layout.lisp (maximize-layout): New layout: Maximize
536 windows and frames in there parent frame.
538 2009-05-05 Philippe Brochard <pbrochard@common-lisp.net>
540 * src/*.lisp: Add support for Clozure Common Lisp (CCL).
542 * src/clfswm-circulate-mode.lisp (reorder-child)
543 (reorder-brother): Reinitialise on circulate type change
544 child to brother or brother to child.
546 * src/*.lisp (*): Use map-window instead of xlib:map-window. So
547 calls xlib:display-finish-output on each map-request. So speed up
550 * src/xlib-util.lisp (map-window): New function. Call
551 xlib:display-finish-output on each map request.
553 2009-04-28 Philippe Brochard <pbrochard@common-lisp.net>
555 * src/clfswm-second-mode.lisp (sm-handle-motion-notify):
556 Optimisation when drawing second mode window.
558 2009-04-27 Philippe Brochard <pbrochard@common-lisp.net>
560 * src/clfswm-circulate-mode.lisp (circulate-mode): Optimisation in
563 2009-04-22 Philippe Brochard <pbrochard@common-lisp.net>
565 * src/clfswm-util.lisp (run-program-from-query-string): Launch
566 command only with a return validation.
568 2009-04-22 Xavier Maillard <xma@gnu.org>
570 * src/clfswm-query.lisp (query-string): Use a generic mode.
572 2009-04-19 Xavier Maillard <xma@gnu.org>
574 * src/clfswm-info.lisp (info-mode): Use generic-mode for info-mode.
576 2009-04-18 Xavier Maillard <xma@gnu.org>
578 * src/clfswm-generic-mode.lisp (generic-mode): Add a generic mode
579 to define all other modes.
581 2009-04-05 Philippe Brochard <pbrochard@common-lisp.net>
583 * src/package.lisp (): Use *default-font-string* for all
586 * src/clfswm-info.lisp (info-mode): Ensure integer windows size.
588 2009-02-17 Philippe Brochard <pbrochard@common-lisp.net>
590 * src/xlib-util.lisp (null-size-window-p): Better check of null
593 2009-02-14 Philippe Brochard <pbrochard@common-lisp.net>
595 * src/clfswm.lisp (handle-map-request): Add a fix to manage
596 correctly fullscreen windows (SDL particularly).
598 2008-12-20 Philippe Brochard <pbrochard@common-lisp.net>
600 * src/xlib-util.lisp (get-color): Allocate colors only once -> fix
601 a segfault with clisp/new-clx.
603 * src/clfswm.lisp (handle-motion-notify): Add a needed window
606 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Add a
607 needed window argument.
609 2008-10-30 Philippe Brochard <pbrochard@common-lisp.net>
611 * src/xlib-util.lisp (wait-no-key-or-button-press)
612 (wait-a-key-or-button-press): Check buttons press/release correctly"
614 2008-10-28 Philippe Brochard <pbrochard@common-lisp.net>
616 * src/menu-def.lisp: Add children navigation menu in the movement
617 menu (select next/previous child/brother/level).
619 2008-10-26 Philippe Brochard <pbrochard@common-lisp.net>
621 * *: Rename 'sister' frame to 'brother' frame.
623 * src/clfswm-keys.lisp (unalias-modifiers): Convert a modifier
624 alias in a real modifier.
626 * src/package.lisp (*modifier-alias*): New list of modifier alias
627 For example: :alt is :mod-1, :numlock is :mod-2...
629 * src/tools.lisp (remove-hook): New function.
631 * src/clfswm-keys.lisp (with-capslock, without-capslock)
632 (with-numlock, without-cnumlock): New functions.
634 2008-10-25 Philippe Brochard <pbrochard@common-lisp.net>
636 * src/clfswm-info.lisp: Use the *binding-hook* to create info
637 keys and mouse bindings.
639 * src/bindings-second-mode.lisp: Use the *binding-hook* to create
640 second keys and mouse bindings.
642 * src/bindings.lisp: Use the *binding-hook* to create main keys
645 2008-10-10 Philippe Brochard <pbrochard@common-lisp.net>
647 * src/clfswm-menu.lisp (open-menu): Remember parent menu to undo
650 2008-10-09 Philippe Brochard <pbrochard@common-lisp.net>
652 * src/menu-def.lisp: Use a menu instead of a function for the
655 2008-10-08 Philippe Brochard <pbrochard@common-lisp.net>
657 * src/clfswm-util.lisp (show-standard-menu): Display the standard
658 menu from the 'update-menus' command.
660 2008-10-07 Philippe Brochard <pbrochard@common-lisp.net>
662 * src/clfswm-query.lisp (query-string): Do not ungrab keyboard if
663 it's already grabbed.
665 * src/clfswm-internal.lisp (display-frame-info): Use configurable
666 colors and fix a bug with background.
667 (display-frame-info): Set window background when displaying info.
669 2008-10-06 Philippe Brochard <pbrochard@common-lisp.net>
671 * src/xlib-util.lisp (my-character->keysyms): Use a macro to avoid
672 warning with clisp/new-clx.
674 2008-10-04 Philippe Brochard <pbrochard@common-lisp.net>
676 * src/clfswm-util.lisp (jump-to-slot): Prevent to jump on a
679 2008-09-23 Philippe Brochard <pbrochard@common-lisp.net>
680 * *: **** Release 0809 ****
682 2008-09-23 Philippe Brochard <pbrochard@common-lisp.net>
684 * src/clfswm-util.lisp (ensure-unique-name): New function and menu
686 (ensure-unique-number): New function and menu entry.
688 2008-09-22 Philippe Brochard <pbrochard@common-lisp.net>
690 * src/clfswm-nw-hooks.lisp (named-frame-nw-hook): New new window
691 hook: open the next window in a named frame.
692 (numbered-frame-nw-hook): New new window hook: open the next
693 window in a numbered frame.
695 * src/clfswm-query.lisp (query-string): Grab the keyboard in all
696 cases. So query-string can be called even in the main mode.
698 * src/clfswm-internal.lisp (show-all-children): Do not raise a
699 child by default => far less flickering.
701 2008-09-19 Philippe Brochard <pbrochard@common-lisp.net>
703 * src/bindings-second-mode.lisp: Bind "t" to tile-current-frame.
705 * src/menu-def.lisp: Change key binding for the CLFSWM menu
708 * src/xlib-util.lisp (xgrab-pointer): Handle the case where cursor
709 is nil. (workaround on some CLX implementation).
711 2008-09-12 Philippe Brochard <pbrochard@common-lisp.net>
713 * src/menu-def.lisp: Add a menu to set a focus policy for all
716 * src/clfswm-util.lisp (set-focus-policy-generic-for-all)
717 (all-frames-set-*-focus-policy): Set a focus policy for all
720 * src/clfswm.lisp (handle-enter-notify): sloppy-select
721 mode. Select a child and its parents on mouse over.
723 2008-09-03 Philippe Brochard <pbrochard@common-lisp.net>
725 * src/clfswm.lisp (handle-enter-notify): Add a sloppy strict focus
726 policy -> Sloppy focus only for windows in the current frame.
727 (main-unprotected): Exit clfswm on init error (ie: when another
728 window manager is running).
730 * src/clfswm-util.lisp (reset-clfswm): New function.
732 2008-09-02 Philippe Brochard <pbrochard@common-lisp.net>
734 * src/clfswm-menu.lisp (init-menu): New function.
736 * src/clfswm-util.lisp (reload-clfswm): New function to reload
738 (exit-clfswm): Rename quit-clfswm to exit-clfswm.
740 * src/clfswm.lisp (main, main-unprotected): Handle error in a
741 superior main function. Now CLFSWM can't break the X session. It
742 just reinitialize the display and run a new main loop.
744 * src/clfswm-corner.lisp: Make *clfswm-terminal* and
745 *vt-keyboard-on* global to avoid warnings when loading clfswm.
747 * src/clfswm-layout.lisp: Add a specific GIMP layout menu.
748 (help-on-gimp-layout): Describe how to use the GIMP layout.
750 2008-09-01 Philippe Brochard <pbrochard@common-lisp.net>
752 * src/clfswm-layout.lisp (set-gimp-layout): Change the layout to
753 main-window-right-layout. Change the keybinding for (shift)alt+tab
754 to not select windows in the main window lisst.
755 Bind F8 to add a window in the main window list.
756 Bind F9 to remove a window in the main window list.
757 Change the focus policy to :sloppy.
758 (set-previous-layout): Restore the previous layout, keybinding and
761 2008-08-31 Philippe Brochard <pbrochard@common-lisp.net>
763 * src/clfswm-menu.lisp (add-menu-comment): Add comments in menu.
765 * src/clfswm-layout.lisp (main-window-left-layout)
766 (main-window-bottom-layout, main-window-top-layout): New
768 Factorize layouts in menu.
770 2008-08-30 Philippe Brochard <pbrochard@common-lisp.net>
772 * src/clfswm-layout.lisp (main-window-right-layout): A possible
773 GIMP layout: one or more main windows on one side of the
774 frame. Others on the other size.
776 * src/clfswm-util.lisp
777 (current-frame-set-click/sloppy-focus-policy): Each frame can have
778 a different focus policy (one of :click or :sloppy).
779 The default focus policy is set with *default-focus-policy*.
781 2008-08-23 Philippe Brochard <pbrochard@common-lisp.net>
783 * src/clfswm-info.lisp (show-config-variable): New function.
785 2008-08-19 Philippe Brochard <pbrochard@common-lisp.net>
787 * src/clfswm-layout.lisp (tile-horizontal-layout): New layout.
789 * src/clfswm-info.lisp: Colored help for key binding and corners
792 2008-08-18 Philippe Brochard <pbrochard@common-lisp.net>
794 * src/clfswm-util.lisp (delete-focus-window)
795 (destroy-focus-window): Remove chid only in
796 handle-unmap/destroy-notify. Focus *current-root* only when
797 closing/killing the current child.
799 * src/clfswm-autodoc.lisp (produce-corner-*-doc): New autodoc
800 functions or corners.
802 2008-08-17 Philippe Brochard <pbrochard@common-lisp.net>
804 * src/clfswm-corner.lisp (present-clfswm-terminal): New corner
805 action: Hide/Unhide a terminal on mouse corner action. (By default
806 right mouse button on the top left corner).
808 * src/config.lisp (*never-managed-window-list*): New config
811 * src/clfswm-internal.lisp (never-managed-window-p): New function:
812 Handle never managed window in a more simple way.
814 * src/clfswm-corner.lisp: New file and new and more simple method
815 to define corners actions.
817 2008-08-15 Philippe Brochard <pbrochard@common-lisp.net>
819 * src/clfswm-info.lisp (info-mode): Info line can now be colored.
821 * src/clfswm-layout.lisp (fast-layout-switch)
822 (define-fast-layout-switch): New functions: Switch between two
825 * src/clfswm-second-mode.lisp (leave-second-mode): Takes care if
826 really in the second mode. So leave-second-mode can be used even
829 * src/clfswm-util.lisp (switch-to-last-child): New function:
830 Store the current child and switch to the previous one.
832 2008-07-16 Philippe Brochard <pbrochard@common-lisp.net>
834 * src/clfswm-util.lisp (display-current-window-info): Display the
836 (have-to-present-virtual-keyboard): Add a virtual keyboard corner
837 (top right by default). By default 'xvkbd' is used.
839 2008-06-28 Philippe Brochard <pbrochard@common-lisp.net>
841 * src/xlib-util.lisp (move-window, resize-window): Compress motion
844 * src/clfswm.lisp (handle-motion-notify): Compress motion events.
846 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Compress
849 * src/clfswm-info.lisp (info-mode): Compress motion events.
851 2008-06-21 Philippe Brochard <pbrochard@common-lisp.net>
853 * src/clfswm-internal.lisp (show-all-children): Compute geometry
854 and selection first and then show only necessary children.
855 (show-child): remove unneeded display-p parameter.
857 * src/config.lisp (get-fullscreen-size): Place the frame border
858 outside the screen (this prevent the loose of 2 pixels per
861 2008-06-12 Philippe Brochard <pbrochard@common-lisp.net>
863 * src/clfswm-internal.lisp (focus-child): Algorithm change to
864 raise only the selected child.
866 2008-06-08 Philippe Brochard <pbrochard@common-lisp.net>
868 * src/clfswm-internal.lisp (raise-p-list, show-all-children):
869 Raise only viewable children.
871 2008-06-06 Philippe Brochard <pbrochard@common-lisp.net>
873 * src/clfswm-internal.lisp (show-all-children): Always raise all
874 displayed children. Remove all references to raise-p.
876 2008-06-04 Philippe Brochard <pbrochard@common-lisp.net>
878 * src/menu-def.lisp (child-menu): New menu entry on raise/lower
881 * src/bindings-second-mode.lisp ("Page_Down", "Page_Up"): New
882 second mode binding on raise/lower child in its frame.
884 * src/clfswm-nw-hooks.lisp (leave-focus-frame-nw-hook): Adapt
885 behaviour to the new raise/lower property.
886 Call clear-nw-hook before the rest of the hook.
888 * src/bindings.lisp (mouse-click-to-focus-and-move-window)
889 (mouse-click-to-focus-and-resize-window): Stop button event. This
890 prevent a keyboard/pointer freeze.
892 2008-06-03 Philippe Brochard <pbrochard@common-lisp.net>
894 * src/clfswm-internal.lisp (frame-lower-child)
895 (frame-raise-child): New functions to raise/lower a child in its
898 * src/clfswm-util.lisp (have-to-present-windows)
899 (have-to-present-all-windows): New functions to have an MaxOS
900 expose like on mouse click in screen corner.
902 * src/clfswm-info.lisp ("Page_Down", "Page_Up"): Add boundaries.
904 2008-05-30 Philippe Brochard <pbrochard@common-lisp.net>
906 * src/clfswm-util.lisp (unhide-a-child-from-all-frames): Unhide a
907 child from a choice in all frames with hidden children.
909 * src/clfswm-info.lisp (info-mode-menu): Handle separators.
911 2008-05-28 Philippe Brochard <pbrochard@common-lisp.net>
913 * src/clfswm-util.lisp (hide-current-child, unhide-a-child)
914 (unhide-all-children): New functions.
916 * src/clfswm-info.lisp (info-mode-menu): Handle symbols and
919 * src/clfswm-util.lisp (hide/show-frame-window): new function and
922 2008-05-23 Philippe Brochard <pbrochard@common-lisp.net>
924 * src/clfswm-util.lisp (rename-current-child): Do not display the
925 frame info for a window.
927 2008-05-20 Philippe Brochard <pbrochard@common-lisp.net>
929 * src/clfswm-internal.lisp (remove-child-in-frame): Destroy the
930 frame window for the removed child and its children.
932 2008-05-18 Philippe Brochard <pbrochard@common-lisp.net>
934 * src/clfswm-autodoc.lisp (produce-*-doc-*): Add a note to use the
937 2008-05-17 Philippe Brochard <pbrochard@common-lisp.net>
939 * src/clfswm-nw-hooks.lisp (default-frame-nw-hook): Do not handle
940 the ROX pinboard (ie: leave it lowered in the root window as
943 * src/clfswm-layout.lisp (tile-left-space-layout): New layout.
944 (tile-left-layout, tile-right-layout, tile-top-layout)
945 (tile-bottom-layout): Use all the frame space when there is only
948 * src/clfswm-internal.lisp (place-window-from-hints): Center
949 unmanaged windows in the root screen.
951 * src/clfswm-nw-hooks.lisp (clear-nw-hook, clear-all-nw-hooks):
954 2008-05-15 Philippe Brochard <pbrochard@common-lisp.net>
956 * src/clfswm-util.lisp (current-frame-manage-window-type): Fix a
957 typo in managed types.
959 * src/clfswm-internal.lisp (show-child): Always display frame info
960 even if the frame is hidden.
962 * src/xlib-util.lisp (resize-window): Use a better algorithme to
965 2008-05-13 Philippe Brochard <pbrochard@common-lisp.net>
967 * src/clfswm-util.lisp (with-movement): Display frame info for all
968 frames in current root.
970 2008-05-12 Philippe Brochard <pbrochard@common-lisp.net>
972 * src/*.lisp: Rename 'brother' frames to 'sister' frames.
974 * src/bindings-second-mode.lisp (define-second-key #\a): New
975 binding on 'add-default-frame'.
977 * src/clfswm-autodoc.lisp (produce-*-doc-*-in-file): Show a
978 message to follow the autodocumentation process.
980 2008-05-10 Philippe Brochard <pbrochard@common-lisp.net>
982 * src/clfswm-util.lisp (bind-or-jump): Bind "Tab", "Return" and
983 "Space" to jump to a child. "B" to bind a slot on the current
986 * src/bindings-second-mode.lisp: Use "Tab" instead of
989 2008-05-07 Philippe Brochard <pbrochard@common-lisp.net>
991 * src/clfswm-util.lisp (find-child-under-mouse): Take care of
992 unmanaged (hidden) windows.
994 * src/clfswm-internal.lisp (place-window-from-hints): Give a
995 minimal size for windows.
996 (with-all-windows-frames-and-parent): New function.
998 * src/config.lisp (*default-window-width/height*): New parameters.
1000 * src/clfswm-internal.lisp (place-window-from-hints): Center
1001 windows in the screen instead of in there frame.
1003 * src/bindings-second-mode.lisp (tile-space-current-frame): New
1006 * src/clfswm-layout.lisp (register-layout): Intern the once name
1007 in the right package.
1009 2008-05-05 Philippe Brochard <pbrochard@common-lisp.net>
1011 * doc/dot-clfswmrc: Update to follow the new clfswm way.
1013 2008-05-03 Philippe Brochard <pbrochard@common-lisp.net>
1015 * src/clfswm-internal.lisp (set-current-child)
1016 (adapt-child-to-parent, show-child, hide-child): Handle the case
1017 where child is not a frame or a window.
1019 * src/clfswm-util.lisp
1020 (mouse-click-to-focus-generic,mouse-focus-move/resize-generic):
1021 Check if child is a frame.
1023 * src/clfswm-internal.lisp (managed-window-p): Handle the case
1024 where frame is null.
1025 (place-frame): Check if frame and parent are frames.
1027 * src/clfswm-info.lisp (info-mode): display all frame info before
1030 * src/clfswm-second-mode.lisp (second-key-mode): display all frame
1031 info before leaving.
1033 * src/clfswm-internal.lisp (display-all-frame-info): New function.
1035 2008-05-02 Philippe Brochard <pbrochard@common-lisp.net>
1037 * src/tools.lisp (getenv): Implemented for ECL.
1038 (urun-prog): Implemented for ECL.
1040 * src/clfswm-util.lisp (identify-key): Use a double buffer to
1043 * src/clfswm-query.lisp (query-string): Use a double buffer to
1046 * src/clfswm-info.lisp (draw-info-window): Use a double buffer to
1049 * src/xlib-util.lisp (clear-pixmap-buffer, copy-pixmap-buffer):
1052 2008-05-01 Philippe Brochard <pbrochard@common-lisp.net>
1054 * src/clfswm-info.lisp (info-mode): Add boundaries in the info mode window.
1056 * src/menu-def.lisp: New file: move all menu definition in
1059 * src/clfswm-layout.lisp (register-layout): Use a function instead
1062 2008-04-30 Philippe Brochard <pbrochard@common-lisp.net>
1064 * src/clfswm-autodoc.lisp (produce-menu-doc,
1065 (produce-menu-doc-html): New functions.
1066 (produce-doc-*): Moved to clfswm-autodoc.lisp.
1068 * src/clfswm-util.lisp (paste-selection-no-clear): Prevent to
1069 paste a child on one of its own children. (this prevent a
1071 (move-child-to): Rename move/copy-current-child-by to
1073 (mouse-move-window-over-frame): New function to move the window
1074 under the mouse cursor to another frame.
1076 * src/clfswm-internal.lisp (find-child-in-parent): New function.
1078 2008-04-29 Philippe Brochard <pbrochard@common-lisp.net>
1080 * src/clfswm-internal.lisp (show-all-children): Display unmanaged
1081 windows only when its window parent is the current child.
1083 2008-04-28 Philippe Brochard <pbrochard@common-lisp.net>
1085 * src/clfswm-util.lisp (manage-current-window)
1086 (unmanage-current-window): New functions: Allow to force to manage
1087 or unmanage a window by its parent frame.
1089 * src/bindings-second-mode.lisp (#\o): binded to
1090 set-open-in-new-frame-in-parent-frame-nw-hook and
1091 (#\o :control) to set-open-in-new-frame-in-root-frame-nw-hook
1093 * src/clfswm-util.lisp (with-current-window): New macro.
1095 * src/xlib-util.lisp (move-window, resize-window): Remove uneeded
1096 exposure and enter-window handle event.
1098 * src/clfswm-util.lisp (move-frame, resize-frame): Show all
1099 children for the current child after the move/resize.
1101 2008-04-27 Philippe Brochard <pbrochard@common-lisp.net>
1103 * src/xlib-util.lisp (resize-window): Take care of window size
1106 * src/clfswm-util.lisp (mouse-focus-move/resize-generic): Allow to
1107 move/resize unmanaged windows.
1109 * src/xlib-util.lisp (move-window, resize-window): New functions.
1111 2008-04-25 Philippe Brochard <pbrochard@common-lisp.net>
1113 * src/clfswm-util.lisp (current-frame-manage-window-type): Let the
1114 user choose what window type the current frame must handle.
1115 (display-current-window-info): New function.
1116 (current-frame-manage-all-window-type)
1117 (current-frame-manage-only-normal-window-type)
1118 (current-frame-manage-no-window-type): New functions.
1120 * src/clfswm-internal.lisp (managed-window-p): New function.
1122 * src/package.lisp (frame): Managed type: new frame
1123 parameter. This allow to choose what window type a frame must
1126 * src/*.lisp: Rename all 'father' occurrences to 'parent'.
1128 * src/clfswm-nw-hooks.lisp
1129 (open-in-new-frame-in-parent-frame-nw-hook): New new window hook.
1131 * src/clfswm-util.lisp (adapt-current-frame-to-window-hints): New
1134 * src/tools.lisp (ensure-printable): Return always a string even
1137 2008-04-24 Philippe Brochard <pbrochard@common-lisp.net>
1139 * src/config.lisp (*default-nw-hook*): New variable to change the
1140 default new window hook.
1142 2008-04-22 Philippe Brochard <pbrochard@common-lisp.net>
1144 * clfswm.asd (clfswm): Add a dependency from
1145 clfswm-second-mode.lisp to clfswm.lisp.
1147 * src/clfswm-util.lisp (identify-key): Show the documentation for
1148 the function bound on a key.
1149 (with-movement): Move with-movement,
1150 current-frame-fill/pack/resize-* from bindings-second-mode.lisp
1151 to clfswm-util.lisp.
1153 * src/clfswm-menu.lisp: New menu system that let user change keys
1154 or functions associated to keys.
1156 2008-04-18 Philippe Brochard <pbrochard@common-lisp.net>
1158 * src/clfswm-internal.lisp (show-all-children): Display-child is
1159 the first child by default. Solve a bug with father-p.
1161 2008-04-17 Philippe Brochard <pbrochard@common-lisp.net>
1163 * src/clfswm-internal.lisp (add-frame): Add frame return the
1165 (show-all-children): Move the size computation outside the
1168 * src/bindings-second-mode.lisp (with-movement): Redisplay only
1171 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Redisplay
1172 only the current child.
1174 * src/clfswm-internal.lisp (show-all-children): New display-child
1175 parameter to display only the desired child and its children.
1176 (select-next/previous-child): Only display the current child.
1178 2008-04-14 Philippe Brochard <pbrochard@common-lisp.net>
1180 * src/clfswm.lisp (init-display): Move the default frame creation
1181 on the default init hook.
1183 * src/clfswm-keys.lisp (define-ungrab/grab): Handle all keysyms in
1184 the main mode (for example: "1" on an azerty keyboard).
1186 2008-04-13 Philippe Brochard <pbrochard@common-lisp.net>
1188 * src/clfswm-keys.lisp (find-key-from-code): Better handle of
1189 keysyms. Revert to old grabbing method for the main mode.
1191 2008-04-12 Philippe Brochard <pbrochard@common-lisp.net>
1193 * src/clfswm.lisp (init-display): Add key handling on no focus
1194 window and on frame windows.
1196 2008-04-11 Philippe Brochard <pbrochard@common-lisp.net>
1198 * src/clfswm.lisp (main): Keyboard handle strategie change: Grab
1199 all keys by default and replay just what is needed. No change for
1202 * src/clfswm-keys.lisp: remove grab/ungrab main keys.
1203 (find-key-from-code): Test for shift and not shift presence.
1205 2008-04-09 Philippe Brochard <pbrochard@common-lisp.net>
1207 * src/clfswm-internal.lisp (switch-to-root-frame): show later -
1208 new key parameter to have less flickering.
1210 2008-04-07 Philippe Brochard <pbrochard@common-lisp.net>
1212 * src/bindings-second-mode.lisp (frame-layout-once-menu): Set the
1213 layout only one time and revert to no-layout to freely handle
1216 * src/clfswm-nw-hooks.lisp
1217 (open-in-new-frame-in-root-frame-nw-hook): Tile layout with spaces
1218 with new created window.
1220 * src/clfswm-layout.lisp (register-layout): Now register
1221 automatically a once layout to set the layout only one time and
1222 revert to no-layout to freely handle frames.
1224 2008-04-05 Philippe Brochard <pbrochard@common-lisp.net>
1226 * src/clfswm-nw-hooks.lisp (leave-focus-frame-nw-hook): New
1227 nw-hook: Open the next window in the current frame and leave the
1228 focus to the current child.
1230 2008-04-04 Philippe Brochard <pbrochard@common-lisp.net>
1232 * src/bindings-second-mode.lisp: Add keys definitions to
1233 bind-or-jump in the second mode.
1235 * src/clfswm-util.lisp (bind-or-jump): remove the auto-defining
1236 macro for bind-or-jump-(1|2|3...).
1238 * src/clfswm-keys.lisp (define-define-key/mouse): Allow additional
1239 arguments to function. This allow to do things like:
1240 (define-main-key (key) 'my-function 10 20 'foo) -> 10 20 and 'foo
1241 are passed to my-function on key press.
1243 2008-04-03 Philippe Brochard <pbrochard@common-lisp.net>
1245 * src/clfswm-util.lisp (bind-or-jump): New (great) function.
1247 2008-04-02 Philippe Brochard <pbrochard@common-lisp.net>
1249 * src/clfswm-internal.lisp (child-fullname): New function
1251 * src/clfswm-info.lisp (info-mode-menu): Add an explicit optional
1252 docstring in info-mode-menu. An item can be
1253 '((key function) (key function)) or with docstring
1254 '((key function "documentation 1") (key function "bla bla") (key function))
1256 * src/tools.lisp (ensure-n-elems): New function.
1258 * src/bindings-second-mode.lisp: Bind Alt+mouse-1/3 to move or
1259 resize a frame or the window's father.
1261 * src/clfswm.lisp (init-display): Remove tile-space-layout by
1262 default on the root frame.
1264 * src/clfswm-util.lisp (move/resize-frame): Add standard event
1265 hooks handlers (map-request, configure-notify...)
1267 * src/clfswm-internal.lisp (adapt-child-to-father): Limit minimal
1270 2008-04-01 Philippe Brochard <pbrochard@common-lisp.net>
1272 * src/bindings.lisp: Bind Alt+mouse-1/3 to move or resize a frame
1273 or the window's father.
1275 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Stop button
1276 event only if there is a geometry change.
1277 (mouse-focus-move/resize-generic): Generic function to move or
1278 resize a frame or a window father frame.
1280 2008-04-01 Philippe Brochard <pbrochard@common-lisp.net>
1282 * src/clfswm-internal.lisp (show-all-children): Return t if there
1283 is a geometry change.
1285 2008-03-30 Philippe Brochard <pbrochard@common-lisp.net>
1287 * src/bindings.lisp (Up/Down): Swap select previous/next level.
1289 * src/bindings-second-mode.lisp (Up/Down): Swap select previous/next level.
1291 * src/clfswm.lisp (init-display): Create a default frame in the root frame.
1293 * src/clfswm-internal.lisp (place-frame): Place frame from real (pixel) coordinates.
1294 (with-all-*): Reverse the child list to manage the first child last (like in
1297 * src/config.lisp (*create-frame-on-root*): New variable: Create a new frame on the
1298 root window only if true.
1300 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Create a new frame on the
1301 root window only if *create-frame-on-root* is true.
1303 * src/bindings-second-mode.lisp (sm-mouse-click-to-focus-generic): Create a new frame
1306 2008-03-29 Philippe Brochard <pbrochard@common-lisp.net>
1308 * src/bindings-second-mode.lisp (sm-mouse-click-to-focus-generic): Focus, move and resize
1309 the current child (even if it's a window).
1311 2008-03-28 Philippe Brochard <pbrochard@common-lisp.net>
1313 * src/clfswm-util.lisp (mouse-click-to-focus-and-move)
1314 (mouse-click-to-focus-and-resize): New functions.
1316 * src/clfswm-internal.lisp (*-fl->px): Convert float coordinates to pixel.
1317 (*-px->fl): Convert pixel coordinates to float.
1319 * src/tools.lisp (call-hook): Move call-hook to tools.lisp.
1321 2008-03-27 Philippe Brochard <pbrochard@common-lisp.net>
1323 * src/clfswm-layout.lisp (no-layout): Use :first-only to raise only the
1326 * src/clfswm-internal.lisp (hide-all): Split hide-all-children in hide-all
1327 and hide-all-children.
1328 (raise-if-needed): New function.
1329 (show-child): Use a first-p parameter to raise windows only when they are
1332 2008-03-26 Philippe Brochard <pbrochard@common-lisp.net>
1334 * src/clfswm-internal.lisp (select-next/previous-level): Don't use show-all-children
1337 2008-03-25 Philippe Brochard <pbrochard@common-lisp.net>
1339 * src/clfswm-info.lisp (keys-from-list): new function.
1341 * src/*: rename 'childs' in 'children'.
1343 * src/*: rename 'group' in 'frame'.
1345 2008-03-22 Philippe Brochard <pbrochard@common-lisp.net>
1347 * src/clfswm-pack.lisp (explode-group/explode-current-group): new functions.
1349 2008-03-21 Philippe Brochard <pbrochard@common-lisp.net>
1351 * src/clfswm-pack.lisp: Pack, Fill, Resize functions.
1353 2008-03-16 Philippe Brochard <pbrochard@common-lisp.net>
1355 * src/clfswm-nw-hooks.lisp: Register system for new window hooks.
1356 Bind control+o to open the next window in a new group in the root group
1357 (as open in next window in a new workspace in 0801 version).
1359 2008-03-15 Philippe Brochard <pbrochard@common-lisp.net>
1361 * src/clfswm-util.lisp (show/hide-all-groups-info/key): Show/hide all groups info
1364 2008-03-14 Philippe Brochard <pbrochard@common-lisp.net>
1366 * bindings-second-mode.lisp ("ISO_Left_Tab"): Use ISO_Left_Tab
1367 instead of Tab for select-previous-child.
1369 2008-03-13 Philippe Brochard <pbrochard@common-lisp.net>
1371 * clfswm-util.lisp (force-window-in-group/force-window-center-in-group):
1374 2008-03-11 Philippe Brochard <pbrochard@common-lisp.net>
1376 * clfswm-util.lisp (identify-key): Display the documentation
1377 associated to keys when identifying a key.
1379 2008-03-10 Xavier Maillard <xma@gnu.org>
1381 * contrib/clfswm: Complete rewrite of the script. Detect error and
1382 act accordingly. Add command line arguments to configure the
1383 script execution. User can now choose different common lisp
1384 implementation (clisp and sbcl only), choose where to store the
1385 dumped image, where to find clfswm source.
1387 2008-03-09 Philippe Brochard <pbrochard@common-lisp.net>
1389 * clfswm-internal.lisp (process-new-window): Beginning of new
1390 window hook: each group have a hook to tell what he wants to do
1391 with the new created window.
1393 2008-03-08 Xavier Maillard <xma@gnu.org>
1395 * contrib/clfswm: New script. Dump a CLISP image of CLFSWM then
1396 call the resulting executable.
1398 * clfswm.lisp (read-conf-file): Check for the user config file in
1399 XDG_CONFIG_HOME *first*. Freedesktop.org standards should be
1400 prefered whenever possible.
1402 2008-02-27 Philippe Brochard <pbrochard@common-lisp.net>
1404 * clfswm-layout.lisp (*-layout): Add an optional raise-p
1405 parameter in each layout.
1407 2008-02-26 Philippe Brochard <pbrochard@common-lisp.net>
1409 * clfswm-util.lisp (copy/cut-current-child): Does not affect the
1411 (copy/move-current-child-by-name/number): new functions
1412 (focus-group-by-name/number): new functions
1413 (delete-group-by-name/number): new functions
1415 2008-02-24 Philippe Brochard <pbrochard@common-lisp.net>
1417 * ************************************************************ *
1418 *: Major update - No more reference to workspaces. The main *
1419 structure is a tree of groups or application windows. *
1420 * ************************************************************ *
1422 2008-02-07 Philippe Brochard <pbrochard@common-lisp.net>
1424 * clfswm.lisp (read-conf-file): Read configuration in
1425 $HOME/.clfswmrc or in /etc/clfswmrc or in
1426 $XDG_CONFIG_HOME/clfswm/clfswmrc.
1427 (xdg-config-home): Return the content of $XDG-CONFIG-HOME (default
1430 2008-01-18 Philippe Brochard <pbrochard@common-lisp.net>
1432 * clfswm-internal.lisp (show-all-group): Use *root* and *root-gc*
1435 2008-01-03 Philippe Brochard <pbrochard@common-lisp.net>
1437 * clfswm-internal.lisp (find-window-group): New function.
1439 * clfswm*: Change to make clfswm run with clisp/new-clx.
1441 2008-01-01 Philippe Brochard <pbrochard@common-lisp.net>
1443 * clfswm-util.lisp (query-show-paren): Add show parent matching in
1445 (query-string): Bind control+k to delete end of line.
1447 * clfswm-second-mode.lisp (draw-second-mode-window): Display
1448 the action on mouse motion in second mode.
1450 * clfswm.lisp (handle-exposure): Redisplay groups on exposure
1451 event but do not clear the root window.
1452 (handle-configure-request): Adjust unmanaged window from there
1455 * clfswm-internal.lisp (process-new-window): Adjust new window
1456 with the specified hints (max/min/base width/height).
1458 2007-12-31 Philippe Brochard <pbrochard@common-lisp.net>
1460 * clfswm.lisp (handle-configure-request): Send an Configuration
1461 Notify event. This solve a bug with xterm and rxvt who takes some
1462 times to be mapped. Now there is no delay.
1464 * bindings-second-mode.lisp (define-shell): Run programs after
1465 living the second mode.
1467 2007-12-30 Philippe Brochard <pbrochard@common-lisp.net>
1469 * clfswm-internal.lisp (process-new-window): Do not crop transient
1470 window to group size.
1471 (adapt-window-to-group): Do not crop transient window to group
1474 * clfswm.lisp (handle-configure-request): Adapt just the window to
1475 its group and don't take care of the configure request. Remove the
1476 bug with the Gimp outside the group and speed up the window
1478 (handle-exposure): Remove show-all-group on exposure event
1481 2007-12-29 Philippe Brochard <pbrochard@common-lisp.net>
1483 * clfswm-util.lisp (circulate-group-up-copy-window)
1484 (circulate-group-down-copy-window)
1485 (circulate-workspace-up-copy-group)
1486 (circulate-workspace-down-copy-group): Prevent the copy of the
1487 same window in the same workspace.
1489 * bindings-second-mode.lisp (release-copy-selected-window)
1490 (release-copy-selected-group): Prevent the copy of the same window
1491 in the same workspace.
1493 * clfswm-pager.lisp (generic-pager-move-window-on-previous-line)
1494 (generic-pager-move-window-on-next-line): Remove the copy
1496 (generic-pager-move-group-on-next-workspace)
1497 (generic-pager-move-group-on-previous-workspace): Prevent the copy
1498 of the same window in the same workspace.
1500 * bindings-pager.lisp (mouse-pager-copy-selected-window-release)
1501 (mouse-pager-copy-selected-group-release): Prevent the copy of the
1502 same window in the same workspace.
1504 * tools.lisp (setf/=): new macro to set a variable only when
1507 * clfswm-internal.lisp (adapt-window-to-group): use set/= to set
1508 x, y... only when necessary.
1510 2007-12-28 Philippe Brochard <pbrochard@common-lisp.net>
1512 * clfswm.lisp (handle-configure-notify, *configure-notify-hook*):
1513 new function and hook: force windows to stay in its group (solve a
1516 2007-12-25 Philippe Brochard <pbrochard@common-lisp.net>
1518 * bindings-second-mode.lisp (mouse-motion): use hide-group to have
1519 less flickering when moving/resizing groups.
1521 * clfswm-internal.lisp (hide-group): new function.
1522 (show-all-group): clear-all: new parameter.
1524 2007-12-22 Philippe Brochard <pbrochard@common-lisp.net>
1526 * clfswm-keys.lisp (define-define-key): undefine-*-multi-name: new
1528 * clfswm*: Color change for the pager. Typo or better description
1529 in bindings definitions. Define bindings for a qwerty keyboard by
1530 default. dot-clfswmrc show examples to switch to an azerty
1532 License change to GPL v3.
1533 * config.lisp: new file - group all globals variables in this
1536 2007-08-26 Philippe Brochard <pbrochard@common-lisp.net>
1538 * xlib-util.lisp (hide-window): Remove structure-notivy events
1539 when hidding a window.
1541 2007-05-16 Philippe Brochard <pbrochard@common-lisp.net>
1543 * package.lisp (*sm-property-notify-hook*): Readded
1544 property-notify-hook in second mode.
1546 2007-05-15 Philippe Brochard <pbrochard@common-lisp.net>
1548 * clfswm-keys.lisp (produce-doc-html): Better clean up for strings.
1550 2007-05-13 Philippe Brochard <pbrochard@common-lisp.net>
1552 * clfswm-pack.lisp (tile-current-workspace-to/right/left/top/bottom):
1553 Tile the current workspace with the current window on one side and
1554 others on the other (this emulate the larswm, dwm, wmii way). See
1555 the default configuration file to enable this mode by default.
1557 * clfswm-pager.lisp (pager-tile-current-workspace-to): idem for
1560 2007-05-12 Philippe Brochard <pbrochard@common-lisp.net>
1562 * clfswm-pager.lisp (pager-draw-window-in-group): Add
1563 ensure-printable to print windows name even with non-ascii
1566 2007-05-11 Philippe Brochard <pbrochard@common-lisp.net>
1568 * clfswm-pager.lisp (pager-explode-current-group): Create a new
1569 group for each window in group.
1570 (pager-implode-current-group): Move all windows in workspace to
1571 one group and remove other groups.
1573 * clfswm-pack.lisp (explode-group): Create a new group for each
1575 (implode-group): Move all windows in workspace to one group and
1576 remove other groups.
1578 * clfswm-util.lisp (identify-key): Remove local configuration
1579 variables and made them available for configuration from
1581 (query-string): idem.
1583 2007-04-29 Philippe Brochard <pbrochard@common-lisp.net>
1585 * netwm-util.lisp: Start of NetWM compliance.
1586 Add a Netwm client list gestion.
1588 2007-04-28 Philippe Brochard <pbrochard@common-lisp.net>
1590 * clfswm-internal.lisp (create-group-on-request): open a new group
1591 only when the current group is not empty.
1593 * bindings-second-mode.lisp (define-second-key-#\o-control): Fix a
1594 bug with null workspace.
1596 * clfswm-pager.lisp (pager-handle-event): Add a hook
1597 system. This hooks can be changed in the user configuration file.
1599 * package.lisp: All colors and font variables are set in
1600 package.lisp and can be configured in the user configuration
1602 Note: If you have configured some less ugly colors (esp. for the
1603 pager) don't hesitate to let me know :)
1605 * clfswm-second-mode.lisp (sm-handle-event): Add a hook
1606 system. This hooks can be changed in the user configuration file.
1608 * clfswm.lisp (handle-event): Add a hook system. This hooks can be
1609 changed in the user configuration file (~/.clfswmrc)
1611 2007-04-25 Philippe Brochard <pbrochard@common-lisp.net>
1613 * clfswm-util.lisp (stop-all-pending-actions): new function: reset
1614 arrow action, open next window in new workspace/group.
1616 * bindings.lisp (stop-all-pending-actions): new binding.
1617 (open-next-window-in-new-group-once): Open the next windows in a
1618 new group (only once) or open all new windows in a new group (like
1619 others windows managers).
1621 2007-04-22 Philippe Brochard <pbrochard@common-lisp.net>
1623 * clfswm.lisp (read-conf-file): New function to read a lisp
1624 configuration file at startup.
1625 (focus-group-under-mouse): Check if group isn't the current group
1626 ( prevent a bug with unclutter ).
1628 2007-03-02 Philippe Brochard <pbrochard@common-lisp.net>
1630 * bindings.lisp (run-program-from-query-string): A program can be
1631 launch from a input query window.
1633 2007-03-01 Philippe Brochard <pbrochard@common-lisp.net>
1635 * clfswm-info.lisp: Fix a bug with banish pointer in info mode.
1637 2007-02-28 Philippe Brochard <pbrochard@common-lisp.net>
1639 * clfswm.lisp (process-new-window): One can now open the next
1640 window in a workspace called by its number.
1642 * clfswm-util.lisp (query-font-string): Minimal editing
1644 (eval-from-string): And an REPL in the window manager... :)
1646 2007-02-26 Philippe Brochard <pbrochard@common-lisp.net>
1648 * clfswm.lisp (process-new-window): One can now open the next
1649 window in a new workspace or a new group.
1651 * clfswm-pager.lisp (pager-mode): Display the next arrow action
1652 with the hidden windows.
1654 * clfswm.lisp (second-key-mode): Display the current workspace
1655 number and the next arrow action in the state window.
1657 * clfswm-pager.lisp (pager-mode): Hide all windows before leaving
1658 the pager mode and then redisplay only the current workspace.
1660 2007-02-25 Philippe Brochard <pbrochard@common-lisp.net>
1662 * clfswm.lisp (add-workspace): Workspaces are now numbered. So
1663 they can be focused with a keypress, sorted or renumbered.
1665 2007-02-24 Philippe Brochard <pbrochard@common-lisp.net>
1667 * clfswm-pager.lisp (pager-mode): Remove multiple silly
1668 pager-draw-display. This prevent a lot of flickering in the
1671 * clfswm.lisp: Remove all display-force-output and replace them
1672 with only one display-finish-output in the event loop.
1674 2006-11-06 Philippe Brochard <pbrochard@common-lisp.net>
1676 * clfswm-pager.lisp (pager-center-group): New function - center a
1677 group at the middle of the screen.
1679 * clfswm-pack.lisp (center-group): New function - center a group
1680 at the middle of the screen.
1682 * clfswm.lisp (show-group): Add a cross line under the group.
1683 (show-group): Group are showned even if fullscreened.
1684 (init-display): Add an exposure event on the root window.
1686 2006-11-05 Philippe Brochard <pbrochard@common-lisp.net>
1688 * package.lisp (*default-group*): Default group is the same size
1689 of a fullscreened group.
1691 * bindings*: Use shift to move, control+shift to copy.
1693 * *.lisp: Add comments for configuration or alternatives. So grep
1694 for CONFIG to see where you can configure clfswm. And grep for
1695 Alternative to use some commented code.
1697 * clfswm.lisp (second-key-mode): Use a single window to show the
1698 second mode. See for alternatives at the end of this file.
1700 2006-11-03 Philippe Brochard <pbrochard@common-lisp.net>
1702 * clfswm-keys.lisp (define-define-key/mouse): Factorisation in a
1703 macro of key and mouse definitions.
1704 (define-define-key/mouse): Use state instead of modifiers list
1705 this fix a bug when the modifiers list is not in the rigth order.
1707 * clfswm.lisp (second-key-mode): Add a colored border in second mode.
1709 2006-11-02 Philippe Brochard <pbrochard@common-lisp.net>
1711 * clfswm-info.lisp (info-mode): Add an info mode.
1713 2006-11-01 Philippe Brochard <pbrochard@common-lisp.net>
1715 * clfswm.lisp (process-new-window): Change border size for
1717 (show-all-windows-in-workspace): Unhide all windows even when the
1718 current group is in fullscreen mode.
1720 2006-10-26 Philippe Brochard <pbrochard@common-lisp.net>
1722 * clfswm-util.lisp (identify-key): Add an exposure handle-event to
1723 redisplay the identify window after a terminal switch.
1725 * clfswm-pager.lisp (pager-mode): Add an exposure handle-event to
1726 redisplay the pager after a terminal switch.
1728 2006-10-24 Philippe Brochard <pbrochard@common-lisp.net>
1730 * clfswm-util.lisp (identify-key): Add a window to display
1731 the keys to identify on screen.
1733 * bindings.lisp, bindings-pager.lisp: Define same keys to
1734 move/copy groups/windows in second mode and in pager.
1736 * clfswm.lisp (handle-event*): Same version in all clfswm (fix some
1738 (show-all-windows-in-workspace): unhide window before adapting it
1741 2006-10-23 Philippe Brochard <pbrochard@common-lisp.net>
1743 * clfswm.lisp (handle-event): Revert to an older version.
1745 2006-10-18 Philippe Brochard <pbrochard@common-lisp.net>
1747 * clfswm-util.lisp (force-window-in-group)
1748 (force-window-center-in-group): New functions for transient windows.
1750 * clfswm-pager.lisp (pager-remove-current-workspace/group):
1751 bugfix: hide all windows before removing group or workspace.
1753 2006-10-17 Philippe Brochard <pbrochard@common-lisp.net>
1755 * bindings-pager.lisp (mouse-pager-move-selected-group)
1756 (mouse-pager-copy-selected-group)
1757 (mouse-pager-move-selected-window)
1758 (mouse-pager-copy-selected-window, mouse-pager-rotate-window-up)
1759 (mouse-pager-rotate-window-down): New functions to have mouse in
1762 * clfswm-pager.lisp (pager-swap-window)
1763 (pager-copy-group-on-next/previous-workspace)
1764 (pager-copy-window-on-next/previous-line): New functions
1766 2006-10-15 Philippe Brochard <pbrochard@common-lisp.net>
1768 * clfswm-pager.lisp (pager-move-window-on-next/previous-line,
1769 (pager-move-group-on-next/previous-workspace): new functions.
1771 * clfswm-pack.lisp (resize-half-x-x-current-group): resize group
1772 to its half size (new functions).
1774 2006-10-11 Philippe Brochard <pbrochard@common-lisp.net>
1776 * clfswm-pager.lisp: workspaces, groups and windows can now be
1777 selectionned with the keyboard or the mouse.
1779 2006-10-09 Philippe Brochard <pbrochard@common-lisp.net>
1781 * clfswm-pager.lisp (pager-select-workspace-right/left):
1782 workspaces can now be selectionned with the keyboard.
1784 2006-10-08 Philippe Brochard <pbrochard@common-lisp.net>
1786 * clfswm-keys.lisp (undefine-main-key, undefine-second-key, undefine-mouse-action):
1787 new function to remove a previous defined key or mouse combination.
1789 2006-10-07 Philippe Brochard <pbrochard@common-lisp.net>
1791 * clfswm.lisp (main): Check for access error in init-display.
1793 * clfswm-keys.lisp (define-ungrab/grab): check for keysym and
1794 keycode before grabbing.
1796 * bindings.lisp: Remove nlambda and use defun to keep the function
1797 documentation with clisp.
1798 (define-shell): new macro to define shell command for the second
1801 2006-10-06 Philippe Brochard <pbrochard@common-lisp.net>
1803 * clfswm-keys.lisp (define-ungrab/grab): use a cond instead of a
1806 2006-10-05 Philippe Brochard <pbrochard@common-lisp.net>
1808 * bindings.lisp (accept-motion): Move group bugfix in upper mouse
1809 workspace circulation.
1811 * clfswm-util.lisp (absorb-orphan-window): new function.
1813 * clfswm-keys.lisp: Keysyms support.
1815 2006-10-02 Philippe Brochard <pbrochard@common-lisp.net>
1817 * clfswm.lisp (show-group): Use one gc for all groups and not one
1820 2006-10-01 Philippe Brochard <pbrochard@common-lisp.net>
1822 * bindings.lisp (define-second-key (#\l :mod-1)): fix a typo.
1824 * clfswm.lisp (adapt-window-to-group): Adapt only windows with
1825 width and height outside group.
1827 2006-09-28 Philippe Brochard <pbrochard@common-lisp.net>
1829 * clfswm.lisp: First public release.