1 2012-08-15 Philippe Brochard <pbrochard@common-lisp.net>
3 * contrib/toolbar.lisp: Add a clickable label module for toolbar.
4 Add a clickable entry to open the CLFSWM main menu.
6 * src/clfswm-menu.lisp (open-menu): Prevent to reopen an opened
7 menu. Fixe a but with negative selected-item.
9 2012-08-14 Philippe Brochard <pbrochard@common-lisp.net>
11 * src/clfswm-util.lisp (eval-from-query-string): Show a notify
12 window when updating symobls list for REPL completion.
13 (show-current-root): New function and configuration menu to
14 display a message on the current root.
16 * contrib/toolbar.lisp: Add arguments in toolbar modules.
18 * src/xlib-util.lisp (event-hook-name): Intern hook name symbol
21 2012-08-13 Philippe Brochard <pbrochard@common-lisp.net>
23 * contrib/toolbar.lisp (toolbar-module-text): Print a formatted
24 text at module position centered in toolbar.
26 * src/xlib-util.lisp (optimize-event-hook): Remove unused event
29 2012-08-12 Philippe Brochard <pbrochard@common-lisp.net>
31 * contrib/toolbar.lisp: End of toolbar framework.
32 (list-toolbar-modules): Add a list toolbar modules function.
34 2012-08-03 Philippe Brochard <pbrochard@common-lisp.net>
36 * src/clfswm-internal.lisp (show-child): Show unmanaged windows
37 on (maybe) current child in all roots.
39 * src/clfswm-util.lisp (find-child-under-mouse-in-child-tree):
40 Handle children from all roots instead of from *root-frame*.
42 2012-07-23 Philippe Brochard <pbrochard@common-lisp.net>
44 * src/clfswm-expose-mode.lisp: New expose mode based on standard
47 2012-06-27 Philippe Brochard <pbrochard@common-lisp.net>
49 * src/clfswm-util.lisp (eval-from-query-string): Add completion
50 for eval for query string.
52 2012-06-26 Philippe Brochard <pbrochard@common-lisp.net>
54 * src/clfswm-query.lisp: Add completion for shell commands.
56 2012-06-18 Philippe Brochard <pbrochard@common-lisp.net>
58 * src/clfswm-placement.lisp: Each child can have its own border
59 size. New binding to change the child border size on the fly.
61 2012-06-08 Philippe Brochard <pbrochard@common-lisp.net>
63 * src/tools.lisp (process-timers): Call get-internal-real-time
64 only once for all times.
66 2012-06-07 Philippe Brochard <pbrochard@common-lisp.net>
68 * contrib/toolbar.lisp (define-toolbar-hooks): Add auto-hide
70 (define-toolbar-hooks): Add auto-hide toolbar (show/hide on mouse
73 2012-06-06 Philippe Brochard <pbrochard@common-lisp.net>
75 * src/xlib-util.lisp (handle-event): Add an additional hook event
76 system to handle events in contrib code.
78 2012-06-03 Philippe Brochard <pbrochard@common-lisp.net>
80 * src/clfswm-placement.lisp: Add an optional border size in all
83 2012-05-30 Philippe Brochard <pbrochard@common-lisp.net>
85 * contrib/toolbar.lisp (clock): Add a clock module.
87 2012-05-28 Philippe Brochard <pbrochard@common-lisp.net>
89 * contrib/toolbar.lisp: begining of toolbar support.
91 2012-05-24 Philippe Brochard <pbrochard@common-lisp.net>
93 * src/clfswm-internal.lisp (rotate-root-geometry): Do not use
94 rotatef but a simpler algorithm.
96 2012-05-19 Philippe Brochard <pbrochard@common-lisp.net>
98 * src/clfswm-placement.lisp: Adjust width and height in child and
99 root placement to prevent too big child size.
101 2012-05-18 Philippe Brochard <pbrochard@common-lisp.net>
103 * src/clfswm-placement.lisp: New root placement possibility.
105 * src/clfswm-util.lisp (change-current-root-geometry): New
108 2012-05-17 Philippe Brochard <pbrochard@common-lisp.net>
110 * src/clfswm-util.lisp (exchange-root-geometry-with-mouse): New
113 2012-05-16 Philippe Brochard <pbrochard@common-lisp.net>
115 * src/menu-def.lisp: New root menu.
117 2012-05-15 Philippe Brochard <pbrochard@common-lisp.net>
119 * src/clfswm-circulate-mode.lisp (rotate-root-geometry-next)
120 (rotate-root-geometry-previous): New second mode binding to change
123 2012-05-13 Philippe Brochard <pbrochard@common-lisp.net>
125 * src/clfswm-internal.lisp: Remove the *current-child* variable
126 and use a setfable function (current-child) instead.
127 (current-child-setter): Store root current child before apllying
128 current child change.
130 2012-05-09 Philippe Brochard <pbrochard@common-lisp.net>
132 * src/clfswm-internal.lisp: Use xdpyinfo/xinerama informations
133 instead of xrandr informations.
135 2012-05-06 Philippe Brochard <pbrochard@common-lisp.net>
137 * src/clfswm-internal.lisp : Use only one list for root
139 (*root*): Root management API simplification.
141 2012-04-30 Philippe Brochard <pbrochard@common-lisp.net>
143 * src/clfswm-internal.lisp: Big change to replace *current-root*
144 variable to support multiple root.
146 2012-04-18 Philippe Brochard <pbrochard@common-lisp.net>
148 * src/tools.lisp (add-new-hook, add-hook): New macro. Do not
149 duplicate hooks by default. Use add-new-hook if you want to
152 2012-04-16 Philippe Brochard <pbrochard@common-lisp.net>
154 * src/clfswm-corner.lisp (wait-window-in-query-tree): Add a limit
155 of try to wait the command window.
157 2012-02-25 Philippe Brochard <pbrochard@common-lisp.net>
159 * src/clfswm-util.lisp (place-frames-from-xrandr)
160 (swap-frame-geometry, rotate-frame-geometry): New helper functions
161 for multiple physical screen.
162 (jump-to-slot, add-frame-in-parent-frame): Change *current-root*
165 2012-01-18 Philippe Brochard <pbrochard@common-lisp.net>
167 * src/*.lisp: Use create-symbol and create-symbol-in-package
168 instead of the shorter symb. (Thanks Aad Versteden).
170 * src/bindings-second-mode.lisp (set-default-second-keys): New
171 key binding to set window and frame transparency.
173 * src/bindings.lisp (set-default-main-mouse): New mouse binding to
174 set window and frame transparency.
176 * src/clfswm-keys.lisp (define-keys): New macro to ease multiple
177 keys definitions. (Thanks Valentin Plechinger for the request).
179 * src/*.lisp: Add full transparency support with xcompmgr.
181 2012-01-14 Philippe Brochard <pbrochard@common-lisp.net>
183 * src/*.lisp: Add transparency support.
185 2012-01-09 Ales Guzik <ales.guzik@gmail.com>
187 * src/clfswm-layout.lisp (tile-layout-mix): New layout to
188 automatically choose between vertival and horizontal tile layout.
189 (tile-space-layout): Fix to have space between screen border and
190 frame the same as between frames.
192 2012-01-04 Philippe Brochard <pbrochard@common-lisp.net>
194 * load.lisp: Support clisp 2.49+ module system to load CLX.
196 2012-01-04 Ales Guzik <ales.guzik@gmail.com>
198 * src/clfswm-layout.lisp (update-layout-managed-children-keep-position):
199 Fix an inattention error.
201 2012-01-04 Philippe Brochard <pbrochard@common-lisp.net>
203 * src/xlib-util.lisp (with-xlib-protect): Protect from
204 xlib:lookup-error. This prevent an error in clisp/new-clx when
205 sometimes an xlib:colormap is expected instead of an xlib:window.
207 2012-01-03 Philippe Brochard <pbrochard@common-lisp.net>
209 * src/xlib-util.lisp (handle-event): Fix a clisp/new-clx error
210 when sometimes window slot of event-slots is a pixmap instead of a
213 2011-12-26 Philippe Brochard <pbrochard@common-lisp.net>
215 * src/clfswm-query.lisp: Fill the history list with a non-nil
218 2011-12-25 Philippe Brochard <pbrochard@common-lisp.net>
220 * src/package.lisp (make-x-drawable): Drawable wrapper to prevent
221 type error in some CLX versions.
222 Replace xlib:drawable-* functions with x-drawable-* equivalents
224 2011-12-14 Philippe Brochard <pbrochard@common-lisp.net>
226 * src/clfswm-util.lisp (um-create-xdg-section-list): Add at least
227 the 'Utility menu entry.
229 * src/config.lisp (*xdg-section-list*): moved to config.lisp.
231 * src/clfswm-util.lisp (update-menus): Set a default value for
232 searching .desktop files when XDG_DATA_DIRS is not set.
234 2011-10-15 Philippe Brochard <pbrochard@common-lisp.net>
236 * src/clfswm-internal.lisp (place-window-from-hints): Use
237 with-placement macro to place unmanaged windows in an arbitrary
240 2011-06-16 Philippe Brochard <pbrochard@common-lisp.net>
242 * src/clfswm-internal.lisp (clean-windows-in-all-frames): Prevent
243 current root and current child being equal to child.
245 2011-06-13 Philippe Brochard <pbrochard@common-lisp.net>
247 * src/keysyms.lisp: Repeat Page_Down/Up keysym definitions at the
248 end of the file to change keysyms priority.
250 2011-06-13 Sylvain HENRY <hsyl20@gmail.com>
252 * *.*: Minor spelling fix.
254 2011-06-12 Philippe Brochard <pbrochard@common-lisp.net>
256 * src/clfswm.lisp (:unmap-notify, :destroy-notify): Show all
257 children just after the xlib tree cleanup -> reduce the
258 flickering when a window is deleted or destroyed.
260 * src/clfswm-internal.lisp (process-existing-windows): Do not
261 process the notify window.
263 2011-06-08 Philippe Brochard <pbrochard@common-lisp.net>
265 * *: **** Release 1106 ****
267 2011-06-08 Philippe Brochard <pbrochard@common-lisp.net>
269 * src/clfswm-internal.lisp (clean-windows-in-all-frames): New
270 function to prevent xlib error when a window is deleted.
272 2011-06-08 Philippe Brochard <pbrochard@common-lisp.net>
274 * src/clfswm-internal.lisp
275 (delete-child-and-children-in-all-frames): Delete or destroy
276 children before displaying all children.
278 2011-06-05 Philippe Brochard <pbrochard@common-lisp.net>
280 * src/clfswm-util.lisp (add-frame-in-parent-frame): New function
283 2011-06-04 Philippe Brochard <pbrochard@common-lisp.net>
285 * src/clfswm.lisp (main-unprotected): Destroy all frames windows
286 before closing the display (not really needed).
288 2011-06-02 Philippe Brochard <pbrochard@common-lisp.net>
290 * src/clfswm-layout.lisp (inc-tile-layout-size)
291 (dec-tile-layout-size, inc-slow-tile-layout-size)
292 (dec-slow-tile-layout-size): New functions and bindings.
294 2011-06-01 Philippe Brochard <pbrochard@common-lisp.net>
296 * src/clfswm-expose-mode.lisp (define-expose-letter-keys): Add
297 0..1 and A..Z keys to select a child in exposé mode.
299 * src/clfswm-internal.lisp (display-frame-info): Remove hidden
300 infos in frames windows.
302 * src/clfswm-util.lisp (ask-close/kill-current-window): Menu
305 2011-05-30 Philippe Brochard <pbrochard@common-lisp.net>
307 * src/clfswm-internal.lisp (get-parent-layout): Minor fullscreen
310 2011-05-29 Philippe Brochard <pbrochard@common-lisp.net>
312 * src/clfswm-internal.lisp
313 (delete-child-and-children-in-all-frames): Show all children
314 before deleting/destroying a windows, so prevent a flickering.
315 (get-parent-layout): Return the fullscreen size when the current
318 2011-05-28 Philippe Brochard <pbrochard@common-lisp.net>
320 * src/clfswm-internal.lisp (get-parent-layout): Handle correctly
323 * src/clfswm-util.lisp (delete-focus-window-generic): Do not hide
324 child before removing, so prevent a flickering.
326 * src/clfswm-internal.lisp (show-all-children): Rectangular
327 optimization to display only needed children.
328 (show-all-children): Remove flickering on
329 select-next/previous-brother.
331 2011-05-17 Philippe Brochard <pbrochard@common-lisp.net>
333 * src/clfswm-util.lisp (copy-focus-window, cut-focus-window): New
334 functions and ask-close/kill-current-window menu and bindings
337 2011-05-16 Philippe Brochard <pbrochard@common-lisp.net>
339 * src/clfswm-util.lisp (ask-close/kill-current-window): Add an
340 *ask-close/kill-placement* placement window variable.
342 2011-05-09 Philippe Brochard <pbrochard@common-lisp.net>
344 * contrib/osd.lisp (funcall-button-from-code): Display osd
345 documention for buttons and fix some redefining warnings.
347 2011-05-07 Philippe Brochard <pbrochard@common-lisp.net>
349 * src/clfswm-nw-hooks.lisp (make-permanent-nw-hook-frame): New
350 function. Prevent to add or delete a new window hook for this
353 * src/clfswm-layout.lisp (update-layout-managed-children-position):
356 2011-05-06 Philippe Brochard <pbrochard@common-lisp.net>
358 * src/bindings-second-mode.lisp (set-default-second-keys):
359 select-brother-spatial-move-* binding update.
361 * src/clfswm-layout.lisp (tile-left|right|top|bottom-layout): Ask
362 to keep children positions or not.
364 * src/clfswm-internal.lisp (fixe-real-size): Takes care of border
367 * src/clfswm-layout.lisp (update-layout-managed-children): Fix a
368 bug by using the parent frame instead of the current child.
370 * src/clfswm-circulate-mode.lisp
371 (select-brother-generic-spatial-move+right/left/up/down): New
372 function to select a brother from another in a spatial move.
374 2011-04-19 Philippe Brochard <pbrochard@common-lisp.net>
376 * src/clfswm-pack.lisp (move-frame-constrained)
377 (resize-frame-constrained): Use pixels instead of floating
380 2011-04-18 Philippe Brochard <pbrochard@common-lisp.net>
382 * src/clfswm-pack.lisp (resize-frame-constrained): Takes care of
384 (implode-frame, implode-current-frame): New functions. Absorb all
385 frames subchildren in frame. Explode frame opposite.
387 2011-04-17 Philippe Brochard <pbrochard@common-lisp.net>
389 * src/clfswm-pack.lisp (move-frame-constrained)
390 (resize-frame-constrained): New function. Move and resize frame
391 with the mouse constrained by other frame brothers.
393 2011-04-14 Philippe Brochard <pbrochard@common-lisp.net>
395 * src/clfswm-util.lisp (with-movement-select-next-brother)
396 (with-movement-select-previous-brother)
397 (with-movement-select-next-child): Use a simple method (do not
398 enter in the circulate mode) to allow to circulate in all children
401 * src/clfswm-menu.lisp (open-menu): Save info hash table keys
402 instead of deleting newly created keys.
404 2011-03-21 Philippe Brochard <pbrochard@common-lisp.net>
406 * src/clfswm-internal.lisp (x-px->fl, y-px->fl): Takes care of
409 2011-03-20 Philippe Brochard <pbrochard@common-lisp.net>
411 * src/clfswm-info.lisp (show-config-variable): call
412 produce-conf-var-doc.
414 2011-03-18 Philippe Brochard <pbrochard@common-lisp.net>
416 * src/clfswm-autodoc.lisp (produce-conf-var-doc-html): Produce a
417 documentation for all configurable variables in CLFSWM -
420 * src/clfswm-internal.lisp (leave-frame): Hide all children except
423 2011-03-16 Philippe Brochard <pbrochard@common-lisp.net>
425 * src/clfswm-autodoc.lisp (produce-all-docs): Produce a
426 documentation for all configurable variables in CLFSWM.
428 * src/clfswm-layout.lisp (set-gimp-layout): Display a notify
429 window with the help on the GIMP layout.
431 2011-03-12 Philippe Brochard <pbrochard@common-lisp.net>
433 * src/menu-def.lisp: Menu update to prevent cursor keys clash.
435 * clfswm.asd: Change compilation order to prevent undefined
438 * src/clfswm-internal.lisp (show-child(frame)): Handle properly
439 the show-root-frame-p parameter.
441 2011-03-11 Philippe Brochard <pbrochard@common-lisp.net>
443 * src/clfswm-util.lisp (move-frame, resize-frame): Do not move or
444 resize a frame when it's the current root.
446 2011-03-10 Philippe Brochard <pbrochard@common-lisp.net>
448 * src/clfswm-internal.lisp (show-all-children): Handle properly
449 duplicated child in multipe frames.
451 2011-03-09 Philippe Brochard <pbrochard@common-lisp.net>
453 * contrib/volume-mode.lisp (set-default-volume-keys): Add more
454 keybindings (up/down, right/left) to raise/lower the volume.
456 * src/clfswm-layout.lisp: Add a variable border size for frames
459 2011-03-08 Philippe Brochard <pbrochard@common-lisp.net>
461 * src/clfswm-util.lisp (cut-current-child, remove-current-child)
462 (delete-current-child): Hide the current child before doing the
465 * src/clfswm-internal.lisp (show-all-children): Hide windows not
466 in the current root before displaying those in current root.
467 Remove all hide-all unnecessary calls.
469 * src/clfswm-configuration.lisp (save-variables-in-conf-file):
470 Save only variables with a different value than their original
473 2011-03-07 Philippe Brochard <pbrochard@common-lisp.net>
475 * src/clfswm-info.lisp (show-config-variable): Use the new
478 * src/clfswm-autodoc.lisp (produce-configuration-variables): Use
479 the new defconfig method.
481 * src/clfswm-configuration.lisp (create-configuration-menu):
482 Change the config system with a more lispy one and a less string
483 based one: (defconfig name value group doc).
486 2011-03-06 Philippe Brochard <pbrochard@common-lisp.net>
488 * src/clfswm-internal.lisp (show-all-children): Simplify the
490 (show-child): Display an unmanaged window whe it's the current
492 (show-all-children): add the ability to display all child from
493 *root-frame* and hide all those who are not in *current-root*.
494 -> remove hide-all-children when needed.
496 * src/xlib-util.lisp (move-window,resize-window): Add a
497 *color-move-window* border when moving or resizing a window.
499 2011-03-04 Philippe Brochard <pbrochard@common-lisp.net>
501 * src/clfswm-internal.lisp (show-all-children): Perform only one
502 recusion on the clfswm tree: calculate geometry and place child in
505 2011-03-03 Philippe Brochard <pbrochard@common-lisp.net>
507 * src/clfswm-internal.lisp (show-all-children): Rethink of display
508 child order to prevent very annoying flickering.
510 2011-02-27 Philippe Brochard <pbrochard@common-lisp.net>
512 * src/clfswm-util.lisp (query-yes-or-no): New function.
514 * src/clfswm-configuration.lisp (reset-all-config-variables): New
515 function and menu entry.
516 (query-conf-value): Add the ability to leave the field blank to
517 reset the variable to its default value.
519 2011-02-26 Philippe Brochard <pbrochard@common-lisp.net>
521 * src/clfswm-configuration.lisp
522 (add-all-configuration-default-value): Add a default value to
523 configurable variables.
525 2011-02-23 Philippe Brochard <pbrochard@common-lisp.net>
527 * src/clfswm.lisp (main-unprotected): Create the configuration
528 menu only once at startup.
530 2011-02-22 Desmond O. Chang <dochang@gmail.com>
532 * contrib/amixer.lisp: Add a volume mode inspired by the emms
533 volume package. Alsa mixer interface.
535 * contrib/volume-mode.lisp: Add a volume mode inspired by the emms
538 2011-02-22 Desmond O. Chang <dochang@gmail.com>
540 * src/clfswm.lisp (main): Use ASDF:SYSTEM-SOURCE-DIRECTORY instead
541 of *LOAD-TRUENAME*. *LOAD-TRUENAME* is only bound during a call to
542 LOAD. If one eval CLFSWM:MAIN in repl, BASE-DIR will be an empty
543 string. Use ASDF:SYSTEM-SOURCE-DIRECTORY to fix it.
545 2011-02-16 Philippe Brochard <pbrochard@common-lisp.net>
547 * src/clfswm.lisp (main-unprotected): Add a close hook. And close
548 the notify window, the virtual keyboard and the clfswm terminal by
551 2011-02-15 Philippe Brochard <pbrochard@common-lisp.net>
553 * src/clfswm.lisp (main-unprotected): Destroy the notify window
554 before closing the display. This fix a bug when resetting/reloading
557 2011-02-12 Philippe Brochard <pbrochard@common-lisp.net>
559 * src/xlib-util.lisp (equal-wm-class-fun, equal-wm-name-fun)
560 (raise-window-fun, raise-and-focus-window-fun): New functions.
562 * src/config.lisp (*clfswm-terminal-cmd*): Switch from xterm to
564 (*never-managed-window-list*): Structure change to be more
565 flexible. Let the choice to focus, raise and do nothing on never
568 2011-02-09 Philippe Brochard <pbrochard@common-lisp.net>
570 * src/clfswm-util.lisp (mouse-focus-move/resize-generic): Take
571 care of never managed windows to move or resize them if the raise
574 * src/clfswm-internal.lisp (in-frame, in-window, in-child): New
577 2011-02-08 Philippe Brochard <pbrochard@common-lisp.net>
579 * src/clfswm.lisp (main-mode): Raise or not unmanaged windows
580 following request in *never-managed-window-list*.
582 2011-02-05 Philippe Brochard <pbrochard@common-lisp.net>
584 * *: **** Release 1102 ****
586 2011-02-05 Desmond O. Chang <dochang@gmail.com>
588 * src/keysyms.lisp: Add extended keysyms from stumpwm.
590 2011-02-01 Desmond O. Chang <dochang@gmail.com>
592 * src/clfswm-util.lisp (run-or-raise): New function (thanks to
595 * src/clfswm-internal.lisp (with-all-*): add a nil block.
597 2011-01-28 Desmond O. Chang <dochang@gmail.com>
599 * src/clfswm-util.lisp (xdg-config-home): XDG_CONFIG_HOME should
600 be $HOME/.config by default.
602 2010-12-29 Philippe Brochard <pbrochard@common-lisp.net>
604 * contrib/osd.lisp (display-doc): Add another method where a
605 CLFSWM native window is used to display the key documentation.
607 2010-12-27 Philippe Brochard <pbrochard@common-lisp.net>
609 * src/xlib-util.lisp (with-xlib-protect): Force to revert to the
612 2010-12-25 Philippe Brochard <pbrochard@common-lisp.net>
614 * src/clfswm-second-mode.lisp (second-key-mode): Call the second
615 mode leave function only when the generic mode was ended.
617 2010-12-08 Philippe Brochard <pbrochard@common-lisp.net>
619 * src/clfswm-second-mode.lisp (sm-leave-function): Do not use
620 *second-mode-program* anymore.
622 2010-12-07 Philippe Brochard <pbrochard@common-lisp.net>
624 * src/clfswm-second-mode.lisp (*second-mode-leave-function*): New
625 variable bound to a function executed (when not null) on second
628 2010-11-14 Philippe Brochard <pbrochard@common-lisp.net>
630 * src/clfswm-util.lisp (find-child-under-mouse): Do not find
633 2010-11-13 Philippe Brochard <pbrochard@common-lisp.net>
635 * src/clfswm-expose-mode.lisp (expose-mode-display-accel-windows):
636 Do not display the accel window for unmanaged windows.
638 2010-11-11 Philippe Brochard <pbrochard@common-lisp.net>
640 * src/clfswm-internal.lisp (set-current-root): Handle
641 window-parent in set-current-root.
643 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Do not
644 focus the parent child when the current root is a window.
646 2010-11-09 Philippe Brochard <pbrochard@common-lisp.net>
648 * src/clfswm-expose-mode.lisp (expose-windows-current-child-mode):
649 New function an bindings.
651 * src/clfswm-layout.lisp (tile-layout, set-tile-layout): Fill
654 2010-11-07 Philippe Brochard <pbrochard@common-lisp.net>
656 * src/clfswm-layout.lisp (tile-layout-ask-keep-position): New
657 function to let the user choose to keep child position with
660 * src/clfswm-internal.lisp (remove-frame-data-slot): New
663 2010-11-05 Philippe Brochard <pbrochard@common-lisp.net>
665 * src/clfswm-internal.lisp (frame-select-next-child)
666 (frame-select-previous-child): New functions and bindings. Select
667 the next/previous child in the current frame.
669 2010-10-31 Philippe Brochard <pbrochard@common-lisp.net>
671 * src/clfswm-query.lisp (query-mode-complet): New function: Handle
672 completion in query-mode.
674 2010-10-30 Philippe Brochard <pbrochard@common-lisp.net>
676 * src/clfswm-query.lisp (query-print-string): Handle long lines
679 2010-10-27 Philippe Brochard <pbrochard@common-lisp.net>
681 * src/clfswm-expose-mode.lisp (expose-create-window): Ensure that
682 all characters are printable.
684 2010-10-25 Philippe Brochard <pbrochard@common-lisp.net>
686 * contrib/server/server.lisp: Load clfswm client code in the main
687 program and let the user start it with a --client command line
690 * src/package.lisp (*main-entrance-hook*): New hook executed after
691 loading configuration file and before opening the display.
693 2010-10-23 Philippe Brochard <pbrochard@common-lisp.net>
695 * src/xlib-util.lisp: Remove unnecessary xlib:display-finish-output.
697 * src/clfswm-internal.lisp (show-child): Show window only if not
700 * src/clfswm-keys.lisp (binding-substitute-modifier): Utility to
701 change modifiers after binding definition.
703 2010-10-21 Philippe Brochard <pbrochard@common-lisp.net>
705 * contrib/osd.lisp: New file: OSD (On Screen Display) for
708 * src/clfswm-menu.lisp (open-menu): Modularise function.
710 2010-10-13 Philippe Brochard <pbrochard@common-lisp.net>
712 * src/clfswm-info.lisp (show-first-aid-kit): Display the essential
713 key binding in main and second mode.
715 2010-10-10 Philippe Brochard <pbrochard@common-lisp.net>
717 * src/clfswm-util.lisp (open-notify-window): Convert hello-window
718 functions to a more generic Notify-window system.
720 * src/tools.lisp (add-timer): Add an id to identify the timer.
722 2010-10-09 Philippe Brochard <pbrochard@common-lisp.net>
724 * src/tools.lisp (erase-timer): New function.
726 * src/clfswm-util.lisp (display-hello-window): Add a timer to hide
727 the hello window. Add Configuration variables.
729 2010-10-08 Philippe Brochard <pbrochard@common-lisp.net>
731 * src/clfswm-util.lisp (): Add an Hello window at startup.
733 * src/tools.lisp (process-timers): Add a timer system.
735 2010-10-07 Philippe Brochard <pbrochard@common-lisp.net>
737 * src/clfswm-query.lisp (add-in-query-string): Handle correctly
740 2010-10-06 Philippe Brochard <pbrochard@common-lisp.net>
742 * src/clfswm-query.lisp (query-print-string): Change cursor color
743 and show parenthesis matching with colors (on match and on
746 2010-10-05 Philippe Brochard <pbrochard@common-lisp.net>
748 * src/clfswm-internal.lisp (show-all-children): Do not raise a
749 child when its parent is hidden.
751 2010-10-02 Philippe Brochard <pbrochard@common-lisp.net>
753 * src/clfswm-circulate-mode.lisp (select-next-subchild): Add the
754 possibility to circulate over subchild of the current child.
756 * src/clfswm-expose-mode.lisp (expose-all-windows-mode)
757 (expose-windows-generic): Add an escape-body function to return to
758 the original state on escape key.
760 * src/clfswm-util.lisp (bind-on-slot): Add an optional parameter
761 to bind the current child from the configuration file.
763 2010-10-01 Philippe Brochard <pbrochard@common-lisp.net>
765 * src/clfswm-nw-hooks.lisp (absorb-window-nw-hook): Absorb new
766 window hook: the frame absorb all new windows that match
767 nw-absorb-test frame data slot.
769 2010-09-30 Philippe Brochard <pbrochard@common-lisp.net>
771 * src/clfswm-expose-mode.lisp (expose-create-window): Show window
772 title in accel window.
774 2010-09-29 Philippe Brochard <pbrochard@common-lisp.net>
776 * configure: Use the Xavier Maillard clfswm script in contrib to
777 build an executable in the standard way.
779 2010-09-26 Philippe Brochard <pbrochard@common-lisp.net>
781 * src/clfswm-expose-mode.lisp (expose-mode-display-accel-windows):
782 New functions. Add a window on each child in the expose mode to
785 * src/clfswm-internal.lisp (child-x, child-y, child-width)
786 (child-height): New methods to get real child coordinates.
788 2010-09-25 Philippe Brochard <pbrochard@common-lisp.net>
790 * src/clfswm-layout.lisp (*-layout): Use child-position.
792 * src/clfswm-internal.lisp (child-position): New function.
794 * src/clfswm-expose-mode.lisp (expose-windows-mode)
795 (expose-all-windows-mode): Use a generic mode.
797 * src/xlib-util.lisp (with-handle-event-symbol): Use a filled list
798 with handle-event-fun symbols instead of inspecting clfswm
799 internals symbols on each mode change.
801 * src/clfswm-expose-mode.lisp: Move and rename present*-windows in
802 a separate clfswm-expose-mode.lisp file.
804 * src/clfswm-util.lisp (speed-mouse-right, speed-mouse-down): Use
805 screen size instead of hardcoded test coordinates.
807 2010-09-24 Philippe Brochard <pbrochard@common-lisp.net>
809 * src/clfswm-util.lisp (speed-mouse-reset, speed-mouse-left)
810 (speed-mouse-right, speed-mouse-up, speed-mouse-down)
811 (speed-mouse-undo, speed-mouse-first-history): New functions to
812 quickly move the mouse. Implemented for the second mode.
814 2010-09-16 Philippe Brochard <pbrochard@common-lisp.net>
816 * contrib/clfswm: Move clfswm sources to $tmp_dir if there is no
817 write permission on $clfswm_asd_path. So anybody can start clfswm
818 even if there is no write permission on the source directory.
820 2010-09-12 Philippe Brochard <pbrochard@common-lisp.net>
822 * contrib/clfswm: Add support to cmucl, ccl and ecl.
824 2010-09-11 Philippe Brochard <pbrochard@common-lisp.net>
826 * src/clfswm-util.lisp (set-hide-unmanaged-window)
827 (set-show-unmanaged-window, set-default-hide-unmanaged-window):
828 New functions and menu entry.
829 (set-globally-hide-unmanaged-window)
830 (set-globally-show-unmanaged-window): New functions and menu
833 * src/clfswm-internal.lisp (hide-unmanager-window-p): New
835 (show-child): Add a data slot on frame to hide or not unmanaged
838 * src/clfswm-corner.lisp (present-clfswm-terminal)
839 (present-virtual-keyboard): Use a function (generic-present-body)
840 instead of a macro (generate-present-body).
842 * src/clfswm-util.lisp (update-menus): List all directories and
843 subdirectories in $XDG_DATA_DIRS/applications.
845 2010-09-10 Philippe Brochard <pbrochard@common-lisp.net>
847 * src/clfswm-corner.lisp (generate-present-body): New macro.
848 (present-clfswm-terminal, present-virtual-keyboard): Use
849 generate-present-body.
851 2010-09-09 Philippe Brochard <pbrochard@common-lisp.net>
853 * src/clfswm-util.lisp (update-menus): Follow XDG specifications
854 instead of the non-portable Debian update-menu.
856 2010-09-07 Philippe Brochard <pbrochard@common-lisp.net>
858 * src/clfswm.lisp (error-handler): New function do handle
859 asynchronous errors and ignore them.
860 (open-display): Install the new error-handler on display.
862 2010-09-05 Philippe Brochard <pbrochard@common-lisp.net>
864 * src/xlib-util.lisp (with-xlib-protect): Add a
865 with-simple-restart on top of body execution.
867 2010-09-04 Philippe Brochard <pbrochard@common-lisp.net>
869 * src/clfswm.lisp (main-loop): Protect all xlib functions with an
872 * src/xlib-util.lisp (handle-event): use with-xlib-protect only in
873 handle-event. Add a with-simple-restart to prevent a
874 clisp/new-lisp infinite loop.
876 2010-08-30 Philippe Brochard <pbrochard@common-lisp.net>
878 * src/clfswm-corner.lisp (present-clfswm-terminal): Make the
879 clfswm terminal working even on xterm title changes.
881 2010-08-29 Philippe Brochard <pbrochard@common-lisp.net>
883 * src/clfswm-util.lisp (run-other-window-manager): Update for
886 * src/tools.lisp (do-execute): New parameter io to change the
889 * src/clfswm-util.lisp (hide-current-child): Prevent from removing
892 * src/clfswm-internal.lisp (child-member): New predicate.
893 (child-remove): New function.
895 * src/*.lisp: Use child-member and child-remove everywhere it's
898 2010-08-28 Philippe Brochard <pbrochard@common-lisp.net>
900 * src/clfswm.lisp (main-loop): Ensure that all events have been
901 processed after a process-event.
903 * src/clfswm-internal.lisp (is-in-current-child-p): New function.
905 2010-08-27 Philippe Brochard <pbrochard@common-lisp.net>
907 * src/clfswm.lisp (main-mode:configure-request): Raise the window
908 only when present on the current child and focus it accordingly.
910 2010-08-26 Philippe Brochard <pbrochard@common-lisp.net>
912 * src/clfswm-circulate-mode.lisp (circulate-loop-function):
913 Use is-a-key-pressed-p.
915 * src/xlib-util.lisp (is-a-key-pressed-p): New predicate.
917 * src/clfswm-keys.lisp (define-ungrab/grab): Use all values
918 returned by xlib:keysym->keycodes.
920 * src/*.lisp: Use the new child-equal-p to compare children. This
921 prevent a bug with sbcl/cmucl when the standard equal function
922 does not work with xlib:window.
924 * src/clfswm-internal.lisp (child-equal-p): New predicate.
926 2010-08-25 Philippe Brochard <pbrochard@common-lisp.net>
928 * src/clfswm-generic-mode.lisp (generic-mode): Use an
929 xlib:event-listen before processing event with
930 xlib:process-event. This prevent a bug with CLX threaded
931 implementation like sbcl.
933 * src/clfswm.lisp (main-loop): Use an xlib:event-listen before
934 processing event with xlib:process-event. This prevent a bug with
935 CLX threaded implementation like sbcl.
937 2010-08-17 Philippe Brochard <pbrochard@common-lisp.net>
939 * contrib/server/key.lisp (ushell-sh): Add ccl and ecl support.
941 * src/xlib-util.lisp (compress-motion-notify): Use a loop instead
944 * src/clfswm-internal.lisp (with-find-in-all-frames): New macro.
945 (find-parent-frame, find-frame-window, find-frame-by-name)
946 (find-frame-by-number): Use with-find-in-all-frames to search in
947 frames in the right order.
949 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Fix an
950 unwanted flickering with unmanaged windows.
952 2010-08-16 Philippe Brochard <pbrochard@common-lisp.net>
954 * src/package.lisp: Remove event handler hooks as they're not
955 needed anymore (To replace them: use closure and define-handler).
957 * src/xlib-util.lisp (move-window, resize-window)
958 (wait-mouse-button-release): Use a generic mode.
960 * src/*.lisp: Replace the case to handle event with a more (tricky)
961 lispy method which bind a function to each keywords associated
964 2010-07-23 Philippe Brochard <pbrochard@common-lisp.net>
966 * src/clfswm-util.lisp (delete-current-child): Invert bindings and
967 menu entry between delete-current-child and remove-current-child.
968 ie: Delete a child and its children in all frames by default.
970 2010-07-21 Philippe Brochard <pbrochard@common-lisp.net>
972 * src/package.lisp: Add a placement configuration group.
974 * src/binding*.lisp: Bind control+g to escape the current action
977 * src/clfswm-internal.lisp
978 (delete-child-and-children-in-all-frames): New function and
979 binding: Second mode - Control+Delete delete the current child and
980 its children in all frames (ie: close the current child and its
983 2010-07-20 Philippe Brochard <pbrochard@common-lisp.net>
985 * src/clfswm-internal.lisp (remove-child-in-frame): Do not destroy
986 the frame window and the frame gc. Close a very annoying bug when
987 cuting/pasting a frame or moving a child over frames with the
990 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Redisplay
991 all children in *current-root* after moving/resizing a frame.
993 2010-07-18 Philippe Brochard <pbrochard@common-lisp.net>
995 * src/clfswm-util.lisp (delete-focus-window)
996 (destroy-focus-window): Remove child in parent frame before
999 2010-07-16 Philippe Brochard <pbrochard@common-lisp.net>
1001 * src/clfswm-util.lisp (identify-key): Add a timeout in
1003 (mouse-click-to-focus-generic): Use find-child-under-mouse instead
1004 of the window passed by xlib:process-event.
1006 * src/xlib-util.lisp (move-window, resize-window)
1007 (wait-mouse-button-release): Add a timeout in xlib:process-event.
1009 2010-04-11 Philippe Brochard <pbrochard@common-lisp.net>
1011 * src/clfswm-util.lisp (run-other-window-manager): Add the ability
1012 to launch an other window manager and to return to clfswm.
1014 2010-03-18 Philippe Brochard <pbrochard@common-lisp.net>
1016 * src/clfswm-layout.lisp (set-tile-space-layout): Set default
1019 2009-12-15 Philippe Brochard <pbrochard@common-lisp.net>
1021 * src/clfswm.lisp (main-loop): Add a *loop-hook* parameter and a
1024 * src/clfswm-generic-mode.lisp (generic-mode): Add a loop-hook
1025 parameter and a loop timeout.
1027 2009-12-05 Philippe Brochard <pbrochard@common-lisp.net>
1029 * src/clfswm.lisp (main): Add an alternate configuration filename
1032 * load.lisp: Add a debuging code example.
1034 2009-11-14 Philippe Brochard <pbrochard@common-lisp.net>
1036 * src/clfswm-configuration.lisp (create-configuration-menu): New
1037 menu to configure all clfswm variables while clfswm is running.
1039 2009-11-12 Philippe Brochard <pbrochard@common-lisp.net>
1041 * src/clfswm-util.lisp (save-configuration-variables): New
1042 function to save all configuration variables in clfswmrc.
1044 2009-11-11 Philippe Brochard <pbrochard@common-lisp.net>
1046 * src/clfswm-info.lisp (info-mode): Begining of mouse support in
1048 (set-default-info-keys): Add cursor key support in info mode.
1050 2009-11-08 Philippe Brochard <pbrochard@common-lisp.net>
1052 * contrib/reboot-halt.lisp: Add a Suspend/Reboot/Halt menu in
1055 * src/clfswm.lisp (main): Add a read-conf-file-p parameter to
1056 prevent reading the configuration file (this may be useful to
1057 produce the original documentation without user modifications
1058 with the rc configuration file).
1060 2009-11-07 Philippe Brochard <pbrochard@common-lisp.net>
1062 * src/bindings-second-mode.lisp (set-default-second-keys):
1063 Simplification of Escape key to close/kill/remove the focus window
1064 and unhide all windows.
1066 * src/bindings.lisp (set-default-main-keys): Simplification of
1067 Escape key to close/kill/remove the focus window and unhide all
1070 * src/clfswm-util.lisp (ask-close/kill-current-window): Add remove
1071 focus and unhide all windows capabilities.
1073 2009-10-10 Philippe Brochard <pbrochard@common-lisp.net>
1075 * contrib/mpd.lisp (start-gmpc): Add gmpc in the mpd menu.
1077 2009-07-29 Philippe Brochard <pbrochard@common-lisp.net>
1079 * src/clfswm-layout.lisp (tile-layout, tile-horizontal-layout):
1080 Keep child order and don't make unnecessary child movement.
1081 (one-column-layout, one-line-layout): New layouts.
1083 2009-06-29 Philippe Brochard <pbrochard@common-lisp.net>
1085 * *: **** Release 0906 ****
1087 * contrib/cd-player.lisp: New file to handle the CD player.
1089 * contrib/xmms.lisp: New file to handle the xmms player.
1091 2009-06-28 Philippe Brochard <pbrochard@common-lisp.net>
1093 * src/clfswm-layout.lisp (set-no-layout-remember-size): New layout:
1094 Maximize windows in their frame - Leave frames to their actual
1097 * src/bindings-second-mode.lisp (set-default-second-keys): Bind
1098 "o" on set-open-in-new-frame-in-parent-frame-nw-hook.
1100 2009-06-27 Philippe Brochard <pbrochard@common-lisp.net>
1102 * contrib/keyb_fr.lisp: New file to handle an azerty keyboard.
1104 2009-06-24 Philippe Brochard <pbrochard@common-lisp.net>
1106 * contrib/mpd.lisp: Use a standard menu.
1108 * src/clfswm-info.lisp: Use a standard menu for the help-menu.
1110 2009-06-22 Philippe Brochard <pbrochard@common-lisp.net>
1112 * contrib/mpd.lisp: New file to handle the Music Player Daemon (MPD)
1114 2009-06-19 Philippe Brochard <pbrochard@common-lisp.net>
1116 * src/clfswm-autodoc.lisp (produce-doc, produce-doc-html): Minor
1119 2009-06-18 Philippe Brochard <pbrochard@common-lisp.net>
1121 * src/config.lisp (get-fullscreen-size): One pixel adjustment
1124 * src/clfswm-placement.lisp (*-child-placement): One pixel
1127 2009-06-16 Philippe Brochard <pbrochard@common-lisp.net>
1129 * src/clfswm-circulate-mode.lisp (draw-circulate-mode-window):
1130 Ensure that all characters are printable.
1132 * src/config.lisp (get-fullscreen-size): Adjust default fullscreen
1135 * src/clfswm-placement.lisp (*-child-placement): Adjust
1136 coordinates to one pixel in the current child.
1138 2009-06-04 Philippe Brochard <pbrochard@common-lisp.net>
1140 * src/clfswm-query.lisp (query-enter-function): Assign font before
1141 width and height calculation.
1143 2009-06-03 Philippe Brochard <pbrochard@common-lisp.net>
1145 * src/xlib-util.lisp (banish-pointer): Use with-placement macro to
1146 bannish the pointer in an arbitrary place.
1148 * src/clfswm-info.lisp (info-mode): Use with-placement macro to
1149 place the info window in an arbitrary place.
1151 * src/clfswm-query.lisp (query-enter-function): Use with-placement
1152 macro to place the query window in an arbitrary place.
1154 * src/clfswm-placement.lisp: New file. Allow to place info windows
1155 or query windows on an arbitrary place. Allow to bannish the
1156 pointer on an arbitrary place.
1158 2009-05-16 Philippe Brochard <pbrochard@common-lisp.net>
1160 * src/clfswm-circulate-mode.lisp (reorder-child)
1161 (reorder-brother): Unfocus windows before reordering children or
1164 2009-05-13 Philippe Brochard <pbrochard@common-lisp.net>
1166 * src/clfswm-circulate-mode.lisp (reorder-brother): Ensure that
1167 the parent is a frame.
1169 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Handle
1170 motion with a default modifier.
1172 * src/clfswm.lisp (handle-motion-notify): Handle motion with a
1175 * src/clfswm-info.lisp (info-mode): Handle motion with a default
1177 (info-mode): Optimization in loop function.
1179 2009-05-10 Philippe Brochard <pbrochard@common-lisp.net>
1181 * src/clfswm-circulate-mode.lisp (reorder-brother): Handle
1182 root-frame correctly.
1184 * clfswm.asd: Dependency fix for clfswm-generic-mode.
1186 * src/clfswm-circulate-mode.lisp (reorder-child)
1187 (reorder-brother): Handle empty frames.
1188 (reorder-brother): Redisplay only the parent frame of the current
1191 * src/clfswm-util.lisp (frame-toggle-maximize): Redisplay only the
1192 parent frame of the current frame.
1194 2009-05-09 Philippe Brochard <pbrochard@common-lisp.net>
1196 * src/clfswm-util.lisp (frame-toggle-maximize): New function:
1197 Maximize/Unmaximize the current frame in its parent frame.
1199 * src/clfswm-layout.lisp (maximize-layout): New layout: Maximize
1200 windows and frames in their parent frame.
1202 2009-05-05 Philippe Brochard <pbrochard@common-lisp.net>
1204 * src/*.lisp: Add support for Clozure Common Lisp (CCL).
1206 * src/clfswm-circulate-mode.lisp (reorder-child)
1207 (reorder-brother): Reinitialise on circulate type change
1208 child to brother or brother to child.
1210 * src/*.lisp (*): Use map-window instead of xlib:map-window. So
1211 calls xlib:display-finish-output on each map-request. So speed up
1214 * src/xlib-util.lisp (map-window): New function. Call
1215 xlib:display-finish-output on each map request.
1217 2009-04-28 Philippe Brochard <pbrochard@common-lisp.net>
1219 * src/clfswm-second-mode.lisp (sm-handle-motion-notify):
1220 Optimisation when drawing second mode window.
1222 2009-04-27 Philippe Brochard <pbrochard@common-lisp.net>
1224 * src/clfswm-circulate-mode.lisp (circulate-mode): Optimisation in
1227 2009-04-22 Philippe Brochard <pbrochard@common-lisp.net>
1229 * src/clfswm-util.lisp (run-program-from-query-string): Launch
1230 command only with a return validation.
1232 2009-04-22 Xavier Maillard <xma@gnu.org>
1234 * src/clfswm-query.lisp (query-string): Use a generic mode.
1236 2009-04-19 Xavier Maillard <xma@gnu.org>
1238 * src/clfswm-info.lisp (info-mode): Use generic-mode for info-mode.
1240 2009-04-18 Xavier Maillard <xma@gnu.org>
1242 * src/clfswm-generic-mode.lisp (generic-mode): Add a generic mode
1243 to define all other modes.
1245 2009-04-05 Philippe Brochard <pbrochard@common-lisp.net>
1247 * src/package.lisp (): Use *default-font-string* for all
1250 * src/clfswm-info.lisp (info-mode): Ensure integer windows size.
1252 2009-02-17 Philippe Brochard <pbrochard@common-lisp.net>
1254 * src/xlib-util.lisp (null-size-window-p): Better check of null
1257 2009-02-14 Philippe Brochard <pbrochard@common-lisp.net>
1259 * src/clfswm.lisp (handle-map-request): Add a fix to manage
1260 correctly fullscreen windows (SDL particularly).
1262 2008-12-20 Philippe Brochard <pbrochard@common-lisp.net>
1264 * src/xlib-util.lisp (get-color): Allocate colors only once -> fix
1265 a segfault with clisp/new-clx.
1267 * src/clfswm.lisp (handle-motion-notify): Add a needed window
1270 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Add a
1271 needed window argument.
1273 2008-10-30 Philippe Brochard <pbrochard@common-lisp.net>
1275 * src/xlib-util.lisp (wait-no-key-or-button-press)
1276 (wait-a-key-or-button-press): Check buttons press/release correctly"
1278 2008-10-28 Philippe Brochard <pbrochard@common-lisp.net>
1280 * src/menu-def.lisp: Add children navigation menu in the movement
1281 menu (select next/previous child/brother/level).
1283 2008-10-26 Philippe Brochard <pbrochard@common-lisp.net>
1285 * *: Rename 'sister' frame to 'brother' frame.
1287 * src/clfswm-keys.lisp (unalias-modifiers): Convert a modifier
1288 alias in a real modifier.
1290 * src/package.lisp (*modifier-alias*): New list of modifier alias
1291 For example: :alt is :mod-1, :numlock is :mod-2...
1293 * src/tools.lisp (remove-hook): New function.
1295 * src/clfswm-keys.lisp (with-capslock, without-capslock)
1296 (with-numlock, without-cnumlock): New functions.
1298 2008-10-25 Philippe Brochard <pbrochard@common-lisp.net>
1300 * src/clfswm-info.lisp: Use the *binding-hook* to create info
1301 keys and mouse bindings.
1303 * src/bindings-second-mode.lisp: Use the *binding-hook* to create
1304 second keys and mouse bindings.
1306 * src/bindings.lisp: Use the *binding-hook* to create main keys
1309 2008-10-10 Philippe Brochard <pbrochard@common-lisp.net>
1311 * src/clfswm-menu.lisp (open-menu): Remember parent menu to undo
1314 2008-10-09 Philippe Brochard <pbrochard@common-lisp.net>
1316 * src/menu-def.lisp: Use a menu instead of a function for the
1319 2008-10-08 Philippe Brochard <pbrochard@common-lisp.net>
1321 * src/clfswm-util.lisp (show-standard-menu): Display the standard
1322 menu from the 'update-menus' command.
1324 2008-10-07 Philippe Brochard <pbrochard@common-lisp.net>
1326 * src/clfswm-query.lisp (query-string): Do not ungrab keyboard if
1327 it's already grabbed.
1329 * src/clfswm-internal.lisp (display-frame-info): Use configurable
1330 colors and fix a bug with background.
1331 (display-frame-info): Set window background when displaying info.
1333 2008-10-06 Philippe Brochard <pbrochard@common-lisp.net>
1335 * src/xlib-util.lisp (my-character->keysyms): Use a macro to avoid
1336 warning with clisp/new-clx.
1338 2008-10-04 Philippe Brochard <pbrochard@common-lisp.net>
1340 * src/clfswm-util.lisp (jump-to-slot): Prevent to jump on a
1343 2008-09-23 Philippe Brochard <pbrochard@common-lisp.net>
1345 * *: **** Release 0809 ****
1347 2008-09-23 Philippe Brochard <pbrochard@common-lisp.net>
1349 * src/clfswm-util.lisp (ensure-unique-name): New function and menu
1351 (ensure-unique-number): New function and menu entry.
1353 2008-09-22 Philippe Brochard <pbrochard@common-lisp.net>
1355 * src/clfswm-nw-hooks.lisp (named-frame-nw-hook): New new window
1356 hook: open the next window in a named frame.
1357 (numbered-frame-nw-hook): New new window hook: open the next
1358 window in a numbered frame.
1360 * src/clfswm-query.lisp (query-string): Grab the keyboard in all
1361 cases. So query-string can be called even in the main mode.
1363 * src/clfswm-internal.lisp (show-all-children): Do not raise a
1364 child by default => far less flickering.
1366 2008-09-19 Philippe Brochard <pbrochard@common-lisp.net>
1368 * src/bindings-second-mode.lisp: Bind "t" to tile-current-frame.
1370 * src/menu-def.lisp: Change key binding for the CLFSWM menu
1373 * src/xlib-util.lisp (xgrab-pointer): Handle the case where cursor
1374 is nil. (workaround on some CLX implementation).
1376 2008-09-12 Philippe Brochard <pbrochard@common-lisp.net>
1378 * src/menu-def.lisp: Add a menu to set a focus policy for all
1381 * src/clfswm-util.lisp (set-focus-policy-generic-for-all)
1382 (all-frames-set-*-focus-policy): Set a focus policy for all
1385 * src/clfswm.lisp (handle-enter-notify): sloppy-select
1386 mode. Select a child and its parents on mouse over.
1388 2008-09-03 Philippe Brochard <pbrochard@common-lisp.net>
1390 * src/clfswm.lisp (handle-enter-notify): Add a sloppy strict focus
1391 policy -> Sloppy focus only for windows in the current frame.
1392 (main-unprotected): Exit clfswm on init error (ie: when another
1393 window manager is running).
1395 * src/clfswm-util.lisp (reset-clfswm): New function.
1397 2008-09-02 Philippe Brochard <pbrochard@common-lisp.net>
1399 * src/clfswm-menu.lisp (init-menu): New function.
1401 * src/clfswm-util.lisp (reload-clfswm): New function to reload
1403 (exit-clfswm): Rename quit-clfswm to exit-clfswm.
1405 * src/clfswm.lisp (main, main-unprotected): Handle error in a
1406 superior main function. Now CLFSWM can't break the X session. It
1407 just reinitialize the display and run a new main loop.
1409 * src/clfswm-corner.lisp: Make *clfswm-terminal* and
1410 *vt-keyboard-on* global to avoid warnings when loading clfswm.
1412 * src/clfswm-layout.lisp: Add a specific GIMP layout menu.
1413 (help-on-gimp-layout): Describe how to use the GIMP layout.
1415 2008-09-01 Philippe Brochard <pbrochard@common-lisp.net>
1417 * src/clfswm-layout.lisp (set-gimp-layout): Change the layout to
1418 main-window-right-layout. Change the keybinding for (shift)alt+tab
1419 to not select windows in the main window lisst.
1420 Bind F8 to add a window in the main window list.
1421 Bind F9 to remove a window in the main window list.
1422 Change the focus policy to :sloppy.
1423 (set-previous-layout): Restore the previous layout, keybinding and
1426 2008-08-31 Philippe Brochard <pbrochard@common-lisp.net>
1428 * src/clfswm-menu.lisp (add-menu-comment): Add comments in menu.
1430 * src/clfswm-layout.lisp (main-window-left-layout)
1431 (main-window-bottom-layout, main-window-top-layout): New
1433 Factorize layouts in menu.
1435 2008-08-30 Philippe Brochard <pbrochard@common-lisp.net>
1437 * src/clfswm-layout.lisp (main-window-right-layout): A possible
1438 GIMP layout: one or more main windows on one side of the
1439 frame. Others on the other size.
1441 * src/clfswm-util.lisp
1442 (current-frame-set-click/sloppy-focus-policy): Each frame can have
1443 a different focus policy (one of :click or :sloppy).
1444 The default focus policy is set with *default-focus-policy*.
1446 2008-08-23 Philippe Brochard <pbrochard@common-lisp.net>
1448 * src/clfswm-info.lisp (show-config-variable): New function.
1450 2008-08-19 Philippe Brochard <pbrochard@common-lisp.net>
1452 * src/clfswm-layout.lisp (tile-horizontal-layout): New layout.
1454 * src/clfswm-info.lisp: Colored help for key binding and corners
1457 2008-08-18 Philippe Brochard <pbrochard@common-lisp.net>
1459 * src/clfswm-util.lisp (delete-focus-window)
1460 (destroy-focus-window): Remove chid only in
1461 handle-unmap/destroy-notify. Focus *current-root* only when
1462 closing/killing the current child.
1464 * src/clfswm-autodoc.lisp (produce-corner-*-doc): New autodoc
1465 functions or corners.
1467 2008-08-17 Philippe Brochard <pbrochard@common-lisp.net>
1469 * src/clfswm-corner.lisp (present-clfswm-terminal): New corner
1470 action: Hide/Unhide a terminal on mouse corner action. (By default
1471 right mouse button on the top left corner).
1473 * src/config.lisp (*never-managed-window-list*): New config
1476 * src/clfswm-internal.lisp (never-managed-window-p): New function:
1477 Handle never managed window in a more simple way.
1479 * src/clfswm-corner.lisp: New file and new and more simple method
1480 to define corners actions.
1482 2008-08-15 Philippe Brochard <pbrochard@common-lisp.net>
1484 * src/clfswm-info.lisp (info-mode): Info line can now be colored.
1486 * src/clfswm-layout.lisp (fast-layout-switch)
1487 (define-fast-layout-switch): New functions: Switch between two
1490 * src/clfswm-second-mode.lisp (leave-second-mode): Takes care if
1491 really in the second mode. So leave-second-mode can be used even
1494 * src/clfswm-util.lisp (switch-to-last-child): New function:
1495 Store the current child and switch to the previous one.
1497 2008-07-16 Philippe Brochard <pbrochard@common-lisp.net>
1499 * src/clfswm-util.lisp (display-current-window-info): Display the
1501 (have-to-present-virtual-keyboard): Add a virtual keyboard corner
1502 (top right by default). By default 'xvkbd' is used.
1504 2008-06-28 Philippe Brochard <pbrochard@common-lisp.net>
1506 * src/xlib-util.lisp (move-window, resize-window): Compress motion
1509 * src/clfswm.lisp (handle-motion-notify): Compress motion events.
1511 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Compress
1514 * src/clfswm-info.lisp (info-mode): Compress motion events.
1516 2008-06-21 Philippe Brochard <pbrochard@common-lisp.net>
1518 * src/clfswm-internal.lisp (show-all-children): Compute geometry
1519 and selection first and then show only necessary children.
1520 (show-child): remove unneeded display-p parameter.
1522 * src/config.lisp (get-fullscreen-size): Place the frame border
1523 outside the screen (this prevent the loose of 2 pixels per
1526 2008-06-12 Philippe Brochard <pbrochard@common-lisp.net>
1528 * src/clfswm-internal.lisp (focus-child): Algorithm change to
1529 raise only the selected child.
1531 2008-06-08 Philippe Brochard <pbrochard@common-lisp.net>
1533 * src/clfswm-internal.lisp (raise-p-list, show-all-children):
1534 Raise only viewable children.
1536 2008-06-06 Philippe Brochard <pbrochard@common-lisp.net>
1538 * src/clfswm-internal.lisp (show-all-children): Always raise all
1539 displayed children. Remove all references to raise-p.
1541 2008-06-04 Philippe Brochard <pbrochard@common-lisp.net>
1543 * src/menu-def.lisp (child-menu): New menu entry on raise/lower
1546 * src/bindings-second-mode.lisp ("Page_Down", "Page_Up"): New
1547 second mode binding on raise/lower child in its frame.
1549 * src/clfswm-nw-hooks.lisp (leave-focus-frame-nw-hook): Adapt
1550 behaviour to the new raise/lower property.
1551 Call clear-nw-hook before the rest of the hook.
1553 * src/bindings.lisp (mouse-click-to-focus-and-move-window)
1554 (mouse-click-to-focus-and-resize-window): Stop button event. This
1555 prevent a keyboard/pointer freeze.
1557 2008-06-03 Philippe Brochard <pbrochard@common-lisp.net>
1559 * src/clfswm-internal.lisp (frame-lower-child)
1560 (frame-raise-child): New functions to raise/lower a child in its
1563 * src/clfswm-util.lisp (have-to-present-windows)
1564 (have-to-present-all-windows): New functions to have an MaxOS
1565 expose like on mouse click in screen corner.
1567 * src/clfswm-info.lisp ("Page_Down", "Page_Up"): Add boundaries.
1569 2008-05-30 Philippe Brochard <pbrochard@common-lisp.net>
1571 * src/clfswm-util.lisp (unhide-a-child-from-all-frames): Unhide a
1572 child from a choice in all frames with hidden children.
1574 * src/clfswm-info.lisp (info-mode-menu): Handle separators.
1576 2008-05-28 Philippe Brochard <pbrochard@common-lisp.net>
1578 * src/clfswm-util.lisp (hide-current-child, unhide-a-child)
1579 (unhide-all-children): New functions.
1581 * src/clfswm-info.lisp (info-mode-menu): Handle symbols and
1584 * src/clfswm-util.lisp (hide/show-frame-window): new function and
1587 2008-05-23 Philippe Brochard <pbrochard@common-lisp.net>
1589 * src/clfswm-util.lisp (rename-current-child): Do not display the
1590 frame info for a window.
1592 2008-05-20 Philippe Brochard <pbrochard@common-lisp.net>
1594 * src/clfswm-internal.lisp (remove-child-in-frame): Destroy the
1595 frame window for the removed child and its children.
1597 2008-05-18 Philippe Brochard <pbrochard@common-lisp.net>
1599 * src/clfswm-autodoc.lisp (produce-*-doc-*): Add a note to use the
1602 2008-05-17 Philippe Brochard <pbrochard@common-lisp.net>
1604 * src/clfswm-nw-hooks.lisp (default-frame-nw-hook): Do not handle
1605 the ROX pinboard (ie: leave it lowered in the root window as
1608 * src/clfswm-layout.lisp (tile-left-space-layout): New layout.
1609 (tile-left-layout, tile-right-layout, tile-top-layout)
1610 (tile-bottom-layout): Use all the frame space when there is only
1613 * src/clfswm-internal.lisp (place-window-from-hints): Center
1614 unmanaged windows in the root screen.
1616 * src/clfswm-nw-hooks.lisp (clear-nw-hook, clear-all-nw-hooks):
1619 2008-05-15 Philippe Brochard <pbrochard@common-lisp.net>
1621 * src/clfswm-util.lisp (current-frame-manage-window-type): Fix a
1622 typo in managed types.
1624 * src/clfswm-internal.lisp (show-child): Always display frame info
1625 even if the frame is hidden.
1627 * src/xlib-util.lisp (resize-window): Use a better algorithme to
1630 2008-05-13 Philippe Brochard <pbrochard@common-lisp.net>
1632 * src/clfswm-util.lisp (with-movement): Display frame info for all
1633 frames in current root.
1635 2008-05-12 Philippe Brochard <pbrochard@common-lisp.net>
1637 * src/*.lisp: Rename 'brother' frames to 'sister' frames.
1639 * src/bindings-second-mode.lisp (define-second-key #\a): New
1640 binding on 'add-default-frame'.
1642 * src/clfswm-autodoc.lisp (produce-*-doc-*-in-file): Show a
1643 message to follow the autodocumentation process.
1645 2008-05-10 Philippe Brochard <pbrochard@common-lisp.net>
1647 * src/clfswm-util.lisp (bind-or-jump): Bind "Tab", "Return" and
1648 "Space" to jump to a child. "B" to bind a slot on the current
1651 * src/bindings-second-mode.lisp: Use "Tab" instead of
1654 2008-05-07 Philippe Brochard <pbrochard@common-lisp.net>
1656 * src/clfswm-util.lisp (find-child-under-mouse): Take care of
1657 unmanaged (hidden) windows.
1659 * src/clfswm-internal.lisp (place-window-from-hints): Give a
1660 minimal size for windows.
1661 (with-all-windows-frames-and-parent): New function.
1663 * src/config.lisp (*default-window-width/height*): New parameters.
1665 * src/clfswm-internal.lisp (place-window-from-hints): Center
1666 windows in the screen instead of in their frame.
1668 * src/bindings-second-mode.lisp (tile-space-current-frame): New
1671 * src/clfswm-layout.lisp (register-layout): Intern the once name
1672 in the right package.
1674 2008-05-05 Philippe Brochard <pbrochard@common-lisp.net>
1676 * doc/dot-clfswmrc: Update to follow the new clfswm way.
1678 2008-05-03 Philippe Brochard <pbrochard@common-lisp.net>
1680 * src/clfswm-internal.lisp (set-current-child)
1681 (adapt-child-to-parent, show-child, hide-child): Handle the case
1682 where child is not a frame or a window.
1684 * src/clfswm-util.lisp
1685 (mouse-click-to-focus-generic,mouse-focus-move/resize-generic):
1686 Check if child is a frame.
1688 * src/clfswm-internal.lisp (managed-window-p): Handle the case
1689 where frame is null.
1690 (place-frame): Check if frame and parent are frames.
1692 * src/clfswm-info.lisp (info-mode): display all frame info before
1695 * src/clfswm-second-mode.lisp (second-key-mode): display all frame
1696 info before leaving.
1698 * src/clfswm-internal.lisp (display-all-frame-info): New function.
1700 2008-05-02 Philippe Brochard <pbrochard@common-lisp.net>
1702 * src/tools.lisp (getenv): Implemented for ECL.
1703 (urun-prog): Implemented for ECL.
1705 * src/clfswm-util.lisp (identify-key): Use a double buffer to
1708 * src/clfswm-query.lisp (query-string): Use a double buffer to
1711 * src/clfswm-info.lisp (draw-info-window): Use a double buffer to
1714 * src/xlib-util.lisp (clear-pixmap-buffer, copy-pixmap-buffer):
1717 2008-05-01 Philippe Brochard <pbrochard@common-lisp.net>
1719 * src/clfswm-info.lisp (info-mode): Add boundaries in the info mode window.
1721 * src/menu-def.lisp: New file: move all menu definition in
1724 * src/clfswm-layout.lisp (register-layout): Use a function instead
1727 2008-04-30 Philippe Brochard <pbrochard@common-lisp.net>
1729 * src/clfswm-autodoc.lisp (produce-menu-doc,
1730 (produce-menu-doc-html): New functions.
1731 (produce-doc-*): Moved to clfswm-autodoc.lisp.
1733 * src/clfswm-util.lisp (paste-selection-no-clear): Prevent to
1734 paste a child on one of its own children. (this prevent a
1736 (move-child-to): Rename move/copy-current-child-by to
1738 (mouse-move-window-over-frame): New function to move the window
1739 under the mouse cursor to another frame.
1741 * src/clfswm-internal.lisp (find-child-in-parent): New function.
1743 2008-04-29 Philippe Brochard <pbrochard@common-lisp.net>
1745 * src/clfswm-internal.lisp (show-all-children): Display unmanaged
1746 windows only when its window parent is the current child.
1748 2008-04-28 Philippe Brochard <pbrochard@common-lisp.net>
1750 * src/clfswm-util.lisp (manage-current-window)
1751 (unmanage-current-window): New functions: Allow to force to manage
1752 or unmanage a window by its parent frame.
1754 * src/bindings-second-mode.lisp (#\o): binded to
1755 set-open-in-new-frame-in-parent-frame-nw-hook and
1756 (#\o :control) to set-open-in-new-frame-in-root-frame-nw-hook
1758 * src/clfswm-util.lisp (with-current-window): New macro.
1760 * src/xlib-util.lisp (move-window, resize-window): Remove uneeded
1761 exposure and enter-window handle event.
1763 * src/clfswm-util.lisp (move-frame, resize-frame): Show all
1764 children for the current child after the move/resize.
1766 2008-04-27 Philippe Brochard <pbrochard@common-lisp.net>
1768 * src/xlib-util.lisp (resize-window): Take care of window size
1771 * src/clfswm-util.lisp (mouse-focus-move/resize-generic): Allow to
1772 move/resize unmanaged windows.
1774 * src/xlib-util.lisp (move-window, resize-window): New functions.
1776 2008-04-25 Philippe Brochard <pbrochard@common-lisp.net>
1778 * src/clfswm-util.lisp (current-frame-manage-window-type): Let the
1779 user choose what window type the current frame must handle.
1780 (display-current-window-info): New function.
1781 (current-frame-manage-all-window-type)
1782 (current-frame-manage-only-normal-window-type)
1783 (current-frame-manage-no-window-type): New functions.
1785 * src/clfswm-internal.lisp (managed-window-p): New function.
1787 * src/package.lisp (frame): Managed type: new frame
1788 parameter. This allow to choose what window type a frame must
1791 * src/*.lisp: Rename all 'father' occurrences to 'parent'.
1793 * src/clfswm-nw-hooks.lisp
1794 (open-in-new-frame-in-parent-frame-nw-hook): New new window hook.
1796 * src/clfswm-util.lisp (adapt-current-frame-to-window-hints): New
1799 * src/tools.lisp (ensure-printable): Return always a string even
1802 2008-04-24 Philippe Brochard <pbrochard@common-lisp.net>
1804 * src/config.lisp (*default-nw-hook*): New variable to change the
1805 default new window hook.
1807 2008-04-22 Philippe Brochard <pbrochard@common-lisp.net>
1809 * clfswm.asd (clfswm): Add a dependency from
1810 clfswm-second-mode.lisp to clfswm.lisp.
1812 * src/clfswm-util.lisp (identify-key): Show the documentation for
1813 the function bound on a key.
1814 (with-movement): Move with-movement,
1815 current-frame-fill/pack/resize-* from bindings-second-mode.lisp
1816 to clfswm-util.lisp.
1818 * src/clfswm-menu.lisp: New menu system that let user change keys
1819 or functions associated to keys.
1821 2008-04-18 Philippe Brochard <pbrochard@common-lisp.net>
1823 * src/clfswm-internal.lisp (show-all-children): Display-child is
1824 the first child by default. Solve a bug with father-p.
1826 2008-04-17 Philippe Brochard <pbrochard@common-lisp.net>
1828 * src/clfswm-internal.lisp (add-frame): Add frame return the
1830 (show-all-children): Move the size computation outside the
1833 * src/bindings-second-mode.lisp (with-movement): Redisplay only
1836 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Redisplay
1837 only the current child.
1839 * src/clfswm-internal.lisp (show-all-children): New display-child
1840 parameter to display only the desired child and its children.
1841 (select-next/previous-child): Only display the current child.
1843 2008-04-14 Philippe Brochard <pbrochard@common-lisp.net>
1845 * src/clfswm.lisp (init-display): Move the default frame creation
1846 on the default init hook.
1848 * src/clfswm-keys.lisp (define-ungrab/grab): Handle all keysyms in
1849 the main mode (for example: "1" on an azerty keyboard).
1851 2008-04-13 Philippe Brochard <pbrochard@common-lisp.net>
1853 * src/clfswm-keys.lisp (find-key-from-code): Better handle of
1854 keysyms. Revert to old grabbing method for the main mode.
1856 2008-04-12 Philippe Brochard <pbrochard@common-lisp.net>
1858 * src/clfswm.lisp (init-display): Add key handling on no focus
1859 window and on frame windows.
1861 2008-04-11 Philippe Brochard <pbrochard@common-lisp.net>
1863 * src/clfswm.lisp (main): Keyboard handle strategie change: Grab
1864 all keys by default and replay just what is needed. No change for
1867 * src/clfswm-keys.lisp: remove grab/ungrab main keys.
1868 (find-key-from-code): Test for shift and not shift presence.
1870 2008-04-09 Philippe Brochard <pbrochard@common-lisp.net>
1872 * src/clfswm-internal.lisp (switch-to-root-frame): show later -
1873 new key parameter to have less flickering.
1875 2008-04-07 Philippe Brochard <pbrochard@common-lisp.net>
1877 * src/bindings-second-mode.lisp (frame-layout-once-menu): Set the
1878 layout only one time and revert to no-layout to freely handle
1881 * src/clfswm-nw-hooks.lisp
1882 (open-in-new-frame-in-root-frame-nw-hook): Tile layout with spaces
1883 with new created window.
1885 * src/clfswm-layout.lisp (register-layout): Now register
1886 automatically a once layout to set the layout only one time and
1887 revert to no-layout to freely handle frames.
1889 2008-04-05 Philippe Brochard <pbrochard@common-lisp.net>
1891 * src/clfswm-nw-hooks.lisp (leave-focus-frame-nw-hook): New
1892 nw-hook: Open the next window in the current frame and leave the
1893 focus to the current child.
1895 2008-04-04 Philippe Brochard <pbrochard@common-lisp.net>
1897 * src/bindings-second-mode.lisp: Add keys definitions to
1898 bind-or-jump in the second mode.
1900 * src/clfswm-util.lisp (bind-or-jump): remove the auto-defining
1901 macro for bind-or-jump-(1|2|3...).
1903 * src/clfswm-keys.lisp (define-define-key/mouse): Allow additional
1904 arguments to function. This allow to do things like:
1905 (define-main-key (key) 'my-function 10 20 'foo) -> 10 20 and 'foo
1906 are passed to my-function on key press.
1908 2008-04-03 Philippe Brochard <pbrochard@common-lisp.net>
1910 * src/clfswm-util.lisp (bind-or-jump): New (great) function.
1912 2008-04-02 Philippe Brochard <pbrochard@common-lisp.net>
1914 * src/clfswm-internal.lisp (child-fullname): New function
1916 * src/clfswm-info.lisp (info-mode-menu): Add an explicit optional
1917 docstring in info-mode-menu. An item can be
1918 '((key function) (key function)) or with docstring
1919 '((key function "documentation 1") (key function "bla bla") (key function))
1921 * src/tools.lisp (ensure-n-elems): New function.
1923 * src/bindings-second-mode.lisp: Bind Alt+mouse-1/3 to move or
1924 resize a frame or the window's father.
1926 * src/clfswm.lisp (init-display): Remove tile-space-layout by
1927 default on the root frame.
1929 * src/clfswm-util.lisp (move/resize-frame): Add standard event
1930 hooks handlers (map-request, configure-notify...)
1932 * src/clfswm-internal.lisp (adapt-child-to-father): Limit minimal
1935 2008-04-01 Philippe Brochard <pbrochard@common-lisp.net>
1937 * src/bindings.lisp: Bind Alt+mouse-1/3 to move or resize a frame
1938 or the window's father.
1940 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Stop button
1941 event only if there is a geometry change.
1942 (mouse-focus-move/resize-generic): Generic function to move or
1943 resize a frame or a window father frame.
1945 2008-04-01 Philippe Brochard <pbrochard@common-lisp.net>
1947 * src/clfswm-internal.lisp (show-all-children): Return t if there
1948 is a geometry change.
1950 2008-03-30 Philippe Brochard <pbrochard@common-lisp.net>
1952 * src/bindings.lisp (Up/Down): Swap select previous/next level.
1954 * src/bindings-second-mode.lisp (Up/Down): Swap select previous/next level.
1956 * src/clfswm.lisp (init-display): Create a default frame in the root frame.
1958 * src/clfswm-internal.lisp (place-frame): Place frame from real (pixel) coordinates.
1959 (with-all-*): Reverse the child list to manage the first child last (like in
1962 * src/config.lisp (*create-frame-on-root*): New variable: Create a new frame on the
1963 root window only if true.
1965 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Create a new frame on the
1966 root window only if *create-frame-on-root* is true.
1968 * src/bindings-second-mode.lisp (sm-mouse-click-to-focus-generic): Create a new frame
1971 2008-03-29 Philippe Brochard <pbrochard@common-lisp.net>
1973 * src/bindings-second-mode.lisp (sm-mouse-click-to-focus-generic): Focus, move and resize
1974 the current child (even if it's a window).
1976 2008-03-28 Philippe Brochard <pbrochard@common-lisp.net>
1978 * src/clfswm-util.lisp (mouse-click-to-focus-and-move)
1979 (mouse-click-to-focus-and-resize): New functions.
1981 * src/clfswm-internal.lisp (*-fl->px): Convert float coordinates to pixel.
1982 (*-px->fl): Convert pixel coordinates to float.
1984 * src/tools.lisp (call-hook): Move call-hook to tools.lisp.
1986 2008-03-27 Philippe Brochard <pbrochard@common-lisp.net>
1988 * src/clfswm-layout.lisp (no-layout): Use :first-only to raise only the
1991 * src/clfswm-internal.lisp (hide-all): Split hide-all-children in hide-all
1992 and hide-all-children.
1993 (raise-if-needed): New function.
1994 (show-child): Use a first-p parameter to raise windows only when they are
1997 2008-03-26 Philippe Brochard <pbrochard@common-lisp.net>
1999 * src/clfswm-internal.lisp (select-next/previous-level): Don't use show-all-children
2002 2008-03-25 Philippe Brochard <pbrochard@common-lisp.net>
2004 * src/clfswm-info.lisp (keys-from-list): new function.
2006 * src/*: rename 'childs' in 'children'.
2008 * src/*: rename 'group' in 'frame'.
2010 2008-03-22 Philippe Brochard <pbrochard@common-lisp.net>
2012 * src/clfswm-pack.lisp (explode-group/explode-current-group): new functions.
2014 2008-03-21 Philippe Brochard <pbrochard@common-lisp.net>
2016 * src/clfswm-pack.lisp: Pack, Fill, Resize functions.
2018 2008-03-16 Philippe Brochard <pbrochard@common-lisp.net>
2020 * src/clfswm-nw-hooks.lisp: Register system for new window hooks.
2021 Bind control+o to open the next window in a new group in the root group
2022 (as open in next window in a new workspace in 0801 version).
2024 2008-03-15 Philippe Brochard <pbrochard@common-lisp.net>
2026 * src/clfswm-util.lisp (show/hide-all-groups-info/key): Show/hide all groups info
2029 2008-03-14 Philippe Brochard <pbrochard@common-lisp.net>
2031 * bindings-second-mode.lisp ("ISO_Left_Tab"): Use ISO_Left_Tab
2032 instead of Tab for select-previous-child.
2034 2008-03-13 Philippe Brochard <pbrochard@common-lisp.net>
2036 * clfswm-util.lisp (force-window-in-group/force-window-center-in-group):
2039 2008-03-11 Philippe Brochard <pbrochard@common-lisp.net>
2041 * clfswm-util.lisp (identify-key): Display the documentation
2042 associated to keys when identifying a key.
2044 2008-03-10 Xavier Maillard <xma@gnu.org>
2046 * contrib/clfswm: Complete rewrite of the script. Detect error and
2047 act accordingly. Add command line arguments to configure the
2048 script execution. User can now choose different common lisp
2049 implementation (clisp and sbcl only), choose where to store the
2050 dumped image, where to find clfswm source.
2052 2008-03-09 Philippe Brochard <pbrochard@common-lisp.net>
2054 * clfswm-internal.lisp (process-new-window): Beginning of new
2055 window hook: each group have a hook to tell what he wants to do
2056 with the new created window.
2058 2008-03-08 Xavier Maillard <xma@gnu.org>
2060 * contrib/clfswm: New script. Dump a CLISP image of CLFSWM then
2061 call the resulting executable.
2063 * clfswm.lisp (read-conf-file): Check for the user config file in
2064 XDG_CONFIG_HOME *first*. Freedesktop.org standards should be
2065 prefered whenever possible.
2067 2008-02-27 Philippe Brochard <pbrochard@common-lisp.net>
2069 * clfswm-layout.lisp (*-layout): Add an optional raise-p
2070 parameter in each layout.
2072 2008-02-26 Philippe Brochard <pbrochard@common-lisp.net>
2074 * clfswm-util.lisp (copy/cut-current-child): Does not affect the
2076 (copy/move-current-child-by-name/number): new functions
2077 (focus-group-by-name/number): new functions
2078 (delete-group-by-name/number): new functions
2080 2008-02-24 Philippe Brochard <pbrochard@common-lisp.net>
2082 * ************************************************************ *
2083 *: Major update - No more reference to workspaces. The main *
2084 structure is a tree of groups or application windows. *
2085 * ************************************************************ *
2087 2008-02-07 Philippe Brochard <pbrochard@common-lisp.net>
2089 * clfswm.lisp (read-conf-file): Read configuration in
2090 $HOME/.clfswmrc or in /etc/clfswmrc or in
2091 $XDG_CONFIG_HOME/clfswm/clfswmrc.
2092 (xdg-config-home): Return the content of $XDG-CONFIG-HOME (default
2095 2008-01-18 Philippe Brochard <pbrochard@common-lisp.net>
2097 * clfswm-internal.lisp (show-all-group): Use *root* and *root-gc*
2100 2008-01-03 Philippe Brochard <pbrochard@common-lisp.net>
2102 * clfswm-internal.lisp (find-window-group): New function.
2104 * clfswm*: Change to make clfswm run with clisp/new-clx.
2106 2008-01-01 Philippe Brochard <pbrochard@common-lisp.net>
2108 * clfswm-util.lisp (query-show-paren): Add show parent matching in
2110 (query-string): Bind control+k to delete end of line.
2112 * clfswm-second-mode.lisp (draw-second-mode-window): Display
2113 the action on mouse motion in second mode.
2115 * clfswm.lisp (handle-exposure): Redisplay groups on exposure
2116 event but do not clear the root window.
2117 (handle-configure-request): Adjust unmanaged window from their
2120 * clfswm-internal.lisp (process-new-window): Adjust new window
2121 with the specified hints (max/min/base width/height).
2123 2007-12-31 Philippe Brochard <pbrochard@common-lisp.net>
2125 * clfswm.lisp (handle-configure-request): Send an Configuration
2126 Notify event. This solve a bug with xterm and rxvt who takes some
2127 times to be mapped. Now there is no delay.
2129 * bindings-second-mode.lisp (define-shell): Run programs after
2130 living the second mode.
2132 2007-12-30 Philippe Brochard <pbrochard@common-lisp.net>
2134 * clfswm-internal.lisp (process-new-window): Do not crop transient
2135 window to group size.
2136 (adapt-window-to-group): Do not crop transient window to group
2139 * clfswm.lisp (handle-configure-request): Adapt just the window to
2140 its group and don't take care of the configure request. Remove the
2141 bug with the Gimp outside the group and speed up the window
2143 (handle-exposure): Remove show-all-group on exposure event
2146 2007-12-29 Philippe Brochard <pbrochard@common-lisp.net>
2148 * clfswm-util.lisp (circulate-group-up-copy-window)
2149 (circulate-group-down-copy-window)
2150 (circulate-workspace-up-copy-group)
2151 (circulate-workspace-down-copy-group): Prevent the copy of the
2152 same window in the same workspace.
2154 * bindings-second-mode.lisp (release-copy-selected-window)
2155 (release-copy-selected-group): Prevent the copy of the same window
2156 in the same workspace.
2158 * clfswm-pager.lisp (generic-pager-move-window-on-previous-line)
2159 (generic-pager-move-window-on-next-line): Remove the copy
2161 (generic-pager-move-group-on-next-workspace)
2162 (generic-pager-move-group-on-previous-workspace): Prevent the copy
2163 of the same window in the same workspace.
2165 * bindings-pager.lisp (mouse-pager-copy-selected-window-release)
2166 (mouse-pager-copy-selected-group-release): Prevent the copy of the
2167 same window in the same workspace.
2169 * tools.lisp (setf/=): new macro to set a variable only when
2172 * clfswm-internal.lisp (adapt-window-to-group): use set/= to set
2173 x, y... only when necessary.
2175 2007-12-28 Philippe Brochard <pbrochard@common-lisp.net>
2177 * clfswm.lisp (handle-configure-notify, *configure-notify-hook*):
2178 new function and hook: force windows to stay in its group (solve a
2181 2007-12-25 Philippe Brochard <pbrochard@common-lisp.net>
2183 * bindings-second-mode.lisp (mouse-motion): use hide-group to have
2184 less flickering when moving/resizing groups.
2186 * clfswm-internal.lisp (hide-group): new function.
2187 (show-all-group): clear-all: new parameter.
2189 2007-12-22 Philippe Brochard <pbrochard@common-lisp.net>
2191 * clfswm-keys.lisp (define-define-key): undefine-*-multi-name: new
2193 * clfswm*: Color change for the pager. Typo or better description
2194 in bindings definitions. Define bindings for a qwerty keyboard by
2195 default. dot-clfswmrc show examples to switch to an azerty
2197 License change to GPL v3.
2198 * config.lisp: new file - group all globals variables in this
2201 2007-08-26 Philippe Brochard <pbrochard@common-lisp.net>
2203 * xlib-util.lisp (hide-window): Remove structure-notivy events
2204 when hidding a window.
2206 2007-05-16 Philippe Brochard <pbrochard@common-lisp.net>
2208 * package.lisp (*sm-property-notify-hook*): Readded
2209 property-notify-hook in second mode.
2211 2007-05-15 Philippe Brochard <pbrochard@common-lisp.net>
2213 * clfswm-keys.lisp (produce-doc-html): Better clean up for strings.
2215 2007-05-13 Philippe Brochard <pbrochard@common-lisp.net>
2217 * clfswm-pack.lisp (tile-current-workspace-to/right/left/top/bottom):
2218 Tile the current workspace with the current window on one side and
2219 others on the other (this emulate the larswm, dwm, wmii way). See
2220 the default configuration file to enable this mode by default.
2222 * clfswm-pager.lisp (pager-tile-current-workspace-to): idem for
2225 2007-05-12 Philippe Brochard <pbrochard@common-lisp.net>
2227 * clfswm-pager.lisp (pager-draw-window-in-group): Add
2228 ensure-printable to print windows name even with non-ascii
2231 2007-05-11 Philippe Brochard <pbrochard@common-lisp.net>
2233 * clfswm-pager.lisp (pager-explode-current-group): Create a new
2234 group for each window in group.
2235 (pager-implode-current-group): Move all windows in workspace to
2236 one group and remove other groups.
2238 * clfswm-pack.lisp (explode-group): Create a new group for each
2240 (implode-group): Move all windows in workspace to one group and
2241 remove other groups.
2243 * clfswm-util.lisp (identify-key): Remove local configuration
2244 variables and made them available for configuration from
2246 (query-string): idem.
2248 2007-04-29 Philippe Brochard <pbrochard@common-lisp.net>
2250 * netwm-util.lisp: Start of NetWM compliance.
2251 Add a Netwm client list gestion.
2253 2007-04-28 Philippe Brochard <pbrochard@common-lisp.net>
2255 * clfswm-internal.lisp (create-group-on-request): open a new group
2256 only when the current group is not empty.
2258 * bindings-second-mode.lisp (define-second-key-#\o-control): Fix a
2259 bug with null workspace.
2261 * clfswm-pager.lisp (pager-handle-event): Add a hook
2262 system. This hooks can be changed in the user configuration file.
2264 * package.lisp: All colors and font variables are set in
2265 package.lisp and can be configured in the user configuration
2267 Note: If you have configured some less ugly colors (esp. for the
2268 pager) don't hesitate to let me know :)
2270 * clfswm-second-mode.lisp (sm-handle-event): Add a hook
2271 system. This hooks can be changed in the user configuration file.
2273 * clfswm.lisp (handle-event): Add a hook system. This hooks can be
2274 changed in the user configuration file (~/.clfswmrc)
2276 2007-04-25 Philippe Brochard <pbrochard@common-lisp.net>
2278 * clfswm-util.lisp (stop-all-pending-actions): new function: reset
2279 arrow action, open next window in new workspace/group.
2281 * bindings.lisp (stop-all-pending-actions): new binding.
2282 (open-next-window-in-new-group-once): Open the next windows in a
2283 new group (only once) or open all new windows in a new group (like
2284 others windows managers).
2286 2007-04-22 Philippe Brochard <pbrochard@common-lisp.net>
2288 * clfswm.lisp (read-conf-file): New function to read a lisp
2289 configuration file at startup.
2290 (focus-group-under-mouse): Check if group isn't the current group
2291 ( prevent a bug with unclutter ).
2293 2007-03-02 Philippe Brochard <pbrochard@common-lisp.net>
2295 * bindings.lisp (run-program-from-query-string): A program can be
2296 launch from a input query window.
2298 2007-03-01 Philippe Brochard <pbrochard@common-lisp.net>
2300 * clfswm-info.lisp: Fix a bug with banish pointer in info mode.
2302 2007-02-28 Philippe Brochard <pbrochard@common-lisp.net>
2304 * clfswm.lisp (process-new-window): One can now open the next
2305 window in a workspace called by its number.
2307 * clfswm-util.lisp (query-font-string): Minimal editing
2309 (eval-from-string): And an REPL in the window manager... :)
2311 2007-02-26 Philippe Brochard <pbrochard@common-lisp.net>
2313 * clfswm.lisp (process-new-window): One can now open the next
2314 window in a new workspace or a new group.
2316 * clfswm-pager.lisp (pager-mode): Display the next arrow action
2317 with the hidden windows.
2319 * clfswm.lisp (second-key-mode): Display the current workspace
2320 number and the next arrow action in the state window.
2322 * clfswm-pager.lisp (pager-mode): Hide all windows before leaving
2323 the pager mode and then redisplay only the current workspace.
2325 2007-02-25 Philippe Brochard <pbrochard@common-lisp.net>
2327 * clfswm.lisp (add-workspace): Workspaces are now numbered. So
2328 they can be focused with a keypress, sorted or renumbered.
2330 2007-02-24 Philippe Brochard <pbrochard@common-lisp.net>
2332 * clfswm-pager.lisp (pager-mode): Remove multiple silly
2333 pager-draw-display. This prevent a lot of flickering in the
2336 * clfswm.lisp: Remove all display-force-output and replace them
2337 with only one display-finish-output in the event loop.
2339 2006-11-06 Philippe Brochard <pbrochard@common-lisp.net>
2341 * clfswm-pager.lisp (pager-center-group): New function - center a
2342 group at the middle of the screen.
2344 * clfswm-pack.lisp (center-group): New function - center a group
2345 at the middle of the screen.
2347 * clfswm.lisp (show-group): Add a cross line under the group.
2348 (show-group): Group are showned even if fullscreened.
2349 (init-display): Add an exposure event on the root window.
2351 2006-11-05 Philippe Brochard <pbrochard@common-lisp.net>
2353 * package.lisp (*default-group*): Default group is the same size
2354 of a fullscreened group.
2356 * bindings*: Use shift to move, control+shift to copy.
2358 * *.lisp: Add comments for configuration or alternatives. So grep
2359 for CONFIG to see where you can configure clfswm. And grep for
2360 Alternative to use some commented code.
2362 * clfswm.lisp (second-key-mode): Use a single window to show the
2363 second mode. See for alternatives at the end of this file.
2365 2006-11-03 Philippe Brochard <pbrochard@common-lisp.net>
2367 * clfswm-keys.lisp (define-define-key/mouse): Factorisation in a
2368 macro of key and mouse definitions.
2369 (define-define-key/mouse): Use state instead of modifiers list
2370 this fix a bug when the modifiers list is not in the rigth order.
2372 * clfswm.lisp (second-key-mode): Add a colored border in second mode.
2374 2006-11-02 Philippe Brochard <pbrochard@common-lisp.net>
2376 * clfswm-info.lisp (info-mode): Add an info mode.
2378 2006-11-01 Philippe Brochard <pbrochard@common-lisp.net>
2380 * clfswm.lisp (process-new-window): Change border size for
2382 (show-all-windows-in-workspace): Unhide all windows even when the
2383 current group is in fullscreen mode.
2385 2006-10-26 Philippe Brochard <pbrochard@common-lisp.net>
2387 * clfswm-util.lisp (identify-key): Add an exposure handle-event to
2388 redisplay the identify window after a terminal switch.
2390 * clfswm-pager.lisp (pager-mode): Add an exposure handle-event to
2391 redisplay the pager after a terminal switch.
2393 2006-10-24 Philippe Brochard <pbrochard@common-lisp.net>
2395 * clfswm-util.lisp (identify-key): Add a window to display
2396 the keys to identify on screen.
2398 * bindings.lisp, bindings-pager.lisp: Define same keys to
2399 move/copy groups/windows in second mode and in pager.
2401 * clfswm.lisp (handle-event*): Same version in all clfswm (fix some
2403 (show-all-windows-in-workspace): unhide window before adapting it
2406 2006-10-23 Philippe Brochard <pbrochard@common-lisp.net>
2408 * clfswm.lisp (handle-event): Revert to an older version.
2410 2006-10-18 Philippe Brochard <pbrochard@common-lisp.net>
2412 * clfswm-util.lisp (force-window-in-group)
2413 (force-window-center-in-group): New functions for transient windows.
2415 * clfswm-pager.lisp (pager-remove-current-workspace/group):
2416 bugfix: hide all windows before removing group or workspace.
2418 2006-10-17 Philippe Brochard <pbrochard@common-lisp.net>
2420 * bindings-pager.lisp (mouse-pager-move-selected-group)
2421 (mouse-pager-copy-selected-group)
2422 (mouse-pager-move-selected-window)
2423 (mouse-pager-copy-selected-window, mouse-pager-rotate-window-up)
2424 (mouse-pager-rotate-window-down): New functions to have mouse in
2427 * clfswm-pager.lisp (pager-swap-window)
2428 (pager-copy-group-on-next/previous-workspace)
2429 (pager-copy-window-on-next/previous-line): New functions
2431 2006-10-15 Philippe Brochard <pbrochard@common-lisp.net>
2433 * clfswm-pager.lisp (pager-move-window-on-next/previous-line,
2434 (pager-move-group-on-next/previous-workspace): new functions.
2436 * clfswm-pack.lisp (resize-half-x-x-current-group): resize group
2437 to its half size (new functions).
2439 2006-10-11 Philippe Brochard <pbrochard@common-lisp.net>
2441 * clfswm-pager.lisp: workspaces, groups and windows can now be
2442 selectionned with the keyboard or the mouse.
2444 2006-10-09 Philippe Brochard <pbrochard@common-lisp.net>
2446 * clfswm-pager.lisp (pager-select-workspace-right/left):
2447 workspaces can now be selectionned with the keyboard.
2449 2006-10-08 Philippe Brochard <pbrochard@common-lisp.net>
2451 * clfswm-keys.lisp (undefine-main-key, undefine-second-key, undefine-mouse-action):
2452 new function to remove a previous defined key or mouse combination.
2454 2006-10-07 Philippe Brochard <pbrochard@common-lisp.net>
2456 * clfswm.lisp (main): Check for access error in init-display.
2458 * clfswm-keys.lisp (define-ungrab/grab): check for keysym and
2459 keycode before grabbing.
2461 * bindings.lisp: Remove nlambda and use defun to keep the function
2462 documentation with clisp.
2463 (define-shell): new macro to define shell command for the second
2466 2006-10-06 Philippe Brochard <pbrochard@common-lisp.net>
2468 * clfswm-keys.lisp (define-ungrab/grab): use a cond instead of a
2471 2006-10-05 Philippe Brochard <pbrochard@common-lisp.net>
2473 * bindings.lisp (accept-motion): Move group bugfix in upper mouse
2474 workspace circulation.
2476 * clfswm-util.lisp (absorb-orphan-window): new function.
2478 * clfswm-keys.lisp: Keysyms support.
2480 2006-10-02 Philippe Brochard <pbrochard@common-lisp.net>
2482 * clfswm.lisp (show-group): Use one gc for all groups and not one
2485 2006-10-01 Philippe Brochard <pbrochard@common-lisp.net>
2487 * bindings.lisp (define-second-key (#\l :mod-1)): fix a typo.
2489 * clfswm.lisp (adapt-window-to-group): Adapt only windows with
2490 width and height outside group.
2492 2006-09-28 Philippe Brochard <pbrochard@common-lisp.net>
2494 * clfswm.lisp: First public release.