1 2012-08-16 Philippe Brochard <pbrochard@common-lisp.net>
3 * contrib/toolbar.lisp: Add memory, cpu and battery usage module
4 with a poll methode. More responsive but up to date every 10s by
7 2012-08-15 Philippe Brochard <pbrochard@common-lisp.net>
9 * contrib/toolbar.lisp: Add a clickable label module for toolbar.
10 Add a clickable entry to open the CLFSWM main menu.
11 Add memory, cpu and battery usage module.
13 * src/clfswm-menu.lisp (open-menu): Prevent to reopen an opened
14 menu. Fixe a but with negative selected-item.
16 2012-08-14 Philippe Brochard <pbrochard@common-lisp.net>
18 * src/clfswm-util.lisp (eval-from-query-string): Show a notify
19 window when updating symobls list for REPL completion.
20 (show-current-root): New function and configuration menu to
21 display a message on the current root.
23 * contrib/toolbar.lisp: Add arguments in toolbar modules.
25 * src/xlib-util.lisp (event-hook-name): Intern hook name symbol
28 2012-08-13 Philippe Brochard <pbrochard@common-lisp.net>
30 * contrib/toolbar.lisp (toolbar-module-text): Print a formatted
31 text at module position centered in toolbar.
33 * src/xlib-util.lisp (optimize-event-hook): Remove unused event
36 2012-08-12 Philippe Brochard <pbrochard@common-lisp.net>
38 * contrib/toolbar.lisp: End of toolbar framework.
39 (list-toolbar-modules): Add a list toolbar modules function.
41 2012-08-03 Philippe Brochard <pbrochard@common-lisp.net>
43 * src/clfswm-internal.lisp (show-child): Show unmanaged windows
44 on (maybe) current child in all roots.
46 * src/clfswm-util.lisp (find-child-under-mouse-in-child-tree):
47 Handle children from all roots instead of from *root-frame*.
49 2012-07-23 Philippe Brochard <pbrochard@common-lisp.net>
51 * src/clfswm-expose-mode.lisp: New expose mode based on standard
54 2012-06-27 Philippe Brochard <pbrochard@common-lisp.net>
56 * src/clfswm-util.lisp (eval-from-query-string): Add completion
57 for eval for query string.
59 2012-06-26 Philippe Brochard <pbrochard@common-lisp.net>
61 * src/clfswm-query.lisp: Add completion for shell commands.
63 2012-06-18 Philippe Brochard <pbrochard@common-lisp.net>
65 * src/clfswm-placement.lisp: Each child can have its own border
66 size. New binding to change the child border size on the fly.
68 2012-06-08 Philippe Brochard <pbrochard@common-lisp.net>
70 * src/tools.lisp (process-timers): Call get-internal-real-time
71 only once for all times.
73 2012-06-07 Philippe Brochard <pbrochard@common-lisp.net>
75 * contrib/toolbar.lisp (define-toolbar-hooks): Add auto-hide
77 (define-toolbar-hooks): Add auto-hide toolbar (show/hide on mouse
80 2012-06-06 Philippe Brochard <pbrochard@common-lisp.net>
82 * src/xlib-util.lisp (handle-event): Add an additional hook event
83 system to handle events in contrib code.
85 2012-06-03 Philippe Brochard <pbrochard@common-lisp.net>
87 * src/clfswm-placement.lisp: Add an optional border size in all
90 2012-05-30 Philippe Brochard <pbrochard@common-lisp.net>
92 * contrib/toolbar.lisp (clock): Add a clock module.
94 2012-05-28 Philippe Brochard <pbrochard@common-lisp.net>
96 * contrib/toolbar.lisp: begining of toolbar support.
98 2012-05-24 Philippe Brochard <pbrochard@common-lisp.net>
100 * src/clfswm-internal.lisp (rotate-root-geometry): Do not use
101 rotatef but a simpler algorithm.
103 2012-05-19 Philippe Brochard <pbrochard@common-lisp.net>
105 * src/clfswm-placement.lisp: Adjust width and height in child and
106 root placement to prevent too big child size.
108 2012-05-18 Philippe Brochard <pbrochard@common-lisp.net>
110 * src/clfswm-placement.lisp: New root placement possibility.
112 * src/clfswm-util.lisp (change-current-root-geometry): New
115 2012-05-17 Philippe Brochard <pbrochard@common-lisp.net>
117 * src/clfswm-util.lisp (exchange-root-geometry-with-mouse): New
120 2012-05-16 Philippe Brochard <pbrochard@common-lisp.net>
122 * src/menu-def.lisp: New root menu.
124 2012-05-15 Philippe Brochard <pbrochard@common-lisp.net>
126 * src/clfswm-circulate-mode.lisp (rotate-root-geometry-next)
127 (rotate-root-geometry-previous): New second mode binding to change
130 2012-05-13 Philippe Brochard <pbrochard@common-lisp.net>
132 * src/clfswm-internal.lisp: Remove the *current-child* variable
133 and use a setfable function (current-child) instead.
134 (current-child-setter): Store root current child before apllying
135 current child change.
137 2012-05-09 Philippe Brochard <pbrochard@common-lisp.net>
139 * src/clfswm-internal.lisp: Use xdpyinfo/xinerama informations
140 instead of xrandr informations.
142 2012-05-06 Philippe Brochard <pbrochard@common-lisp.net>
144 * src/clfswm-internal.lisp : Use only one list for root
146 (*root*): Root management API simplification.
148 2012-04-30 Philippe Brochard <pbrochard@common-lisp.net>
150 * src/clfswm-internal.lisp: Big change to replace *current-root*
151 variable to support multiple root.
153 2012-04-18 Philippe Brochard <pbrochard@common-lisp.net>
155 * src/tools.lisp (add-new-hook, add-hook): New macro. Do not
156 duplicate hooks by default. Use add-new-hook if you want to
159 2012-04-16 Philippe Brochard <pbrochard@common-lisp.net>
161 * src/clfswm-corner.lisp (wait-window-in-query-tree): Add a limit
162 of try to wait the command window.
164 2012-02-25 Philippe Brochard <pbrochard@common-lisp.net>
166 * src/clfswm-util.lisp (place-frames-from-xrandr)
167 (swap-frame-geometry, rotate-frame-geometry): New helper functions
168 for multiple physical screen.
169 (jump-to-slot, add-frame-in-parent-frame): Change *current-root*
172 2012-01-18 Philippe Brochard <pbrochard@common-lisp.net>
174 * src/*.lisp: Use create-symbol and create-symbol-in-package
175 instead of the shorter symb. (Thanks Aad Versteden).
177 * src/bindings-second-mode.lisp (set-default-second-keys): New
178 key binding to set window and frame transparency.
180 * src/bindings.lisp (set-default-main-mouse): New mouse binding to
181 set window and frame transparency.
183 * src/clfswm-keys.lisp (define-keys): New macro to ease multiple
184 keys definitions. (Thanks Valentin Plechinger for the request).
186 * src/*.lisp: Add full transparency support with xcompmgr.
188 2012-01-14 Philippe Brochard <pbrochard@common-lisp.net>
190 * src/*.lisp: Add transparency support.
192 2012-01-09 Ales Guzik <ales.guzik@gmail.com>
194 * src/clfswm-layout.lisp (tile-layout-mix): New layout to
195 automatically choose between vertival and horizontal tile layout.
196 (tile-space-layout): Fix to have space between screen border and
197 frame the same as between frames.
199 2012-01-04 Philippe Brochard <pbrochard@common-lisp.net>
201 * load.lisp: Support clisp 2.49+ module system to load CLX.
203 2012-01-04 Ales Guzik <ales.guzik@gmail.com>
205 * src/clfswm-layout.lisp (update-layout-managed-children-keep-position):
206 Fix an inattention error.
208 2012-01-04 Philippe Brochard <pbrochard@common-lisp.net>
210 * src/xlib-util.lisp (with-xlib-protect): Protect from
211 xlib:lookup-error. This prevent an error in clisp/new-clx when
212 sometimes an xlib:colormap is expected instead of an xlib:window.
214 2012-01-03 Philippe Brochard <pbrochard@common-lisp.net>
216 * src/xlib-util.lisp (handle-event): Fix a clisp/new-clx error
217 when sometimes window slot of event-slots is a pixmap instead of a
220 2011-12-26 Philippe Brochard <pbrochard@common-lisp.net>
222 * src/clfswm-query.lisp: Fill the history list with a non-nil
225 2011-12-25 Philippe Brochard <pbrochard@common-lisp.net>
227 * src/package.lisp (make-x-drawable): Drawable wrapper to prevent
228 type error in some CLX versions.
229 Replace xlib:drawable-* functions with x-drawable-* equivalents
231 2011-12-14 Philippe Brochard <pbrochard@common-lisp.net>
233 * src/clfswm-util.lisp (um-create-xdg-section-list): Add at least
234 the 'Utility menu entry.
236 * src/config.lisp (*xdg-section-list*): moved to config.lisp.
238 * src/clfswm-util.lisp (update-menus): Set a default value for
239 searching .desktop files when XDG_DATA_DIRS is not set.
241 2011-10-15 Philippe Brochard <pbrochard@common-lisp.net>
243 * src/clfswm-internal.lisp (place-window-from-hints): Use
244 with-placement macro to place unmanaged windows in an arbitrary
247 2011-06-16 Philippe Brochard <pbrochard@common-lisp.net>
249 * src/clfswm-internal.lisp (clean-windows-in-all-frames): Prevent
250 current root and current child being equal to child.
252 2011-06-13 Philippe Brochard <pbrochard@common-lisp.net>
254 * src/keysyms.lisp: Repeat Page_Down/Up keysym definitions at the
255 end of the file to change keysyms priority.
257 2011-06-13 Sylvain HENRY <hsyl20@gmail.com>
259 * *.*: Minor spelling fix.
261 2011-06-12 Philippe Brochard <pbrochard@common-lisp.net>
263 * src/clfswm.lisp (:unmap-notify, :destroy-notify): Show all
264 children just after the xlib tree cleanup -> reduce the
265 flickering when a window is deleted or destroyed.
267 * src/clfswm-internal.lisp (process-existing-windows): Do not
268 process the notify window.
270 2011-06-08 Philippe Brochard <pbrochard@common-lisp.net>
272 * *: **** Release 1106 ****
274 2011-06-08 Philippe Brochard <pbrochard@common-lisp.net>
276 * src/clfswm-internal.lisp (clean-windows-in-all-frames): New
277 function to prevent xlib error when a window is deleted.
279 2011-06-08 Philippe Brochard <pbrochard@common-lisp.net>
281 * src/clfswm-internal.lisp
282 (delete-child-and-children-in-all-frames): Delete or destroy
283 children before displaying all children.
285 2011-06-05 Philippe Brochard <pbrochard@common-lisp.net>
287 * src/clfswm-util.lisp (add-frame-in-parent-frame): New function
290 2011-06-04 Philippe Brochard <pbrochard@common-lisp.net>
292 * src/clfswm.lisp (main-unprotected): Destroy all frames windows
293 before closing the display (not really needed).
295 2011-06-02 Philippe Brochard <pbrochard@common-lisp.net>
297 * src/clfswm-layout.lisp (inc-tile-layout-size)
298 (dec-tile-layout-size, inc-slow-tile-layout-size)
299 (dec-slow-tile-layout-size): New functions and bindings.
301 2011-06-01 Philippe Brochard <pbrochard@common-lisp.net>
303 * src/clfswm-expose-mode.lisp (define-expose-letter-keys): Add
304 0..1 and A..Z keys to select a child in exposé mode.
306 * src/clfswm-internal.lisp (display-frame-info): Remove hidden
307 infos in frames windows.
309 * src/clfswm-util.lisp (ask-close/kill-current-window): Menu
312 2011-05-30 Philippe Brochard <pbrochard@common-lisp.net>
314 * src/clfswm-internal.lisp (get-parent-layout): Minor fullscreen
317 2011-05-29 Philippe Brochard <pbrochard@common-lisp.net>
319 * src/clfswm-internal.lisp
320 (delete-child-and-children-in-all-frames): Show all children
321 before deleting/destroying a windows, so prevent a flickering.
322 (get-parent-layout): Return the fullscreen size when the current
325 2011-05-28 Philippe Brochard <pbrochard@common-lisp.net>
327 * src/clfswm-internal.lisp (get-parent-layout): Handle correctly
330 * src/clfswm-util.lisp (delete-focus-window-generic): Do not hide
331 child before removing, so prevent a flickering.
333 * src/clfswm-internal.lisp (show-all-children): Rectangular
334 optimization to display only needed children.
335 (show-all-children): Remove flickering on
336 select-next/previous-brother.
338 2011-05-17 Philippe Brochard <pbrochard@common-lisp.net>
340 * src/clfswm-util.lisp (copy-focus-window, cut-focus-window): New
341 functions and ask-close/kill-current-window menu and bindings
344 2011-05-16 Philippe Brochard <pbrochard@common-lisp.net>
346 * src/clfswm-util.lisp (ask-close/kill-current-window): Add an
347 *ask-close/kill-placement* placement window variable.
349 2011-05-09 Philippe Brochard <pbrochard@common-lisp.net>
351 * contrib/osd.lisp (funcall-button-from-code): Display osd
352 documention for buttons and fix some redefining warnings.
354 2011-05-07 Philippe Brochard <pbrochard@common-lisp.net>
356 * src/clfswm-nw-hooks.lisp (make-permanent-nw-hook-frame): New
357 function. Prevent to add or delete a new window hook for this
360 * src/clfswm-layout.lisp (update-layout-managed-children-position):
363 2011-05-06 Philippe Brochard <pbrochard@common-lisp.net>
365 * src/bindings-second-mode.lisp (set-default-second-keys):
366 select-brother-spatial-move-* binding update.
368 * src/clfswm-layout.lisp (tile-left|right|top|bottom-layout): Ask
369 to keep children positions or not.
371 * src/clfswm-internal.lisp (fixe-real-size): Takes care of border
374 * src/clfswm-layout.lisp (update-layout-managed-children): Fix a
375 bug by using the parent frame instead of the current child.
377 * src/clfswm-circulate-mode.lisp
378 (select-brother-generic-spatial-move+right/left/up/down): New
379 function to select a brother from another in a spatial move.
381 2011-04-19 Philippe Brochard <pbrochard@common-lisp.net>
383 * src/clfswm-pack.lisp (move-frame-constrained)
384 (resize-frame-constrained): Use pixels instead of floating
387 2011-04-18 Philippe Brochard <pbrochard@common-lisp.net>
389 * src/clfswm-pack.lisp (resize-frame-constrained): Takes care of
391 (implode-frame, implode-current-frame): New functions. Absorb all
392 frames subchildren in frame. Explode frame opposite.
394 2011-04-17 Philippe Brochard <pbrochard@common-lisp.net>
396 * src/clfswm-pack.lisp (move-frame-constrained)
397 (resize-frame-constrained): New function. Move and resize frame
398 with the mouse constrained by other frame brothers.
400 2011-04-14 Philippe Brochard <pbrochard@common-lisp.net>
402 * src/clfswm-util.lisp (with-movement-select-next-brother)
403 (with-movement-select-previous-brother)
404 (with-movement-select-next-child): Use a simple method (do not
405 enter in the circulate mode) to allow to circulate in all children
408 * src/clfswm-menu.lisp (open-menu): Save info hash table keys
409 instead of deleting newly created keys.
411 2011-03-21 Philippe Brochard <pbrochard@common-lisp.net>
413 * src/clfswm-internal.lisp (x-px->fl, y-px->fl): Takes care of
416 2011-03-20 Philippe Brochard <pbrochard@common-lisp.net>
418 * src/clfswm-info.lisp (show-config-variable): call
419 produce-conf-var-doc.
421 2011-03-18 Philippe Brochard <pbrochard@common-lisp.net>
423 * src/clfswm-autodoc.lisp (produce-conf-var-doc-html): Produce a
424 documentation for all configurable variables in CLFSWM -
427 * src/clfswm-internal.lisp (leave-frame): Hide all children except
430 2011-03-16 Philippe Brochard <pbrochard@common-lisp.net>
432 * src/clfswm-autodoc.lisp (produce-all-docs): Produce a
433 documentation for all configurable variables in CLFSWM.
435 * src/clfswm-layout.lisp (set-gimp-layout): Display a notify
436 window with the help on the GIMP layout.
438 2011-03-12 Philippe Brochard <pbrochard@common-lisp.net>
440 * src/menu-def.lisp: Menu update to prevent cursor keys clash.
442 * clfswm.asd: Change compilation order to prevent undefined
445 * src/clfswm-internal.lisp (show-child(frame)): Handle properly
446 the show-root-frame-p parameter.
448 2011-03-11 Philippe Brochard <pbrochard@common-lisp.net>
450 * src/clfswm-util.lisp (move-frame, resize-frame): Do not move or
451 resize a frame when it's the current root.
453 2011-03-10 Philippe Brochard <pbrochard@common-lisp.net>
455 * src/clfswm-internal.lisp (show-all-children): Handle properly
456 duplicated child in multipe frames.
458 2011-03-09 Philippe Brochard <pbrochard@common-lisp.net>
460 * contrib/volume-mode.lisp (set-default-volume-keys): Add more
461 keybindings (up/down, right/left) to raise/lower the volume.
463 * src/clfswm-layout.lisp: Add a variable border size for frames
466 2011-03-08 Philippe Brochard <pbrochard@common-lisp.net>
468 * src/clfswm-util.lisp (cut-current-child, remove-current-child)
469 (delete-current-child): Hide the current child before doing the
472 * src/clfswm-internal.lisp (show-all-children): Hide windows not
473 in the current root before displaying those in current root.
474 Remove all hide-all unnecessary calls.
476 * src/clfswm-configuration.lisp (save-variables-in-conf-file):
477 Save only variables with a different value than their original
480 2011-03-07 Philippe Brochard <pbrochard@common-lisp.net>
482 * src/clfswm-info.lisp (show-config-variable): Use the new
485 * src/clfswm-autodoc.lisp (produce-configuration-variables): Use
486 the new defconfig method.
488 * src/clfswm-configuration.lisp (create-configuration-menu):
489 Change the config system with a more lispy one and a less string
490 based one: (defconfig name value group doc).
493 2011-03-06 Philippe Brochard <pbrochard@common-lisp.net>
495 * src/clfswm-internal.lisp (show-all-children): Simplify the
497 (show-child): Display an unmanaged window whe it's the current
499 (show-all-children): add the ability to display all child from
500 *root-frame* and hide all those who are not in *current-root*.
501 -> remove hide-all-children when needed.
503 * src/xlib-util.lisp (move-window,resize-window): Add a
504 *color-move-window* border when moving or resizing a window.
506 2011-03-04 Philippe Brochard <pbrochard@common-lisp.net>
508 * src/clfswm-internal.lisp (show-all-children): Perform only one
509 recusion on the clfswm tree: calculate geometry and place child in
512 2011-03-03 Philippe Brochard <pbrochard@common-lisp.net>
514 * src/clfswm-internal.lisp (show-all-children): Rethink of display
515 child order to prevent very annoying flickering.
517 2011-02-27 Philippe Brochard <pbrochard@common-lisp.net>
519 * src/clfswm-util.lisp (query-yes-or-no): New function.
521 * src/clfswm-configuration.lisp (reset-all-config-variables): New
522 function and menu entry.
523 (query-conf-value): Add the ability to leave the field blank to
524 reset the variable to its default value.
526 2011-02-26 Philippe Brochard <pbrochard@common-lisp.net>
528 * src/clfswm-configuration.lisp
529 (add-all-configuration-default-value): Add a default value to
530 configurable variables.
532 2011-02-23 Philippe Brochard <pbrochard@common-lisp.net>
534 * src/clfswm.lisp (main-unprotected): Create the configuration
535 menu only once at startup.
537 2011-02-22 Desmond O. Chang <dochang@gmail.com>
539 * contrib/amixer.lisp: Add a volume mode inspired by the emms
540 volume package. Alsa mixer interface.
542 * contrib/volume-mode.lisp: Add a volume mode inspired by the emms
545 2011-02-22 Desmond O. Chang <dochang@gmail.com>
547 * src/clfswm.lisp (main): Use ASDF:SYSTEM-SOURCE-DIRECTORY instead
548 of *LOAD-TRUENAME*. *LOAD-TRUENAME* is only bound during a call to
549 LOAD. If one eval CLFSWM:MAIN in repl, BASE-DIR will be an empty
550 string. Use ASDF:SYSTEM-SOURCE-DIRECTORY to fix it.
552 2011-02-16 Philippe Brochard <pbrochard@common-lisp.net>
554 * src/clfswm.lisp (main-unprotected): Add a close hook. And close
555 the notify window, the virtual keyboard and the clfswm terminal by
558 2011-02-15 Philippe Brochard <pbrochard@common-lisp.net>
560 * src/clfswm.lisp (main-unprotected): Destroy the notify window
561 before closing the display. This fix a bug when resetting/reloading
564 2011-02-12 Philippe Brochard <pbrochard@common-lisp.net>
566 * src/xlib-util.lisp (equal-wm-class-fun, equal-wm-name-fun)
567 (raise-window-fun, raise-and-focus-window-fun): New functions.
569 * src/config.lisp (*clfswm-terminal-cmd*): Switch from xterm to
571 (*never-managed-window-list*): Structure change to be more
572 flexible. Let the choice to focus, raise and do nothing on never
575 2011-02-09 Philippe Brochard <pbrochard@common-lisp.net>
577 * src/clfswm-util.lisp (mouse-focus-move/resize-generic): Take
578 care of never managed windows to move or resize them if the raise
581 * src/clfswm-internal.lisp (in-frame, in-window, in-child): New
584 2011-02-08 Philippe Brochard <pbrochard@common-lisp.net>
586 * src/clfswm.lisp (main-mode): Raise or not unmanaged windows
587 following request in *never-managed-window-list*.
589 2011-02-05 Philippe Brochard <pbrochard@common-lisp.net>
591 * *: **** Release 1102 ****
593 2011-02-05 Desmond O. Chang <dochang@gmail.com>
595 * src/keysyms.lisp: Add extended keysyms from stumpwm.
597 2011-02-01 Desmond O. Chang <dochang@gmail.com>
599 * src/clfswm-util.lisp (run-or-raise): New function (thanks to
602 * src/clfswm-internal.lisp (with-all-*): add a nil block.
604 2011-01-28 Desmond O. Chang <dochang@gmail.com>
606 * src/clfswm-util.lisp (xdg-config-home): XDG_CONFIG_HOME should
607 be $HOME/.config by default.
609 2010-12-29 Philippe Brochard <pbrochard@common-lisp.net>
611 * contrib/osd.lisp (display-doc): Add another method where a
612 CLFSWM native window is used to display the key documentation.
614 2010-12-27 Philippe Brochard <pbrochard@common-lisp.net>
616 * src/xlib-util.lisp (with-xlib-protect): Force to revert to the
619 2010-12-25 Philippe Brochard <pbrochard@common-lisp.net>
621 * src/clfswm-second-mode.lisp (second-key-mode): Call the second
622 mode leave function only when the generic mode was ended.
624 2010-12-08 Philippe Brochard <pbrochard@common-lisp.net>
626 * src/clfswm-second-mode.lisp (sm-leave-function): Do not use
627 *second-mode-program* anymore.
629 2010-12-07 Philippe Brochard <pbrochard@common-lisp.net>
631 * src/clfswm-second-mode.lisp (*second-mode-leave-function*): New
632 variable bound to a function executed (when not null) on second
635 2010-11-14 Philippe Brochard <pbrochard@common-lisp.net>
637 * src/clfswm-util.lisp (find-child-under-mouse): Do not find
640 2010-11-13 Philippe Brochard <pbrochard@common-lisp.net>
642 * src/clfswm-expose-mode.lisp (expose-mode-display-accel-windows):
643 Do not display the accel window for unmanaged windows.
645 2010-11-11 Philippe Brochard <pbrochard@common-lisp.net>
647 * src/clfswm-internal.lisp (set-current-root): Handle
648 window-parent in set-current-root.
650 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Do not
651 focus the parent child when the current root is a window.
653 2010-11-09 Philippe Brochard <pbrochard@common-lisp.net>
655 * src/clfswm-expose-mode.lisp (expose-windows-current-child-mode):
656 New function an bindings.
658 * src/clfswm-layout.lisp (tile-layout, set-tile-layout): Fill
661 2010-11-07 Philippe Brochard <pbrochard@common-lisp.net>
663 * src/clfswm-layout.lisp (tile-layout-ask-keep-position): New
664 function to let the user choose to keep child position with
667 * src/clfswm-internal.lisp (remove-frame-data-slot): New
670 2010-11-05 Philippe Brochard <pbrochard@common-lisp.net>
672 * src/clfswm-internal.lisp (frame-select-next-child)
673 (frame-select-previous-child): New functions and bindings. Select
674 the next/previous child in the current frame.
676 2010-10-31 Philippe Brochard <pbrochard@common-lisp.net>
678 * src/clfswm-query.lisp (query-mode-complet): New function: Handle
679 completion in query-mode.
681 2010-10-30 Philippe Brochard <pbrochard@common-lisp.net>
683 * src/clfswm-query.lisp (query-print-string): Handle long lines
686 2010-10-27 Philippe Brochard <pbrochard@common-lisp.net>
688 * src/clfswm-expose-mode.lisp (expose-create-window): Ensure that
689 all characters are printable.
691 2010-10-25 Philippe Brochard <pbrochard@common-lisp.net>
693 * contrib/server/server.lisp: Load clfswm client code in the main
694 program and let the user start it with a --client command line
697 * src/package.lisp (*main-entrance-hook*): New hook executed after
698 loading configuration file and before opening the display.
700 2010-10-23 Philippe Brochard <pbrochard@common-lisp.net>
702 * src/xlib-util.lisp: Remove unnecessary xlib:display-finish-output.
704 * src/clfswm-internal.lisp (show-child): Show window only if not
707 * src/clfswm-keys.lisp (binding-substitute-modifier): Utility to
708 change modifiers after binding definition.
710 2010-10-21 Philippe Brochard <pbrochard@common-lisp.net>
712 * contrib/osd.lisp: New file: OSD (On Screen Display) for
715 * src/clfswm-menu.lisp (open-menu): Modularise function.
717 2010-10-13 Philippe Brochard <pbrochard@common-lisp.net>
719 * src/clfswm-info.lisp (show-first-aid-kit): Display the essential
720 key binding in main and second mode.
722 2010-10-10 Philippe Brochard <pbrochard@common-lisp.net>
724 * src/clfswm-util.lisp (open-notify-window): Convert hello-window
725 functions to a more generic Notify-window system.
727 * src/tools.lisp (add-timer): Add an id to identify the timer.
729 2010-10-09 Philippe Brochard <pbrochard@common-lisp.net>
731 * src/tools.lisp (erase-timer): New function.
733 * src/clfswm-util.lisp (display-hello-window): Add a timer to hide
734 the hello window. Add Configuration variables.
736 2010-10-08 Philippe Brochard <pbrochard@common-lisp.net>
738 * src/clfswm-util.lisp (): Add an Hello window at startup.
740 * src/tools.lisp (process-timers): Add a timer system.
742 2010-10-07 Philippe Brochard <pbrochard@common-lisp.net>
744 * src/clfswm-query.lisp (add-in-query-string): Handle correctly
747 2010-10-06 Philippe Brochard <pbrochard@common-lisp.net>
749 * src/clfswm-query.lisp (query-print-string): Change cursor color
750 and show parenthesis matching with colors (on match and on
753 2010-10-05 Philippe Brochard <pbrochard@common-lisp.net>
755 * src/clfswm-internal.lisp (show-all-children): Do not raise a
756 child when its parent is hidden.
758 2010-10-02 Philippe Brochard <pbrochard@common-lisp.net>
760 * src/clfswm-circulate-mode.lisp (select-next-subchild): Add the
761 possibility to circulate over subchild of the current child.
763 * src/clfswm-expose-mode.lisp (expose-all-windows-mode)
764 (expose-windows-generic): Add an escape-body function to return to
765 the original state on escape key.
767 * src/clfswm-util.lisp (bind-on-slot): Add an optional parameter
768 to bind the current child from the configuration file.
770 2010-10-01 Philippe Brochard <pbrochard@common-lisp.net>
772 * src/clfswm-nw-hooks.lisp (absorb-window-nw-hook): Absorb new
773 window hook: the frame absorb all new windows that match
774 nw-absorb-test frame data slot.
776 2010-09-30 Philippe Brochard <pbrochard@common-lisp.net>
778 * src/clfswm-expose-mode.lisp (expose-create-window): Show window
779 title in accel window.
781 2010-09-29 Philippe Brochard <pbrochard@common-lisp.net>
783 * configure: Use the Xavier Maillard clfswm script in contrib to
784 build an executable in the standard way.
786 2010-09-26 Philippe Brochard <pbrochard@common-lisp.net>
788 * src/clfswm-expose-mode.lisp (expose-mode-display-accel-windows):
789 New functions. Add a window on each child in the expose mode to
792 * src/clfswm-internal.lisp (child-x, child-y, child-width)
793 (child-height): New methods to get real child coordinates.
795 2010-09-25 Philippe Brochard <pbrochard@common-lisp.net>
797 * src/clfswm-layout.lisp (*-layout): Use child-position.
799 * src/clfswm-internal.lisp (child-position): New function.
801 * src/clfswm-expose-mode.lisp (expose-windows-mode)
802 (expose-all-windows-mode): Use a generic mode.
804 * src/xlib-util.lisp (with-handle-event-symbol): Use a filled list
805 with handle-event-fun symbols instead of inspecting clfswm
806 internals symbols on each mode change.
808 * src/clfswm-expose-mode.lisp: Move and rename present*-windows in
809 a separate clfswm-expose-mode.lisp file.
811 * src/clfswm-util.lisp (speed-mouse-right, speed-mouse-down): Use
812 screen size instead of hardcoded test coordinates.
814 2010-09-24 Philippe Brochard <pbrochard@common-lisp.net>
816 * src/clfswm-util.lisp (speed-mouse-reset, speed-mouse-left)
817 (speed-mouse-right, speed-mouse-up, speed-mouse-down)
818 (speed-mouse-undo, speed-mouse-first-history): New functions to
819 quickly move the mouse. Implemented for the second mode.
821 2010-09-16 Philippe Brochard <pbrochard@common-lisp.net>
823 * contrib/clfswm: Move clfswm sources to $tmp_dir if there is no
824 write permission on $clfswm_asd_path. So anybody can start clfswm
825 even if there is no write permission on the source directory.
827 2010-09-12 Philippe Brochard <pbrochard@common-lisp.net>
829 * contrib/clfswm: Add support to cmucl, ccl and ecl.
831 2010-09-11 Philippe Brochard <pbrochard@common-lisp.net>
833 * src/clfswm-util.lisp (set-hide-unmanaged-window)
834 (set-show-unmanaged-window, set-default-hide-unmanaged-window):
835 New functions and menu entry.
836 (set-globally-hide-unmanaged-window)
837 (set-globally-show-unmanaged-window): New functions and menu
840 * src/clfswm-internal.lisp (hide-unmanager-window-p): New
842 (show-child): Add a data slot on frame to hide or not unmanaged
845 * src/clfswm-corner.lisp (present-clfswm-terminal)
846 (present-virtual-keyboard): Use a function (generic-present-body)
847 instead of a macro (generate-present-body).
849 * src/clfswm-util.lisp (update-menus): List all directories and
850 subdirectories in $XDG_DATA_DIRS/applications.
852 2010-09-10 Philippe Brochard <pbrochard@common-lisp.net>
854 * src/clfswm-corner.lisp (generate-present-body): New macro.
855 (present-clfswm-terminal, present-virtual-keyboard): Use
856 generate-present-body.
858 2010-09-09 Philippe Brochard <pbrochard@common-lisp.net>
860 * src/clfswm-util.lisp (update-menus): Follow XDG specifications
861 instead of the non-portable Debian update-menu.
863 2010-09-07 Philippe Brochard <pbrochard@common-lisp.net>
865 * src/clfswm.lisp (error-handler): New function do handle
866 asynchronous errors and ignore them.
867 (open-display): Install the new error-handler on display.
869 2010-09-05 Philippe Brochard <pbrochard@common-lisp.net>
871 * src/xlib-util.lisp (with-xlib-protect): Add a
872 with-simple-restart on top of body execution.
874 2010-09-04 Philippe Brochard <pbrochard@common-lisp.net>
876 * src/clfswm.lisp (main-loop): Protect all xlib functions with an
879 * src/xlib-util.lisp (handle-event): use with-xlib-protect only in
880 handle-event. Add a with-simple-restart to prevent a
881 clisp/new-lisp infinite loop.
883 2010-08-30 Philippe Brochard <pbrochard@common-lisp.net>
885 * src/clfswm-corner.lisp (present-clfswm-terminal): Make the
886 clfswm terminal working even on xterm title changes.
888 2010-08-29 Philippe Brochard <pbrochard@common-lisp.net>
890 * src/clfswm-util.lisp (run-other-window-manager): Update for
893 * src/tools.lisp (do-execute): New parameter io to change the
896 * src/clfswm-util.lisp (hide-current-child): Prevent from removing
899 * src/clfswm-internal.lisp (child-member): New predicate.
900 (child-remove): New function.
902 * src/*.lisp: Use child-member and child-remove everywhere it's
905 2010-08-28 Philippe Brochard <pbrochard@common-lisp.net>
907 * src/clfswm.lisp (main-loop): Ensure that all events have been
908 processed after a process-event.
910 * src/clfswm-internal.lisp (is-in-current-child-p): New function.
912 2010-08-27 Philippe Brochard <pbrochard@common-lisp.net>
914 * src/clfswm.lisp (main-mode:configure-request): Raise the window
915 only when present on the current child and focus it accordingly.
917 2010-08-26 Philippe Brochard <pbrochard@common-lisp.net>
919 * src/clfswm-circulate-mode.lisp (circulate-loop-function):
920 Use is-a-key-pressed-p.
922 * src/xlib-util.lisp (is-a-key-pressed-p): New predicate.
924 * src/clfswm-keys.lisp (define-ungrab/grab): Use all values
925 returned by xlib:keysym->keycodes.
927 * src/*.lisp: Use the new child-equal-p to compare children. This
928 prevent a bug with sbcl/cmucl when the standard equal function
929 does not work with xlib:window.
931 * src/clfswm-internal.lisp (child-equal-p): New predicate.
933 2010-08-25 Philippe Brochard <pbrochard@common-lisp.net>
935 * src/clfswm-generic-mode.lisp (generic-mode): Use an
936 xlib:event-listen before processing event with
937 xlib:process-event. This prevent a bug with CLX threaded
938 implementation like sbcl.
940 * src/clfswm.lisp (main-loop): Use an xlib:event-listen before
941 processing event with xlib:process-event. This prevent a bug with
942 CLX threaded implementation like sbcl.
944 2010-08-17 Philippe Brochard <pbrochard@common-lisp.net>
946 * contrib/server/key.lisp (ushell-sh): Add ccl and ecl support.
948 * src/xlib-util.lisp (compress-motion-notify): Use a loop instead
951 * src/clfswm-internal.lisp (with-find-in-all-frames): New macro.
952 (find-parent-frame, find-frame-window, find-frame-by-name)
953 (find-frame-by-number): Use with-find-in-all-frames to search in
954 frames in the right order.
956 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Fix an
957 unwanted flickering with unmanaged windows.
959 2010-08-16 Philippe Brochard <pbrochard@common-lisp.net>
961 * src/package.lisp: Remove event handler hooks as they're not
962 needed anymore (To replace them: use closure and define-handler).
964 * src/xlib-util.lisp (move-window, resize-window)
965 (wait-mouse-button-release): Use a generic mode.
967 * src/*.lisp: Replace the case to handle event with a more (tricky)
968 lispy method which bind a function to each keywords associated
971 2010-07-23 Philippe Brochard <pbrochard@common-lisp.net>
973 * src/clfswm-util.lisp (delete-current-child): Invert bindings and
974 menu entry between delete-current-child and remove-current-child.
975 ie: Delete a child and its children in all frames by default.
977 2010-07-21 Philippe Brochard <pbrochard@common-lisp.net>
979 * src/package.lisp: Add a placement configuration group.
981 * src/binding*.lisp: Bind control+g to escape the current action
984 * src/clfswm-internal.lisp
985 (delete-child-and-children-in-all-frames): New function and
986 binding: Second mode - Control+Delete delete the current child and
987 its children in all frames (ie: close the current child and its
990 2010-07-20 Philippe Brochard <pbrochard@common-lisp.net>
992 * src/clfswm-internal.lisp (remove-child-in-frame): Do not destroy
993 the frame window and the frame gc. Close a very annoying bug when
994 cuting/pasting a frame or moving a child over frames with the
997 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Redisplay
998 all children in *current-root* after moving/resizing a frame.
1000 2010-07-18 Philippe Brochard <pbrochard@common-lisp.net>
1002 * src/clfswm-util.lisp (delete-focus-window)
1003 (destroy-focus-window): Remove child in parent frame before
1006 2010-07-16 Philippe Brochard <pbrochard@common-lisp.net>
1008 * src/clfswm-util.lisp (identify-key): Add a timeout in
1010 (mouse-click-to-focus-generic): Use find-child-under-mouse instead
1011 of the window passed by xlib:process-event.
1013 * src/xlib-util.lisp (move-window, resize-window)
1014 (wait-mouse-button-release): Add a timeout in xlib:process-event.
1016 2010-04-11 Philippe Brochard <pbrochard@common-lisp.net>
1018 * src/clfswm-util.lisp (run-other-window-manager): Add the ability
1019 to launch an other window manager and to return to clfswm.
1021 2010-03-18 Philippe Brochard <pbrochard@common-lisp.net>
1023 * src/clfswm-layout.lisp (set-tile-space-layout): Set default
1026 2009-12-15 Philippe Brochard <pbrochard@common-lisp.net>
1028 * src/clfswm.lisp (main-loop): Add a *loop-hook* parameter and a
1031 * src/clfswm-generic-mode.lisp (generic-mode): Add a loop-hook
1032 parameter and a loop timeout.
1034 2009-12-05 Philippe Brochard <pbrochard@common-lisp.net>
1036 * src/clfswm.lisp (main): Add an alternate configuration filename
1039 * load.lisp: Add a debuging code example.
1041 2009-11-14 Philippe Brochard <pbrochard@common-lisp.net>
1043 * src/clfswm-configuration.lisp (create-configuration-menu): New
1044 menu to configure all clfswm variables while clfswm is running.
1046 2009-11-12 Philippe Brochard <pbrochard@common-lisp.net>
1048 * src/clfswm-util.lisp (save-configuration-variables): New
1049 function to save all configuration variables in clfswmrc.
1051 2009-11-11 Philippe Brochard <pbrochard@common-lisp.net>
1053 * src/clfswm-info.lisp (info-mode): Begining of mouse support in
1055 (set-default-info-keys): Add cursor key support in info mode.
1057 2009-11-08 Philippe Brochard <pbrochard@common-lisp.net>
1059 * contrib/reboot-halt.lisp: Add a Suspend/Reboot/Halt menu in
1062 * src/clfswm.lisp (main): Add a read-conf-file-p parameter to
1063 prevent reading the configuration file (this may be useful to
1064 produce the original documentation without user modifications
1065 with the rc configuration file).
1067 2009-11-07 Philippe Brochard <pbrochard@common-lisp.net>
1069 * src/bindings-second-mode.lisp (set-default-second-keys):
1070 Simplification of Escape key to close/kill/remove the focus window
1071 and unhide all windows.
1073 * src/bindings.lisp (set-default-main-keys): Simplification of
1074 Escape key to close/kill/remove the focus window and unhide all
1077 * src/clfswm-util.lisp (ask-close/kill-current-window): Add remove
1078 focus and unhide all windows capabilities.
1080 2009-10-10 Philippe Brochard <pbrochard@common-lisp.net>
1082 * contrib/mpd.lisp (start-gmpc): Add gmpc in the mpd menu.
1084 2009-07-29 Philippe Brochard <pbrochard@common-lisp.net>
1086 * src/clfswm-layout.lisp (tile-layout, tile-horizontal-layout):
1087 Keep child order and don't make unnecessary child movement.
1088 (one-column-layout, one-line-layout): New layouts.
1090 2009-06-29 Philippe Brochard <pbrochard@common-lisp.net>
1092 * *: **** Release 0906 ****
1094 * contrib/cd-player.lisp: New file to handle the CD player.
1096 * contrib/xmms.lisp: New file to handle the xmms player.
1098 2009-06-28 Philippe Brochard <pbrochard@common-lisp.net>
1100 * src/clfswm-layout.lisp (set-no-layout-remember-size): New layout:
1101 Maximize windows in their frame - Leave frames to their actual
1104 * src/bindings-second-mode.lisp (set-default-second-keys): Bind
1105 "o" on set-open-in-new-frame-in-parent-frame-nw-hook.
1107 2009-06-27 Philippe Brochard <pbrochard@common-lisp.net>
1109 * contrib/keyb_fr.lisp: New file to handle an azerty keyboard.
1111 2009-06-24 Philippe Brochard <pbrochard@common-lisp.net>
1113 * contrib/mpd.lisp: Use a standard menu.
1115 * src/clfswm-info.lisp: Use a standard menu for the help-menu.
1117 2009-06-22 Philippe Brochard <pbrochard@common-lisp.net>
1119 * contrib/mpd.lisp: New file to handle the Music Player Daemon (MPD)
1121 2009-06-19 Philippe Brochard <pbrochard@common-lisp.net>
1123 * src/clfswm-autodoc.lisp (produce-doc, produce-doc-html): Minor
1126 2009-06-18 Philippe Brochard <pbrochard@common-lisp.net>
1128 * src/config.lisp (get-fullscreen-size): One pixel adjustment
1131 * src/clfswm-placement.lisp (*-child-placement): One pixel
1134 2009-06-16 Philippe Brochard <pbrochard@common-lisp.net>
1136 * src/clfswm-circulate-mode.lisp (draw-circulate-mode-window):
1137 Ensure that all characters are printable.
1139 * src/config.lisp (get-fullscreen-size): Adjust default fullscreen
1142 * src/clfswm-placement.lisp (*-child-placement): Adjust
1143 coordinates to one pixel in the current child.
1145 2009-06-04 Philippe Brochard <pbrochard@common-lisp.net>
1147 * src/clfswm-query.lisp (query-enter-function): Assign font before
1148 width and height calculation.
1150 2009-06-03 Philippe Brochard <pbrochard@common-lisp.net>
1152 * src/xlib-util.lisp (banish-pointer): Use with-placement macro to
1153 bannish the pointer in an arbitrary place.
1155 * src/clfswm-info.lisp (info-mode): Use with-placement macro to
1156 place the info window in an arbitrary place.
1158 * src/clfswm-query.lisp (query-enter-function): Use with-placement
1159 macro to place the query window in an arbitrary place.
1161 * src/clfswm-placement.lisp: New file. Allow to place info windows
1162 or query windows on an arbitrary place. Allow to bannish the
1163 pointer on an arbitrary place.
1165 2009-05-16 Philippe Brochard <pbrochard@common-lisp.net>
1167 * src/clfswm-circulate-mode.lisp (reorder-child)
1168 (reorder-brother): Unfocus windows before reordering children or
1171 2009-05-13 Philippe Brochard <pbrochard@common-lisp.net>
1173 * src/clfswm-circulate-mode.lisp (reorder-brother): Ensure that
1174 the parent is a frame.
1176 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Handle
1177 motion with a default modifier.
1179 * src/clfswm.lisp (handle-motion-notify): Handle motion with a
1182 * src/clfswm-info.lisp (info-mode): Handle motion with a default
1184 (info-mode): Optimization in loop function.
1186 2009-05-10 Philippe Brochard <pbrochard@common-lisp.net>
1188 * src/clfswm-circulate-mode.lisp (reorder-brother): Handle
1189 root-frame correctly.
1191 * clfswm.asd: Dependency fix for clfswm-generic-mode.
1193 * src/clfswm-circulate-mode.lisp (reorder-child)
1194 (reorder-brother): Handle empty frames.
1195 (reorder-brother): Redisplay only the parent frame of the current
1198 * src/clfswm-util.lisp (frame-toggle-maximize): Redisplay only the
1199 parent frame of the current frame.
1201 2009-05-09 Philippe Brochard <pbrochard@common-lisp.net>
1203 * src/clfswm-util.lisp (frame-toggle-maximize): New function:
1204 Maximize/Unmaximize the current frame in its parent frame.
1206 * src/clfswm-layout.lisp (maximize-layout): New layout: Maximize
1207 windows and frames in their parent frame.
1209 2009-05-05 Philippe Brochard <pbrochard@common-lisp.net>
1211 * src/*.lisp: Add support for Clozure Common Lisp (CCL).
1213 * src/clfswm-circulate-mode.lisp (reorder-child)
1214 (reorder-brother): Reinitialise on circulate type change
1215 child to brother or brother to child.
1217 * src/*.lisp (*): Use map-window instead of xlib:map-window. So
1218 calls xlib:display-finish-output on each map-request. So speed up
1221 * src/xlib-util.lisp (map-window): New function. Call
1222 xlib:display-finish-output on each map request.
1224 2009-04-28 Philippe Brochard <pbrochard@common-lisp.net>
1226 * src/clfswm-second-mode.lisp (sm-handle-motion-notify):
1227 Optimisation when drawing second mode window.
1229 2009-04-27 Philippe Brochard <pbrochard@common-lisp.net>
1231 * src/clfswm-circulate-mode.lisp (circulate-mode): Optimisation in
1234 2009-04-22 Philippe Brochard <pbrochard@common-lisp.net>
1236 * src/clfswm-util.lisp (run-program-from-query-string): Launch
1237 command only with a return validation.
1239 2009-04-22 Xavier Maillard <xma@gnu.org>
1241 * src/clfswm-query.lisp (query-string): Use a generic mode.
1243 2009-04-19 Xavier Maillard <xma@gnu.org>
1245 * src/clfswm-info.lisp (info-mode): Use generic-mode for info-mode.
1247 2009-04-18 Xavier Maillard <xma@gnu.org>
1249 * src/clfswm-generic-mode.lisp (generic-mode): Add a generic mode
1250 to define all other modes.
1252 2009-04-05 Philippe Brochard <pbrochard@common-lisp.net>
1254 * src/package.lisp (): Use *default-font-string* for all
1257 * src/clfswm-info.lisp (info-mode): Ensure integer windows size.
1259 2009-02-17 Philippe Brochard <pbrochard@common-lisp.net>
1261 * src/xlib-util.lisp (null-size-window-p): Better check of null
1264 2009-02-14 Philippe Brochard <pbrochard@common-lisp.net>
1266 * src/clfswm.lisp (handle-map-request): Add a fix to manage
1267 correctly fullscreen windows (SDL particularly).
1269 2008-12-20 Philippe Brochard <pbrochard@common-lisp.net>
1271 * src/xlib-util.lisp (get-color): Allocate colors only once -> fix
1272 a segfault with clisp/new-clx.
1274 * src/clfswm.lisp (handle-motion-notify): Add a needed window
1277 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Add a
1278 needed window argument.
1280 2008-10-30 Philippe Brochard <pbrochard@common-lisp.net>
1282 * src/xlib-util.lisp (wait-no-key-or-button-press)
1283 (wait-a-key-or-button-press): Check buttons press/release correctly"
1285 2008-10-28 Philippe Brochard <pbrochard@common-lisp.net>
1287 * src/menu-def.lisp: Add children navigation menu in the movement
1288 menu (select next/previous child/brother/level).
1290 2008-10-26 Philippe Brochard <pbrochard@common-lisp.net>
1292 * *: Rename 'sister' frame to 'brother' frame.
1294 * src/clfswm-keys.lisp (unalias-modifiers): Convert a modifier
1295 alias in a real modifier.
1297 * src/package.lisp (*modifier-alias*): New list of modifier alias
1298 For example: :alt is :mod-1, :numlock is :mod-2...
1300 * src/tools.lisp (remove-hook): New function.
1302 * src/clfswm-keys.lisp (with-capslock, without-capslock)
1303 (with-numlock, without-cnumlock): New functions.
1305 2008-10-25 Philippe Brochard <pbrochard@common-lisp.net>
1307 * src/clfswm-info.lisp: Use the *binding-hook* to create info
1308 keys and mouse bindings.
1310 * src/bindings-second-mode.lisp: Use the *binding-hook* to create
1311 second keys and mouse bindings.
1313 * src/bindings.lisp: Use the *binding-hook* to create main keys
1316 2008-10-10 Philippe Brochard <pbrochard@common-lisp.net>
1318 * src/clfswm-menu.lisp (open-menu): Remember parent menu to undo
1321 2008-10-09 Philippe Brochard <pbrochard@common-lisp.net>
1323 * src/menu-def.lisp: Use a menu instead of a function for the
1326 2008-10-08 Philippe Brochard <pbrochard@common-lisp.net>
1328 * src/clfswm-util.lisp (show-standard-menu): Display the standard
1329 menu from the 'update-menus' command.
1331 2008-10-07 Philippe Brochard <pbrochard@common-lisp.net>
1333 * src/clfswm-query.lisp (query-string): Do not ungrab keyboard if
1334 it's already grabbed.
1336 * src/clfswm-internal.lisp (display-frame-info): Use configurable
1337 colors and fix a bug with background.
1338 (display-frame-info): Set window background when displaying info.
1340 2008-10-06 Philippe Brochard <pbrochard@common-lisp.net>
1342 * src/xlib-util.lisp (my-character->keysyms): Use a macro to avoid
1343 warning with clisp/new-clx.
1345 2008-10-04 Philippe Brochard <pbrochard@common-lisp.net>
1347 * src/clfswm-util.lisp (jump-to-slot): Prevent to jump on a
1350 2008-09-23 Philippe Brochard <pbrochard@common-lisp.net>
1352 * *: **** Release 0809 ****
1354 2008-09-23 Philippe Brochard <pbrochard@common-lisp.net>
1356 * src/clfswm-util.lisp (ensure-unique-name): New function and menu
1358 (ensure-unique-number): New function and menu entry.
1360 2008-09-22 Philippe Brochard <pbrochard@common-lisp.net>
1362 * src/clfswm-nw-hooks.lisp (named-frame-nw-hook): New new window
1363 hook: open the next window in a named frame.
1364 (numbered-frame-nw-hook): New new window hook: open the next
1365 window in a numbered frame.
1367 * src/clfswm-query.lisp (query-string): Grab the keyboard in all
1368 cases. So query-string can be called even in the main mode.
1370 * src/clfswm-internal.lisp (show-all-children): Do not raise a
1371 child by default => far less flickering.
1373 2008-09-19 Philippe Brochard <pbrochard@common-lisp.net>
1375 * src/bindings-second-mode.lisp: Bind "t" to tile-current-frame.
1377 * src/menu-def.lisp: Change key binding for the CLFSWM menu
1380 * src/xlib-util.lisp (xgrab-pointer): Handle the case where cursor
1381 is nil. (workaround on some CLX implementation).
1383 2008-09-12 Philippe Brochard <pbrochard@common-lisp.net>
1385 * src/menu-def.lisp: Add a menu to set a focus policy for all
1388 * src/clfswm-util.lisp (set-focus-policy-generic-for-all)
1389 (all-frames-set-*-focus-policy): Set a focus policy for all
1392 * src/clfswm.lisp (handle-enter-notify): sloppy-select
1393 mode. Select a child and its parents on mouse over.
1395 2008-09-03 Philippe Brochard <pbrochard@common-lisp.net>
1397 * src/clfswm.lisp (handle-enter-notify): Add a sloppy strict focus
1398 policy -> Sloppy focus only for windows in the current frame.
1399 (main-unprotected): Exit clfswm on init error (ie: when another
1400 window manager is running).
1402 * src/clfswm-util.lisp (reset-clfswm): New function.
1404 2008-09-02 Philippe Brochard <pbrochard@common-lisp.net>
1406 * src/clfswm-menu.lisp (init-menu): New function.
1408 * src/clfswm-util.lisp (reload-clfswm): New function to reload
1410 (exit-clfswm): Rename quit-clfswm to exit-clfswm.
1412 * src/clfswm.lisp (main, main-unprotected): Handle error in a
1413 superior main function. Now CLFSWM can't break the X session. It
1414 just reinitialize the display and run a new main loop.
1416 * src/clfswm-corner.lisp: Make *clfswm-terminal* and
1417 *vt-keyboard-on* global to avoid warnings when loading clfswm.
1419 * src/clfswm-layout.lisp: Add a specific GIMP layout menu.
1420 (help-on-gimp-layout): Describe how to use the GIMP layout.
1422 2008-09-01 Philippe Brochard <pbrochard@common-lisp.net>
1424 * src/clfswm-layout.lisp (set-gimp-layout): Change the layout to
1425 main-window-right-layout. Change the keybinding for (shift)alt+tab
1426 to not select windows in the main window lisst.
1427 Bind F8 to add a window in the main window list.
1428 Bind F9 to remove a window in the main window list.
1429 Change the focus policy to :sloppy.
1430 (set-previous-layout): Restore the previous layout, keybinding and
1433 2008-08-31 Philippe Brochard <pbrochard@common-lisp.net>
1435 * src/clfswm-menu.lisp (add-menu-comment): Add comments in menu.
1437 * src/clfswm-layout.lisp (main-window-left-layout)
1438 (main-window-bottom-layout, main-window-top-layout): New
1440 Factorize layouts in menu.
1442 2008-08-30 Philippe Brochard <pbrochard@common-lisp.net>
1444 * src/clfswm-layout.lisp (main-window-right-layout): A possible
1445 GIMP layout: one or more main windows on one side of the
1446 frame. Others on the other size.
1448 * src/clfswm-util.lisp
1449 (current-frame-set-click/sloppy-focus-policy): Each frame can have
1450 a different focus policy (one of :click or :sloppy).
1451 The default focus policy is set with *default-focus-policy*.
1453 2008-08-23 Philippe Brochard <pbrochard@common-lisp.net>
1455 * src/clfswm-info.lisp (show-config-variable): New function.
1457 2008-08-19 Philippe Brochard <pbrochard@common-lisp.net>
1459 * src/clfswm-layout.lisp (tile-horizontal-layout): New layout.
1461 * src/clfswm-info.lisp: Colored help for key binding and corners
1464 2008-08-18 Philippe Brochard <pbrochard@common-lisp.net>
1466 * src/clfswm-util.lisp (delete-focus-window)
1467 (destroy-focus-window): Remove chid only in
1468 handle-unmap/destroy-notify. Focus *current-root* only when
1469 closing/killing the current child.
1471 * src/clfswm-autodoc.lisp (produce-corner-*-doc): New autodoc
1472 functions or corners.
1474 2008-08-17 Philippe Brochard <pbrochard@common-lisp.net>
1476 * src/clfswm-corner.lisp (present-clfswm-terminal): New corner
1477 action: Hide/Unhide a terminal on mouse corner action. (By default
1478 right mouse button on the top left corner).
1480 * src/config.lisp (*never-managed-window-list*): New config
1483 * src/clfswm-internal.lisp (never-managed-window-p): New function:
1484 Handle never managed window in a more simple way.
1486 * src/clfswm-corner.lisp: New file and new and more simple method
1487 to define corners actions.
1489 2008-08-15 Philippe Brochard <pbrochard@common-lisp.net>
1491 * src/clfswm-info.lisp (info-mode): Info line can now be colored.
1493 * src/clfswm-layout.lisp (fast-layout-switch)
1494 (define-fast-layout-switch): New functions: Switch between two
1497 * src/clfswm-second-mode.lisp (leave-second-mode): Takes care if
1498 really in the second mode. So leave-second-mode can be used even
1501 * src/clfswm-util.lisp (switch-to-last-child): New function:
1502 Store the current child and switch to the previous one.
1504 2008-07-16 Philippe Brochard <pbrochard@common-lisp.net>
1506 * src/clfswm-util.lisp (display-current-window-info): Display the
1508 (have-to-present-virtual-keyboard): Add a virtual keyboard corner
1509 (top right by default). By default 'xvkbd' is used.
1511 2008-06-28 Philippe Brochard <pbrochard@common-lisp.net>
1513 * src/xlib-util.lisp (move-window, resize-window): Compress motion
1516 * src/clfswm.lisp (handle-motion-notify): Compress motion events.
1518 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Compress
1521 * src/clfswm-info.lisp (info-mode): Compress motion events.
1523 2008-06-21 Philippe Brochard <pbrochard@common-lisp.net>
1525 * src/clfswm-internal.lisp (show-all-children): Compute geometry
1526 and selection first and then show only necessary children.
1527 (show-child): remove unneeded display-p parameter.
1529 * src/config.lisp (get-fullscreen-size): Place the frame border
1530 outside the screen (this prevent the loose of 2 pixels per
1533 2008-06-12 Philippe Brochard <pbrochard@common-lisp.net>
1535 * src/clfswm-internal.lisp (focus-child): Algorithm change to
1536 raise only the selected child.
1538 2008-06-08 Philippe Brochard <pbrochard@common-lisp.net>
1540 * src/clfswm-internal.lisp (raise-p-list, show-all-children):
1541 Raise only viewable children.
1543 2008-06-06 Philippe Brochard <pbrochard@common-lisp.net>
1545 * src/clfswm-internal.lisp (show-all-children): Always raise all
1546 displayed children. Remove all references to raise-p.
1548 2008-06-04 Philippe Brochard <pbrochard@common-lisp.net>
1550 * src/menu-def.lisp (child-menu): New menu entry on raise/lower
1553 * src/bindings-second-mode.lisp ("Page_Down", "Page_Up"): New
1554 second mode binding on raise/lower child in its frame.
1556 * src/clfswm-nw-hooks.lisp (leave-focus-frame-nw-hook): Adapt
1557 behaviour to the new raise/lower property.
1558 Call clear-nw-hook before the rest of the hook.
1560 * src/bindings.lisp (mouse-click-to-focus-and-move-window)
1561 (mouse-click-to-focus-and-resize-window): Stop button event. This
1562 prevent a keyboard/pointer freeze.
1564 2008-06-03 Philippe Brochard <pbrochard@common-lisp.net>
1566 * src/clfswm-internal.lisp (frame-lower-child)
1567 (frame-raise-child): New functions to raise/lower a child in its
1570 * src/clfswm-util.lisp (have-to-present-windows)
1571 (have-to-present-all-windows): New functions to have an MaxOS
1572 expose like on mouse click in screen corner.
1574 * src/clfswm-info.lisp ("Page_Down", "Page_Up"): Add boundaries.
1576 2008-05-30 Philippe Brochard <pbrochard@common-lisp.net>
1578 * src/clfswm-util.lisp (unhide-a-child-from-all-frames): Unhide a
1579 child from a choice in all frames with hidden children.
1581 * src/clfswm-info.lisp (info-mode-menu): Handle separators.
1583 2008-05-28 Philippe Brochard <pbrochard@common-lisp.net>
1585 * src/clfswm-util.lisp (hide-current-child, unhide-a-child)
1586 (unhide-all-children): New functions.
1588 * src/clfswm-info.lisp (info-mode-menu): Handle symbols and
1591 * src/clfswm-util.lisp (hide/show-frame-window): new function and
1594 2008-05-23 Philippe Brochard <pbrochard@common-lisp.net>
1596 * src/clfswm-util.lisp (rename-current-child): Do not display the
1597 frame info for a window.
1599 2008-05-20 Philippe Brochard <pbrochard@common-lisp.net>
1601 * src/clfswm-internal.lisp (remove-child-in-frame): Destroy the
1602 frame window for the removed child and its children.
1604 2008-05-18 Philippe Brochard <pbrochard@common-lisp.net>
1606 * src/clfswm-autodoc.lisp (produce-*-doc-*): Add a note to use the
1609 2008-05-17 Philippe Brochard <pbrochard@common-lisp.net>
1611 * src/clfswm-nw-hooks.lisp (default-frame-nw-hook): Do not handle
1612 the ROX pinboard (ie: leave it lowered in the root window as
1615 * src/clfswm-layout.lisp (tile-left-space-layout): New layout.
1616 (tile-left-layout, tile-right-layout, tile-top-layout)
1617 (tile-bottom-layout): Use all the frame space when there is only
1620 * src/clfswm-internal.lisp (place-window-from-hints): Center
1621 unmanaged windows in the root screen.
1623 * src/clfswm-nw-hooks.lisp (clear-nw-hook, clear-all-nw-hooks):
1626 2008-05-15 Philippe Brochard <pbrochard@common-lisp.net>
1628 * src/clfswm-util.lisp (current-frame-manage-window-type): Fix a
1629 typo in managed types.
1631 * src/clfswm-internal.lisp (show-child): Always display frame info
1632 even if the frame is hidden.
1634 * src/xlib-util.lisp (resize-window): Use a better algorithme to
1637 2008-05-13 Philippe Brochard <pbrochard@common-lisp.net>
1639 * src/clfswm-util.lisp (with-movement): Display frame info for all
1640 frames in current root.
1642 2008-05-12 Philippe Brochard <pbrochard@common-lisp.net>
1644 * src/*.lisp: Rename 'brother' frames to 'sister' frames.
1646 * src/bindings-second-mode.lisp (define-second-key #\a): New
1647 binding on 'add-default-frame'.
1649 * src/clfswm-autodoc.lisp (produce-*-doc-*-in-file): Show a
1650 message to follow the autodocumentation process.
1652 2008-05-10 Philippe Brochard <pbrochard@common-lisp.net>
1654 * src/clfswm-util.lisp (bind-or-jump): Bind "Tab", "Return" and
1655 "Space" to jump to a child. "B" to bind a slot on the current
1658 * src/bindings-second-mode.lisp: Use "Tab" instead of
1661 2008-05-07 Philippe Brochard <pbrochard@common-lisp.net>
1663 * src/clfswm-util.lisp (find-child-under-mouse): Take care of
1664 unmanaged (hidden) windows.
1666 * src/clfswm-internal.lisp (place-window-from-hints): Give a
1667 minimal size for windows.
1668 (with-all-windows-frames-and-parent): New function.
1670 * src/config.lisp (*default-window-width/height*): New parameters.
1672 * src/clfswm-internal.lisp (place-window-from-hints): Center
1673 windows in the screen instead of in their frame.
1675 * src/bindings-second-mode.lisp (tile-space-current-frame): New
1678 * src/clfswm-layout.lisp (register-layout): Intern the once name
1679 in the right package.
1681 2008-05-05 Philippe Brochard <pbrochard@common-lisp.net>
1683 * doc/dot-clfswmrc: Update to follow the new clfswm way.
1685 2008-05-03 Philippe Brochard <pbrochard@common-lisp.net>
1687 * src/clfswm-internal.lisp (set-current-child)
1688 (adapt-child-to-parent, show-child, hide-child): Handle the case
1689 where child is not a frame or a window.
1691 * src/clfswm-util.lisp
1692 (mouse-click-to-focus-generic,mouse-focus-move/resize-generic):
1693 Check if child is a frame.
1695 * src/clfswm-internal.lisp (managed-window-p): Handle the case
1696 where frame is null.
1697 (place-frame): Check if frame and parent are frames.
1699 * src/clfswm-info.lisp (info-mode): display all frame info before
1702 * src/clfswm-second-mode.lisp (second-key-mode): display all frame
1703 info before leaving.
1705 * src/clfswm-internal.lisp (display-all-frame-info): New function.
1707 2008-05-02 Philippe Brochard <pbrochard@common-lisp.net>
1709 * src/tools.lisp (getenv): Implemented for ECL.
1710 (urun-prog): Implemented for ECL.
1712 * src/clfswm-util.lisp (identify-key): Use a double buffer to
1715 * src/clfswm-query.lisp (query-string): Use a double buffer to
1718 * src/clfswm-info.lisp (draw-info-window): Use a double buffer to
1721 * src/xlib-util.lisp (clear-pixmap-buffer, copy-pixmap-buffer):
1724 2008-05-01 Philippe Brochard <pbrochard@common-lisp.net>
1726 * src/clfswm-info.lisp (info-mode): Add boundaries in the info mode window.
1728 * src/menu-def.lisp: New file: move all menu definition in
1731 * src/clfswm-layout.lisp (register-layout): Use a function instead
1734 2008-04-30 Philippe Brochard <pbrochard@common-lisp.net>
1736 * src/clfswm-autodoc.lisp (produce-menu-doc,
1737 (produce-menu-doc-html): New functions.
1738 (produce-doc-*): Moved to clfswm-autodoc.lisp.
1740 * src/clfswm-util.lisp (paste-selection-no-clear): Prevent to
1741 paste a child on one of its own children. (this prevent a
1743 (move-child-to): Rename move/copy-current-child-by to
1745 (mouse-move-window-over-frame): New function to move the window
1746 under the mouse cursor to another frame.
1748 * src/clfswm-internal.lisp (find-child-in-parent): New function.
1750 2008-04-29 Philippe Brochard <pbrochard@common-lisp.net>
1752 * src/clfswm-internal.lisp (show-all-children): Display unmanaged
1753 windows only when its window parent is the current child.
1755 2008-04-28 Philippe Brochard <pbrochard@common-lisp.net>
1757 * src/clfswm-util.lisp (manage-current-window)
1758 (unmanage-current-window): New functions: Allow to force to manage
1759 or unmanage a window by its parent frame.
1761 * src/bindings-second-mode.lisp (#\o): binded to
1762 set-open-in-new-frame-in-parent-frame-nw-hook and
1763 (#\o :control) to set-open-in-new-frame-in-root-frame-nw-hook
1765 * src/clfswm-util.lisp (with-current-window): New macro.
1767 * src/xlib-util.lisp (move-window, resize-window): Remove uneeded
1768 exposure and enter-window handle event.
1770 * src/clfswm-util.lisp (move-frame, resize-frame): Show all
1771 children for the current child after the move/resize.
1773 2008-04-27 Philippe Brochard <pbrochard@common-lisp.net>
1775 * src/xlib-util.lisp (resize-window): Take care of window size
1778 * src/clfswm-util.lisp (mouse-focus-move/resize-generic): Allow to
1779 move/resize unmanaged windows.
1781 * src/xlib-util.lisp (move-window, resize-window): New functions.
1783 2008-04-25 Philippe Brochard <pbrochard@common-lisp.net>
1785 * src/clfswm-util.lisp (current-frame-manage-window-type): Let the
1786 user choose what window type the current frame must handle.
1787 (display-current-window-info): New function.
1788 (current-frame-manage-all-window-type)
1789 (current-frame-manage-only-normal-window-type)
1790 (current-frame-manage-no-window-type): New functions.
1792 * src/clfswm-internal.lisp (managed-window-p): New function.
1794 * src/package.lisp (frame): Managed type: new frame
1795 parameter. This allow to choose what window type a frame must
1798 * src/*.lisp: Rename all 'father' occurrences to 'parent'.
1800 * src/clfswm-nw-hooks.lisp
1801 (open-in-new-frame-in-parent-frame-nw-hook): New new window hook.
1803 * src/clfswm-util.lisp (adapt-current-frame-to-window-hints): New
1806 * src/tools.lisp (ensure-printable): Return always a string even
1809 2008-04-24 Philippe Brochard <pbrochard@common-lisp.net>
1811 * src/config.lisp (*default-nw-hook*): New variable to change the
1812 default new window hook.
1814 2008-04-22 Philippe Brochard <pbrochard@common-lisp.net>
1816 * clfswm.asd (clfswm): Add a dependency from
1817 clfswm-second-mode.lisp to clfswm.lisp.
1819 * src/clfswm-util.lisp (identify-key): Show the documentation for
1820 the function bound on a key.
1821 (with-movement): Move with-movement,
1822 current-frame-fill/pack/resize-* from bindings-second-mode.lisp
1823 to clfswm-util.lisp.
1825 * src/clfswm-menu.lisp: New menu system that let user change keys
1826 or functions associated to keys.
1828 2008-04-18 Philippe Brochard <pbrochard@common-lisp.net>
1830 * src/clfswm-internal.lisp (show-all-children): Display-child is
1831 the first child by default. Solve a bug with father-p.
1833 2008-04-17 Philippe Brochard <pbrochard@common-lisp.net>
1835 * src/clfswm-internal.lisp (add-frame): Add frame return the
1837 (show-all-children): Move the size computation outside the
1840 * src/bindings-second-mode.lisp (with-movement): Redisplay only
1843 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Redisplay
1844 only the current child.
1846 * src/clfswm-internal.lisp (show-all-children): New display-child
1847 parameter to display only the desired child and its children.
1848 (select-next/previous-child): Only display the current child.
1850 2008-04-14 Philippe Brochard <pbrochard@common-lisp.net>
1852 * src/clfswm.lisp (init-display): Move the default frame creation
1853 on the default init hook.
1855 * src/clfswm-keys.lisp (define-ungrab/grab): Handle all keysyms in
1856 the main mode (for example: "1" on an azerty keyboard).
1858 2008-04-13 Philippe Brochard <pbrochard@common-lisp.net>
1860 * src/clfswm-keys.lisp (find-key-from-code): Better handle of
1861 keysyms. Revert to old grabbing method for the main mode.
1863 2008-04-12 Philippe Brochard <pbrochard@common-lisp.net>
1865 * src/clfswm.lisp (init-display): Add key handling on no focus
1866 window and on frame windows.
1868 2008-04-11 Philippe Brochard <pbrochard@common-lisp.net>
1870 * src/clfswm.lisp (main): Keyboard handle strategie change: Grab
1871 all keys by default and replay just what is needed. No change for
1874 * src/clfswm-keys.lisp: remove grab/ungrab main keys.
1875 (find-key-from-code): Test for shift and not shift presence.
1877 2008-04-09 Philippe Brochard <pbrochard@common-lisp.net>
1879 * src/clfswm-internal.lisp (switch-to-root-frame): show later -
1880 new key parameter to have less flickering.
1882 2008-04-07 Philippe Brochard <pbrochard@common-lisp.net>
1884 * src/bindings-second-mode.lisp (frame-layout-once-menu): Set the
1885 layout only one time and revert to no-layout to freely handle
1888 * src/clfswm-nw-hooks.lisp
1889 (open-in-new-frame-in-root-frame-nw-hook): Tile layout with spaces
1890 with new created window.
1892 * src/clfswm-layout.lisp (register-layout): Now register
1893 automatically a once layout to set the layout only one time and
1894 revert to no-layout to freely handle frames.
1896 2008-04-05 Philippe Brochard <pbrochard@common-lisp.net>
1898 * src/clfswm-nw-hooks.lisp (leave-focus-frame-nw-hook): New
1899 nw-hook: Open the next window in the current frame and leave the
1900 focus to the current child.
1902 2008-04-04 Philippe Brochard <pbrochard@common-lisp.net>
1904 * src/bindings-second-mode.lisp: Add keys definitions to
1905 bind-or-jump in the second mode.
1907 * src/clfswm-util.lisp (bind-or-jump): remove the auto-defining
1908 macro for bind-or-jump-(1|2|3...).
1910 * src/clfswm-keys.lisp (define-define-key/mouse): Allow additional
1911 arguments to function. This allow to do things like:
1912 (define-main-key (key) 'my-function 10 20 'foo) -> 10 20 and 'foo
1913 are passed to my-function on key press.
1915 2008-04-03 Philippe Brochard <pbrochard@common-lisp.net>
1917 * src/clfswm-util.lisp (bind-or-jump): New (great) function.
1919 2008-04-02 Philippe Brochard <pbrochard@common-lisp.net>
1921 * src/clfswm-internal.lisp (child-fullname): New function
1923 * src/clfswm-info.lisp (info-mode-menu): Add an explicit optional
1924 docstring in info-mode-menu. An item can be
1925 '((key function) (key function)) or with docstring
1926 '((key function "documentation 1") (key function "bla bla") (key function))
1928 * src/tools.lisp (ensure-n-elems): New function.
1930 * src/bindings-second-mode.lisp: Bind Alt+mouse-1/3 to move or
1931 resize a frame or the window's father.
1933 * src/clfswm.lisp (init-display): Remove tile-space-layout by
1934 default on the root frame.
1936 * src/clfswm-util.lisp (move/resize-frame): Add standard event
1937 hooks handlers (map-request, configure-notify...)
1939 * src/clfswm-internal.lisp (adapt-child-to-father): Limit minimal
1942 2008-04-01 Philippe Brochard <pbrochard@common-lisp.net>
1944 * src/bindings.lisp: Bind Alt+mouse-1/3 to move or resize a frame
1945 or the window's father.
1947 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Stop button
1948 event only if there is a geometry change.
1949 (mouse-focus-move/resize-generic): Generic function to move or
1950 resize a frame or a window father frame.
1952 2008-04-01 Philippe Brochard <pbrochard@common-lisp.net>
1954 * src/clfswm-internal.lisp (show-all-children): Return t if there
1955 is a geometry change.
1957 2008-03-30 Philippe Brochard <pbrochard@common-lisp.net>
1959 * src/bindings.lisp (Up/Down): Swap select previous/next level.
1961 * src/bindings-second-mode.lisp (Up/Down): Swap select previous/next level.
1963 * src/clfswm.lisp (init-display): Create a default frame in the root frame.
1965 * src/clfswm-internal.lisp (place-frame): Place frame from real (pixel) coordinates.
1966 (with-all-*): Reverse the child list to manage the first child last (like in
1969 * src/config.lisp (*create-frame-on-root*): New variable: Create a new frame on the
1970 root window only if true.
1972 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Create a new frame on the
1973 root window only if *create-frame-on-root* is true.
1975 * src/bindings-second-mode.lisp (sm-mouse-click-to-focus-generic): Create a new frame
1978 2008-03-29 Philippe Brochard <pbrochard@common-lisp.net>
1980 * src/bindings-second-mode.lisp (sm-mouse-click-to-focus-generic): Focus, move and resize
1981 the current child (even if it's a window).
1983 2008-03-28 Philippe Brochard <pbrochard@common-lisp.net>
1985 * src/clfswm-util.lisp (mouse-click-to-focus-and-move)
1986 (mouse-click-to-focus-and-resize): New functions.
1988 * src/clfswm-internal.lisp (*-fl->px): Convert float coordinates to pixel.
1989 (*-px->fl): Convert pixel coordinates to float.
1991 * src/tools.lisp (call-hook): Move call-hook to tools.lisp.
1993 2008-03-27 Philippe Brochard <pbrochard@common-lisp.net>
1995 * src/clfswm-layout.lisp (no-layout): Use :first-only to raise only the
1998 * src/clfswm-internal.lisp (hide-all): Split hide-all-children in hide-all
1999 and hide-all-children.
2000 (raise-if-needed): New function.
2001 (show-child): Use a first-p parameter to raise windows only when they are
2004 2008-03-26 Philippe Brochard <pbrochard@common-lisp.net>
2006 * src/clfswm-internal.lisp (select-next/previous-level): Don't use show-all-children
2009 2008-03-25 Philippe Brochard <pbrochard@common-lisp.net>
2011 * src/clfswm-info.lisp (keys-from-list): new function.
2013 * src/*: rename 'childs' in 'children'.
2015 * src/*: rename 'group' in 'frame'.
2017 2008-03-22 Philippe Brochard <pbrochard@common-lisp.net>
2019 * src/clfswm-pack.lisp (explode-group/explode-current-group): new functions.
2021 2008-03-21 Philippe Brochard <pbrochard@common-lisp.net>
2023 * src/clfswm-pack.lisp: Pack, Fill, Resize functions.
2025 2008-03-16 Philippe Brochard <pbrochard@common-lisp.net>
2027 * src/clfswm-nw-hooks.lisp: Register system for new window hooks.
2028 Bind control+o to open the next window in a new group in the root group
2029 (as open in next window in a new workspace in 0801 version).
2031 2008-03-15 Philippe Brochard <pbrochard@common-lisp.net>
2033 * src/clfswm-util.lisp (show/hide-all-groups-info/key): Show/hide all groups info
2036 2008-03-14 Philippe Brochard <pbrochard@common-lisp.net>
2038 * bindings-second-mode.lisp ("ISO_Left_Tab"): Use ISO_Left_Tab
2039 instead of Tab for select-previous-child.
2041 2008-03-13 Philippe Brochard <pbrochard@common-lisp.net>
2043 * clfswm-util.lisp (force-window-in-group/force-window-center-in-group):
2046 2008-03-11 Philippe Brochard <pbrochard@common-lisp.net>
2048 * clfswm-util.lisp (identify-key): Display the documentation
2049 associated to keys when identifying a key.
2051 2008-03-10 Xavier Maillard <xma@gnu.org>
2053 * contrib/clfswm: Complete rewrite of the script. Detect error and
2054 act accordingly. Add command line arguments to configure the
2055 script execution. User can now choose different common lisp
2056 implementation (clisp and sbcl only), choose where to store the
2057 dumped image, where to find clfswm source.
2059 2008-03-09 Philippe Brochard <pbrochard@common-lisp.net>
2061 * clfswm-internal.lisp (process-new-window): Beginning of new
2062 window hook: each group have a hook to tell what he wants to do
2063 with the new created window.
2065 2008-03-08 Xavier Maillard <xma@gnu.org>
2067 * contrib/clfswm: New script. Dump a CLISP image of CLFSWM then
2068 call the resulting executable.
2070 * clfswm.lisp (read-conf-file): Check for the user config file in
2071 XDG_CONFIG_HOME *first*. Freedesktop.org standards should be
2072 prefered whenever possible.
2074 2008-02-27 Philippe Brochard <pbrochard@common-lisp.net>
2076 * clfswm-layout.lisp (*-layout): Add an optional raise-p
2077 parameter in each layout.
2079 2008-02-26 Philippe Brochard <pbrochard@common-lisp.net>
2081 * clfswm-util.lisp (copy/cut-current-child): Does not affect the
2083 (copy/move-current-child-by-name/number): new functions
2084 (focus-group-by-name/number): new functions
2085 (delete-group-by-name/number): new functions
2087 2008-02-24 Philippe Brochard <pbrochard@common-lisp.net>
2089 * ************************************************************ *
2090 *: Major update - No more reference to workspaces. The main *
2091 structure is a tree of groups or application windows. *
2092 * ************************************************************ *
2094 2008-02-07 Philippe Brochard <pbrochard@common-lisp.net>
2096 * clfswm.lisp (read-conf-file): Read configuration in
2097 $HOME/.clfswmrc or in /etc/clfswmrc or in
2098 $XDG_CONFIG_HOME/clfswm/clfswmrc.
2099 (xdg-config-home): Return the content of $XDG-CONFIG-HOME (default
2102 2008-01-18 Philippe Brochard <pbrochard@common-lisp.net>
2104 * clfswm-internal.lisp (show-all-group): Use *root* and *root-gc*
2107 2008-01-03 Philippe Brochard <pbrochard@common-lisp.net>
2109 * clfswm-internal.lisp (find-window-group): New function.
2111 * clfswm*: Change to make clfswm run with clisp/new-clx.
2113 2008-01-01 Philippe Brochard <pbrochard@common-lisp.net>
2115 * clfswm-util.lisp (query-show-paren): Add show parent matching in
2117 (query-string): Bind control+k to delete end of line.
2119 * clfswm-second-mode.lisp (draw-second-mode-window): Display
2120 the action on mouse motion in second mode.
2122 * clfswm.lisp (handle-exposure): Redisplay groups on exposure
2123 event but do not clear the root window.
2124 (handle-configure-request): Adjust unmanaged window from their
2127 * clfswm-internal.lisp (process-new-window): Adjust new window
2128 with the specified hints (max/min/base width/height).
2130 2007-12-31 Philippe Brochard <pbrochard@common-lisp.net>
2132 * clfswm.lisp (handle-configure-request): Send an Configuration
2133 Notify event. This solve a bug with xterm and rxvt who takes some
2134 times to be mapped. Now there is no delay.
2136 * bindings-second-mode.lisp (define-shell): Run programs after
2137 living the second mode.
2139 2007-12-30 Philippe Brochard <pbrochard@common-lisp.net>
2141 * clfswm-internal.lisp (process-new-window): Do not crop transient
2142 window to group size.
2143 (adapt-window-to-group): Do not crop transient window to group
2146 * clfswm.lisp (handle-configure-request): Adapt just the window to
2147 its group and don't take care of the configure request. Remove the
2148 bug with the Gimp outside the group and speed up the window
2150 (handle-exposure): Remove show-all-group on exposure event
2153 2007-12-29 Philippe Brochard <pbrochard@common-lisp.net>
2155 * clfswm-util.lisp (circulate-group-up-copy-window)
2156 (circulate-group-down-copy-window)
2157 (circulate-workspace-up-copy-group)
2158 (circulate-workspace-down-copy-group): Prevent the copy of the
2159 same window in the same workspace.
2161 * bindings-second-mode.lisp (release-copy-selected-window)
2162 (release-copy-selected-group): Prevent the copy of the same window
2163 in the same workspace.
2165 * clfswm-pager.lisp (generic-pager-move-window-on-previous-line)
2166 (generic-pager-move-window-on-next-line): Remove the copy
2168 (generic-pager-move-group-on-next-workspace)
2169 (generic-pager-move-group-on-previous-workspace): Prevent the copy
2170 of the same window in the same workspace.
2172 * bindings-pager.lisp (mouse-pager-copy-selected-window-release)
2173 (mouse-pager-copy-selected-group-release): Prevent the copy of the
2174 same window in the same workspace.
2176 * tools.lisp (setf/=): new macro to set a variable only when
2179 * clfswm-internal.lisp (adapt-window-to-group): use set/= to set
2180 x, y... only when necessary.
2182 2007-12-28 Philippe Brochard <pbrochard@common-lisp.net>
2184 * clfswm.lisp (handle-configure-notify, *configure-notify-hook*):
2185 new function and hook: force windows to stay in its group (solve a
2188 2007-12-25 Philippe Brochard <pbrochard@common-lisp.net>
2190 * bindings-second-mode.lisp (mouse-motion): use hide-group to have
2191 less flickering when moving/resizing groups.
2193 * clfswm-internal.lisp (hide-group): new function.
2194 (show-all-group): clear-all: new parameter.
2196 2007-12-22 Philippe Brochard <pbrochard@common-lisp.net>
2198 * clfswm-keys.lisp (define-define-key): undefine-*-multi-name: new
2200 * clfswm*: Color change for the pager. Typo or better description
2201 in bindings definitions. Define bindings for a qwerty keyboard by
2202 default. dot-clfswmrc show examples to switch to an azerty
2204 License change to GPL v3.
2205 * config.lisp: new file - group all globals variables in this
2208 2007-08-26 Philippe Brochard <pbrochard@common-lisp.net>
2210 * xlib-util.lisp (hide-window): Remove structure-notivy events
2211 when hidding a window.
2213 2007-05-16 Philippe Brochard <pbrochard@common-lisp.net>
2215 * package.lisp (*sm-property-notify-hook*): Readded
2216 property-notify-hook in second mode.
2218 2007-05-15 Philippe Brochard <pbrochard@common-lisp.net>
2220 * clfswm-keys.lisp (produce-doc-html): Better clean up for strings.
2222 2007-05-13 Philippe Brochard <pbrochard@common-lisp.net>
2224 * clfswm-pack.lisp (tile-current-workspace-to/right/left/top/bottom):
2225 Tile the current workspace with the current window on one side and
2226 others on the other (this emulate the larswm, dwm, wmii way). See
2227 the default configuration file to enable this mode by default.
2229 * clfswm-pager.lisp (pager-tile-current-workspace-to): idem for
2232 2007-05-12 Philippe Brochard <pbrochard@common-lisp.net>
2234 * clfswm-pager.lisp (pager-draw-window-in-group): Add
2235 ensure-printable to print windows name even with non-ascii
2238 2007-05-11 Philippe Brochard <pbrochard@common-lisp.net>
2240 * clfswm-pager.lisp (pager-explode-current-group): Create a new
2241 group for each window in group.
2242 (pager-implode-current-group): Move all windows in workspace to
2243 one group and remove other groups.
2245 * clfswm-pack.lisp (explode-group): Create a new group for each
2247 (implode-group): Move all windows in workspace to one group and
2248 remove other groups.
2250 * clfswm-util.lisp (identify-key): Remove local configuration
2251 variables and made them available for configuration from
2253 (query-string): idem.
2255 2007-04-29 Philippe Brochard <pbrochard@common-lisp.net>
2257 * netwm-util.lisp: Start of NetWM compliance.
2258 Add a Netwm client list gestion.
2260 2007-04-28 Philippe Brochard <pbrochard@common-lisp.net>
2262 * clfswm-internal.lisp (create-group-on-request): open a new group
2263 only when the current group is not empty.
2265 * bindings-second-mode.lisp (define-second-key-#\o-control): Fix a
2266 bug with null workspace.
2268 * clfswm-pager.lisp (pager-handle-event): Add a hook
2269 system. This hooks can be changed in the user configuration file.
2271 * package.lisp: All colors and font variables are set in
2272 package.lisp and can be configured in the user configuration
2274 Note: If you have configured some less ugly colors (esp. for the
2275 pager) don't hesitate to let me know :)
2277 * clfswm-second-mode.lisp (sm-handle-event): Add a hook
2278 system. This hooks can be changed in the user configuration file.
2280 * clfswm.lisp (handle-event): Add a hook system. This hooks can be
2281 changed in the user configuration file (~/.clfswmrc)
2283 2007-04-25 Philippe Brochard <pbrochard@common-lisp.net>
2285 * clfswm-util.lisp (stop-all-pending-actions): new function: reset
2286 arrow action, open next window in new workspace/group.
2288 * bindings.lisp (stop-all-pending-actions): new binding.
2289 (open-next-window-in-new-group-once): Open the next windows in a
2290 new group (only once) or open all new windows in a new group (like
2291 others windows managers).
2293 2007-04-22 Philippe Brochard <pbrochard@common-lisp.net>
2295 * clfswm.lisp (read-conf-file): New function to read a lisp
2296 configuration file at startup.
2297 (focus-group-under-mouse): Check if group isn't the current group
2298 ( prevent a bug with unclutter ).
2300 2007-03-02 Philippe Brochard <pbrochard@common-lisp.net>
2302 * bindings.lisp (run-program-from-query-string): A program can be
2303 launch from a input query window.
2305 2007-03-01 Philippe Brochard <pbrochard@common-lisp.net>
2307 * clfswm-info.lisp: Fix a bug with banish pointer in info mode.
2309 2007-02-28 Philippe Brochard <pbrochard@common-lisp.net>
2311 * clfswm.lisp (process-new-window): One can now open the next
2312 window in a workspace called by its number.
2314 * clfswm-util.lisp (query-font-string): Minimal editing
2316 (eval-from-string): And an REPL in the window manager... :)
2318 2007-02-26 Philippe Brochard <pbrochard@common-lisp.net>
2320 * clfswm.lisp (process-new-window): One can now open the next
2321 window in a new workspace or a new group.
2323 * clfswm-pager.lisp (pager-mode): Display the next arrow action
2324 with the hidden windows.
2326 * clfswm.lisp (second-key-mode): Display the current workspace
2327 number and the next arrow action in the state window.
2329 * clfswm-pager.lisp (pager-mode): Hide all windows before leaving
2330 the pager mode and then redisplay only the current workspace.
2332 2007-02-25 Philippe Brochard <pbrochard@common-lisp.net>
2334 * clfswm.lisp (add-workspace): Workspaces are now numbered. So
2335 they can be focused with a keypress, sorted or renumbered.
2337 2007-02-24 Philippe Brochard <pbrochard@common-lisp.net>
2339 * clfswm-pager.lisp (pager-mode): Remove multiple silly
2340 pager-draw-display. This prevent a lot of flickering in the
2343 * clfswm.lisp: Remove all display-force-output and replace them
2344 with only one display-finish-output in the event loop.
2346 2006-11-06 Philippe Brochard <pbrochard@common-lisp.net>
2348 * clfswm-pager.lisp (pager-center-group): New function - center a
2349 group at the middle of the screen.
2351 * clfswm-pack.lisp (center-group): New function - center a group
2352 at the middle of the screen.
2354 * clfswm.lisp (show-group): Add a cross line under the group.
2355 (show-group): Group are showned even if fullscreened.
2356 (init-display): Add an exposure event on the root window.
2358 2006-11-05 Philippe Brochard <pbrochard@common-lisp.net>
2360 * package.lisp (*default-group*): Default group is the same size
2361 of a fullscreened group.
2363 * bindings*: Use shift to move, control+shift to copy.
2365 * *.lisp: Add comments for configuration or alternatives. So grep
2366 for CONFIG to see where you can configure clfswm. And grep for
2367 Alternative to use some commented code.
2369 * clfswm.lisp (second-key-mode): Use a single window to show the
2370 second mode. See for alternatives at the end of this file.
2372 2006-11-03 Philippe Brochard <pbrochard@common-lisp.net>
2374 * clfswm-keys.lisp (define-define-key/mouse): Factorisation in a
2375 macro of key and mouse definitions.
2376 (define-define-key/mouse): Use state instead of modifiers list
2377 this fix a bug when the modifiers list is not in the rigth order.
2379 * clfswm.lisp (second-key-mode): Add a colored border in second mode.
2381 2006-11-02 Philippe Brochard <pbrochard@common-lisp.net>
2383 * clfswm-info.lisp (info-mode): Add an info mode.
2385 2006-11-01 Philippe Brochard <pbrochard@common-lisp.net>
2387 * clfswm.lisp (process-new-window): Change border size for
2389 (show-all-windows-in-workspace): Unhide all windows even when the
2390 current group is in fullscreen mode.
2392 2006-10-26 Philippe Brochard <pbrochard@common-lisp.net>
2394 * clfswm-util.lisp (identify-key): Add an exposure handle-event to
2395 redisplay the identify window after a terminal switch.
2397 * clfswm-pager.lisp (pager-mode): Add an exposure handle-event to
2398 redisplay the pager after a terminal switch.
2400 2006-10-24 Philippe Brochard <pbrochard@common-lisp.net>
2402 * clfswm-util.lisp (identify-key): Add a window to display
2403 the keys to identify on screen.
2405 * bindings.lisp, bindings-pager.lisp: Define same keys to
2406 move/copy groups/windows in second mode and in pager.
2408 * clfswm.lisp (handle-event*): Same version in all clfswm (fix some
2410 (show-all-windows-in-workspace): unhide window before adapting it
2413 2006-10-23 Philippe Brochard <pbrochard@common-lisp.net>
2415 * clfswm.lisp (handle-event): Revert to an older version.
2417 2006-10-18 Philippe Brochard <pbrochard@common-lisp.net>
2419 * clfswm-util.lisp (force-window-in-group)
2420 (force-window-center-in-group): New functions for transient windows.
2422 * clfswm-pager.lisp (pager-remove-current-workspace/group):
2423 bugfix: hide all windows before removing group or workspace.
2425 2006-10-17 Philippe Brochard <pbrochard@common-lisp.net>
2427 * bindings-pager.lisp (mouse-pager-move-selected-group)
2428 (mouse-pager-copy-selected-group)
2429 (mouse-pager-move-selected-window)
2430 (mouse-pager-copy-selected-window, mouse-pager-rotate-window-up)
2431 (mouse-pager-rotate-window-down): New functions to have mouse in
2434 * clfswm-pager.lisp (pager-swap-window)
2435 (pager-copy-group-on-next/previous-workspace)
2436 (pager-copy-window-on-next/previous-line): New functions
2438 2006-10-15 Philippe Brochard <pbrochard@common-lisp.net>
2440 * clfswm-pager.lisp (pager-move-window-on-next/previous-line,
2441 (pager-move-group-on-next/previous-workspace): new functions.
2443 * clfswm-pack.lisp (resize-half-x-x-current-group): resize group
2444 to its half size (new functions).
2446 2006-10-11 Philippe Brochard <pbrochard@common-lisp.net>
2448 * clfswm-pager.lisp: workspaces, groups and windows can now be
2449 selectionned with the keyboard or the mouse.
2451 2006-10-09 Philippe Brochard <pbrochard@common-lisp.net>
2453 * clfswm-pager.lisp (pager-select-workspace-right/left):
2454 workspaces can now be selectionned with the keyboard.
2456 2006-10-08 Philippe Brochard <pbrochard@common-lisp.net>
2458 * clfswm-keys.lisp (undefine-main-key, undefine-second-key, undefine-mouse-action):
2459 new function to remove a previous defined key or mouse combination.
2461 2006-10-07 Philippe Brochard <pbrochard@common-lisp.net>
2463 * clfswm.lisp (main): Check for access error in init-display.
2465 * clfswm-keys.lisp (define-ungrab/grab): check for keysym and
2466 keycode before grabbing.
2468 * bindings.lisp: Remove nlambda and use defun to keep the function
2469 documentation with clisp.
2470 (define-shell): new macro to define shell command for the second
2473 2006-10-06 Philippe Brochard <pbrochard@common-lisp.net>
2475 * clfswm-keys.lisp (define-ungrab/grab): use a cond instead of a
2478 2006-10-05 Philippe Brochard <pbrochard@common-lisp.net>
2480 * bindings.lisp (accept-motion): Move group bugfix in upper mouse
2481 workspace circulation.
2483 * clfswm-util.lisp (absorb-orphan-window): new function.
2485 * clfswm-keys.lisp: Keysyms support.
2487 2006-10-02 Philippe Brochard <pbrochard@common-lisp.net>
2489 * clfswm.lisp (show-group): Use one gc for all groups and not one
2492 2006-10-01 Philippe Brochard <pbrochard@common-lisp.net>
2494 * bindings.lisp (define-second-key (#\l :mod-1)): fix a typo.
2496 * clfswm.lisp (adapt-window-to-group): Adapt only windows with
2497 width and height outside group.
2499 2006-09-28 Philippe Brochard <pbrochard@common-lisp.net>
2501 * clfswm.lisp: First public release.