1 2012-06-08 Philippe Brochard <pbrochard@common-lisp.net>
3 * src/tools.lisp (process-timers): Call get-internal-real-time
4 only once for all times.
6 2012-06-07 Philippe Brochard <pbrochard@common-lisp.net>
8 * contrib/toolbar.lisp (define-toolbar-hooks): Add auto-hide
10 (define-toolbar-hooks): Add auto-hide toolbar (show/hide on mouse
13 2012-06-06 Philippe Brochard <pbrochard@common-lisp.net>
15 * src/xlib-util.lisp (handle-event): Add an additional hook event
16 system to handle events in contrib code.
18 2012-06-03 Philippe Brochard <pbrochard@common-lisp.net>
20 * src/clfswm-placement.lisp: Add an optional border size in all
23 2012-05-30 Philippe Brochard <pbrochard@common-lisp.net>
25 * contrib/toolbar.lisp (clock): Add a clock module.
27 2012-05-28 Philippe Brochard <pbrochard@common-lisp.net>
29 * contrib/toolbar.lisp: begining of toolbar support.
31 2012-05-24 Philippe Brochard <pbrochard@common-lisp.net>
33 * src/clfswm-internal.lisp (rotate-root-geometry): Do not use
34 rotatef but a simpler algorithm.
36 2012-05-19 Philippe Brochard <pbrochard@common-lisp.net>
38 * src/clfswm-placement.lisp: Adjust width and height in child and
39 root placement to prevent too big child size.
41 2012-05-18 Philippe Brochard <pbrochard@common-lisp.net>
43 * src/clfswm-placement.lisp: New root placement possibility.
45 * src/clfswm-util.lisp (change-current-root-geometry): New
48 2012-05-17 Philippe Brochard <pbrochard@common-lisp.net>
50 * src/clfswm-util.lisp (exchange-root-geometry-with-mouse): New
53 2012-05-16 Philippe Brochard <pbrochard@common-lisp.net>
55 * src/menu-def.lisp: New root menu.
57 2012-05-15 Philippe Brochard <pbrochard@common-lisp.net>
59 * src/clfswm-circulate-mode.lisp (rotate-root-geometry-next)
60 (rotate-root-geometry-previous): New second mode binding to change
63 2012-05-13 Philippe Brochard <pbrochard@common-lisp.net>
65 * src/clfswm-internal.lisp: Remove the *current-child* variable
66 and use a setfable function (current-child) instead.
67 (current-child-setter): Store root current child before apllying
70 2012-05-09 Philippe Brochard <pbrochard@common-lisp.net>
72 * src/clfswm-internal.lisp: Use xdpyinfo/xinerama informations
73 instead of xrandr informations.
75 2012-05-06 Philippe Brochard <pbrochard@common-lisp.net>
77 * src/clfswm-internal.lisp : Use only one list for root
79 (*root*): Root management API simplification.
81 2012-04-30 Philippe Brochard <pbrochard@common-lisp.net>
83 * src/clfswm-internal.lisp: Big change to replace *current-root*
84 variable to support multiple root.
86 2012-04-18 Philippe Brochard <pbrochard@common-lisp.net>
88 * src/tools.lisp (add-new-hook, add-hook): New macro. Do not
89 duplicate hooks by default. Use add-new-hook if you want to
92 2012-04-16 Philippe Brochard <pbrochard@common-lisp.net>
94 * src/clfswm-corner.lisp (wait-window-in-query-tree): Add a limit
95 of try to wait the command window.
97 2012-02-25 Philippe Brochard <pbrochard@common-lisp.net>
99 * src/clfswm-util.lisp (place-frames-from-xrandr)
100 (swap-frame-geometry, rotate-frame-geometry): New helper functions
101 for multiple physical screen.
102 (jump-to-slot, add-frame-in-parent-frame): Change *current-root*
105 2012-01-18 Philippe Brochard <pbrochard@common-lisp.net>
107 * src/*.lisp: Use create-symbol and create-symbol-in-package
108 instead of the shorter symb. (Thanks Aad Versteden).
110 * src/bindings-second-mode.lisp (set-default-second-keys): New
111 key binding to set window and frame transparency.
113 * src/bindings.lisp (set-default-main-mouse): New mouse binding to
114 set window and frame transparency.
116 * src/clfswm-keys.lisp (define-keys): New macro to ease multiple
117 keys definitions. (Thanks Valentin Plechinger for the request).
119 * src/*.lisp: Add full transparency support with xcompmgr.
121 2012-01-14 Philippe Brochard <pbrochard@common-lisp.net>
123 * src/*.lisp: Add transparency support.
125 2012-01-09 Ales Guzik <ales.guzik@gmail.com>
127 * src/clfswm-layout.lisp (tile-layout-mix): New layout to
128 automatically choose between vertival and horizontal tile layout.
129 (tile-space-layout): Fix to have space between screen border and
130 frame the same as between frames.
132 2012-01-04 Philippe Brochard <pbrochard@common-lisp.net>
134 * load.lisp: Support clisp 2.49+ module system to load CLX.
136 2012-01-04 Ales Guzik <ales.guzik@gmail.com>
138 * src/clfswm-layout.lisp (update-layout-managed-children-keep-position):
139 Fix an inattention error.
141 2012-01-04 Philippe Brochard <pbrochard@common-lisp.net>
143 * src/xlib-util.lisp (with-xlib-protect): Protect from
144 xlib:lookup-error. This prevent an error in clisp/new-clx when
145 sometimes an xlib:colormap is expected instead of an xlib:window.
147 2012-01-03 Philippe Brochard <pbrochard@common-lisp.net>
149 * src/xlib-util.lisp (handle-event): Fix a clisp/new-clx error
150 when sometimes window slot of event-slots is a pixmap instead of a
153 2011-12-26 Philippe Brochard <pbrochard@common-lisp.net>
155 * src/clfswm-query.lisp: Fill the history list with a non-nil
158 2011-12-25 Philippe Brochard <pbrochard@common-lisp.net>
160 * src/package.lisp (make-x-drawable): Drawable wrapper to prevent
161 type error in some CLX versions.
162 Replace xlib:drawable-* functions with x-drawable-* equivalents
164 2011-12-14 Philippe Brochard <pbrochard@common-lisp.net>
166 * src/clfswm-util.lisp (um-create-xdg-section-list): Add at least
167 the 'Utility menu entry.
169 * src/config.lisp (*xdg-section-list*): moved to config.lisp.
171 * src/clfswm-util.lisp (update-menus): Set a default value for
172 searching .desktop files when XDG_DATA_DIRS is not set.
174 2011-10-15 Philippe Brochard <pbrochard@common-lisp.net>
176 * src/clfswm-internal.lisp (place-window-from-hints): Use
177 with-placement macro to place unmanaged windows in an arbitrary
180 2011-06-16 Philippe Brochard <pbrochard@common-lisp.net>
182 * src/clfswm-internal.lisp (clean-windows-in-all-frames): Prevent
183 current root and current child being equal to child.
185 2011-06-13 Philippe Brochard <pbrochard@common-lisp.net>
187 * src/keysyms.lisp: Repeat Page_Down/Up keysym definitions at the
188 end of the file to change keysyms priority.
190 2011-06-13 Sylvain HENRY <hsyl20@gmail.com>
192 * *.*: Minor spelling fix.
194 2011-06-12 Philippe Brochard <pbrochard@common-lisp.net>
196 * src/clfswm.lisp (:unmap-notify, :destroy-notify): Show all
197 children just after the xlib tree cleanup -> reduce the
198 flickering when a window is deleted or destroyed.
200 * src/clfswm-internal.lisp (process-existing-windows): Do not
201 process the notify window.
203 2011-06-08 Philippe Brochard <pbrochard@common-lisp.net>
205 * *: **** Release 1106 ****
207 2011-06-08 Philippe Brochard <pbrochard@common-lisp.net>
209 * src/clfswm-internal.lisp (clean-windows-in-all-frames): New
210 function to prevent xlib error when a window is deleted.
212 2011-06-08 Philippe Brochard <pbrochard@common-lisp.net>
214 * src/clfswm-internal.lisp
215 (delete-child-and-children-in-all-frames): Delete or destroy
216 children before displaying all children.
218 2011-06-05 Philippe Brochard <pbrochard@common-lisp.net>
220 * src/clfswm-util.lisp (add-frame-in-parent-frame): New function
223 2011-06-04 Philippe Brochard <pbrochard@common-lisp.net>
225 * src/clfswm.lisp (main-unprotected): Destroy all frames windows
226 before closing the display (not really needed).
228 2011-06-02 Philippe Brochard <pbrochard@common-lisp.net>
230 * src/clfswm-layout.lisp (inc-tile-layout-size)
231 (dec-tile-layout-size, inc-slow-tile-layout-size)
232 (dec-slow-tile-layout-size): New functions and bindings.
234 2011-06-01 Philippe Brochard <pbrochard@common-lisp.net>
236 * src/clfswm-expose-mode.lisp (define-expose-letter-keys): Add
237 0..1 and A..Z keys to select a child in exposé mode.
239 * src/clfswm-internal.lisp (display-frame-info): Remove hidden
240 infos in frames windows.
242 * src/clfswm-util.lisp (ask-close/kill-current-window): Menu
245 2011-05-30 Philippe Brochard <pbrochard@common-lisp.net>
247 * src/clfswm-internal.lisp (get-parent-layout): Minor fullscreen
250 2011-05-29 Philippe Brochard <pbrochard@common-lisp.net>
252 * src/clfswm-internal.lisp
253 (delete-child-and-children-in-all-frames): Show all children
254 before deleting/destroying a windows, so prevent a flickering.
255 (get-parent-layout): Return the fullscreen size when the current
258 2011-05-28 Philippe Brochard <pbrochard@common-lisp.net>
260 * src/clfswm-internal.lisp (get-parent-layout): Handle correctly
263 * src/clfswm-util.lisp (delete-focus-window-generic): Do not hide
264 child before removing, so prevent a flickering.
266 * src/clfswm-internal.lisp (show-all-children): Rectangular
267 optimization to display only needed children.
268 (show-all-children): Remove flickering on
269 select-next/previous-brother.
271 2011-05-17 Philippe Brochard <pbrochard@common-lisp.net>
273 * src/clfswm-util.lisp (copy-focus-window, cut-focus-window): New
274 functions and ask-close/kill-current-window menu and bindings
277 2011-05-16 Philippe Brochard <pbrochard@common-lisp.net>
279 * src/clfswm-util.lisp (ask-close/kill-current-window): Add an
280 *ask-close/kill-placement* placement window variable.
282 2011-05-09 Philippe Brochard <pbrochard@common-lisp.net>
284 * contrib/osd.lisp (funcall-button-from-code): Display osd
285 documention for buttons and fix some redefining warnings.
287 2011-05-07 Philippe Brochard <pbrochard@common-lisp.net>
289 * src/clfswm-nw-hooks.lisp (make-permanent-nw-hook-frame): New
290 function. Prevent to add or delete a new window hook for this
293 * src/clfswm-layout.lisp (update-layout-managed-children-position):
296 2011-05-06 Philippe Brochard <pbrochard@common-lisp.net>
298 * src/bindings-second-mode.lisp (set-default-second-keys):
299 select-brother-spatial-move-* binding update.
301 * src/clfswm-layout.lisp (tile-left|right|top|bottom-layout): Ask
302 to keep children positions or not.
304 * src/clfswm-internal.lisp (fixe-real-size): Takes care of border
307 * src/clfswm-layout.lisp (update-layout-managed-children): Fix a
308 bug by using the parent frame instead of the current child.
310 * src/clfswm-circulate-mode.lisp
311 (select-brother-generic-spatial-move+right/left/up/down): New
312 function to select a brother from another in a spatial move.
314 2011-04-19 Philippe Brochard <pbrochard@common-lisp.net>
316 * src/clfswm-pack.lisp (move-frame-constrained)
317 (resize-frame-constrained): Use pixels instead of floating
320 2011-04-18 Philippe Brochard <pbrochard@common-lisp.net>
322 * src/clfswm-pack.lisp (resize-frame-constrained): Takes care of
324 (implode-frame, implode-current-frame): New functions. Absorb all
325 frames subchildren in frame. Explode frame opposite.
327 2011-04-17 Philippe Brochard <pbrochard@common-lisp.net>
329 * src/clfswm-pack.lisp (move-frame-constrained)
330 (resize-frame-constrained): New function. Move and resize frame
331 with the mouse constrained by other frame brothers.
333 2011-04-14 Philippe Brochard <pbrochard@common-lisp.net>
335 * src/clfswm-util.lisp (with-movement-select-next-brother)
336 (with-movement-select-previous-brother)
337 (with-movement-select-next-child): Use a simple method (do not
338 enter in the circulate mode) to allow to circulate in all children
341 * src/clfswm-menu.lisp (open-menu): Save info hash table keys
342 instead of deleting newly created keys.
344 2011-03-21 Philippe Brochard <pbrochard@common-lisp.net>
346 * src/clfswm-internal.lisp (x-px->fl, y-px->fl): Takes care of
349 2011-03-20 Philippe Brochard <pbrochard@common-lisp.net>
351 * src/clfswm-info.lisp (show-config-variable): call
352 produce-conf-var-doc.
354 2011-03-18 Philippe Brochard <pbrochard@common-lisp.net>
356 * src/clfswm-autodoc.lisp (produce-conf-var-doc-html): Produce a
357 documentation for all configurable variables in CLFSWM -
360 * src/clfswm-internal.lisp (leave-frame): Hide all children except
363 2011-03-16 Philippe Brochard <pbrochard@common-lisp.net>
365 * src/clfswm-autodoc.lisp (produce-all-docs): Produce a
366 documentation for all configurable variables in CLFSWM.
368 * src/clfswm-layout.lisp (set-gimp-layout): Display a notify
369 window with the help on the GIMP layout.
371 2011-03-12 Philippe Brochard <pbrochard@common-lisp.net>
373 * src/menu-def.lisp: Menu update to prevent cursor keys clash.
375 * clfswm.asd: Change compilation order to prevent undefined
378 * src/clfswm-internal.lisp (show-child(frame)): Handle properly
379 the show-root-frame-p parameter.
381 2011-03-11 Philippe Brochard <pbrochard@common-lisp.net>
383 * src/clfswm-util.lisp (move-frame, resize-frame): Do not move or
384 resize a frame when it's the current root.
386 2011-03-10 Philippe Brochard <pbrochard@common-lisp.net>
388 * src/clfswm-internal.lisp (show-all-children): Handle properly
389 duplicated child in multipe frames.
391 2011-03-09 Philippe Brochard <pbrochard@common-lisp.net>
393 * contrib/volume-mode.lisp (set-default-volume-keys): Add more
394 keybindings (up/down, right/left) to raise/lower the volume.
396 * src/clfswm-layout.lisp: Add a variable border size for frames
399 2011-03-08 Philippe Brochard <pbrochard@common-lisp.net>
401 * src/clfswm-util.lisp (cut-current-child, remove-current-child)
402 (delete-current-child): Hide the current child before doing the
405 * src/clfswm-internal.lisp (show-all-children): Hide windows not
406 in the current root before displaying those in current root.
407 Remove all hide-all unnecessary calls.
409 * src/clfswm-configuration.lisp (save-variables-in-conf-file):
410 Save only variables with a different value than their original
413 2011-03-07 Philippe Brochard <pbrochard@common-lisp.net>
415 * src/clfswm-info.lisp (show-config-variable): Use the new
418 * src/clfswm-autodoc.lisp (produce-configuration-variables): Use
419 the new defconfig method.
421 * src/clfswm-configuration.lisp (create-configuration-menu):
422 Change the config system with a more lispy one and a less string
423 based one: (defconfig name value group doc).
426 2011-03-06 Philippe Brochard <pbrochard@common-lisp.net>
428 * src/clfswm-internal.lisp (show-all-children): Simplify the
430 (show-child): Display an unmanaged window whe it's the current
432 (show-all-children): add the ability to display all child from
433 *root-frame* and hide all those who are not in *current-root*.
434 -> remove hide-all-children when needed.
436 * src/xlib-util.lisp (move-window,resize-window): Add a
437 *color-move-window* border when moving or resizing a window.
439 2011-03-04 Philippe Brochard <pbrochard@common-lisp.net>
441 * src/clfswm-internal.lisp (show-all-children): Perform only one
442 recusion on the clfswm tree: calculate geometry and place child in
445 2011-03-03 Philippe Brochard <pbrochard@common-lisp.net>
447 * src/clfswm-internal.lisp (show-all-children): Rethink of display
448 child order to prevent very annoying flickering.
450 2011-02-27 Philippe Brochard <pbrochard@common-lisp.net>
452 * src/clfswm-util.lisp (query-yes-or-no): New function.
454 * src/clfswm-configuration.lisp (reset-all-config-variables): New
455 function and menu entry.
456 (query-conf-value): Add the ability to leave the field blank to
457 reset the variable to its default value.
459 2011-02-26 Philippe Brochard <pbrochard@common-lisp.net>
461 * src/clfswm-configuration.lisp
462 (add-all-configuration-default-value): Add a default value to
463 configurable variables.
465 2011-02-23 Philippe Brochard <pbrochard@common-lisp.net>
467 * src/clfswm.lisp (main-unprotected): Create the configuration
468 menu only once at startup.
470 2011-02-22 Desmond O. Chang <dochang@gmail.com>
472 * contrib/amixer.lisp: Add a volume mode inspired by the emms
473 volume package. Alsa mixer interface.
475 * contrib/volume-mode.lisp: Add a volume mode inspired by the emms
478 2011-02-22 Desmond O. Chang <dochang@gmail.com>
480 * src/clfswm.lisp (main): Use ASDF:SYSTEM-SOURCE-DIRECTORY instead
481 of *LOAD-TRUENAME*. *LOAD-TRUENAME* is only bound during a call to
482 LOAD. If one eval CLFSWM:MAIN in repl, BASE-DIR will be an empty
483 string. Use ASDF:SYSTEM-SOURCE-DIRECTORY to fix it.
485 2011-02-16 Philippe Brochard <pbrochard@common-lisp.net>
487 * src/clfswm.lisp (main-unprotected): Add a close hook. And close
488 the notify window, the virtual keyboard and the clfswm terminal by
491 2011-02-15 Philippe Brochard <pbrochard@common-lisp.net>
493 * src/clfswm.lisp (main-unprotected): Destroy the notify window
494 before closing the display. This fix a bug when resetting/reloading
497 2011-02-12 Philippe Brochard <pbrochard@common-lisp.net>
499 * src/xlib-util.lisp (equal-wm-class-fun, equal-wm-name-fun)
500 (raise-window-fun, raise-and-focus-window-fun): New functions.
502 * src/config.lisp (*clfswm-terminal-cmd*): Switch from xterm to
504 (*never-managed-window-list*): Structure change to be more
505 flexible. Let the choice to focus, raise and do nothing on never
508 2011-02-09 Philippe Brochard <pbrochard@common-lisp.net>
510 * src/clfswm-util.lisp (mouse-focus-move/resize-generic): Take
511 care of never managed windows to move or resize them if the raise
514 * src/clfswm-internal.lisp (in-frame, in-window, in-child): New
517 2011-02-08 Philippe Brochard <pbrochard@common-lisp.net>
519 * src/clfswm.lisp (main-mode): Raise or not unmanaged windows
520 following request in *never-managed-window-list*.
522 2011-02-05 Philippe Brochard <pbrochard@common-lisp.net>
524 * *: **** Release 1102 ****
526 2011-02-05 Desmond O. Chang <dochang@gmail.com>
528 * src/keysyms.lisp: Add extended keysyms from stumpwm.
530 2011-02-01 Desmond O. Chang <dochang@gmail.com>
532 * src/clfswm-util.lisp (run-or-raise): New function (thanks to
535 * src/clfswm-internal.lisp (with-all-*): add a nil block.
537 2011-01-28 Desmond O. Chang <dochang@gmail.com>
539 * src/clfswm-util.lisp (xdg-config-home): XDG_CONFIG_HOME should
540 be $HOME/.config by default.
542 2010-12-29 Philippe Brochard <pbrochard@common-lisp.net>
544 * contrib/osd.lisp (display-doc): Add another method where a
545 CLFSWM native window is used to display the key documentation.
547 2010-12-27 Philippe Brochard <pbrochard@common-lisp.net>
549 * src/xlib-util.lisp (with-xlib-protect): Force to revert to the
552 2010-12-25 Philippe Brochard <pbrochard@common-lisp.net>
554 * src/clfswm-second-mode.lisp (second-key-mode): Call the second
555 mode leave function only when the generic mode was ended.
557 2010-12-08 Philippe Brochard <pbrochard@common-lisp.net>
559 * src/clfswm-second-mode.lisp (sm-leave-function): Do not use
560 *second-mode-program* anymore.
562 2010-12-07 Philippe Brochard <pbrochard@common-lisp.net>
564 * src/clfswm-second-mode.lisp (*second-mode-leave-function*): New
565 variable bound to a function executed (when not null) on second
568 2010-11-14 Philippe Brochard <pbrochard@common-lisp.net>
570 * src/clfswm-util.lisp (find-child-under-mouse): Do not find
573 2010-11-13 Philippe Brochard <pbrochard@common-lisp.net>
575 * src/clfswm-expose-mode.lisp (expose-mode-display-accel-windows):
576 Do not display the accel window for unmanaged windows.
578 2010-11-11 Philippe Brochard <pbrochard@common-lisp.net>
580 * src/clfswm-internal.lisp (set-current-root): Handle
581 window-parent in set-current-root.
583 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Do not
584 focus the parent child when the current root is a window.
586 2010-11-09 Philippe Brochard <pbrochard@common-lisp.net>
588 * src/clfswm-expose-mode.lisp (expose-windows-current-child-mode):
589 New function an bindings.
591 * src/clfswm-layout.lisp (tile-layout, set-tile-layout): Fill
594 2010-11-07 Philippe Brochard <pbrochard@common-lisp.net>
596 * src/clfswm-layout.lisp (tile-layout-ask-keep-position): New
597 function to let the user choose to keep child position with
600 * src/clfswm-internal.lisp (remove-frame-data-slot): New
603 2010-11-05 Philippe Brochard <pbrochard@common-lisp.net>
605 * src/clfswm-internal.lisp (frame-select-next-child)
606 (frame-select-previous-child): New functions and bindings. Select
607 the next/previous child in the current frame.
609 2010-10-31 Philippe Brochard <pbrochard@common-lisp.net>
611 * src/clfswm-query.lisp (query-mode-complet): New function: Handle
612 completion in query-mode.
614 2010-10-30 Philippe Brochard <pbrochard@common-lisp.net>
616 * src/clfswm-query.lisp (query-print-string): Handle long lines
619 2010-10-27 Philippe Brochard <pbrochard@common-lisp.net>
621 * src/clfswm-expose-mode.lisp (expose-create-window): Ensure that
622 all characters are printable.
624 2010-10-25 Philippe Brochard <pbrochard@common-lisp.net>
626 * contrib/server/server.lisp: Load clfswm client code in the main
627 program and let the user start it with a --client command line
630 * src/package.lisp (*main-entrance-hook*): New hook executed after
631 loading configuration file and before opening the display.
633 2010-10-23 Philippe Brochard <pbrochard@common-lisp.net>
635 * src/xlib-util.lisp: Remove unnecessary xlib:display-finish-output.
637 * src/clfswm-internal.lisp (show-child): Show window only if not
640 * src/clfswm-keys.lisp (binding-substitute-modifier): Utility to
641 change modifiers after binding definition.
643 2010-10-21 Philippe Brochard <pbrochard@common-lisp.net>
645 * contrib/osd.lisp: New file: OSD (On Screen Display) for
648 * src/clfswm-menu.lisp (open-menu): Modularise function.
650 2010-10-13 Philippe Brochard <pbrochard@common-lisp.net>
652 * src/clfswm-info.lisp (show-first-aid-kit): Display the essential
653 key binding in main and second mode.
655 2010-10-10 Philippe Brochard <pbrochard@common-lisp.net>
657 * src/clfswm-util.lisp (open-notify-window): Convert hello-window
658 functions to a more generic Notify-window system.
660 * src/tools.lisp (add-timer): Add an id to identify the timer.
662 2010-10-09 Philippe Brochard <pbrochard@common-lisp.net>
664 * src/tools.lisp (erase-timer): New function.
666 * src/clfswm-util.lisp (display-hello-window): Add a timer to hide
667 the hello window. Add Configuration variables.
669 2010-10-08 Philippe Brochard <pbrochard@common-lisp.net>
671 * src/clfswm-util.lisp (): Add an Hello window at startup.
673 * src/tools.lisp (process-timers): Add a timer system.
675 2010-10-07 Philippe Brochard <pbrochard@common-lisp.net>
677 * src/clfswm-query.lisp (add-in-query-string): Handle correctly
680 2010-10-06 Philippe Brochard <pbrochard@common-lisp.net>
682 * src/clfswm-query.lisp (query-print-string): Change cursor color
683 and show parenthesis matching with colors (on match and on
686 2010-10-05 Philippe Brochard <pbrochard@common-lisp.net>
688 * src/clfswm-internal.lisp (show-all-children): Do not raise a
689 child when its parent is hidden.
691 2010-10-02 Philippe Brochard <pbrochard@common-lisp.net>
693 * src/clfswm-circulate-mode.lisp (select-next-subchild): Add the
694 possibility to circulate over subchild of the current child.
696 * src/clfswm-expose-mode.lisp (expose-all-windows-mode)
697 (expose-windows-generic): Add an escape-body function to return to
698 the original state on escape key.
700 * src/clfswm-util.lisp (bind-on-slot): Add an optional parameter
701 to bind the current child from the configuration file.
703 2010-10-01 Philippe Brochard <pbrochard@common-lisp.net>
705 * src/clfswm-nw-hooks.lisp (absorb-window-nw-hook): Absorb new
706 window hook: the frame absorb all new windows that match
707 nw-absorb-test frame data slot.
709 2010-09-30 Philippe Brochard <pbrochard@common-lisp.net>
711 * src/clfswm-expose-mode.lisp (expose-create-window): Show window
712 title in accel window.
714 2010-09-29 Philippe Brochard <pbrochard@common-lisp.net>
716 * configure: Use the Xavier Maillard clfswm script in contrib to
717 build an executable in the standard way.
719 2010-09-26 Philippe Brochard <pbrochard@common-lisp.net>
721 * src/clfswm-expose-mode.lisp (expose-mode-display-accel-windows):
722 New functions. Add a window on each child in the expose mode to
725 * src/clfswm-internal.lisp (child-x, child-y, child-width)
726 (child-height): New methods to get real child coordinates.
728 2010-09-25 Philippe Brochard <pbrochard@common-lisp.net>
730 * src/clfswm-layout.lisp (*-layout): Use child-position.
732 * src/clfswm-internal.lisp (child-position): New function.
734 * src/clfswm-expose-mode.lisp (expose-windows-mode)
735 (expose-all-windows-mode): Use a generic mode.
737 * src/xlib-util.lisp (with-handle-event-symbol): Use a filled list
738 with handle-event-fun symbols instead of inspecting clfswm
739 internals symbols on each mode change.
741 * src/clfswm-expose-mode.lisp: Move and rename present*-windows in
742 a separate clfswm-expose-mode.lisp file.
744 * src/clfswm-util.lisp (speed-mouse-right, speed-mouse-down): Use
745 screen size instead of hardcoded test coordinates.
747 2010-09-24 Philippe Brochard <pbrochard@common-lisp.net>
749 * src/clfswm-util.lisp (speed-mouse-reset, speed-mouse-left)
750 (speed-mouse-right, speed-mouse-up, speed-mouse-down)
751 (speed-mouse-undo, speed-mouse-first-history): New functions to
752 quickly move the mouse. Implemented for the second mode.
754 2010-09-16 Philippe Brochard <pbrochard@common-lisp.net>
756 * contrib/clfswm: Move clfswm sources to $tmp_dir if there is no
757 write permission on $clfswm_asd_path. So anybody can start clfswm
758 even if there is no write permission on the source directory.
760 2010-09-12 Philippe Brochard <pbrochard@common-lisp.net>
762 * contrib/clfswm: Add support to cmucl, ccl and ecl.
764 2010-09-11 Philippe Brochard <pbrochard@common-lisp.net>
766 * src/clfswm-util.lisp (set-hide-unmanaged-window)
767 (set-show-unmanaged-window, set-default-hide-unmanaged-window):
768 New functions and menu entry.
769 (set-globally-hide-unmanaged-window)
770 (set-globally-show-unmanaged-window): New functions and menu
773 * src/clfswm-internal.lisp (hide-unmanager-window-p): New
775 (show-child): Add a data slot on frame to hide or not unmanaged
778 * src/clfswm-corner.lisp (present-clfswm-terminal)
779 (present-virtual-keyboard): Use a function (generic-present-body)
780 instead of a macro (generate-present-body).
782 * src/clfswm-util.lisp (update-menus): List all directories and
783 subdirectories in $XDG_DATA_DIRS/applications.
785 2010-09-10 Philippe Brochard <pbrochard@common-lisp.net>
787 * src/clfswm-corner.lisp (generate-present-body): New macro.
788 (present-clfswm-terminal, present-virtual-keyboard): Use
789 generate-present-body.
791 2010-09-09 Philippe Brochard <pbrochard@common-lisp.net>
793 * src/clfswm-util.lisp (update-menus): Follow XDG specifications
794 instead of the non-portable Debian update-menu.
796 2010-09-07 Philippe Brochard <pbrochard@common-lisp.net>
798 * src/clfswm.lisp (error-handler): New function do handle
799 asynchronous errors and ignore them.
800 (open-display): Install the new error-handler on display.
802 2010-09-05 Philippe Brochard <pbrochard@common-lisp.net>
804 * src/xlib-util.lisp (with-xlib-protect): Add a
805 with-simple-restart on top of body execution.
807 2010-09-04 Philippe Brochard <pbrochard@common-lisp.net>
809 * src/clfswm.lisp (main-loop): Protect all xlib functions with an
812 * src/xlib-util.lisp (handle-event): use with-xlib-protect only in
813 handle-event. Add a with-simple-restart to prevent a
814 clisp/new-lisp infinite loop.
816 2010-08-30 Philippe Brochard <pbrochard@common-lisp.net>
818 * src/clfswm-corner.lisp (present-clfswm-terminal): Make the
819 clfswm terminal working even on xterm title changes.
821 2010-08-29 Philippe Brochard <pbrochard@common-lisp.net>
823 * src/clfswm-util.lisp (run-other-window-manager): Update for
826 * src/tools.lisp (do-execute): New parameter io to change the
829 * src/clfswm-util.lisp (hide-current-child): Prevent from removing
832 * src/clfswm-internal.lisp (child-member): New predicate.
833 (child-remove): New function.
835 * src/*.lisp: Use child-member and child-remove everywhere it's
838 2010-08-28 Philippe Brochard <pbrochard@common-lisp.net>
840 * src/clfswm.lisp (main-loop): Ensure that all events have been
841 processed after a process-event.
843 * src/clfswm-internal.lisp (is-in-current-child-p): New function.
845 2010-08-27 Philippe Brochard <pbrochard@common-lisp.net>
847 * src/clfswm.lisp (main-mode:configure-request): Raise the window
848 only when present on the current child and focus it accordingly.
850 2010-08-26 Philippe Brochard <pbrochard@common-lisp.net>
852 * src/clfswm-circulate-mode.lisp (circulate-loop-function):
853 Use is-a-key-pressed-p.
855 * src/xlib-util.lisp (is-a-key-pressed-p): New predicate.
857 * src/clfswm-keys.lisp (define-ungrab/grab): Use all values
858 returned by xlib:keysym->keycodes.
860 * src/*.lisp: Use the new child-equal-p to compare children. This
861 prevent a bug with sbcl/cmucl when the standard equal function
862 does not work with xlib:window.
864 * src/clfswm-internal.lisp (child-equal-p): New predicate.
866 2010-08-25 Philippe Brochard <pbrochard@common-lisp.net>
868 * src/clfswm-generic-mode.lisp (generic-mode): Use an
869 xlib:event-listen before processing event with
870 xlib:process-event. This prevent a bug with CLX threaded
871 implementation like sbcl.
873 * src/clfswm.lisp (main-loop): Use an xlib:event-listen before
874 processing event with xlib:process-event. This prevent a bug with
875 CLX threaded implementation like sbcl.
877 2010-08-17 Philippe Brochard <pbrochard@common-lisp.net>
879 * contrib/server/key.lisp (ushell-sh): Add ccl and ecl support.
881 * src/xlib-util.lisp (compress-motion-notify): Use a loop instead
884 * src/clfswm-internal.lisp (with-find-in-all-frames): New macro.
885 (find-parent-frame, find-frame-window, find-frame-by-name)
886 (find-frame-by-number): Use with-find-in-all-frames to search in
887 frames in the right order.
889 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Fix an
890 unwanted flickering with unmanaged windows.
892 2010-08-16 Philippe Brochard <pbrochard@common-lisp.net>
894 * src/package.lisp: Remove event handler hooks as they're not
895 needed anymore (To replace them: use closure and define-handler).
897 * src/xlib-util.lisp (move-window, resize-window)
898 (wait-mouse-button-release): Use a generic mode.
900 * src/*.lisp: Replace the case to handle event with a more (tricky)
901 lispy method which bind a function to each keywords associated
904 2010-07-23 Philippe Brochard <pbrochard@common-lisp.net>
906 * src/clfswm-util.lisp (delete-current-child): Invert bindings and
907 menu entry between delete-current-child and remove-current-child.
908 ie: Delete a child and its children in all frames by default.
910 2010-07-21 Philippe Brochard <pbrochard@common-lisp.net>
912 * src/package.lisp: Add a placement configuration group.
914 * src/binding*.lisp: Bind control+g to escape the current action
917 * src/clfswm-internal.lisp
918 (delete-child-and-children-in-all-frames): New function and
919 binding: Second mode - Control+Delete delete the current child and
920 its children in all frames (ie: close the current child and its
923 2010-07-20 Philippe Brochard <pbrochard@common-lisp.net>
925 * src/clfswm-internal.lisp (remove-child-in-frame): Do not destroy
926 the frame window and the frame gc. Close a very annoying bug when
927 cuting/pasting a frame or moving a child over frames with the
930 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Redisplay
931 all children in *current-root* after moving/resizing a frame.
933 2010-07-18 Philippe Brochard <pbrochard@common-lisp.net>
935 * src/clfswm-util.lisp (delete-focus-window)
936 (destroy-focus-window): Remove child in parent frame before
939 2010-07-16 Philippe Brochard <pbrochard@common-lisp.net>
941 * src/clfswm-util.lisp (identify-key): Add a timeout in
943 (mouse-click-to-focus-generic): Use find-child-under-mouse instead
944 of the window passed by xlib:process-event.
946 * src/xlib-util.lisp (move-window, resize-window)
947 (wait-mouse-button-release): Add a timeout in xlib:process-event.
949 2010-04-11 Philippe Brochard <pbrochard@common-lisp.net>
951 * src/clfswm-util.lisp (run-other-window-manager): Add the ability
952 to launch an other window manager and to return to clfswm.
954 2010-03-18 Philippe Brochard <pbrochard@common-lisp.net>
956 * src/clfswm-layout.lisp (set-tile-space-layout): Set default
959 2009-12-15 Philippe Brochard <pbrochard@common-lisp.net>
961 * src/clfswm.lisp (main-loop): Add a *loop-hook* parameter and a
964 * src/clfswm-generic-mode.lisp (generic-mode): Add a loop-hook
965 parameter and a loop timeout.
967 2009-12-05 Philippe Brochard <pbrochard@common-lisp.net>
969 * src/clfswm.lisp (main): Add an alternate configuration filename
972 * load.lisp: Add a debuging code example.
974 2009-11-14 Philippe Brochard <pbrochard@common-lisp.net>
976 * src/clfswm-configuration.lisp (create-configuration-menu): New
977 menu to configure all clfswm variables while clfswm is running.
979 2009-11-12 Philippe Brochard <pbrochard@common-lisp.net>
981 * src/clfswm-util.lisp (save-configuration-variables): New
982 function to save all configuration variables in clfswmrc.
984 2009-11-11 Philippe Brochard <pbrochard@common-lisp.net>
986 * src/clfswm-info.lisp (info-mode): Begining of mouse support in
988 (set-default-info-keys): Add cursor key support in info mode.
990 2009-11-08 Philippe Brochard <pbrochard@common-lisp.net>
992 * contrib/reboot-halt.lisp: Add a Suspend/Reboot/Halt menu in
995 * src/clfswm.lisp (main): Add a read-conf-file-p parameter to
996 prevent reading the configuration file (this may be useful to
997 produce the original documentation without user modifications
998 with the rc configuration file).
1000 2009-11-07 Philippe Brochard <pbrochard@common-lisp.net>
1002 * src/bindings-second-mode.lisp (set-default-second-keys):
1003 Simplification of Escape key to close/kill/remove the focus window
1004 and unhide all windows.
1006 * src/bindings.lisp (set-default-main-keys): Simplification of
1007 Escape key to close/kill/remove the focus window and unhide all
1010 * src/clfswm-util.lisp (ask-close/kill-current-window): Add remove
1011 focus and unhide all windows capabilities.
1013 2009-10-10 Philippe Brochard <pbrochard@common-lisp.net>
1015 * contrib/mpd.lisp (start-gmpc): Add gmpc in the mpd menu.
1017 2009-07-29 Philippe Brochard <pbrochard@common-lisp.net>
1019 * src/clfswm-layout.lisp (tile-layout, tile-horizontal-layout):
1020 Keep child order and don't make unnecessary child movement.
1021 (one-column-layout, one-line-layout): New layouts.
1023 2009-06-29 Philippe Brochard <pbrochard@common-lisp.net>
1025 * *: **** Release 0906 ****
1027 * contrib/cd-player.lisp: New file to handle the CD player.
1029 * contrib/xmms.lisp: New file to handle the xmms player.
1031 2009-06-28 Philippe Brochard <pbrochard@common-lisp.net>
1033 * src/clfswm-layout.lisp (set-no-layout-remember-size): New layout:
1034 Maximize windows in their frame - Leave frames to their actual
1037 * src/bindings-second-mode.lisp (set-default-second-keys): Bind
1038 "o" on set-open-in-new-frame-in-parent-frame-nw-hook.
1040 2009-06-27 Philippe Brochard <pbrochard@common-lisp.net>
1042 * contrib/keyb_fr.lisp: New file to handle an azerty keyboard.
1044 2009-06-24 Philippe Brochard <pbrochard@common-lisp.net>
1046 * contrib/mpd.lisp: Use a standard menu.
1048 * src/clfswm-info.lisp: Use a standard menu for the help-menu.
1050 2009-06-22 Philippe Brochard <pbrochard@common-lisp.net>
1052 * contrib/mpd.lisp: New file to handle the Music Player Daemon (MPD)
1054 2009-06-19 Philippe Brochard <pbrochard@common-lisp.net>
1056 * src/clfswm-autodoc.lisp (produce-doc, produce-doc-html): Minor
1059 2009-06-18 Philippe Brochard <pbrochard@common-lisp.net>
1061 * src/config.lisp (get-fullscreen-size): One pixel adjustment
1064 * src/clfswm-placement.lisp (*-child-placement): One pixel
1067 2009-06-16 Philippe Brochard <pbrochard@common-lisp.net>
1069 * src/clfswm-circulate-mode.lisp (draw-circulate-mode-window):
1070 Ensure that all characters are printable.
1072 * src/config.lisp (get-fullscreen-size): Adjust default fullscreen
1075 * src/clfswm-placement.lisp (*-child-placement): Adjust
1076 coordinates to one pixel in the current child.
1078 2009-06-04 Philippe Brochard <pbrochard@common-lisp.net>
1080 * src/clfswm-query.lisp (query-enter-function): Assign font before
1081 width and height calculation.
1083 2009-06-03 Philippe Brochard <pbrochard@common-lisp.net>
1085 * src/xlib-util.lisp (banish-pointer): Use with-placement macro to
1086 bannish the pointer in an arbitrary place.
1088 * src/clfswm-info.lisp (info-mode): Use with-placement macro to
1089 place the info window in an arbitrary place.
1091 * src/clfswm-query.lisp (query-enter-function): Use with-placement
1092 macro to place the query window in an arbitrary place.
1094 * src/clfswm-placement.lisp: New file. Allow to place info windows
1095 or query windows on an arbitrary place. Allow to bannish the
1096 pointer on an arbitrary place.
1098 2009-05-16 Philippe Brochard <pbrochard@common-lisp.net>
1100 * src/clfswm-circulate-mode.lisp (reorder-child)
1101 (reorder-brother): Unfocus windows before reordering children or
1104 2009-05-13 Philippe Brochard <pbrochard@common-lisp.net>
1106 * src/clfswm-circulate-mode.lisp (reorder-brother): Ensure that
1107 the parent is a frame.
1109 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Handle
1110 motion with a default modifier.
1112 * src/clfswm.lisp (handle-motion-notify): Handle motion with a
1115 * src/clfswm-info.lisp (info-mode): Handle motion with a default
1117 (info-mode): Optimization in loop function.
1119 2009-05-10 Philippe Brochard <pbrochard@common-lisp.net>
1121 * src/clfswm-circulate-mode.lisp (reorder-brother): Handle
1122 root-frame correctly.
1124 * clfswm.asd: Dependency fix for clfswm-generic-mode.
1126 * src/clfswm-circulate-mode.lisp (reorder-child)
1127 (reorder-brother): Handle empty frames.
1128 (reorder-brother): Redisplay only the parent frame of the current
1131 * src/clfswm-util.lisp (frame-toggle-maximize): Redisplay only the
1132 parent frame of the current frame.
1134 2009-05-09 Philippe Brochard <pbrochard@common-lisp.net>
1136 * src/clfswm-util.lisp (frame-toggle-maximize): New function:
1137 Maximize/Unmaximize the current frame in its parent frame.
1139 * src/clfswm-layout.lisp (maximize-layout): New layout: Maximize
1140 windows and frames in their parent frame.
1142 2009-05-05 Philippe Brochard <pbrochard@common-lisp.net>
1144 * src/*.lisp: Add support for Clozure Common Lisp (CCL).
1146 * src/clfswm-circulate-mode.lisp (reorder-child)
1147 (reorder-brother): Reinitialise on circulate type change
1148 child to brother or brother to child.
1150 * src/*.lisp (*): Use map-window instead of xlib:map-window. So
1151 calls xlib:display-finish-output on each map-request. So speed up
1154 * src/xlib-util.lisp (map-window): New function. Call
1155 xlib:display-finish-output on each map request.
1157 2009-04-28 Philippe Brochard <pbrochard@common-lisp.net>
1159 * src/clfswm-second-mode.lisp (sm-handle-motion-notify):
1160 Optimisation when drawing second mode window.
1162 2009-04-27 Philippe Brochard <pbrochard@common-lisp.net>
1164 * src/clfswm-circulate-mode.lisp (circulate-mode): Optimisation in
1167 2009-04-22 Philippe Brochard <pbrochard@common-lisp.net>
1169 * src/clfswm-util.lisp (run-program-from-query-string): Launch
1170 command only with a return validation.
1172 2009-04-22 Xavier Maillard <xma@gnu.org>
1174 * src/clfswm-query.lisp (query-string): Use a generic mode.
1176 2009-04-19 Xavier Maillard <xma@gnu.org>
1178 * src/clfswm-info.lisp (info-mode): Use generic-mode for info-mode.
1180 2009-04-18 Xavier Maillard <xma@gnu.org>
1182 * src/clfswm-generic-mode.lisp (generic-mode): Add a generic mode
1183 to define all other modes.
1185 2009-04-05 Philippe Brochard <pbrochard@common-lisp.net>
1187 * src/package.lisp (): Use *default-font-string* for all
1190 * src/clfswm-info.lisp (info-mode): Ensure integer windows size.
1192 2009-02-17 Philippe Brochard <pbrochard@common-lisp.net>
1194 * src/xlib-util.lisp (null-size-window-p): Better check of null
1197 2009-02-14 Philippe Brochard <pbrochard@common-lisp.net>
1199 * src/clfswm.lisp (handle-map-request): Add a fix to manage
1200 correctly fullscreen windows (SDL particularly).
1202 2008-12-20 Philippe Brochard <pbrochard@common-lisp.net>
1204 * src/xlib-util.lisp (get-color): Allocate colors only once -> fix
1205 a segfault with clisp/new-clx.
1207 * src/clfswm.lisp (handle-motion-notify): Add a needed window
1210 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Add a
1211 needed window argument.
1213 2008-10-30 Philippe Brochard <pbrochard@common-lisp.net>
1215 * src/xlib-util.lisp (wait-no-key-or-button-press)
1216 (wait-a-key-or-button-press): Check buttons press/release correctly"
1218 2008-10-28 Philippe Brochard <pbrochard@common-lisp.net>
1220 * src/menu-def.lisp: Add children navigation menu in the movement
1221 menu (select next/previous child/brother/level).
1223 2008-10-26 Philippe Brochard <pbrochard@common-lisp.net>
1225 * *: Rename 'sister' frame to 'brother' frame.
1227 * src/clfswm-keys.lisp (unalias-modifiers): Convert a modifier
1228 alias in a real modifier.
1230 * src/package.lisp (*modifier-alias*): New list of modifier alias
1231 For example: :alt is :mod-1, :numlock is :mod-2...
1233 * src/tools.lisp (remove-hook): New function.
1235 * src/clfswm-keys.lisp (with-capslock, without-capslock)
1236 (with-numlock, without-cnumlock): New functions.
1238 2008-10-25 Philippe Brochard <pbrochard@common-lisp.net>
1240 * src/clfswm-info.lisp: Use the *binding-hook* to create info
1241 keys and mouse bindings.
1243 * src/bindings-second-mode.lisp: Use the *binding-hook* to create
1244 second keys and mouse bindings.
1246 * src/bindings.lisp: Use the *binding-hook* to create main keys
1249 2008-10-10 Philippe Brochard <pbrochard@common-lisp.net>
1251 * src/clfswm-menu.lisp (open-menu): Remember parent menu to undo
1254 2008-10-09 Philippe Brochard <pbrochard@common-lisp.net>
1256 * src/menu-def.lisp: Use a menu instead of a function for the
1259 2008-10-08 Philippe Brochard <pbrochard@common-lisp.net>
1261 * src/clfswm-util.lisp (show-standard-menu): Display the standard
1262 menu from the 'update-menus' command.
1264 2008-10-07 Philippe Brochard <pbrochard@common-lisp.net>
1266 * src/clfswm-query.lisp (query-string): Do not ungrab keyboard if
1267 it's already grabbed.
1269 * src/clfswm-internal.lisp (display-frame-info): Use configurable
1270 colors and fix a bug with background.
1271 (display-frame-info): Set window background when displaying info.
1273 2008-10-06 Philippe Brochard <pbrochard@common-lisp.net>
1275 * src/xlib-util.lisp (my-character->keysyms): Use a macro to avoid
1276 warning with clisp/new-clx.
1278 2008-10-04 Philippe Brochard <pbrochard@common-lisp.net>
1280 * src/clfswm-util.lisp (jump-to-slot): Prevent to jump on a
1283 2008-09-23 Philippe Brochard <pbrochard@common-lisp.net>
1285 * *: **** Release 0809 ****
1287 2008-09-23 Philippe Brochard <pbrochard@common-lisp.net>
1289 * src/clfswm-util.lisp (ensure-unique-name): New function and menu
1291 (ensure-unique-number): New function and menu entry.
1293 2008-09-22 Philippe Brochard <pbrochard@common-lisp.net>
1295 * src/clfswm-nw-hooks.lisp (named-frame-nw-hook): New new window
1296 hook: open the next window in a named frame.
1297 (numbered-frame-nw-hook): New new window hook: open the next
1298 window in a numbered frame.
1300 * src/clfswm-query.lisp (query-string): Grab the keyboard in all
1301 cases. So query-string can be called even in the main mode.
1303 * src/clfswm-internal.lisp (show-all-children): Do not raise a
1304 child by default => far less flickering.
1306 2008-09-19 Philippe Brochard <pbrochard@common-lisp.net>
1308 * src/bindings-second-mode.lisp: Bind "t" to tile-current-frame.
1310 * src/menu-def.lisp: Change key binding for the CLFSWM menu
1313 * src/xlib-util.lisp (xgrab-pointer): Handle the case where cursor
1314 is nil. (workaround on some CLX implementation).
1316 2008-09-12 Philippe Brochard <pbrochard@common-lisp.net>
1318 * src/menu-def.lisp: Add a menu to set a focus policy for all
1321 * src/clfswm-util.lisp (set-focus-policy-generic-for-all)
1322 (all-frames-set-*-focus-policy): Set a focus policy for all
1325 * src/clfswm.lisp (handle-enter-notify): sloppy-select
1326 mode. Select a child and its parents on mouse over.
1328 2008-09-03 Philippe Brochard <pbrochard@common-lisp.net>
1330 * src/clfswm.lisp (handle-enter-notify): Add a sloppy strict focus
1331 policy -> Sloppy focus only for windows in the current frame.
1332 (main-unprotected): Exit clfswm on init error (ie: when another
1333 window manager is running).
1335 * src/clfswm-util.lisp (reset-clfswm): New function.
1337 2008-09-02 Philippe Brochard <pbrochard@common-lisp.net>
1339 * src/clfswm-menu.lisp (init-menu): New function.
1341 * src/clfswm-util.lisp (reload-clfswm): New function to reload
1343 (exit-clfswm): Rename quit-clfswm to exit-clfswm.
1345 * src/clfswm.lisp (main, main-unprotected): Handle error in a
1346 superior main function. Now CLFSWM can't break the X session. It
1347 just reinitialize the display and run a new main loop.
1349 * src/clfswm-corner.lisp: Make *clfswm-terminal* and
1350 *vt-keyboard-on* global to avoid warnings when loading clfswm.
1352 * src/clfswm-layout.lisp: Add a specific GIMP layout menu.
1353 (help-on-gimp-layout): Describe how to use the GIMP layout.
1355 2008-09-01 Philippe Brochard <pbrochard@common-lisp.net>
1357 * src/clfswm-layout.lisp (set-gimp-layout): Change the layout to
1358 main-window-right-layout. Change the keybinding for (shift)alt+tab
1359 to not select windows in the main window lisst.
1360 Bind F8 to add a window in the main window list.
1361 Bind F9 to remove a window in the main window list.
1362 Change the focus policy to :sloppy.
1363 (set-previous-layout): Restore the previous layout, keybinding and
1366 2008-08-31 Philippe Brochard <pbrochard@common-lisp.net>
1368 * src/clfswm-menu.lisp (add-menu-comment): Add comments in menu.
1370 * src/clfswm-layout.lisp (main-window-left-layout)
1371 (main-window-bottom-layout, main-window-top-layout): New
1373 Factorize layouts in menu.
1375 2008-08-30 Philippe Brochard <pbrochard@common-lisp.net>
1377 * src/clfswm-layout.lisp (main-window-right-layout): A possible
1378 GIMP layout: one or more main windows on one side of the
1379 frame. Others on the other size.
1381 * src/clfswm-util.lisp
1382 (current-frame-set-click/sloppy-focus-policy): Each frame can have
1383 a different focus policy (one of :click or :sloppy).
1384 The default focus policy is set with *default-focus-policy*.
1386 2008-08-23 Philippe Brochard <pbrochard@common-lisp.net>
1388 * src/clfswm-info.lisp (show-config-variable): New function.
1390 2008-08-19 Philippe Brochard <pbrochard@common-lisp.net>
1392 * src/clfswm-layout.lisp (tile-horizontal-layout): New layout.
1394 * src/clfswm-info.lisp: Colored help for key binding and corners
1397 2008-08-18 Philippe Brochard <pbrochard@common-lisp.net>
1399 * src/clfswm-util.lisp (delete-focus-window)
1400 (destroy-focus-window): Remove chid only in
1401 handle-unmap/destroy-notify. Focus *current-root* only when
1402 closing/killing the current child.
1404 * src/clfswm-autodoc.lisp (produce-corner-*-doc): New autodoc
1405 functions or corners.
1407 2008-08-17 Philippe Brochard <pbrochard@common-lisp.net>
1409 * src/clfswm-corner.lisp (present-clfswm-terminal): New corner
1410 action: Hide/Unhide a terminal on mouse corner action. (By default
1411 right mouse button on the top left corner).
1413 * src/config.lisp (*never-managed-window-list*): New config
1416 * src/clfswm-internal.lisp (never-managed-window-p): New function:
1417 Handle never managed window in a more simple way.
1419 * src/clfswm-corner.lisp: New file and new and more simple method
1420 to define corners actions.
1422 2008-08-15 Philippe Brochard <pbrochard@common-lisp.net>
1424 * src/clfswm-info.lisp (info-mode): Info line can now be colored.
1426 * src/clfswm-layout.lisp (fast-layout-switch)
1427 (define-fast-layout-switch): New functions: Switch between two
1430 * src/clfswm-second-mode.lisp (leave-second-mode): Takes care if
1431 really in the second mode. So leave-second-mode can be used even
1434 * src/clfswm-util.lisp (switch-to-last-child): New function:
1435 Store the current child and switch to the previous one.
1437 2008-07-16 Philippe Brochard <pbrochard@common-lisp.net>
1439 * src/clfswm-util.lisp (display-current-window-info): Display the
1441 (have-to-present-virtual-keyboard): Add a virtual keyboard corner
1442 (top right by default). By default 'xvkbd' is used.
1444 2008-06-28 Philippe Brochard <pbrochard@common-lisp.net>
1446 * src/xlib-util.lisp (move-window, resize-window): Compress motion
1449 * src/clfswm.lisp (handle-motion-notify): Compress motion events.
1451 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Compress
1454 * src/clfswm-info.lisp (info-mode): Compress motion events.
1456 2008-06-21 Philippe Brochard <pbrochard@common-lisp.net>
1458 * src/clfswm-internal.lisp (show-all-children): Compute geometry
1459 and selection first and then show only necessary children.
1460 (show-child): remove unneeded display-p parameter.
1462 * src/config.lisp (get-fullscreen-size): Place the frame border
1463 outside the screen (this prevent the loose of 2 pixels per
1466 2008-06-12 Philippe Brochard <pbrochard@common-lisp.net>
1468 * src/clfswm-internal.lisp (focus-child): Algorithm change to
1469 raise only the selected child.
1471 2008-06-08 Philippe Brochard <pbrochard@common-lisp.net>
1473 * src/clfswm-internal.lisp (raise-p-list, show-all-children):
1474 Raise only viewable children.
1476 2008-06-06 Philippe Brochard <pbrochard@common-lisp.net>
1478 * src/clfswm-internal.lisp (show-all-children): Always raise all
1479 displayed children. Remove all references to raise-p.
1481 2008-06-04 Philippe Brochard <pbrochard@common-lisp.net>
1483 * src/menu-def.lisp (child-menu): New menu entry on raise/lower
1486 * src/bindings-second-mode.lisp ("Page_Down", "Page_Up"): New
1487 second mode binding on raise/lower child in its frame.
1489 * src/clfswm-nw-hooks.lisp (leave-focus-frame-nw-hook): Adapt
1490 behaviour to the new raise/lower property.
1491 Call clear-nw-hook before the rest of the hook.
1493 * src/bindings.lisp (mouse-click-to-focus-and-move-window)
1494 (mouse-click-to-focus-and-resize-window): Stop button event. This
1495 prevent a keyboard/pointer freeze.
1497 2008-06-03 Philippe Brochard <pbrochard@common-lisp.net>
1499 * src/clfswm-internal.lisp (frame-lower-child)
1500 (frame-raise-child): New functions to raise/lower a child in its
1503 * src/clfswm-util.lisp (have-to-present-windows)
1504 (have-to-present-all-windows): New functions to have an MaxOS
1505 expose like on mouse click in screen corner.
1507 * src/clfswm-info.lisp ("Page_Down", "Page_Up"): Add boundaries.
1509 2008-05-30 Philippe Brochard <pbrochard@common-lisp.net>
1511 * src/clfswm-util.lisp (unhide-a-child-from-all-frames): Unhide a
1512 child from a choice in all frames with hidden children.
1514 * src/clfswm-info.lisp (info-mode-menu): Handle separators.
1516 2008-05-28 Philippe Brochard <pbrochard@common-lisp.net>
1518 * src/clfswm-util.lisp (hide-current-child, unhide-a-child)
1519 (unhide-all-children): New functions.
1521 * src/clfswm-info.lisp (info-mode-menu): Handle symbols and
1524 * src/clfswm-util.lisp (hide/show-frame-window): new function and
1527 2008-05-23 Philippe Brochard <pbrochard@common-lisp.net>
1529 * src/clfswm-util.lisp (rename-current-child): Do not display the
1530 frame info for a window.
1532 2008-05-20 Philippe Brochard <pbrochard@common-lisp.net>
1534 * src/clfswm-internal.lisp (remove-child-in-frame): Destroy the
1535 frame window for the removed child and its children.
1537 2008-05-18 Philippe Brochard <pbrochard@common-lisp.net>
1539 * src/clfswm-autodoc.lisp (produce-*-doc-*): Add a note to use the
1542 2008-05-17 Philippe Brochard <pbrochard@common-lisp.net>
1544 * src/clfswm-nw-hooks.lisp (default-frame-nw-hook): Do not handle
1545 the ROX pinboard (ie: leave it lowered in the root window as
1548 * src/clfswm-layout.lisp (tile-left-space-layout): New layout.
1549 (tile-left-layout, tile-right-layout, tile-top-layout)
1550 (tile-bottom-layout): Use all the frame space when there is only
1553 * src/clfswm-internal.lisp (place-window-from-hints): Center
1554 unmanaged windows in the root screen.
1556 * src/clfswm-nw-hooks.lisp (clear-nw-hook, clear-all-nw-hooks):
1559 2008-05-15 Philippe Brochard <pbrochard@common-lisp.net>
1561 * src/clfswm-util.lisp (current-frame-manage-window-type): Fix a
1562 typo in managed types.
1564 * src/clfswm-internal.lisp (show-child): Always display frame info
1565 even if the frame is hidden.
1567 * src/xlib-util.lisp (resize-window): Use a better algorithme to
1570 2008-05-13 Philippe Brochard <pbrochard@common-lisp.net>
1572 * src/clfswm-util.lisp (with-movement): Display frame info for all
1573 frames in current root.
1575 2008-05-12 Philippe Brochard <pbrochard@common-lisp.net>
1577 * src/*.lisp: Rename 'brother' frames to 'sister' frames.
1579 * src/bindings-second-mode.lisp (define-second-key #\a): New
1580 binding on 'add-default-frame'.
1582 * src/clfswm-autodoc.lisp (produce-*-doc-*-in-file): Show a
1583 message to follow the autodocumentation process.
1585 2008-05-10 Philippe Brochard <pbrochard@common-lisp.net>
1587 * src/clfswm-util.lisp (bind-or-jump): Bind "Tab", "Return" and
1588 "Space" to jump to a child. "B" to bind a slot on the current
1591 * src/bindings-second-mode.lisp: Use "Tab" instead of
1594 2008-05-07 Philippe Brochard <pbrochard@common-lisp.net>
1596 * src/clfswm-util.lisp (find-child-under-mouse): Take care of
1597 unmanaged (hidden) windows.
1599 * src/clfswm-internal.lisp (place-window-from-hints): Give a
1600 minimal size for windows.
1601 (with-all-windows-frames-and-parent): New function.
1603 * src/config.lisp (*default-window-width/height*): New parameters.
1605 * src/clfswm-internal.lisp (place-window-from-hints): Center
1606 windows in the screen instead of in their frame.
1608 * src/bindings-second-mode.lisp (tile-space-current-frame): New
1611 * src/clfswm-layout.lisp (register-layout): Intern the once name
1612 in the right package.
1614 2008-05-05 Philippe Brochard <pbrochard@common-lisp.net>
1616 * doc/dot-clfswmrc: Update to follow the new clfswm way.
1618 2008-05-03 Philippe Brochard <pbrochard@common-lisp.net>
1620 * src/clfswm-internal.lisp (set-current-child)
1621 (adapt-child-to-parent, show-child, hide-child): Handle the case
1622 where child is not a frame or a window.
1624 * src/clfswm-util.lisp
1625 (mouse-click-to-focus-generic,mouse-focus-move/resize-generic):
1626 Check if child is a frame.
1628 * src/clfswm-internal.lisp (managed-window-p): Handle the case
1629 where frame is null.
1630 (place-frame): Check if frame and parent are frames.
1632 * src/clfswm-info.lisp (info-mode): display all frame info before
1635 * src/clfswm-second-mode.lisp (second-key-mode): display all frame
1636 info before leaving.
1638 * src/clfswm-internal.lisp (display-all-frame-info): New function.
1640 2008-05-02 Philippe Brochard <pbrochard@common-lisp.net>
1642 * src/tools.lisp (getenv): Implemented for ECL.
1643 (urun-prog): Implemented for ECL.
1645 * src/clfswm-util.lisp (identify-key): Use a double buffer to
1648 * src/clfswm-query.lisp (query-string): Use a double buffer to
1651 * src/clfswm-info.lisp (draw-info-window): Use a double buffer to
1654 * src/xlib-util.lisp (clear-pixmap-buffer, copy-pixmap-buffer):
1657 2008-05-01 Philippe Brochard <pbrochard@common-lisp.net>
1659 * src/clfswm-info.lisp (info-mode): Add boundaries in the info mode window.
1661 * src/menu-def.lisp: New file: move all menu definition in
1664 * src/clfswm-layout.lisp (register-layout): Use a function instead
1667 2008-04-30 Philippe Brochard <pbrochard@common-lisp.net>
1669 * src/clfswm-autodoc.lisp (produce-menu-doc,
1670 (produce-menu-doc-html): New functions.
1671 (produce-doc-*): Moved to clfswm-autodoc.lisp.
1673 * src/clfswm-util.lisp (paste-selection-no-clear): Prevent to
1674 paste a child on one of its own children. (this prevent a
1676 (move-child-to): Rename move/copy-current-child-by to
1678 (mouse-move-window-over-frame): New function to move the window
1679 under the mouse cursor to another frame.
1681 * src/clfswm-internal.lisp (find-child-in-parent): New function.
1683 2008-04-29 Philippe Brochard <pbrochard@common-lisp.net>
1685 * src/clfswm-internal.lisp (show-all-children): Display unmanaged
1686 windows only when its window parent is the current child.
1688 2008-04-28 Philippe Brochard <pbrochard@common-lisp.net>
1690 * src/clfswm-util.lisp (manage-current-window)
1691 (unmanage-current-window): New functions: Allow to force to manage
1692 or unmanage a window by its parent frame.
1694 * src/bindings-second-mode.lisp (#\o): binded to
1695 set-open-in-new-frame-in-parent-frame-nw-hook and
1696 (#\o :control) to set-open-in-new-frame-in-root-frame-nw-hook
1698 * src/clfswm-util.lisp (with-current-window): New macro.
1700 * src/xlib-util.lisp (move-window, resize-window): Remove uneeded
1701 exposure and enter-window handle event.
1703 * src/clfswm-util.lisp (move-frame, resize-frame): Show all
1704 children for the current child after the move/resize.
1706 2008-04-27 Philippe Brochard <pbrochard@common-lisp.net>
1708 * src/xlib-util.lisp (resize-window): Take care of window size
1711 * src/clfswm-util.lisp (mouse-focus-move/resize-generic): Allow to
1712 move/resize unmanaged windows.
1714 * src/xlib-util.lisp (move-window, resize-window): New functions.
1716 2008-04-25 Philippe Brochard <pbrochard@common-lisp.net>
1718 * src/clfswm-util.lisp (current-frame-manage-window-type): Let the
1719 user choose what window type the current frame must handle.
1720 (display-current-window-info): New function.
1721 (current-frame-manage-all-window-type)
1722 (current-frame-manage-only-normal-window-type)
1723 (current-frame-manage-no-window-type): New functions.
1725 * src/clfswm-internal.lisp (managed-window-p): New function.
1727 * src/package.lisp (frame): Managed type: new frame
1728 parameter. This allow to choose what window type a frame must
1731 * src/*.lisp: Rename all 'father' occurrences to 'parent'.
1733 * src/clfswm-nw-hooks.lisp
1734 (open-in-new-frame-in-parent-frame-nw-hook): New new window hook.
1736 * src/clfswm-util.lisp (adapt-current-frame-to-window-hints): New
1739 * src/tools.lisp (ensure-printable): Return always a string even
1742 2008-04-24 Philippe Brochard <pbrochard@common-lisp.net>
1744 * src/config.lisp (*default-nw-hook*): New variable to change the
1745 default new window hook.
1747 2008-04-22 Philippe Brochard <pbrochard@common-lisp.net>
1749 * clfswm.asd (clfswm): Add a dependency from
1750 clfswm-second-mode.lisp to clfswm.lisp.
1752 * src/clfswm-util.lisp (identify-key): Show the documentation for
1753 the function bound on a key.
1754 (with-movement): Move with-movement,
1755 current-frame-fill/pack/resize-* from bindings-second-mode.lisp
1756 to clfswm-util.lisp.
1758 * src/clfswm-menu.lisp: New menu system that let user change keys
1759 or functions associated to keys.
1761 2008-04-18 Philippe Brochard <pbrochard@common-lisp.net>
1763 * src/clfswm-internal.lisp (show-all-children): Display-child is
1764 the first child by default. Solve a bug with father-p.
1766 2008-04-17 Philippe Brochard <pbrochard@common-lisp.net>
1768 * src/clfswm-internal.lisp (add-frame): Add frame return the
1770 (show-all-children): Move the size computation outside the
1773 * src/bindings-second-mode.lisp (with-movement): Redisplay only
1776 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Redisplay
1777 only the current child.
1779 * src/clfswm-internal.lisp (show-all-children): New display-child
1780 parameter to display only the desired child and its children.
1781 (select-next/previous-child): Only display the current child.
1783 2008-04-14 Philippe Brochard <pbrochard@common-lisp.net>
1785 * src/clfswm.lisp (init-display): Move the default frame creation
1786 on the default init hook.
1788 * src/clfswm-keys.lisp (define-ungrab/grab): Handle all keysyms in
1789 the main mode (for example: "1" on an azerty keyboard).
1791 2008-04-13 Philippe Brochard <pbrochard@common-lisp.net>
1793 * src/clfswm-keys.lisp (find-key-from-code): Better handle of
1794 keysyms. Revert to old grabbing method for the main mode.
1796 2008-04-12 Philippe Brochard <pbrochard@common-lisp.net>
1798 * src/clfswm.lisp (init-display): Add key handling on no focus
1799 window and on frame windows.
1801 2008-04-11 Philippe Brochard <pbrochard@common-lisp.net>
1803 * src/clfswm.lisp (main): Keyboard handle strategie change: Grab
1804 all keys by default and replay just what is needed. No change for
1807 * src/clfswm-keys.lisp: remove grab/ungrab main keys.
1808 (find-key-from-code): Test for shift and not shift presence.
1810 2008-04-09 Philippe Brochard <pbrochard@common-lisp.net>
1812 * src/clfswm-internal.lisp (switch-to-root-frame): show later -
1813 new key parameter to have less flickering.
1815 2008-04-07 Philippe Brochard <pbrochard@common-lisp.net>
1817 * src/bindings-second-mode.lisp (frame-layout-once-menu): Set the
1818 layout only one time and revert to no-layout to freely handle
1821 * src/clfswm-nw-hooks.lisp
1822 (open-in-new-frame-in-root-frame-nw-hook): Tile layout with spaces
1823 with new created window.
1825 * src/clfswm-layout.lisp (register-layout): Now register
1826 automatically a once layout to set the layout only one time and
1827 revert to no-layout to freely handle frames.
1829 2008-04-05 Philippe Brochard <pbrochard@common-lisp.net>
1831 * src/clfswm-nw-hooks.lisp (leave-focus-frame-nw-hook): New
1832 nw-hook: Open the next window in the current frame and leave the
1833 focus to the current child.
1835 2008-04-04 Philippe Brochard <pbrochard@common-lisp.net>
1837 * src/bindings-second-mode.lisp: Add keys definitions to
1838 bind-or-jump in the second mode.
1840 * src/clfswm-util.lisp (bind-or-jump): remove the auto-defining
1841 macro for bind-or-jump-(1|2|3...).
1843 * src/clfswm-keys.lisp (define-define-key/mouse): Allow additional
1844 arguments to function. This allow to do things like:
1845 (define-main-key (key) 'my-function 10 20 'foo) -> 10 20 and 'foo
1846 are passed to my-function on key press.
1848 2008-04-03 Philippe Brochard <pbrochard@common-lisp.net>
1850 * src/clfswm-util.lisp (bind-or-jump): New (great) function.
1852 2008-04-02 Philippe Brochard <pbrochard@common-lisp.net>
1854 * src/clfswm-internal.lisp (child-fullname): New function
1856 * src/clfswm-info.lisp (info-mode-menu): Add an explicit optional
1857 docstring in info-mode-menu. An item can be
1858 '((key function) (key function)) or with docstring
1859 '((key function "documentation 1") (key function "bla bla") (key function))
1861 * src/tools.lisp (ensure-n-elems): New function.
1863 * src/bindings-second-mode.lisp: Bind Alt+mouse-1/3 to move or
1864 resize a frame or the window's father.
1866 * src/clfswm.lisp (init-display): Remove tile-space-layout by
1867 default on the root frame.
1869 * src/clfswm-util.lisp (move/resize-frame): Add standard event
1870 hooks handlers (map-request, configure-notify...)
1872 * src/clfswm-internal.lisp (adapt-child-to-father): Limit minimal
1875 2008-04-01 Philippe Brochard <pbrochard@common-lisp.net>
1877 * src/bindings.lisp: Bind Alt+mouse-1/3 to move or resize a frame
1878 or the window's father.
1880 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Stop button
1881 event only if there is a geometry change.
1882 (mouse-focus-move/resize-generic): Generic function to move or
1883 resize a frame or a window father frame.
1885 2008-04-01 Philippe Brochard <pbrochard@common-lisp.net>
1887 * src/clfswm-internal.lisp (show-all-children): Return t if there
1888 is a geometry change.
1890 2008-03-30 Philippe Brochard <pbrochard@common-lisp.net>
1892 * src/bindings.lisp (Up/Down): Swap select previous/next level.
1894 * src/bindings-second-mode.lisp (Up/Down): Swap select previous/next level.
1896 * src/clfswm.lisp (init-display): Create a default frame in the root frame.
1898 * src/clfswm-internal.lisp (place-frame): Place frame from real (pixel) coordinates.
1899 (with-all-*): Reverse the child list to manage the first child last (like in
1902 * src/config.lisp (*create-frame-on-root*): New variable: Create a new frame on the
1903 root window only if true.
1905 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Create a new frame on the
1906 root window only if *create-frame-on-root* is true.
1908 * src/bindings-second-mode.lisp (sm-mouse-click-to-focus-generic): Create a new frame
1911 2008-03-29 Philippe Brochard <pbrochard@common-lisp.net>
1913 * src/bindings-second-mode.lisp (sm-mouse-click-to-focus-generic): Focus, move and resize
1914 the current child (even if it's a window).
1916 2008-03-28 Philippe Brochard <pbrochard@common-lisp.net>
1918 * src/clfswm-util.lisp (mouse-click-to-focus-and-move)
1919 (mouse-click-to-focus-and-resize): New functions.
1921 * src/clfswm-internal.lisp (*-fl->px): Convert float coordinates to pixel.
1922 (*-px->fl): Convert pixel coordinates to float.
1924 * src/tools.lisp (call-hook): Move call-hook to tools.lisp.
1926 2008-03-27 Philippe Brochard <pbrochard@common-lisp.net>
1928 * src/clfswm-layout.lisp (no-layout): Use :first-only to raise only the
1931 * src/clfswm-internal.lisp (hide-all): Split hide-all-children in hide-all
1932 and hide-all-children.
1933 (raise-if-needed): New function.
1934 (show-child): Use a first-p parameter to raise windows only when they are
1937 2008-03-26 Philippe Brochard <pbrochard@common-lisp.net>
1939 * src/clfswm-internal.lisp (select-next/previous-level): Don't use show-all-children
1942 2008-03-25 Philippe Brochard <pbrochard@common-lisp.net>
1944 * src/clfswm-info.lisp (keys-from-list): new function.
1946 * src/*: rename 'childs' in 'children'.
1948 * src/*: rename 'group' in 'frame'.
1950 2008-03-22 Philippe Brochard <pbrochard@common-lisp.net>
1952 * src/clfswm-pack.lisp (explode-group/explode-current-group): new functions.
1954 2008-03-21 Philippe Brochard <pbrochard@common-lisp.net>
1956 * src/clfswm-pack.lisp: Pack, Fill, Resize functions.
1958 2008-03-16 Philippe Brochard <pbrochard@common-lisp.net>
1960 * src/clfswm-nw-hooks.lisp: Register system for new window hooks.
1961 Bind control+o to open the next window in a new group in the root group
1962 (as open in next window in a new workspace in 0801 version).
1964 2008-03-15 Philippe Brochard <pbrochard@common-lisp.net>
1966 * src/clfswm-util.lisp (show/hide-all-groups-info/key): Show/hide all groups info
1969 2008-03-14 Philippe Brochard <pbrochard@common-lisp.net>
1971 * bindings-second-mode.lisp ("ISO_Left_Tab"): Use ISO_Left_Tab
1972 instead of Tab for select-previous-child.
1974 2008-03-13 Philippe Brochard <pbrochard@common-lisp.net>
1976 * clfswm-util.lisp (force-window-in-group/force-window-center-in-group):
1979 2008-03-11 Philippe Brochard <pbrochard@common-lisp.net>
1981 * clfswm-util.lisp (identify-key): Display the documentation
1982 associated to keys when identifying a key.
1984 2008-03-10 Xavier Maillard <xma@gnu.org>
1986 * contrib/clfswm: Complete rewrite of the script. Detect error and
1987 act accordingly. Add command line arguments to configure the
1988 script execution. User can now choose different common lisp
1989 implementation (clisp and sbcl only), choose where to store the
1990 dumped image, where to find clfswm source.
1992 2008-03-09 Philippe Brochard <pbrochard@common-lisp.net>
1994 * clfswm-internal.lisp (process-new-window): Beginning of new
1995 window hook: each group have a hook to tell what he wants to do
1996 with the new created window.
1998 2008-03-08 Xavier Maillard <xma@gnu.org>
2000 * contrib/clfswm: New script. Dump a CLISP image of CLFSWM then
2001 call the resulting executable.
2003 * clfswm.lisp (read-conf-file): Check for the user config file in
2004 XDG_CONFIG_HOME *first*. Freedesktop.org standards should be
2005 prefered whenever possible.
2007 2008-02-27 Philippe Brochard <pbrochard@common-lisp.net>
2009 * clfswm-layout.lisp (*-layout): Add an optional raise-p
2010 parameter in each layout.
2012 2008-02-26 Philippe Brochard <pbrochard@common-lisp.net>
2014 * clfswm-util.lisp (copy/cut-current-child): Does not affect the
2016 (copy/move-current-child-by-name/number): new functions
2017 (focus-group-by-name/number): new functions
2018 (delete-group-by-name/number): new functions
2020 2008-02-24 Philippe Brochard <pbrochard@common-lisp.net>
2022 * ************************************************************ *
2023 *: Major update - No more reference to workspaces. The main *
2024 structure is a tree of groups or application windows. *
2025 * ************************************************************ *
2027 2008-02-07 Philippe Brochard <pbrochard@common-lisp.net>
2029 * clfswm.lisp (read-conf-file): Read configuration in
2030 $HOME/.clfswmrc or in /etc/clfswmrc or in
2031 $XDG_CONFIG_HOME/clfswm/clfswmrc.
2032 (xdg-config-home): Return the content of $XDG-CONFIG-HOME (default
2035 2008-01-18 Philippe Brochard <pbrochard@common-lisp.net>
2037 * clfswm-internal.lisp (show-all-group): Use *root* and *root-gc*
2040 2008-01-03 Philippe Brochard <pbrochard@common-lisp.net>
2042 * clfswm-internal.lisp (find-window-group): New function.
2044 * clfswm*: Change to make clfswm run with clisp/new-clx.
2046 2008-01-01 Philippe Brochard <pbrochard@common-lisp.net>
2048 * clfswm-util.lisp (query-show-paren): Add show parent matching in
2050 (query-string): Bind control+k to delete end of line.
2052 * clfswm-second-mode.lisp (draw-second-mode-window): Display
2053 the action on mouse motion in second mode.
2055 * clfswm.lisp (handle-exposure): Redisplay groups on exposure
2056 event but do not clear the root window.
2057 (handle-configure-request): Adjust unmanaged window from their
2060 * clfswm-internal.lisp (process-new-window): Adjust new window
2061 with the specified hints (max/min/base width/height).
2063 2007-12-31 Philippe Brochard <pbrochard@common-lisp.net>
2065 * clfswm.lisp (handle-configure-request): Send an Configuration
2066 Notify event. This solve a bug with xterm and rxvt who takes some
2067 times to be mapped. Now there is no delay.
2069 * bindings-second-mode.lisp (define-shell): Run programs after
2070 living the second mode.
2072 2007-12-30 Philippe Brochard <pbrochard@common-lisp.net>
2074 * clfswm-internal.lisp (process-new-window): Do not crop transient
2075 window to group size.
2076 (adapt-window-to-group): Do not crop transient window to group
2079 * clfswm.lisp (handle-configure-request): Adapt just the window to
2080 its group and don't take care of the configure request. Remove the
2081 bug with the Gimp outside the group and speed up the window
2083 (handle-exposure): Remove show-all-group on exposure event
2086 2007-12-29 Philippe Brochard <pbrochard@common-lisp.net>
2088 * clfswm-util.lisp (circulate-group-up-copy-window)
2089 (circulate-group-down-copy-window)
2090 (circulate-workspace-up-copy-group)
2091 (circulate-workspace-down-copy-group): Prevent the copy of the
2092 same window in the same workspace.
2094 * bindings-second-mode.lisp (release-copy-selected-window)
2095 (release-copy-selected-group): Prevent the copy of the same window
2096 in the same workspace.
2098 * clfswm-pager.lisp (generic-pager-move-window-on-previous-line)
2099 (generic-pager-move-window-on-next-line): Remove the copy
2101 (generic-pager-move-group-on-next-workspace)
2102 (generic-pager-move-group-on-previous-workspace): Prevent the copy
2103 of the same window in the same workspace.
2105 * bindings-pager.lisp (mouse-pager-copy-selected-window-release)
2106 (mouse-pager-copy-selected-group-release): Prevent the copy of the
2107 same window in the same workspace.
2109 * tools.lisp (setf/=): new macro to set a variable only when
2112 * clfswm-internal.lisp (adapt-window-to-group): use set/= to set
2113 x, y... only when necessary.
2115 2007-12-28 Philippe Brochard <pbrochard@common-lisp.net>
2117 * clfswm.lisp (handle-configure-notify, *configure-notify-hook*):
2118 new function and hook: force windows to stay in its group (solve a
2121 2007-12-25 Philippe Brochard <pbrochard@common-lisp.net>
2123 * bindings-second-mode.lisp (mouse-motion): use hide-group to have
2124 less flickering when moving/resizing groups.
2126 * clfswm-internal.lisp (hide-group): new function.
2127 (show-all-group): clear-all: new parameter.
2129 2007-12-22 Philippe Brochard <pbrochard@common-lisp.net>
2131 * clfswm-keys.lisp (define-define-key): undefine-*-multi-name: new
2133 * clfswm*: Color change for the pager. Typo or better description
2134 in bindings definitions. Define bindings for a qwerty keyboard by
2135 default. dot-clfswmrc show examples to switch to an azerty
2137 License change to GPL v3.
2138 * config.lisp: new file - group all globals variables in this
2141 2007-08-26 Philippe Brochard <pbrochard@common-lisp.net>
2143 * xlib-util.lisp (hide-window): Remove structure-notivy events
2144 when hidding a window.
2146 2007-05-16 Philippe Brochard <pbrochard@common-lisp.net>
2148 * package.lisp (*sm-property-notify-hook*): Readded
2149 property-notify-hook in second mode.
2151 2007-05-15 Philippe Brochard <pbrochard@common-lisp.net>
2153 * clfswm-keys.lisp (produce-doc-html): Better clean up for strings.
2155 2007-05-13 Philippe Brochard <pbrochard@common-lisp.net>
2157 * clfswm-pack.lisp (tile-current-workspace-to/right/left/top/bottom):
2158 Tile the current workspace with the current window on one side and
2159 others on the other (this emulate the larswm, dwm, wmii way). See
2160 the default configuration file to enable this mode by default.
2162 * clfswm-pager.lisp (pager-tile-current-workspace-to): idem for
2165 2007-05-12 Philippe Brochard <pbrochard@common-lisp.net>
2167 * clfswm-pager.lisp (pager-draw-window-in-group): Add
2168 ensure-printable to print windows name even with non-ascii
2171 2007-05-11 Philippe Brochard <pbrochard@common-lisp.net>
2173 * clfswm-pager.lisp (pager-explode-current-group): Create a new
2174 group for each window in group.
2175 (pager-implode-current-group): Move all windows in workspace to
2176 one group and remove other groups.
2178 * clfswm-pack.lisp (explode-group): Create a new group for each
2180 (implode-group): Move all windows in workspace to one group and
2181 remove other groups.
2183 * clfswm-util.lisp (identify-key): Remove local configuration
2184 variables and made them available for configuration from
2186 (query-string): idem.
2188 2007-04-29 Philippe Brochard <pbrochard@common-lisp.net>
2190 * netwm-util.lisp: Start of NetWM compliance.
2191 Add a Netwm client list gestion.
2193 2007-04-28 Philippe Brochard <pbrochard@common-lisp.net>
2195 * clfswm-internal.lisp (create-group-on-request): open a new group
2196 only when the current group is not empty.
2198 * bindings-second-mode.lisp (define-second-key-#\o-control): Fix a
2199 bug with null workspace.
2201 * clfswm-pager.lisp (pager-handle-event): Add a hook
2202 system. This hooks can be changed in the user configuration file.
2204 * package.lisp: All colors and font variables are set in
2205 package.lisp and can be configured in the user configuration
2207 Note: If you have configured some less ugly colors (esp. for the
2208 pager) don't hesitate to let me know :)
2210 * clfswm-second-mode.lisp (sm-handle-event): Add a hook
2211 system. This hooks can be changed in the user configuration file.
2213 * clfswm.lisp (handle-event): Add a hook system. This hooks can be
2214 changed in the user configuration file (~/.clfswmrc)
2216 2007-04-25 Philippe Brochard <pbrochard@common-lisp.net>
2218 * clfswm-util.lisp (stop-all-pending-actions): new function: reset
2219 arrow action, open next window in new workspace/group.
2221 * bindings.lisp (stop-all-pending-actions): new binding.
2222 (open-next-window-in-new-group-once): Open the next windows in a
2223 new group (only once) or open all new windows in a new group (like
2224 others windows managers).
2226 2007-04-22 Philippe Brochard <pbrochard@common-lisp.net>
2228 * clfswm.lisp (read-conf-file): New function to read a lisp
2229 configuration file at startup.
2230 (focus-group-under-mouse): Check if group isn't the current group
2231 ( prevent a bug with unclutter ).
2233 2007-03-02 Philippe Brochard <pbrochard@common-lisp.net>
2235 * bindings.lisp (run-program-from-query-string): A program can be
2236 launch from a input query window.
2238 2007-03-01 Philippe Brochard <pbrochard@common-lisp.net>
2240 * clfswm-info.lisp: Fix a bug with banish pointer in info mode.
2242 2007-02-28 Philippe Brochard <pbrochard@common-lisp.net>
2244 * clfswm.lisp (process-new-window): One can now open the next
2245 window in a workspace called by its number.
2247 * clfswm-util.lisp (query-font-string): Minimal editing
2249 (eval-from-string): And an REPL in the window manager... :)
2251 2007-02-26 Philippe Brochard <pbrochard@common-lisp.net>
2253 * clfswm.lisp (process-new-window): One can now open the next
2254 window in a new workspace or a new group.
2256 * clfswm-pager.lisp (pager-mode): Display the next arrow action
2257 with the hidden windows.
2259 * clfswm.lisp (second-key-mode): Display the current workspace
2260 number and the next arrow action in the state window.
2262 * clfswm-pager.lisp (pager-mode): Hide all windows before leaving
2263 the pager mode and then redisplay only the current workspace.
2265 2007-02-25 Philippe Brochard <pbrochard@common-lisp.net>
2267 * clfswm.lisp (add-workspace): Workspaces are now numbered. So
2268 they can be focused with a keypress, sorted or renumbered.
2270 2007-02-24 Philippe Brochard <pbrochard@common-lisp.net>
2272 * clfswm-pager.lisp (pager-mode): Remove multiple silly
2273 pager-draw-display. This prevent a lot of flickering in the
2276 * clfswm.lisp: Remove all display-force-output and replace them
2277 with only one display-finish-output in the event loop.
2279 2006-11-06 Philippe Brochard <pbrochard@common-lisp.net>
2281 * clfswm-pager.lisp (pager-center-group): New function - center a
2282 group at the middle of the screen.
2284 * clfswm-pack.lisp (center-group): New function - center a group
2285 at the middle of the screen.
2287 * clfswm.lisp (show-group): Add a cross line under the group.
2288 (show-group): Group are showned even if fullscreened.
2289 (init-display): Add an exposure event on the root window.
2291 2006-11-05 Philippe Brochard <pbrochard@common-lisp.net>
2293 * package.lisp (*default-group*): Default group is the same size
2294 of a fullscreened group.
2296 * bindings*: Use shift to move, control+shift to copy.
2298 * *.lisp: Add comments for configuration or alternatives. So grep
2299 for CONFIG to see where you can configure clfswm. And grep for
2300 Alternative to use some commented code.
2302 * clfswm.lisp (second-key-mode): Use a single window to show the
2303 second mode. See for alternatives at the end of this file.
2305 2006-11-03 Philippe Brochard <pbrochard@common-lisp.net>
2307 * clfswm-keys.lisp (define-define-key/mouse): Factorisation in a
2308 macro of key and mouse definitions.
2309 (define-define-key/mouse): Use state instead of modifiers list
2310 this fix a bug when the modifiers list is not in the rigth order.
2312 * clfswm.lisp (second-key-mode): Add a colored border in second mode.
2314 2006-11-02 Philippe Brochard <pbrochard@common-lisp.net>
2316 * clfswm-info.lisp (info-mode): Add an info mode.
2318 2006-11-01 Philippe Brochard <pbrochard@common-lisp.net>
2320 * clfswm.lisp (process-new-window): Change border size for
2322 (show-all-windows-in-workspace): Unhide all windows even when the
2323 current group is in fullscreen mode.
2325 2006-10-26 Philippe Brochard <pbrochard@common-lisp.net>
2327 * clfswm-util.lisp (identify-key): Add an exposure handle-event to
2328 redisplay the identify window after a terminal switch.
2330 * clfswm-pager.lisp (pager-mode): Add an exposure handle-event to
2331 redisplay the pager after a terminal switch.
2333 2006-10-24 Philippe Brochard <pbrochard@common-lisp.net>
2335 * clfswm-util.lisp (identify-key): Add a window to display
2336 the keys to identify on screen.
2338 * bindings.lisp, bindings-pager.lisp: Define same keys to
2339 move/copy groups/windows in second mode and in pager.
2341 * clfswm.lisp (handle-event*): Same version in all clfswm (fix some
2343 (show-all-windows-in-workspace): unhide window before adapting it
2346 2006-10-23 Philippe Brochard <pbrochard@common-lisp.net>
2348 * clfswm.lisp (handle-event): Revert to an older version.
2350 2006-10-18 Philippe Brochard <pbrochard@common-lisp.net>
2352 * clfswm-util.lisp (force-window-in-group)
2353 (force-window-center-in-group): New functions for transient windows.
2355 * clfswm-pager.lisp (pager-remove-current-workspace/group):
2356 bugfix: hide all windows before removing group or workspace.
2358 2006-10-17 Philippe Brochard <pbrochard@common-lisp.net>
2360 * bindings-pager.lisp (mouse-pager-move-selected-group)
2361 (mouse-pager-copy-selected-group)
2362 (mouse-pager-move-selected-window)
2363 (mouse-pager-copy-selected-window, mouse-pager-rotate-window-up)
2364 (mouse-pager-rotate-window-down): New functions to have mouse in
2367 * clfswm-pager.lisp (pager-swap-window)
2368 (pager-copy-group-on-next/previous-workspace)
2369 (pager-copy-window-on-next/previous-line): New functions
2371 2006-10-15 Philippe Brochard <pbrochard@common-lisp.net>
2373 * clfswm-pager.lisp (pager-move-window-on-next/previous-line,
2374 (pager-move-group-on-next/previous-workspace): new functions.
2376 * clfswm-pack.lisp (resize-half-x-x-current-group): resize group
2377 to its half size (new functions).
2379 2006-10-11 Philippe Brochard <pbrochard@common-lisp.net>
2381 * clfswm-pager.lisp: workspaces, groups and windows can now be
2382 selectionned with the keyboard or the mouse.
2384 2006-10-09 Philippe Brochard <pbrochard@common-lisp.net>
2386 * clfswm-pager.lisp (pager-select-workspace-right/left):
2387 workspaces can now be selectionned with the keyboard.
2389 2006-10-08 Philippe Brochard <pbrochard@common-lisp.net>
2391 * clfswm-keys.lisp (undefine-main-key, undefine-second-key, undefine-mouse-action):
2392 new function to remove a previous defined key or mouse combination.
2394 2006-10-07 Philippe Brochard <pbrochard@common-lisp.net>
2396 * clfswm.lisp (main): Check for access error in init-display.
2398 * clfswm-keys.lisp (define-ungrab/grab): check for keysym and
2399 keycode before grabbing.
2401 * bindings.lisp: Remove nlambda and use defun to keep the function
2402 documentation with clisp.
2403 (define-shell): new macro to define shell command for the second
2406 2006-10-06 Philippe Brochard <pbrochard@common-lisp.net>
2408 * clfswm-keys.lisp (define-ungrab/grab): use a cond instead of a
2411 2006-10-05 Philippe Brochard <pbrochard@common-lisp.net>
2413 * bindings.lisp (accept-motion): Move group bugfix in upper mouse
2414 workspace circulation.
2416 * clfswm-util.lisp (absorb-orphan-window): new function.
2418 * clfswm-keys.lisp: Keysyms support.
2420 2006-10-02 Philippe Brochard <pbrochard@common-lisp.net>
2422 * clfswm.lisp (show-group): Use one gc for all groups and not one
2425 2006-10-01 Philippe Brochard <pbrochard@common-lisp.net>
2427 * bindings.lisp (define-second-key (#\l :mod-1)): fix a typo.
2429 * clfswm.lisp (adapt-window-to-group): Adapt only windows with
2430 width and height outside group.
2432 2006-09-28 Philippe Brochard <pbrochard@common-lisp.net>
2434 * clfswm.lisp: First public release.