1 2011-02-23 Philippe Brochard <pbrochard@common-lisp.net>
3 * src/clfswm.lisp (main-unprotected): Create the configuration
4 menu only once at startup.
6 2011-02-22 Desmond O. Chang <dochang@gmail.com>
8 * contrib/amixer.lisp: Add a volume mode inspired by the emms
9 volume package. Alsa mixer interface.
11 * contrib/volume-mode.lisp: Add a volume mode inspired by the emms
14 2011-02-22 Desmond O. Chang <dochang@gmail.com>
16 * src/clfswm.lisp (main): Use ASDF:SYSTEM-SOURCE-DIRECTORY instead
17 of *LOAD-TRUENAME*. *LOAD-TRUENAME* is only bound during a call to
18 LOAD. If one eval CLFSWM:MAIN in repl, BASE-DIR will be an empty
19 string. Use ASDF:SYSTEM-SOURCE-DIRECTORY to fix it.
21 2011-02-16 Philippe Brochard <pbrochard@common-lisp.net>
23 * src/clfswm.lisp (main-unprotected): Add a close hook. And close
24 the notify window, the virtual keyboard and the clfswm terminal by
27 2011-02-15 Philippe Brochard <pbrochard@common-lisp.net>
29 * src/clfswm.lisp (main-unprotected): Destroy the notify window
30 before closing the display. This fix a bug when resetting/reloading
33 2011-02-12 Philippe Brochard <pbrochard@common-lisp.net>
35 * src/xlib-util.lisp (equal-wm-class-fun, equal-wm-name-fun)
36 (raise-window-fun, raise-and-focus-window-fun): New functions.
38 * src/config.lisp (*clfswm-terminal-cmd*): Switch from xterm to
40 (*never-managed-window-list*): Structure change to be more
41 flexible. Let the choice to focus, raise and do nothing on never
44 2011-02-09 Philippe Brochard <pbrochard@common-lisp.net>
46 * src/clfswm-util.lisp (mouse-focus-move/resize-generic): Take
47 care of never managed windows to move or resize them if the raise
50 * src/clfswm-internal.lisp (in-frame, in-window, in-child): New
53 2011-02-08 Philippe Brochard <pbrochard@common-lisp.net>
55 * src/clfswm.lisp (main-mode): Raise or not unmanaged windows
56 following request in *never-managed-window-list*.
58 2011-02-05 Philippe Brochard <pbrochard@common-lisp.net>
60 * *: **** Release 1102 ****
62 2011-02-05 Desmond O. Chang <dochang@gmail.com>
64 * src/keysyms.lisp: Add extended keysyms from stumpwm.
66 2011-02-01 Desmond O. Chang <dochang@gmail.com>
68 * src/clfswm-util.lisp (run-or-raise): New function (thanks to
71 * src/clfswm-internal.lisp (with-all-*): add a nil block.
73 2011-01-28 Desmond O. Chang <dochang@gmail.com>
75 * src/clfswm-util.lisp (xdg-config-home): XDG_CONFIG_HOME should
76 be $HOME/.config by default.
78 2010-12-29 Philippe Brochard <pbrochard@common-lisp.net>
80 * contrib/osd.lisp (display-doc): Add another method where a
81 CLFSWM native window is used to display the key documentation.
83 2010-12-27 Philippe Brochard <pbrochard@common-lisp.net>
85 * src/xlib-util.lisp (with-xlib-protect): Force to revert to the
88 2010-12-25 Philippe Brochard <pbrochard@common-lisp.net>
90 * src/clfswm-second-mode.lisp (second-key-mode): Call the second
91 mode leave function only when the generic mode was ended.
93 2010-12-08 Philippe Brochard <pbrochard@common-lisp.net>
95 * src/clfswm-second-mode.lisp (sm-leave-function): Do not use
96 *second-mode-program* anymore.
98 2010-12-07 Philippe Brochard <pbrochard@common-lisp.net>
100 * src/clfswm-second-mode.lisp (*second-mode-leave-function*): New
101 variable bound to a function executed (when not null) on second
104 2010-11-14 Philippe Brochard <pbrochard@common-lisp.net>
106 * src/clfswm-util.lisp (find-child-under-mouse): Do not find
109 2010-11-13 Philippe Brochard <pbrochard@common-lisp.net>
111 * src/clfswm-expose-mode.lisp (expose-mode-display-accel-windows):
112 Do not display the accel window for unmanaged windows.
114 2010-11-11 Philippe Brochard <pbrochard@common-lisp.net>
116 * src/clfswm-internal.lisp (set-current-root): Handle
117 window-parent in set-current-root.
119 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Do not
120 focus the parent child when the current root is a window.
122 2010-11-09 Philippe Brochard <pbrochard@common-lisp.net>
124 * src/clfswm-expose-mode.lisp (expose-windows-current-child-mode):
125 New function an bindings.
127 * src/clfswm-layout.lisp (tile-layout, set-tile-layout): Fill
130 2010-11-07 Philippe Brochard <pbrochard@common-lisp.net>
132 * src/clfswm-layout.lisp (tile-layout-ask-keep-position): New
133 function to let the user choose to keep child position with
136 * src/clfswm-internal.lisp (remove-frame-data-slot): New
139 2010-11-05 Philippe Brochard <pbrochard@common-lisp.net>
141 * src/clfswm-internal.lisp (frame-select-next-child)
142 (frame-select-previous-child): New functions and bindings. Select
143 the next/previous child in the current frame.
145 2010-10-31 Philippe Brochard <pbrochard@common-lisp.net>
147 * src/clfswm-query.lisp (query-mode-complet): New function: Handle
148 completion in query-mode.
150 2010-10-30 Philippe Brochard <pbrochard@common-lisp.net>
152 * src/clfswm-query.lisp (query-print-string): Handle long lines
155 2010-10-27 Philippe Brochard <pbrochard@common-lisp.net>
157 * src/clfswm-expose-mode.lisp (expose-create-window): Ensure that
158 all characters are printable.
160 2010-10-25 Philippe Brochard <pbrochard@common-lisp.net>
162 * contrib/server/server.lisp: Load clfswm client code in the main
163 program and let the user start it with a --client command line
166 * src/package.lisp (*main-entrance-hook*): New hook executed after
167 loading configuration file and before opening the display.
169 2010-10-23 Philippe Brochard <pbrochard@common-lisp.net>
171 * src/xlib-util.lisp: Remove unnecessary xlib:display-finish-output.
173 * src/clfswm-internal.lisp (show-child): Show window only if not
176 * src/clfswm-keys.lisp (binding-substitute-modifier): Utility to
177 change modifiers after binding definition.
179 2010-10-21 Philippe Brochard <pbrochard@common-lisp.net>
181 * contrib/osd.lisp: New file: OSD (On Screen Display) for
184 * src/clfswm-menu.lisp (open-menu): Modularise function.
186 2010-10-13 Philippe Brochard <pbrochard@common-lisp.net>
188 * src/clfswm-info.lisp (show-first-aid-kit): Display the essential
189 key binding in main and second mode.
191 2010-10-10 Philippe Brochard <pbrochard@common-lisp.net>
193 * src/clfswm-util.lisp (open-notify-window): Convert hello-window
194 functions to a more generic Notify-window system.
196 * src/tools.lisp (add-timer): Add an id to identify the timer.
198 2010-10-09 Philippe Brochard <pbrochard@common-lisp.net>
200 * src/tools.lisp (erase-timer): New function.
202 * src/clfswm-util.lisp (display-hello-window): Add a timer to hide
203 the hello window. Add Configuration variables.
205 2010-10-08 Philippe Brochard <pbrochard@common-lisp.net>
207 * src/clfswm-util.lisp (): Add an Hello window at startup.
209 * src/tools.lisp (process-timers): Add a timer system.
211 2010-10-07 Philippe Brochard <pbrochard@common-lisp.net>
213 * src/clfswm-query.lisp (add-in-query-string): Handle correctly
216 2010-10-06 Philippe Brochard <pbrochard@common-lisp.net>
218 * src/clfswm-query.lisp (query-print-string): Change cursor color
219 and show parenthesis matching with colors (on match and on
222 2010-10-05 Philippe Brochard <pbrochard@common-lisp.net>
224 * src/clfswm-internal.lisp (show-all-children): Do not raise a
225 child when its parent is hidden.
227 2010-10-02 Philippe Brochard <pbrochard@common-lisp.net>
229 * src/clfswm-circulate-mode.lisp (select-next-subchild): Add the
230 possibility to circulate over subchild of the current child.
232 * src/clfswm-expose-mode.lisp (expose-all-windows-mode)
233 (expose-windows-generic): Add an escape-body function to return to
234 the original state on escape key.
236 * src/clfswm-util.lisp (bind-on-slot): Add an optional parameter
237 to bind the current child from the configuration file.
239 2010-10-01 Philippe Brochard <pbrochard@common-lisp.net>
241 * src/clfswm-nw-hooks.lisp (absorb-window-nw-hook): Absorb new
242 window hook: the frame absorb all new windows that match
243 nw-absorb-test frame data slot.
245 2010-09-30 Philippe Brochard <pbrochard@common-lisp.net>
247 * src/clfswm-expose-mode.lisp (expose-create-window): Show window
248 title in accel window.
250 2010-09-29 Philippe Brochard <pbrochard@common-lisp.net>
252 * configure: Use the Xavier Maillard clfswm script in contrib to
253 build an executable in the standard way.
255 2010-09-26 Philippe Brochard <pbrochard@common-lisp.net>
257 * src/clfswm-expose-mode.lisp (expose-mode-display-accel-windows):
258 New functions. Add a window on each child in the expose mode to
261 * src/clfswm-internal.lisp (child-x, child-y, child-width)
262 (child-height): New methods to get real child coordinates.
264 2010-09-25 Philippe Brochard <pbrochard@common-lisp.net>
266 * src/clfswm-layout.lisp (*-layout): Use child-position.
268 * src/clfswm-internal.lisp (child-position): New function.
270 * src/clfswm-expose-mode.lisp (expose-windows-mode)
271 (expose-all-windows-mode): Use a generic mode.
273 * src/xlib-util.lisp (with-handle-event-symbol): Use a filled list
274 with handle-event-fun symbols instead of inspecting clfswm
275 internals symbols on each mode change.
277 * src/clfswm-expose-mode.lisp: Move and rename present*-windows in
278 a separate clfswm-expose-mode.lisp file.
280 * src/clfswm-util.lisp (speed-mouse-right, speed-mouse-down): Use
281 screen size instead of hardcoded test coordinates.
283 2010-09-24 Philippe Brochard <pbrochard@common-lisp.net>
285 * src/clfswm-util.lisp (speed-mouse-reset, speed-mouse-left)
286 (speed-mouse-right, speed-mouse-up, speed-mouse-down)
287 (speed-mouse-undo, speed-mouse-first-history): New functions to
288 quickly move the mouse. Implemented for the second mode.
290 2010-09-16 Philippe Brochard <pbrochard@common-lisp.net>
292 * contrib/clfswm: Move clfswm sources to $tmp_dir if there is no
293 write permission on $clfswm_asd_path. So anybody can start clfswm
294 even if there is no write permission on the source directory.
296 2010-09-12 Philippe Brochard <pbrochard@common-lisp.net>
298 * contrib/clfswm: Add support to cmucl, ccl and ecl.
300 2010-09-11 Philippe Brochard <pbrochard@common-lisp.net>
302 * src/clfswm-util.lisp (set-hide-unmanaged-window)
303 (set-show-unmanaged-window, set-default-hide-unmanaged-window):
304 New functions and menu entry.
305 (set-globally-hide-unmanaged-window)
306 (set-globally-show-unmanaged-window): New functions and menu
309 * src/clfswm-internal.lisp (hide-unmanager-window-p): New
311 (show-child): Add a data slot on frame to hide or not unmanaged
314 * src/clfswm-corner.lisp (present-clfswm-terminal)
315 (present-virtual-keyboard): Use a function (generic-present-body)
316 instead of a macro (generate-present-body).
318 * src/clfswm-util.lisp (update-menus): List all directories and
319 subdirectories in $XDG_DATA_DIRS/applications.
321 2010-09-10 Philippe Brochard <pbrochard@common-lisp.net>
323 * src/clfswm-corner.lisp (generate-present-body): New macro.
324 (present-clfswm-terminal, present-virtual-keyboard): Use
325 generate-present-body.
327 2010-09-09 Philippe Brochard <pbrochard@common-lisp.net>
329 * src/clfswm-util.lisp (update-menus): Follow XDG specifications
330 instead of the non-portable Debian update-menu.
332 2010-09-07 Philippe Brochard <pbrochard@common-lisp.net>
334 * src/clfswm.lisp (error-handler): New function do handle
335 asynchronous errors and ignore them.
336 (open-display): Install the new error-handler on display.
338 2010-09-05 Philippe Brochard <pbrochard@common-lisp.net>
340 * src/xlib-util.lisp (with-xlib-protect): Add a
341 with-simple-restart on top of body execution.
343 2010-09-04 Philippe Brochard <pbrochard@common-lisp.net>
345 * src/clfswm.lisp (main-loop): Protect all xlib functions with an
348 * src/xlib-util.lisp (handle-event): use with-xlib-protect only in
349 handle-event. Add a with-simple-restart to prevent a
350 clisp/new-lisp infinite loop.
352 2010-08-30 Philippe Brochard <pbrochard@common-lisp.net>
354 * src/clfswm-corner.lisp (present-clfswm-terminal): Make the
355 clfswm terminal working even on xterm title changes.
357 2010-08-29 Philippe Brochard <pbrochard@common-lisp.net>
359 * src/clfswm-util.lisp (run-other-window-manager): Update for
362 * src/tools.lisp (do-execute): New parameter io to change the
365 * src/clfswm-util.lisp (hide-current-child): Prevent from removing
368 * src/clfswm-internal.lisp (child-member): New predicate.
369 (child-remove): New function.
371 * src/*.lisp: Use child-member and child-remove everywhere it's
374 2010-08-28 Philippe Brochard <pbrochard@common-lisp.net>
376 * src/clfswm.lisp (main-loop): Ensure that all events have been
377 processed after a process-event.
379 * src/clfswm-internal.lisp (is-in-current-child-p): New function.
381 2010-08-27 Philippe Brochard <pbrochard@common-lisp.net>
383 * src/clfswm.lisp (main-mode:configure-request): Raise the window
384 only when present on the current child and focus it accordingly.
386 2010-08-26 Philippe Brochard <pbrochard@common-lisp.net>
388 * src/clfswm-circulate-mode.lisp (circulate-loop-function):
389 Use is-a-key-pressed-p.
391 * src/xlib-util.lisp (is-a-key-pressed-p): New predicate.
393 * src/clfswm-keys.lisp (define-ungrab/grab): Use all values
394 returned by xlib:keysym->keycodes.
396 * src/*.lisp: Use the new child-equal-p to compare children. This
397 prevent a bug with sbcl/cmucl when the standard equal function
398 does not work with xlib:window.
400 * src/clfswm-internal.lisp (child-equal-p): New predicate.
402 2010-08-25 Philippe Brochard <pbrochard@common-lisp.net>
404 * src/clfswm-generic-mode.lisp (generic-mode): Use an
405 xlib:event-listen before processing event with
406 xlib:process-event. This prevent a bug with CLX threaded
407 implementation like sbcl.
409 * src/clfswm.lisp (main-loop): Use an xlib:event-listen before
410 processing event with xlib:process-event. This prevent a bug with
411 CLX threaded implementation like sbcl.
413 2010-08-17 Philippe Brochard <pbrochard@common-lisp.net>
415 * contrib/server/key.lisp (ushell-sh): Add ccl and ecl support.
417 * src/xlib-util.lisp (compress-motion-notify): Use a loop instead
420 * src/clfswm-internal.lisp (with-find-in-all-frames): New macro.
421 (find-parent-frame, find-frame-window, find-frame-by-name)
422 (find-frame-by-number): Use with-find-in-all-frames to search in
423 frames in the right order.
425 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Fix an
426 unwanted flickering with unmanaged windows.
428 2010-08-16 Philippe Brochard <pbrochard@common-lisp.net>
430 * src/package.lisp: Remove event handler hooks as they're not
431 needed anymore (To replace them: use closure and define-handler).
433 * src/xlib-util.lisp (move-window, resize-window)
434 (wait-mouse-button-release): Use a generic mode.
436 * src/*.lisp: Replace the case to handle event with a more (tricky)
437 lispy method which bind a function to each keywords associated
440 2010-07-23 Philippe Brochard <pbrochard@common-lisp.net>
442 * src/clfswm-util.lisp (delete-current-child): Invert bindings and
443 menu entry between delete-current-child and remove-current-child.
444 ie: Delete a child and its children in all frames by default.
446 2010-07-21 Philippe Brochard <pbrochard@common-lisp.net>
448 * src/package.lisp: Add a placement configuration group.
450 * src/binding*.lisp: Bind control+g to escape the current action
453 * src/clfswm-internal.lisp
454 (delete-child-and-children-in-all-frames): New function and
455 binding: Second mode - Control+Delete delete the current child and
456 its children in all frames (ie: close the current child and its
459 2010-07-20 Philippe Brochard <pbrochard@common-lisp.net>
461 * src/clfswm-internal.lisp (remove-child-in-frame): Do not destroy
462 the frame window and the frame gc. Close a very annoying bug when
463 cuting/pasting a frame or moving a child over frames with the
466 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Redisplay
467 all children in *current-root* after moving/resizing a frame.
469 2010-07-18 Philippe Brochard <pbrochard@common-lisp.net>
471 * src/clfswm-util.lisp (delete-focus-window)
472 (destroy-focus-window): Remove child in parent frame before
475 2010-07-16 Philippe Brochard <pbrochard@common-lisp.net>
477 * src/clfswm-util.lisp (identify-key): Add a timeout in
479 (mouse-click-to-focus-generic): Use find-child-under-mouse instead
480 of the window passed by xlib:process-event.
482 * src/xlib-util.lisp (move-window, resize-window)
483 (wait-mouse-button-release): Add a timeout in xlib:process-event.
485 2010-04-11 Philippe Brochard <pbrochard@common-lisp.net>
487 * src/clfswm-util.lisp (run-other-window-manager): Add the ability
488 to launch an other window manager and to return to clfswm.
490 2010-03-18 Philippe Brochard <pbrochard@common-lisp.net>
492 * src/clfswm-layout.lisp (set-tile-space-layout): Set default
495 2009-12-15 Philippe Brochard <pbrochard@common-lisp.net>
497 * src/clfswm.lisp (main-loop): Add a *loop-hook* parameter and a
500 * src/clfswm-generic-mode.lisp (generic-mode): Add a loop-hook
501 parameter and a loop timeout.
503 2009-12-05 Philippe Brochard <pbrochard@common-lisp.net>
505 * src/clfswm.lisp (main): Add an alternate configuration filename
508 * load.lisp: Add a debuging code example.
510 2009-11-14 Philippe Brochard <pbrochard@common-lisp.net>
512 * src/clfswm-configuration.lisp (create-configuration-menu): New
513 menu to configure all clfswm variables while clfswm is running.
515 2009-11-12 Philippe Brochard <pbrochard@common-lisp.net>
517 * src/clfswm-util.lisp (save-configuration-variables): New
518 function to save all configuration variables in clfswmrc.
520 2009-11-11 Philippe Brochard <pbrochard@common-lisp.net>
522 * src/clfswm-info.lisp (info-mode): Begining of mouse support in
524 (set-default-info-keys): Add cursor key support in info mode.
526 2009-11-08 Philippe Brochard <pbrochard@common-lisp.net>
528 * contrib/reboot-halt.lisp: Add a Suspend/Reboot/Halt menu in
531 * src/clfswm.lisp (main): Add a read-conf-file-p parameter to
532 prevent reading the configuration file (this may be useful to
533 produce the original documentation without user modifications
534 with the rc configuration file).
536 2009-11-07 Philippe Brochard <pbrochard@common-lisp.net>
538 * src/bindings-second-mode.lisp (set-default-second-keys):
539 Simplification of Escape key to close/kill/remove the focus window
540 and unhide all windows.
542 * src/bindings.lisp (set-default-main-keys): Simplification of
543 Escape key to close/kill/remove the focus window and unhide all
546 * src/clfswm-util.lisp (ask-close/kill-current-window): Add remove
547 focus and unhide all windows capabilities.
549 2009-10-10 Philippe Brochard <pbrochard@common-lisp.net>
551 * contrib/mpd.lisp (start-gmpc): Add gmpc in the mpd menu.
553 2009-07-29 Philippe Brochard <pbrochard@common-lisp.net>
555 * src/clfswm-layout.lisp (tile-layout, tile-horizontal-layout):
556 Keep child order and don't make unnecessary child movement.
557 (one-column-layout, one-line-layout): New layouts.
559 2009-06-29 Philippe Brochard <pbrochard@common-lisp.net>
561 * *: **** Release 0906 ****
563 * contrib/cd-player.lisp: New file to handle the CD player.
565 * contrib/xmms.lisp: New file to handle the xmms player.
567 2009-06-28 Philippe Brochard <pbrochard@common-lisp.net>
569 * src/clfswm-layout.lisp (set-no-layout-remember-size): New layout:
570 Maximize windows in there frame - Leave frames to there actual
573 * src/bindings-second-mode.lisp (set-default-second-keys): Bind
574 "o" on set-open-in-new-frame-in-parent-frame-nw-hook.
576 2009-06-27 Philippe Brochard <pbrochard@common-lisp.net>
578 * contrib/keyb_fr.lisp: New file to handle an azerty keyboard.
580 2009-06-24 Philippe Brochard <pbrochard@common-lisp.net>
582 * contrib/mpd.lisp: Use a standard menu.
584 * src/clfswm-info.lisp: Use a standard menu for the help-menu.
586 2009-06-22 Philippe Brochard <pbrochard@common-lisp.net>
588 * contrib/mpd.lisp: New file to handle the Music Player Daemon (MPD)
590 2009-06-19 Philippe Brochard <pbrochard@common-lisp.net>
592 * src/clfswm-autodoc.lisp (produce-doc, produce-doc-html): Minor
595 2009-06-18 Philippe Brochard <pbrochard@common-lisp.net>
597 * src/config.lisp (get-fullscreen-size): One pixel adjustment
600 * src/clfswm-placement.lisp (*-child-placement): One pixel
603 2009-06-16 Philippe Brochard <pbrochard@common-lisp.net>
605 * src/clfswm-circulate-mode.lisp (draw-circulate-mode-window):
606 Ensure that all characters are printable.
608 * src/config.lisp (get-fullscreen-size): Adjust default fullscreen
611 * src/clfswm-placement.lisp (*-child-placement): Adjust
612 coordinates to one pixel in the current child.
614 2009-06-04 Philippe Brochard <pbrochard@common-lisp.net>
616 * src/clfswm-query.lisp (query-enter-function): Assign font before
617 width and height calculation.
619 2009-06-03 Philippe Brochard <pbrochard@common-lisp.net>
621 * src/xlib-util.lisp (banish-pointer): Use with-placement macro to
622 bannish the pointer in an arbitrary place.
624 * src/clfswm-info.lisp (info-mode): Use with-placement macro to
625 place the info window in an arbitrary place.
627 * src/clfswm-query.lisp (query-enter-function): Use with-placement
628 macro to place the query window in an arbitrary place.
630 * src/clfswm-placement.lisp: New file. Allow to place info windows
631 or query windows on an arbitrary place. Allow to bannish the
632 pointer on an arbitrary place.
634 2009-05-16 Philippe Brochard <pbrochard@common-lisp.net>
636 * src/clfswm-circulate-mode.lisp (reorder-child)
637 (reorder-brother): Unfocus windows before reordering children or
640 2009-05-13 Philippe Brochard <pbrochard@common-lisp.net>
642 * src/clfswm-circulate-mode.lisp (reorder-brother): Ensure that
643 the parent is a frame.
645 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Handle
646 motion with a default modifier.
648 * src/clfswm.lisp (handle-motion-notify): Handle motion with a
651 * src/clfswm-info.lisp (info-mode): Handle motion with a default
653 (info-mode): Optimization in loop function.
655 2009-05-10 Philippe Brochard <pbrochard@common-lisp.net>
657 * src/clfswm-circulate-mode.lisp (reorder-brother): Handle
658 root-frame correctly.
660 * clfswm.asd: Dependency fix for clfswm-generic-mode.
662 * src/clfswm-circulate-mode.lisp (reorder-child)
663 (reorder-brother): Handle empty frames.
664 (reorder-brother): Redisplay only the parent frame of the current
667 * src/clfswm-util.lisp (frame-toggle-maximize): Redisplay only the
668 parent frame of the current frame.
670 2009-05-09 Philippe Brochard <pbrochard@common-lisp.net>
672 * src/clfswm-util.lisp (frame-toggle-maximize): New function:
673 Maximize/Unmaximize the current frame in its parent frame.
675 * src/clfswm-layout.lisp (maximize-layout): New layout: Maximize
676 windows and frames in there parent frame.
678 2009-05-05 Philippe Brochard <pbrochard@common-lisp.net>
680 * src/*.lisp: Add support for Clozure Common Lisp (CCL).
682 * src/clfswm-circulate-mode.lisp (reorder-child)
683 (reorder-brother): Reinitialise on circulate type change
684 child to brother or brother to child.
686 * src/*.lisp (*): Use map-window instead of xlib:map-window. So
687 calls xlib:display-finish-output on each map-request. So speed up
690 * src/xlib-util.lisp (map-window): New function. Call
691 xlib:display-finish-output on each map request.
693 2009-04-28 Philippe Brochard <pbrochard@common-lisp.net>
695 * src/clfswm-second-mode.lisp (sm-handle-motion-notify):
696 Optimisation when drawing second mode window.
698 2009-04-27 Philippe Brochard <pbrochard@common-lisp.net>
700 * src/clfswm-circulate-mode.lisp (circulate-mode): Optimisation in
703 2009-04-22 Philippe Brochard <pbrochard@common-lisp.net>
705 * src/clfswm-util.lisp (run-program-from-query-string): Launch
706 command only with a return validation.
708 2009-04-22 Xavier Maillard <xma@gnu.org>
710 * src/clfswm-query.lisp (query-string): Use a generic mode.
712 2009-04-19 Xavier Maillard <xma@gnu.org>
714 * src/clfswm-info.lisp (info-mode): Use generic-mode for info-mode.
716 2009-04-18 Xavier Maillard <xma@gnu.org>
718 * src/clfswm-generic-mode.lisp (generic-mode): Add a generic mode
719 to define all other modes.
721 2009-04-05 Philippe Brochard <pbrochard@common-lisp.net>
723 * src/package.lisp (): Use *default-font-string* for all
726 * src/clfswm-info.lisp (info-mode): Ensure integer windows size.
728 2009-02-17 Philippe Brochard <pbrochard@common-lisp.net>
730 * src/xlib-util.lisp (null-size-window-p): Better check of null
733 2009-02-14 Philippe Brochard <pbrochard@common-lisp.net>
735 * src/clfswm.lisp (handle-map-request): Add a fix to manage
736 correctly fullscreen windows (SDL particularly).
738 2008-12-20 Philippe Brochard <pbrochard@common-lisp.net>
740 * src/xlib-util.lisp (get-color): Allocate colors only once -> fix
741 a segfault with clisp/new-clx.
743 * src/clfswm.lisp (handle-motion-notify): Add a needed window
746 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Add a
747 needed window argument.
749 2008-10-30 Philippe Brochard <pbrochard@common-lisp.net>
751 * src/xlib-util.lisp (wait-no-key-or-button-press)
752 (wait-a-key-or-button-press): Check buttons press/release correctly"
754 2008-10-28 Philippe Brochard <pbrochard@common-lisp.net>
756 * src/menu-def.lisp: Add children navigation menu in the movement
757 menu (select next/previous child/brother/level).
759 2008-10-26 Philippe Brochard <pbrochard@common-lisp.net>
761 * *: Rename 'sister' frame to 'brother' frame.
763 * src/clfswm-keys.lisp (unalias-modifiers): Convert a modifier
764 alias in a real modifier.
766 * src/package.lisp (*modifier-alias*): New list of modifier alias
767 For example: :alt is :mod-1, :numlock is :mod-2...
769 * src/tools.lisp (remove-hook): New function.
771 * src/clfswm-keys.lisp (with-capslock, without-capslock)
772 (with-numlock, without-cnumlock): New functions.
774 2008-10-25 Philippe Brochard <pbrochard@common-lisp.net>
776 * src/clfswm-info.lisp: Use the *binding-hook* to create info
777 keys and mouse bindings.
779 * src/bindings-second-mode.lisp: Use the *binding-hook* to create
780 second keys and mouse bindings.
782 * src/bindings.lisp: Use the *binding-hook* to create main keys
785 2008-10-10 Philippe Brochard <pbrochard@common-lisp.net>
787 * src/clfswm-menu.lisp (open-menu): Remember parent menu to undo
790 2008-10-09 Philippe Brochard <pbrochard@common-lisp.net>
792 * src/menu-def.lisp: Use a menu instead of a function for the
795 2008-10-08 Philippe Brochard <pbrochard@common-lisp.net>
797 * src/clfswm-util.lisp (show-standard-menu): Display the standard
798 menu from the 'update-menus' command.
800 2008-10-07 Philippe Brochard <pbrochard@common-lisp.net>
802 * src/clfswm-query.lisp (query-string): Do not ungrab keyboard if
803 it's already grabbed.
805 * src/clfswm-internal.lisp (display-frame-info): Use configurable
806 colors and fix a bug with background.
807 (display-frame-info): Set window background when displaying info.
809 2008-10-06 Philippe Brochard <pbrochard@common-lisp.net>
811 * src/xlib-util.lisp (my-character->keysyms): Use a macro to avoid
812 warning with clisp/new-clx.
814 2008-10-04 Philippe Brochard <pbrochard@common-lisp.net>
816 * src/clfswm-util.lisp (jump-to-slot): Prevent to jump on a
819 2008-09-23 Philippe Brochard <pbrochard@common-lisp.net>
821 * *: **** Release 0809 ****
823 2008-09-23 Philippe Brochard <pbrochard@common-lisp.net>
825 * src/clfswm-util.lisp (ensure-unique-name): New function and menu
827 (ensure-unique-number): New function and menu entry.
829 2008-09-22 Philippe Brochard <pbrochard@common-lisp.net>
831 * src/clfswm-nw-hooks.lisp (named-frame-nw-hook): New new window
832 hook: open the next window in a named frame.
833 (numbered-frame-nw-hook): New new window hook: open the next
834 window in a numbered frame.
836 * src/clfswm-query.lisp (query-string): Grab the keyboard in all
837 cases. So query-string can be called even in the main mode.
839 * src/clfswm-internal.lisp (show-all-children): Do not raise a
840 child by default => far less flickering.
842 2008-09-19 Philippe Brochard <pbrochard@common-lisp.net>
844 * src/bindings-second-mode.lisp: Bind "t" to tile-current-frame.
846 * src/menu-def.lisp: Change key binding for the CLFSWM menu
849 * src/xlib-util.lisp (xgrab-pointer): Handle the case where cursor
850 is nil. (workaround on some CLX implementation).
852 2008-09-12 Philippe Brochard <pbrochard@common-lisp.net>
854 * src/menu-def.lisp: Add a menu to set a focus policy for all
857 * src/clfswm-util.lisp (set-focus-policy-generic-for-all)
858 (all-frames-set-*-focus-policy): Set a focus policy for all
861 * src/clfswm.lisp (handle-enter-notify): sloppy-select
862 mode. Select a child and its parents on mouse over.
864 2008-09-03 Philippe Brochard <pbrochard@common-lisp.net>
866 * src/clfswm.lisp (handle-enter-notify): Add a sloppy strict focus
867 policy -> Sloppy focus only for windows in the current frame.
868 (main-unprotected): Exit clfswm on init error (ie: when another
869 window manager is running).
871 * src/clfswm-util.lisp (reset-clfswm): New function.
873 2008-09-02 Philippe Brochard <pbrochard@common-lisp.net>
875 * src/clfswm-menu.lisp (init-menu): New function.
877 * src/clfswm-util.lisp (reload-clfswm): New function to reload
879 (exit-clfswm): Rename quit-clfswm to exit-clfswm.
881 * src/clfswm.lisp (main, main-unprotected): Handle error in a
882 superior main function. Now CLFSWM can't break the X session. It
883 just reinitialize the display and run a new main loop.
885 * src/clfswm-corner.lisp: Make *clfswm-terminal* and
886 *vt-keyboard-on* global to avoid warnings when loading clfswm.
888 * src/clfswm-layout.lisp: Add a specific GIMP layout menu.
889 (help-on-gimp-layout): Describe how to use the GIMP layout.
891 2008-09-01 Philippe Brochard <pbrochard@common-lisp.net>
893 * src/clfswm-layout.lisp (set-gimp-layout): Change the layout to
894 main-window-right-layout. Change the keybinding for (shift)alt+tab
895 to not select windows in the main window lisst.
896 Bind F8 to add a window in the main window list.
897 Bind F9 to remove a window in the main window list.
898 Change the focus policy to :sloppy.
899 (set-previous-layout): Restore the previous layout, keybinding and
902 2008-08-31 Philippe Brochard <pbrochard@common-lisp.net>
904 * src/clfswm-menu.lisp (add-menu-comment): Add comments in menu.
906 * src/clfswm-layout.lisp (main-window-left-layout)
907 (main-window-bottom-layout, main-window-top-layout): New
909 Factorize layouts in menu.
911 2008-08-30 Philippe Brochard <pbrochard@common-lisp.net>
913 * src/clfswm-layout.lisp (main-window-right-layout): A possible
914 GIMP layout: one or more main windows on one side of the
915 frame. Others on the other size.
917 * src/clfswm-util.lisp
918 (current-frame-set-click/sloppy-focus-policy): Each frame can have
919 a different focus policy (one of :click or :sloppy).
920 The default focus policy is set with *default-focus-policy*.
922 2008-08-23 Philippe Brochard <pbrochard@common-lisp.net>
924 * src/clfswm-info.lisp (show-config-variable): New function.
926 2008-08-19 Philippe Brochard <pbrochard@common-lisp.net>
928 * src/clfswm-layout.lisp (tile-horizontal-layout): New layout.
930 * src/clfswm-info.lisp: Colored help for key binding and corners
933 2008-08-18 Philippe Brochard <pbrochard@common-lisp.net>
935 * src/clfswm-util.lisp (delete-focus-window)
936 (destroy-focus-window): Remove chid only in
937 handle-unmap/destroy-notify. Focus *current-root* only when
938 closing/killing the current child.
940 * src/clfswm-autodoc.lisp (produce-corner-*-doc): New autodoc
941 functions or corners.
943 2008-08-17 Philippe Brochard <pbrochard@common-lisp.net>
945 * src/clfswm-corner.lisp (present-clfswm-terminal): New corner
946 action: Hide/Unhide a terminal on mouse corner action. (By default
947 right mouse button on the top left corner).
949 * src/config.lisp (*never-managed-window-list*): New config
952 * src/clfswm-internal.lisp (never-managed-window-p): New function:
953 Handle never managed window in a more simple way.
955 * src/clfswm-corner.lisp: New file and new and more simple method
956 to define corners actions.
958 2008-08-15 Philippe Brochard <pbrochard@common-lisp.net>
960 * src/clfswm-info.lisp (info-mode): Info line can now be colored.
962 * src/clfswm-layout.lisp (fast-layout-switch)
963 (define-fast-layout-switch): New functions: Switch between two
966 * src/clfswm-second-mode.lisp (leave-second-mode): Takes care if
967 really in the second mode. So leave-second-mode can be used even
970 * src/clfswm-util.lisp (switch-to-last-child): New function:
971 Store the current child and switch to the previous one.
973 2008-07-16 Philippe Brochard <pbrochard@common-lisp.net>
975 * src/clfswm-util.lisp (display-current-window-info): Display the
977 (have-to-present-virtual-keyboard): Add a virtual keyboard corner
978 (top right by default). By default 'xvkbd' is used.
980 2008-06-28 Philippe Brochard <pbrochard@common-lisp.net>
982 * src/xlib-util.lisp (move-window, resize-window): Compress motion
985 * src/clfswm.lisp (handle-motion-notify): Compress motion events.
987 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Compress
990 * src/clfswm-info.lisp (info-mode): Compress motion events.
992 2008-06-21 Philippe Brochard <pbrochard@common-lisp.net>
994 * src/clfswm-internal.lisp (show-all-children): Compute geometry
995 and selection first and then show only necessary children.
996 (show-child): remove unneeded display-p parameter.
998 * src/config.lisp (get-fullscreen-size): Place the frame border
999 outside the screen (this prevent the loose of 2 pixels per
1002 2008-06-12 Philippe Brochard <pbrochard@common-lisp.net>
1004 * src/clfswm-internal.lisp (focus-child): Algorithm change to
1005 raise only the selected child.
1007 2008-06-08 Philippe Brochard <pbrochard@common-lisp.net>
1009 * src/clfswm-internal.lisp (raise-p-list, show-all-children):
1010 Raise only viewable children.
1012 2008-06-06 Philippe Brochard <pbrochard@common-lisp.net>
1014 * src/clfswm-internal.lisp (show-all-children): Always raise all
1015 displayed children. Remove all references to raise-p.
1017 2008-06-04 Philippe Brochard <pbrochard@common-lisp.net>
1019 * src/menu-def.lisp (child-menu): New menu entry on raise/lower
1022 * src/bindings-second-mode.lisp ("Page_Down", "Page_Up"): New
1023 second mode binding on raise/lower child in its frame.
1025 * src/clfswm-nw-hooks.lisp (leave-focus-frame-nw-hook): Adapt
1026 behaviour to the new raise/lower property.
1027 Call clear-nw-hook before the rest of the hook.
1029 * src/bindings.lisp (mouse-click-to-focus-and-move-window)
1030 (mouse-click-to-focus-and-resize-window): Stop button event. This
1031 prevent a keyboard/pointer freeze.
1033 2008-06-03 Philippe Brochard <pbrochard@common-lisp.net>
1035 * src/clfswm-internal.lisp (frame-lower-child)
1036 (frame-raise-child): New functions to raise/lower a child in its
1039 * src/clfswm-util.lisp (have-to-present-windows)
1040 (have-to-present-all-windows): New functions to have an MaxOS
1041 expose like on mouse click in screen corner.
1043 * src/clfswm-info.lisp ("Page_Down", "Page_Up"): Add boundaries.
1045 2008-05-30 Philippe Brochard <pbrochard@common-lisp.net>
1047 * src/clfswm-util.lisp (unhide-a-child-from-all-frames): Unhide a
1048 child from a choice in all frames with hidden children.
1050 * src/clfswm-info.lisp (info-mode-menu): Handle separators.
1052 2008-05-28 Philippe Brochard <pbrochard@common-lisp.net>
1054 * src/clfswm-util.lisp (hide-current-child, unhide-a-child)
1055 (unhide-all-children): New functions.
1057 * src/clfswm-info.lisp (info-mode-menu): Handle symbols and
1060 * src/clfswm-util.lisp (hide/show-frame-window): new function and
1063 2008-05-23 Philippe Brochard <pbrochard@common-lisp.net>
1065 * src/clfswm-util.lisp (rename-current-child): Do not display the
1066 frame info for a window.
1068 2008-05-20 Philippe Brochard <pbrochard@common-lisp.net>
1070 * src/clfswm-internal.lisp (remove-child-in-frame): Destroy the
1071 frame window for the removed child and its children.
1073 2008-05-18 Philippe Brochard <pbrochard@common-lisp.net>
1075 * src/clfswm-autodoc.lisp (produce-*-doc-*): Add a note to use the
1078 2008-05-17 Philippe Brochard <pbrochard@common-lisp.net>
1080 * src/clfswm-nw-hooks.lisp (default-frame-nw-hook): Do not handle
1081 the ROX pinboard (ie: leave it lowered in the root window as
1084 * src/clfswm-layout.lisp (tile-left-space-layout): New layout.
1085 (tile-left-layout, tile-right-layout, tile-top-layout)
1086 (tile-bottom-layout): Use all the frame space when there is only
1089 * src/clfswm-internal.lisp (place-window-from-hints): Center
1090 unmanaged windows in the root screen.
1092 * src/clfswm-nw-hooks.lisp (clear-nw-hook, clear-all-nw-hooks):
1095 2008-05-15 Philippe Brochard <pbrochard@common-lisp.net>
1097 * src/clfswm-util.lisp (current-frame-manage-window-type): Fix a
1098 typo in managed types.
1100 * src/clfswm-internal.lisp (show-child): Always display frame info
1101 even if the frame is hidden.
1103 * src/xlib-util.lisp (resize-window): Use a better algorithme to
1106 2008-05-13 Philippe Brochard <pbrochard@common-lisp.net>
1108 * src/clfswm-util.lisp (with-movement): Display frame info for all
1109 frames in current root.
1111 2008-05-12 Philippe Brochard <pbrochard@common-lisp.net>
1113 * src/*.lisp: Rename 'brother' frames to 'sister' frames.
1115 * src/bindings-second-mode.lisp (define-second-key #\a): New
1116 binding on 'add-default-frame'.
1118 * src/clfswm-autodoc.lisp (produce-*-doc-*-in-file): Show a
1119 message to follow the autodocumentation process.
1121 2008-05-10 Philippe Brochard <pbrochard@common-lisp.net>
1123 * src/clfswm-util.lisp (bind-or-jump): Bind "Tab", "Return" and
1124 "Space" to jump to a child. "B" to bind a slot on the current
1127 * src/bindings-second-mode.lisp: Use "Tab" instead of
1130 2008-05-07 Philippe Brochard <pbrochard@common-lisp.net>
1132 * src/clfswm-util.lisp (find-child-under-mouse): Take care of
1133 unmanaged (hidden) windows.
1135 * src/clfswm-internal.lisp (place-window-from-hints): Give a
1136 minimal size for windows.
1137 (with-all-windows-frames-and-parent): New function.
1139 * src/config.lisp (*default-window-width/height*): New parameters.
1141 * src/clfswm-internal.lisp (place-window-from-hints): Center
1142 windows in the screen instead of in there frame.
1144 * src/bindings-second-mode.lisp (tile-space-current-frame): New
1147 * src/clfswm-layout.lisp (register-layout): Intern the once name
1148 in the right package.
1150 2008-05-05 Philippe Brochard <pbrochard@common-lisp.net>
1152 * doc/dot-clfswmrc: Update to follow the new clfswm way.
1154 2008-05-03 Philippe Brochard <pbrochard@common-lisp.net>
1156 * src/clfswm-internal.lisp (set-current-child)
1157 (adapt-child-to-parent, show-child, hide-child): Handle the case
1158 where child is not a frame or a window.
1160 * src/clfswm-util.lisp
1161 (mouse-click-to-focus-generic,mouse-focus-move/resize-generic):
1162 Check if child is a frame.
1164 * src/clfswm-internal.lisp (managed-window-p): Handle the case
1165 where frame is null.
1166 (place-frame): Check if frame and parent are frames.
1168 * src/clfswm-info.lisp (info-mode): display all frame info before
1171 * src/clfswm-second-mode.lisp (second-key-mode): display all frame
1172 info before leaving.
1174 * src/clfswm-internal.lisp (display-all-frame-info): New function.
1176 2008-05-02 Philippe Brochard <pbrochard@common-lisp.net>
1178 * src/tools.lisp (getenv): Implemented for ECL.
1179 (urun-prog): Implemented for ECL.
1181 * src/clfswm-util.lisp (identify-key): Use a double buffer to
1184 * src/clfswm-query.lisp (query-string): Use a double buffer to
1187 * src/clfswm-info.lisp (draw-info-window): Use a double buffer to
1190 * src/xlib-util.lisp (clear-pixmap-buffer, copy-pixmap-buffer):
1193 2008-05-01 Philippe Brochard <pbrochard@common-lisp.net>
1195 * src/clfswm-info.lisp (info-mode): Add boundaries in the info mode window.
1197 * src/menu-def.lisp: New file: move all menu definition in
1200 * src/clfswm-layout.lisp (register-layout): Use a function instead
1203 2008-04-30 Philippe Brochard <pbrochard@common-lisp.net>
1205 * src/clfswm-autodoc.lisp (produce-menu-doc,
1206 (produce-menu-doc-html): New functions.
1207 (produce-doc-*): Moved to clfswm-autodoc.lisp.
1209 * src/clfswm-util.lisp (paste-selection-no-clear): Prevent to
1210 paste a child on one of its own children. (this prevent a
1212 (move-child-to): Rename move/copy-current-child-by to
1214 (mouse-move-window-over-frame): New function to move the window
1215 under the mouse cursor to another frame.
1217 * src/clfswm-internal.lisp (find-child-in-parent): New function.
1219 2008-04-29 Philippe Brochard <pbrochard@common-lisp.net>
1221 * src/clfswm-internal.lisp (show-all-children): Display unmanaged
1222 windows only when its window parent is the current child.
1224 2008-04-28 Philippe Brochard <pbrochard@common-lisp.net>
1226 * src/clfswm-util.lisp (manage-current-window)
1227 (unmanage-current-window): New functions: Allow to force to manage
1228 or unmanage a window by its parent frame.
1230 * src/bindings-second-mode.lisp (#\o): binded to
1231 set-open-in-new-frame-in-parent-frame-nw-hook and
1232 (#\o :control) to set-open-in-new-frame-in-root-frame-nw-hook
1234 * src/clfswm-util.lisp (with-current-window): New macro.
1236 * src/xlib-util.lisp (move-window, resize-window): Remove uneeded
1237 exposure and enter-window handle event.
1239 * src/clfswm-util.lisp (move-frame, resize-frame): Show all
1240 children for the current child after the move/resize.
1242 2008-04-27 Philippe Brochard <pbrochard@common-lisp.net>
1244 * src/xlib-util.lisp (resize-window): Take care of window size
1247 * src/clfswm-util.lisp (mouse-focus-move/resize-generic): Allow to
1248 move/resize unmanaged windows.
1250 * src/xlib-util.lisp (move-window, resize-window): New functions.
1252 2008-04-25 Philippe Brochard <pbrochard@common-lisp.net>
1254 * src/clfswm-util.lisp (current-frame-manage-window-type): Let the
1255 user choose what window type the current frame must handle.
1256 (display-current-window-info): New function.
1257 (current-frame-manage-all-window-type)
1258 (current-frame-manage-only-normal-window-type)
1259 (current-frame-manage-no-window-type): New functions.
1261 * src/clfswm-internal.lisp (managed-window-p): New function.
1263 * src/package.lisp (frame): Managed type: new frame
1264 parameter. This allow to choose what window type a frame must
1267 * src/*.lisp: Rename all 'father' occurrences to 'parent'.
1269 * src/clfswm-nw-hooks.lisp
1270 (open-in-new-frame-in-parent-frame-nw-hook): New new window hook.
1272 * src/clfswm-util.lisp (adapt-current-frame-to-window-hints): New
1275 * src/tools.lisp (ensure-printable): Return always a string even
1278 2008-04-24 Philippe Brochard <pbrochard@common-lisp.net>
1280 * src/config.lisp (*default-nw-hook*): New variable to change the
1281 default new window hook.
1283 2008-04-22 Philippe Brochard <pbrochard@common-lisp.net>
1285 * clfswm.asd (clfswm): Add a dependency from
1286 clfswm-second-mode.lisp to clfswm.lisp.
1288 * src/clfswm-util.lisp (identify-key): Show the documentation for
1289 the function bound on a key.
1290 (with-movement): Move with-movement,
1291 current-frame-fill/pack/resize-* from bindings-second-mode.lisp
1292 to clfswm-util.lisp.
1294 * src/clfswm-menu.lisp: New menu system that let user change keys
1295 or functions associated to keys.
1297 2008-04-18 Philippe Brochard <pbrochard@common-lisp.net>
1299 * src/clfswm-internal.lisp (show-all-children): Display-child is
1300 the first child by default. Solve a bug with father-p.
1302 2008-04-17 Philippe Brochard <pbrochard@common-lisp.net>
1304 * src/clfswm-internal.lisp (add-frame): Add frame return the
1306 (show-all-children): Move the size computation outside the
1309 * src/bindings-second-mode.lisp (with-movement): Redisplay only
1312 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Redisplay
1313 only the current child.
1315 * src/clfswm-internal.lisp (show-all-children): New display-child
1316 parameter to display only the desired child and its children.
1317 (select-next/previous-child): Only display the current child.
1319 2008-04-14 Philippe Brochard <pbrochard@common-lisp.net>
1321 * src/clfswm.lisp (init-display): Move the default frame creation
1322 on the default init hook.
1324 * src/clfswm-keys.lisp (define-ungrab/grab): Handle all keysyms in
1325 the main mode (for example: "1" on an azerty keyboard).
1327 2008-04-13 Philippe Brochard <pbrochard@common-lisp.net>
1329 * src/clfswm-keys.lisp (find-key-from-code): Better handle of
1330 keysyms. Revert to old grabbing method for the main mode.
1332 2008-04-12 Philippe Brochard <pbrochard@common-lisp.net>
1334 * src/clfswm.lisp (init-display): Add key handling on no focus
1335 window and on frame windows.
1337 2008-04-11 Philippe Brochard <pbrochard@common-lisp.net>
1339 * src/clfswm.lisp (main): Keyboard handle strategie change: Grab
1340 all keys by default and replay just what is needed. No change for
1343 * src/clfswm-keys.lisp: remove grab/ungrab main keys.
1344 (find-key-from-code): Test for shift and not shift presence.
1346 2008-04-09 Philippe Brochard <pbrochard@common-lisp.net>
1348 * src/clfswm-internal.lisp (switch-to-root-frame): show later -
1349 new key parameter to have less flickering.
1351 2008-04-07 Philippe Brochard <pbrochard@common-lisp.net>
1353 * src/bindings-second-mode.lisp (frame-layout-once-menu): Set the
1354 layout only one time and revert to no-layout to freely handle
1357 * src/clfswm-nw-hooks.lisp
1358 (open-in-new-frame-in-root-frame-nw-hook): Tile layout with spaces
1359 with new created window.
1361 * src/clfswm-layout.lisp (register-layout): Now register
1362 automatically a once layout to set the layout only one time and
1363 revert to no-layout to freely handle frames.
1365 2008-04-05 Philippe Brochard <pbrochard@common-lisp.net>
1367 * src/clfswm-nw-hooks.lisp (leave-focus-frame-nw-hook): New
1368 nw-hook: Open the next window in the current frame and leave the
1369 focus to the current child.
1371 2008-04-04 Philippe Brochard <pbrochard@common-lisp.net>
1373 * src/bindings-second-mode.lisp: Add keys definitions to
1374 bind-or-jump in the second mode.
1376 * src/clfswm-util.lisp (bind-or-jump): remove the auto-defining
1377 macro for bind-or-jump-(1|2|3...).
1379 * src/clfswm-keys.lisp (define-define-key/mouse): Allow additional
1380 arguments to function. This allow to do things like:
1381 (define-main-key (key) 'my-function 10 20 'foo) -> 10 20 and 'foo
1382 are passed to my-function on key press.
1384 2008-04-03 Philippe Brochard <pbrochard@common-lisp.net>
1386 * src/clfswm-util.lisp (bind-or-jump): New (great) function.
1388 2008-04-02 Philippe Brochard <pbrochard@common-lisp.net>
1390 * src/clfswm-internal.lisp (child-fullname): New function
1392 * src/clfswm-info.lisp (info-mode-menu): Add an explicit optional
1393 docstring in info-mode-menu. An item can be
1394 '((key function) (key function)) or with docstring
1395 '((key function "documentation 1") (key function "bla bla") (key function))
1397 * src/tools.lisp (ensure-n-elems): New function.
1399 * src/bindings-second-mode.lisp: Bind Alt+mouse-1/3 to move or
1400 resize a frame or the window's father.
1402 * src/clfswm.lisp (init-display): Remove tile-space-layout by
1403 default on the root frame.
1405 * src/clfswm-util.lisp (move/resize-frame): Add standard event
1406 hooks handlers (map-request, configure-notify...)
1408 * src/clfswm-internal.lisp (adapt-child-to-father): Limit minimal
1411 2008-04-01 Philippe Brochard <pbrochard@common-lisp.net>
1413 * src/bindings.lisp: Bind Alt+mouse-1/3 to move or resize a frame
1414 or the window's father.
1416 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Stop button
1417 event only if there is a geometry change.
1418 (mouse-focus-move/resize-generic): Generic function to move or
1419 resize a frame or a window father frame.
1421 2008-04-01 Philippe Brochard <pbrochard@common-lisp.net>
1423 * src/clfswm-internal.lisp (show-all-children): Return t if there
1424 is a geometry change.
1426 2008-03-30 Philippe Brochard <pbrochard@common-lisp.net>
1428 * src/bindings.lisp (Up/Down): Swap select previous/next level.
1430 * src/bindings-second-mode.lisp (Up/Down): Swap select previous/next level.
1432 * src/clfswm.lisp (init-display): Create a default frame in the root frame.
1434 * src/clfswm-internal.lisp (place-frame): Place frame from real (pixel) coordinates.
1435 (with-all-*): Reverse the child list to manage the first child last (like in
1438 * src/config.lisp (*create-frame-on-root*): New variable: Create a new frame on the
1439 root window only if true.
1441 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Create a new frame on the
1442 root window only if *create-frame-on-root* is true.
1444 * src/bindings-second-mode.lisp (sm-mouse-click-to-focus-generic): Create a new frame
1447 2008-03-29 Philippe Brochard <pbrochard@common-lisp.net>
1449 * src/bindings-second-mode.lisp (sm-mouse-click-to-focus-generic): Focus, move and resize
1450 the current child (even if it's a window).
1452 2008-03-28 Philippe Brochard <pbrochard@common-lisp.net>
1454 * src/clfswm-util.lisp (mouse-click-to-focus-and-move)
1455 (mouse-click-to-focus-and-resize): New functions.
1457 * src/clfswm-internal.lisp (*-fl->px): Convert float coordinates to pixel.
1458 (*-px->fl): Convert pixel coordinates to float.
1460 * src/tools.lisp (call-hook): Move call-hook to tools.lisp.
1462 2008-03-27 Philippe Brochard <pbrochard@common-lisp.net>
1464 * src/clfswm-layout.lisp (no-layout): Use :first-only to raise only the
1467 * src/clfswm-internal.lisp (hide-all): Split hide-all-children in hide-all
1468 and hide-all-children.
1469 (raise-if-needed): New function.
1470 (show-child): Use a first-p parameter to raise windows only when they are
1473 2008-03-26 Philippe Brochard <pbrochard@common-lisp.net>
1475 * src/clfswm-internal.lisp (select-next/previous-level): Don't use show-all-children
1478 2008-03-25 Philippe Brochard <pbrochard@common-lisp.net>
1480 * src/clfswm-info.lisp (keys-from-list): new function.
1482 * src/*: rename 'childs' in 'children'.
1484 * src/*: rename 'group' in 'frame'.
1486 2008-03-22 Philippe Brochard <pbrochard@common-lisp.net>
1488 * src/clfswm-pack.lisp (explode-group/explode-current-group): new functions.
1490 2008-03-21 Philippe Brochard <pbrochard@common-lisp.net>
1492 * src/clfswm-pack.lisp: Pack, Fill, Resize functions.
1494 2008-03-16 Philippe Brochard <pbrochard@common-lisp.net>
1496 * src/clfswm-nw-hooks.lisp: Register system for new window hooks.
1497 Bind control+o to open the next window in a new group in the root group
1498 (as open in next window in a new workspace in 0801 version).
1500 2008-03-15 Philippe Brochard <pbrochard@common-lisp.net>
1502 * src/clfswm-util.lisp (show/hide-all-groups-info/key): Show/hide all groups info
1505 2008-03-14 Philippe Brochard <pbrochard@common-lisp.net>
1507 * bindings-second-mode.lisp ("ISO_Left_Tab"): Use ISO_Left_Tab
1508 instead of Tab for select-previous-child.
1510 2008-03-13 Philippe Brochard <pbrochard@common-lisp.net>
1512 * clfswm-util.lisp (force-window-in-group/force-window-center-in-group):
1515 2008-03-11 Philippe Brochard <pbrochard@common-lisp.net>
1517 * clfswm-util.lisp (identify-key): Display the documentation
1518 associated to keys when identifying a key.
1520 2008-03-10 Xavier Maillard <xma@gnu.org>
1522 * contrib/clfswm: Complete rewrite of the script. Detect error and
1523 act accordingly. Add command line arguments to configure the
1524 script execution. User can now choose different common lisp
1525 implementation (clisp and sbcl only), choose where to store the
1526 dumped image, where to find clfswm source.
1528 2008-03-09 Philippe Brochard <pbrochard@common-lisp.net>
1530 * clfswm-internal.lisp (process-new-window): Beginning of new
1531 window hook: each group have a hook to tell what he wants to do
1532 with the new created window.
1534 2008-03-08 Xavier Maillard <xma@gnu.org>
1536 * contrib/clfswm: New script. Dump a CLISP image of CLFSWM then
1537 call the resulting executable.
1539 * clfswm.lisp (read-conf-file): Check for the user config file in
1540 XDG_CONFIG_HOME *first*. Freedesktop.org standards should be
1541 prefered whenever possible.
1543 2008-02-27 Philippe Brochard <pbrochard@common-lisp.net>
1545 * clfswm-layout.lisp (*-layout): Add an optional raise-p
1546 parameter in each layout.
1548 2008-02-26 Philippe Brochard <pbrochard@common-lisp.net>
1550 * clfswm-util.lisp (copy/cut-current-child): Does not affect the
1552 (copy/move-current-child-by-name/number): new functions
1553 (focus-group-by-name/number): new functions
1554 (delete-group-by-name/number): new functions
1556 2008-02-24 Philippe Brochard <pbrochard@common-lisp.net>
1558 * ************************************************************ *
1559 *: Major update - No more reference to workspaces. The main *
1560 structure is a tree of groups or application windows. *
1561 * ************************************************************ *
1563 2008-02-07 Philippe Brochard <pbrochard@common-lisp.net>
1565 * clfswm.lisp (read-conf-file): Read configuration in
1566 $HOME/.clfswmrc or in /etc/clfswmrc or in
1567 $XDG_CONFIG_HOME/clfswm/clfswmrc.
1568 (xdg-config-home): Return the content of $XDG-CONFIG-HOME (default
1571 2008-01-18 Philippe Brochard <pbrochard@common-lisp.net>
1573 * clfswm-internal.lisp (show-all-group): Use *root* and *root-gc*
1576 2008-01-03 Philippe Brochard <pbrochard@common-lisp.net>
1578 * clfswm-internal.lisp (find-window-group): New function.
1580 * clfswm*: Change to make clfswm run with clisp/new-clx.
1582 2008-01-01 Philippe Brochard <pbrochard@common-lisp.net>
1584 * clfswm-util.lisp (query-show-paren): Add show parent matching in
1586 (query-string): Bind control+k to delete end of line.
1588 * clfswm-second-mode.lisp (draw-second-mode-window): Display
1589 the action on mouse motion in second mode.
1591 * clfswm.lisp (handle-exposure): Redisplay groups on exposure
1592 event but do not clear the root window.
1593 (handle-configure-request): Adjust unmanaged window from there
1596 * clfswm-internal.lisp (process-new-window): Adjust new window
1597 with the specified hints (max/min/base width/height).
1599 2007-12-31 Philippe Brochard <pbrochard@common-lisp.net>
1601 * clfswm.lisp (handle-configure-request): Send an Configuration
1602 Notify event. This solve a bug with xterm and rxvt who takes some
1603 times to be mapped. Now there is no delay.
1605 * bindings-second-mode.lisp (define-shell): Run programs after
1606 living the second mode.
1608 2007-12-30 Philippe Brochard <pbrochard@common-lisp.net>
1610 * clfswm-internal.lisp (process-new-window): Do not crop transient
1611 window to group size.
1612 (adapt-window-to-group): Do not crop transient window to group
1615 * clfswm.lisp (handle-configure-request): Adapt just the window to
1616 its group and don't take care of the configure request. Remove the
1617 bug with the Gimp outside the group and speed up the window
1619 (handle-exposure): Remove show-all-group on exposure event
1622 2007-12-29 Philippe Brochard <pbrochard@common-lisp.net>
1624 * clfswm-util.lisp (circulate-group-up-copy-window)
1625 (circulate-group-down-copy-window)
1626 (circulate-workspace-up-copy-group)
1627 (circulate-workspace-down-copy-group): Prevent the copy of the
1628 same window in the same workspace.
1630 * bindings-second-mode.lisp (release-copy-selected-window)
1631 (release-copy-selected-group): Prevent the copy of the same window
1632 in the same workspace.
1634 * clfswm-pager.lisp (generic-pager-move-window-on-previous-line)
1635 (generic-pager-move-window-on-next-line): Remove the copy
1637 (generic-pager-move-group-on-next-workspace)
1638 (generic-pager-move-group-on-previous-workspace): Prevent the copy
1639 of the same window in the same workspace.
1641 * bindings-pager.lisp (mouse-pager-copy-selected-window-release)
1642 (mouse-pager-copy-selected-group-release): Prevent the copy of the
1643 same window in the same workspace.
1645 * tools.lisp (setf/=): new macro to set a variable only when
1648 * clfswm-internal.lisp (adapt-window-to-group): use set/= to set
1649 x, y... only when necessary.
1651 2007-12-28 Philippe Brochard <pbrochard@common-lisp.net>
1653 * clfswm.lisp (handle-configure-notify, *configure-notify-hook*):
1654 new function and hook: force windows to stay in its group (solve a
1657 2007-12-25 Philippe Brochard <pbrochard@common-lisp.net>
1659 * bindings-second-mode.lisp (mouse-motion): use hide-group to have
1660 less flickering when moving/resizing groups.
1662 * clfswm-internal.lisp (hide-group): new function.
1663 (show-all-group): clear-all: new parameter.
1665 2007-12-22 Philippe Brochard <pbrochard@common-lisp.net>
1667 * clfswm-keys.lisp (define-define-key): undefine-*-multi-name: new
1669 * clfswm*: Color change for the pager. Typo or better description
1670 in bindings definitions. Define bindings for a qwerty keyboard by
1671 default. dot-clfswmrc show examples to switch to an azerty
1673 License change to GPL v3.
1674 * config.lisp: new file - group all globals variables in this
1677 2007-08-26 Philippe Brochard <pbrochard@common-lisp.net>
1679 * xlib-util.lisp (hide-window): Remove structure-notivy events
1680 when hidding a window.
1682 2007-05-16 Philippe Brochard <pbrochard@common-lisp.net>
1684 * package.lisp (*sm-property-notify-hook*): Readded
1685 property-notify-hook in second mode.
1687 2007-05-15 Philippe Brochard <pbrochard@common-lisp.net>
1689 * clfswm-keys.lisp (produce-doc-html): Better clean up for strings.
1691 2007-05-13 Philippe Brochard <pbrochard@common-lisp.net>
1693 * clfswm-pack.lisp (tile-current-workspace-to/right/left/top/bottom):
1694 Tile the current workspace with the current window on one side and
1695 others on the other (this emulate the larswm, dwm, wmii way). See
1696 the default configuration file to enable this mode by default.
1698 * clfswm-pager.lisp (pager-tile-current-workspace-to): idem for
1701 2007-05-12 Philippe Brochard <pbrochard@common-lisp.net>
1703 * clfswm-pager.lisp (pager-draw-window-in-group): Add
1704 ensure-printable to print windows name even with non-ascii
1707 2007-05-11 Philippe Brochard <pbrochard@common-lisp.net>
1709 * clfswm-pager.lisp (pager-explode-current-group): Create a new
1710 group for each window in group.
1711 (pager-implode-current-group): Move all windows in workspace to
1712 one group and remove other groups.
1714 * clfswm-pack.lisp (explode-group): Create a new group for each
1716 (implode-group): Move all windows in workspace to one group and
1717 remove other groups.
1719 * clfswm-util.lisp (identify-key): Remove local configuration
1720 variables and made them available for configuration from
1722 (query-string): idem.
1724 2007-04-29 Philippe Brochard <pbrochard@common-lisp.net>
1726 * netwm-util.lisp: Start of NetWM compliance.
1727 Add a Netwm client list gestion.
1729 2007-04-28 Philippe Brochard <pbrochard@common-lisp.net>
1731 * clfswm-internal.lisp (create-group-on-request): open a new group
1732 only when the current group is not empty.
1734 * bindings-second-mode.lisp (define-second-key-#\o-control): Fix a
1735 bug with null workspace.
1737 * clfswm-pager.lisp (pager-handle-event): Add a hook
1738 system. This hooks can be changed in the user configuration file.
1740 * package.lisp: All colors and font variables are set in
1741 package.lisp and can be configured in the user configuration
1743 Note: If you have configured some less ugly colors (esp. for the
1744 pager) don't hesitate to let me know :)
1746 * clfswm-second-mode.lisp (sm-handle-event): Add a hook
1747 system. This hooks can be changed in the user configuration file.
1749 * clfswm.lisp (handle-event): Add a hook system. This hooks can be
1750 changed in the user configuration file (~/.clfswmrc)
1752 2007-04-25 Philippe Brochard <pbrochard@common-lisp.net>
1754 * clfswm-util.lisp (stop-all-pending-actions): new function: reset
1755 arrow action, open next window in new workspace/group.
1757 * bindings.lisp (stop-all-pending-actions): new binding.
1758 (open-next-window-in-new-group-once): Open the next windows in a
1759 new group (only once) or open all new windows in a new group (like
1760 others windows managers).
1762 2007-04-22 Philippe Brochard <pbrochard@common-lisp.net>
1764 * clfswm.lisp (read-conf-file): New function to read a lisp
1765 configuration file at startup.
1766 (focus-group-under-mouse): Check if group isn't the current group
1767 ( prevent a bug with unclutter ).
1769 2007-03-02 Philippe Brochard <pbrochard@common-lisp.net>
1771 * bindings.lisp (run-program-from-query-string): A program can be
1772 launch from a input query window.
1774 2007-03-01 Philippe Brochard <pbrochard@common-lisp.net>
1776 * clfswm-info.lisp: Fix a bug with banish pointer in info mode.
1778 2007-02-28 Philippe Brochard <pbrochard@common-lisp.net>
1780 * clfswm.lisp (process-new-window): One can now open the next
1781 window in a workspace called by its number.
1783 * clfswm-util.lisp (query-font-string): Minimal editing
1785 (eval-from-string): And an REPL in the window manager... :)
1787 2007-02-26 Philippe Brochard <pbrochard@common-lisp.net>
1789 * clfswm.lisp (process-new-window): One can now open the next
1790 window in a new workspace or a new group.
1792 * clfswm-pager.lisp (pager-mode): Display the next arrow action
1793 with the hidden windows.
1795 * clfswm.lisp (second-key-mode): Display the current workspace
1796 number and the next arrow action in the state window.
1798 * clfswm-pager.lisp (pager-mode): Hide all windows before leaving
1799 the pager mode and then redisplay only the current workspace.
1801 2007-02-25 Philippe Brochard <pbrochard@common-lisp.net>
1803 * clfswm.lisp (add-workspace): Workspaces are now numbered. So
1804 they can be focused with a keypress, sorted or renumbered.
1806 2007-02-24 Philippe Brochard <pbrochard@common-lisp.net>
1808 * clfswm-pager.lisp (pager-mode): Remove multiple silly
1809 pager-draw-display. This prevent a lot of flickering in the
1812 * clfswm.lisp: Remove all display-force-output and replace them
1813 with only one display-finish-output in the event loop.
1815 2006-11-06 Philippe Brochard <pbrochard@common-lisp.net>
1817 * clfswm-pager.lisp (pager-center-group): New function - center a
1818 group at the middle of the screen.
1820 * clfswm-pack.lisp (center-group): New function - center a group
1821 at the middle of the screen.
1823 * clfswm.lisp (show-group): Add a cross line under the group.
1824 (show-group): Group are showned even if fullscreened.
1825 (init-display): Add an exposure event on the root window.
1827 2006-11-05 Philippe Brochard <pbrochard@common-lisp.net>
1829 * package.lisp (*default-group*): Default group is the same size
1830 of a fullscreened group.
1832 * bindings*: Use shift to move, control+shift to copy.
1834 * *.lisp: Add comments for configuration or alternatives. So grep
1835 for CONFIG to see where you can configure clfswm. And grep for
1836 Alternative to use some commented code.
1838 * clfswm.lisp (second-key-mode): Use a single window to show the
1839 second mode. See for alternatives at the end of this file.
1841 2006-11-03 Philippe Brochard <pbrochard@common-lisp.net>
1843 * clfswm-keys.lisp (define-define-key/mouse): Factorisation in a
1844 macro of key and mouse definitions.
1845 (define-define-key/mouse): Use state instead of modifiers list
1846 this fix a bug when the modifiers list is not in the rigth order.
1848 * clfswm.lisp (second-key-mode): Add a colored border in second mode.
1850 2006-11-02 Philippe Brochard <pbrochard@common-lisp.net>
1852 * clfswm-info.lisp (info-mode): Add an info mode.
1854 2006-11-01 Philippe Brochard <pbrochard@common-lisp.net>
1856 * clfswm.lisp (process-new-window): Change border size for
1858 (show-all-windows-in-workspace): Unhide all windows even when the
1859 current group is in fullscreen mode.
1861 2006-10-26 Philippe Brochard <pbrochard@common-lisp.net>
1863 * clfswm-util.lisp (identify-key): Add an exposure handle-event to
1864 redisplay the identify window after a terminal switch.
1866 * clfswm-pager.lisp (pager-mode): Add an exposure handle-event to
1867 redisplay the pager after a terminal switch.
1869 2006-10-24 Philippe Brochard <pbrochard@common-lisp.net>
1871 * clfswm-util.lisp (identify-key): Add a window to display
1872 the keys to identify on screen.
1874 * bindings.lisp, bindings-pager.lisp: Define same keys to
1875 move/copy groups/windows in second mode and in pager.
1877 * clfswm.lisp (handle-event*): Same version in all clfswm (fix some
1879 (show-all-windows-in-workspace): unhide window before adapting it
1882 2006-10-23 Philippe Brochard <pbrochard@common-lisp.net>
1884 * clfswm.lisp (handle-event): Revert to an older version.
1886 2006-10-18 Philippe Brochard <pbrochard@common-lisp.net>
1888 * clfswm-util.lisp (force-window-in-group)
1889 (force-window-center-in-group): New functions for transient windows.
1891 * clfswm-pager.lisp (pager-remove-current-workspace/group):
1892 bugfix: hide all windows before removing group or workspace.
1894 2006-10-17 Philippe Brochard <pbrochard@common-lisp.net>
1896 * bindings-pager.lisp (mouse-pager-move-selected-group)
1897 (mouse-pager-copy-selected-group)
1898 (mouse-pager-move-selected-window)
1899 (mouse-pager-copy-selected-window, mouse-pager-rotate-window-up)
1900 (mouse-pager-rotate-window-down): New functions to have mouse in
1903 * clfswm-pager.lisp (pager-swap-window)
1904 (pager-copy-group-on-next/previous-workspace)
1905 (pager-copy-window-on-next/previous-line): New functions
1907 2006-10-15 Philippe Brochard <pbrochard@common-lisp.net>
1909 * clfswm-pager.lisp (pager-move-window-on-next/previous-line,
1910 (pager-move-group-on-next/previous-workspace): new functions.
1912 * clfswm-pack.lisp (resize-half-x-x-current-group): resize group
1913 to its half size (new functions).
1915 2006-10-11 Philippe Brochard <pbrochard@common-lisp.net>
1917 * clfswm-pager.lisp: workspaces, groups and windows can now be
1918 selectionned with the keyboard or the mouse.
1920 2006-10-09 Philippe Brochard <pbrochard@common-lisp.net>
1922 * clfswm-pager.lisp (pager-select-workspace-right/left):
1923 workspaces can now be selectionned with the keyboard.
1925 2006-10-08 Philippe Brochard <pbrochard@common-lisp.net>
1927 * clfswm-keys.lisp (undefine-main-key, undefine-second-key, undefine-mouse-action):
1928 new function to remove a previous defined key or mouse combination.
1930 2006-10-07 Philippe Brochard <pbrochard@common-lisp.net>
1932 * clfswm.lisp (main): Check for access error in init-display.
1934 * clfswm-keys.lisp (define-ungrab/grab): check for keysym and
1935 keycode before grabbing.
1937 * bindings.lisp: Remove nlambda and use defun to keep the function
1938 documentation with clisp.
1939 (define-shell): new macro to define shell command for the second
1942 2006-10-06 Philippe Brochard <pbrochard@common-lisp.net>
1944 * clfswm-keys.lisp (define-ungrab/grab): use a cond instead of a
1947 2006-10-05 Philippe Brochard <pbrochard@common-lisp.net>
1949 * bindings.lisp (accept-motion): Move group bugfix in upper mouse
1950 workspace circulation.
1952 * clfswm-util.lisp (absorb-orphan-window): new function.
1954 * clfswm-keys.lisp: Keysyms support.
1956 2006-10-02 Philippe Brochard <pbrochard@common-lisp.net>
1958 * clfswm.lisp (show-group): Use one gc for all groups and not one
1961 2006-10-01 Philippe Brochard <pbrochard@common-lisp.net>
1963 * bindings.lisp (define-second-key (#\l :mod-1)): fix a typo.
1965 * clfswm.lisp (adapt-window-to-group): Adapt only windows with
1966 width and height outside group.
1968 2006-09-28 Philippe Brochard <pbrochard@common-lisp.net>
1970 * clfswm.lisp: First public release.