1 2012-05-09 Philippe Brochard <pbrochard@common-lisp.net>
3 * src/clfswm-internal.lisp: Use xdpyinfo/xinerama informations
4 instead of xrandr informations.
6 2012-05-06 Philippe Brochard <pbrochard@common-lisp.net>
8 * src/clfswm-internal.lisp : Use only one list for root
10 (*root*): Root management API simplification.
12 2012-04-30 Philippe Brochard <pbrochard@common-lisp.net>
14 * src/clfswm-internal.lisp: Big change to replace *current-root*
15 variable to support multiple root.
17 2012-04-18 Philippe Brochard <pbrochard@common-lisp.net>
19 * src/tools.lisp (add-new-hook, add-hook): New macro. Do not
20 duplicate hooks by default. Use add-new-hook if you want to
23 2012-04-16 Philippe Brochard <pbrochard@common-lisp.net>
25 * src/clfswm-corner.lisp (wait-window-in-query-tree): Add a limit
26 of try to wait the command window.
28 2012-02-25 Philippe Brochard <pbrochard@common-lisp.net>
30 * src/clfswm-util.lisp (place-frames-from-xrandr)
31 (swap-frame-geometry, rotate-frame-geometry): New helper functions
32 for multiple physical screen.
33 (jump-to-slot, add-frame-in-parent-frame): Change *current-root*
36 2012-01-18 Philippe Brochard <pbrochard@common-lisp.net>
38 * src/*.lisp: Use create-symbol and create-symbol-in-package
39 instead of the shorter symb. (Thanks Aad Versteden).
41 * src/bindings-second-mode.lisp (set-default-second-keys): New
42 key binding to set window and frame transparency.
44 * src/bindings.lisp (set-default-main-mouse): New mouse binding to
45 set window and frame transparency.
47 * src/clfswm-keys.lisp (define-keys): New macro to ease multiple
48 keys definitions. (Thanks Valentin Plechinger for the request).
50 * src/*.lisp: Add full transparency support with xcompmgr.
52 2012-01-14 Philippe Brochard <pbrochard@common-lisp.net>
54 * src/*.lisp: Add transparency support.
56 2012-01-09 Ales Guzik <ales.guzik@gmail.com>
58 * src/clfswm-layout.lisp (tile-layout-mix): New layout to
59 automatically choose between vertival and horizontal tile layout.
60 (tile-space-layout): Fix to have space between screen border and
61 frame the same as between frames.
63 2012-01-04 Philippe Brochard <pbrochard@common-lisp.net>
65 * load.lisp: Support clisp 2.49+ module system to load CLX.
67 2012-01-04 Ales Guzik <ales.guzik@gmail.com>
69 * src/clfswm-layout.lisp (update-layout-managed-children-keep-position):
70 Fix an inattention error.
72 2012-01-04 Philippe Brochard <pbrochard@common-lisp.net>
74 * src/xlib-util.lisp (with-xlib-protect): Protect from
75 xlib:lookup-error. This prevent an error in clisp/new-clx when
76 sometimes an xlib:colormap is expected instead of an xlib:window.
78 2012-01-03 Philippe Brochard <pbrochard@common-lisp.net>
80 * src/xlib-util.lisp (handle-event): Fix a clisp/new-clx error
81 when sometimes window slot of event-slots is a pixmap instead of a
84 2011-12-26 Philippe Brochard <pbrochard@common-lisp.net>
86 * src/clfswm-query.lisp: Fill the history list with a non-nil
89 2011-12-25 Philippe Brochard <pbrochard@common-lisp.net>
91 * src/package.lisp (make-x-drawable): Drawable wrapper to prevent
92 type error in some CLX versions.
93 Replace xlib:drawable-* functions with x-drawable-* equivalents
95 2011-12-14 Philippe Brochard <pbrochard@common-lisp.net>
97 * src/clfswm-util.lisp (um-create-xdg-section-list): Add at least
98 the 'Utility menu entry.
100 * src/config.lisp (*xdg-section-list*): moved to config.lisp.
102 * src/clfswm-util.lisp (update-menus): Set a default value for
103 searching .desktop files when XDG_DATA_DIRS is not set.
105 2011-10-15 Philippe Brochard <pbrochard@common-lisp.net>
107 * src/clfswm-internal.lisp (place-window-from-hints): Use
108 with-placement macro to place unmanaged windows in an arbitrary
111 2011-06-16 Philippe Brochard <pbrochard@common-lisp.net>
113 * src/clfswm-internal.lisp (clean-windows-in-all-frames): Prevent
114 current root and current child being equal to child.
116 2011-06-13 Philippe Brochard <pbrochard@common-lisp.net>
118 * src/keysyms.lisp: Repeat Page_Down/Up keysym definitions at the
119 end of the file to change keysyms priority.
121 2011-06-13 Sylvain HENRY <hsyl20@gmail.com>
123 * *.*: Minor spelling fix.
125 2011-06-12 Philippe Brochard <pbrochard@common-lisp.net>
127 * src/clfswm.lisp (:unmap-notify, :destroy-notify): Show all
128 children just after the xlib tree cleanup -> reduce the
129 flickering when a window is deleted or destroyed.
131 * src/clfswm-internal.lisp (process-existing-windows): Do not
132 process the notify window.
134 2011-06-08 Philippe Brochard <pbrochard@common-lisp.net>
136 * *: **** Release 1106 ****
138 2011-06-08 Philippe Brochard <pbrochard@common-lisp.net>
140 * src/clfswm-internal.lisp (clean-windows-in-all-frames): New
141 function to prevent xlib error when a window is deleted.
143 2011-06-08 Philippe Brochard <pbrochard@common-lisp.net>
145 * src/clfswm-internal.lisp
146 (delete-child-and-children-in-all-frames): Delete or destroy
147 children before displaying all children.
149 2011-06-05 Philippe Brochard <pbrochard@common-lisp.net>
151 * src/clfswm-util.lisp (add-frame-in-parent-frame): New function
154 2011-06-04 Philippe Brochard <pbrochard@common-lisp.net>
156 * src/clfswm.lisp (main-unprotected): Destroy all frames windows
157 before closing the display (not really needed).
159 2011-06-02 Philippe Brochard <pbrochard@common-lisp.net>
161 * src/clfswm-layout.lisp (inc-tile-layout-size)
162 (dec-tile-layout-size, inc-slow-tile-layout-size)
163 (dec-slow-tile-layout-size): New functions and bindings.
165 2011-06-01 Philippe Brochard <pbrochard@common-lisp.net>
167 * src/clfswm-expose-mode.lisp (define-expose-letter-keys): Add
168 0..1 and A..Z keys to select a child in exposé mode.
170 * src/clfswm-internal.lisp (display-frame-info): Remove hidden
171 infos in frames windows.
173 * src/clfswm-util.lisp (ask-close/kill-current-window): Menu
176 2011-05-30 Philippe Brochard <pbrochard@common-lisp.net>
178 * src/clfswm-internal.lisp (get-parent-layout): Minor fullscreen
181 2011-05-29 Philippe Brochard <pbrochard@common-lisp.net>
183 * src/clfswm-internal.lisp
184 (delete-child-and-children-in-all-frames): Show all children
185 before deleting/destroying a windows, so prevent a flickering.
186 (get-parent-layout): Return the fullscreen size when the current
189 2011-05-28 Philippe Brochard <pbrochard@common-lisp.net>
191 * src/clfswm-internal.lisp (get-parent-layout): Handle correctly
194 * src/clfswm-util.lisp (delete-focus-window-generic): Do not hide
195 child before removing, so prevent a flickering.
197 * src/clfswm-internal.lisp (show-all-children): Rectangular
198 optimization to display only needed children.
199 (show-all-children): Remove flickering on
200 select-next/previous-brother.
202 2011-05-17 Philippe Brochard <pbrochard@common-lisp.net>
204 * src/clfswm-util.lisp (copy-focus-window, cut-focus-window): New
205 functions and ask-close/kill-current-window menu and bindings
208 2011-05-16 Philippe Brochard <pbrochard@common-lisp.net>
210 * src/clfswm-util.lisp (ask-close/kill-current-window): Add an
211 *ask-close/kill-placement* placement window variable.
213 2011-05-09 Philippe Brochard <pbrochard@common-lisp.net>
215 * contrib/osd.lisp (funcall-button-from-code): Display osd
216 documention for buttons and fix some redefining warnings.
218 2011-05-07 Philippe Brochard <pbrochard@common-lisp.net>
220 * src/clfswm-nw-hooks.lisp (make-permanent-nw-hook-frame): New
221 function. Prevent to add or delete a new window hook for this
224 * src/clfswm-layout.lisp (update-layout-managed-children-position):
227 2011-05-06 Philippe Brochard <pbrochard@common-lisp.net>
229 * src/bindings-second-mode.lisp (set-default-second-keys):
230 select-brother-spatial-move-* binding update.
232 * src/clfswm-layout.lisp (tile-left|right|top|bottom-layout): Ask
233 to keep children positions or not.
235 * src/clfswm-internal.lisp (fixe-real-size): Takes care of border
238 * src/clfswm-layout.lisp (update-layout-managed-children): Fix a
239 bug by using the parent frame instead of the current child.
241 * src/clfswm-circulate-mode.lisp
242 (select-brother-generic-spatial-move+right/left/up/down): New
243 function to select a brother from another in a spatial move.
245 2011-04-19 Philippe Brochard <pbrochard@common-lisp.net>
247 * src/clfswm-pack.lisp (move-frame-constrained)
248 (resize-frame-constrained): Use pixels instead of floating
251 2011-04-18 Philippe Brochard <pbrochard@common-lisp.net>
253 * src/clfswm-pack.lisp (resize-frame-constrained): Takes care of
255 (implode-frame, implode-current-frame): New functions. Absorb all
256 frames subchildren in frame. Explode frame opposite.
258 2011-04-17 Philippe Brochard <pbrochard@common-lisp.net>
260 * src/clfswm-pack.lisp (move-frame-constrained)
261 (resize-frame-constrained): New function. Move and resize frame
262 with the mouse constrained by other frame brothers.
264 2011-04-14 Philippe Brochard <pbrochard@common-lisp.net>
266 * src/clfswm-util.lisp (with-movement-select-next-brother)
267 (with-movement-select-previous-brother)
268 (with-movement-select-next-child): Use a simple method (do not
269 enter in the circulate mode) to allow to circulate in all children
272 * src/clfswm-menu.lisp (open-menu): Save info hash table keys
273 instead of deleting newly created keys.
275 2011-03-21 Philippe Brochard <pbrochard@common-lisp.net>
277 * src/clfswm-internal.lisp (x-px->fl, y-px->fl): Takes care of
280 2011-03-20 Philippe Brochard <pbrochard@common-lisp.net>
282 * src/clfswm-info.lisp (show-config-variable): call
283 produce-conf-var-doc.
285 2011-03-18 Philippe Brochard <pbrochard@common-lisp.net>
287 * src/clfswm-autodoc.lisp (produce-conf-var-doc-html): Produce a
288 documentation for all configurable variables in CLFSWM -
291 * src/clfswm-internal.lisp (leave-frame): Hide all children except
294 2011-03-16 Philippe Brochard <pbrochard@common-lisp.net>
296 * src/clfswm-autodoc.lisp (produce-all-docs): Produce a
297 documentation for all configurable variables in CLFSWM.
299 * src/clfswm-layout.lisp (set-gimp-layout): Display a notify
300 window with the help on the GIMP layout.
302 2011-03-12 Philippe Brochard <pbrochard@common-lisp.net>
304 * src/menu-def.lisp: Menu update to prevent cursor keys clash.
306 * clfswm.asd: Change compilation order to prevent undefined
309 * src/clfswm-internal.lisp (show-child(frame)): Handle properly
310 the show-root-frame-p parameter.
312 2011-03-11 Philippe Brochard <pbrochard@common-lisp.net>
314 * src/clfswm-util.lisp (move-frame, resize-frame): Do not move or
315 resize a frame when it's the current root.
317 2011-03-10 Philippe Brochard <pbrochard@common-lisp.net>
319 * src/clfswm-internal.lisp (show-all-children): Handle properly
320 duplicated child in multipe frames.
322 2011-03-09 Philippe Brochard <pbrochard@common-lisp.net>
324 * contrib/volume-mode.lisp (set-default-volume-keys): Add more
325 keybindings (up/down, right/left) to raise/lower the volume.
327 * src/clfswm-layout.lisp: Add a variable border size for frames
330 2011-03-08 Philippe Brochard <pbrochard@common-lisp.net>
332 * src/clfswm-util.lisp (cut-current-child, remove-current-child)
333 (delete-current-child): Hide the current child before doing the
336 * src/clfswm-internal.lisp (show-all-children): Hide windows not
337 in the current root before displaying those in current root.
338 Remove all hide-all unnecessary calls.
340 * src/clfswm-configuration.lisp (save-variables-in-conf-file):
341 Save only variables with a different value than their original
344 2011-03-07 Philippe Brochard <pbrochard@common-lisp.net>
346 * src/clfswm-info.lisp (show-config-variable): Use the new
349 * src/clfswm-autodoc.lisp (produce-configuration-variables): Use
350 the new defconfig method.
352 * src/clfswm-configuration.lisp (create-configuration-menu):
353 Change the config system with a more lispy one and a less string
354 based one: (defconfig name value group doc).
357 2011-03-06 Philippe Brochard <pbrochard@common-lisp.net>
359 * src/clfswm-internal.lisp (show-all-children): Simplify the
361 (show-child): Display an unmanaged window whe it's the current
363 (show-all-children): add the ability to display all child from
364 *root-frame* and hide all those who are not in *current-root*.
365 -> remove hide-all-children when needed.
367 * src/xlib-util.lisp (move-window,resize-window): Add a
368 *color-move-window* border when moving or resizing a window.
370 2011-03-04 Philippe Brochard <pbrochard@common-lisp.net>
372 * src/clfswm-internal.lisp (show-all-children): Perform only one
373 recusion on the clfswm tree: calculate geometry and place child in
376 2011-03-03 Philippe Brochard <pbrochard@common-lisp.net>
378 * src/clfswm-internal.lisp (show-all-children): Rethink of display
379 child order to prevent very annoying flickering.
381 2011-02-27 Philippe Brochard <pbrochard@common-lisp.net>
383 * src/clfswm-util.lisp (query-yes-or-no): New function.
385 * src/clfswm-configuration.lisp (reset-all-config-variables): New
386 function and menu entry.
387 (query-conf-value): Add the ability to leave the field blank to
388 reset the variable to its default value.
390 2011-02-26 Philippe Brochard <pbrochard@common-lisp.net>
392 * src/clfswm-configuration.lisp
393 (add-all-configuration-default-value): Add a default value to
394 configurable variables.
396 2011-02-23 Philippe Brochard <pbrochard@common-lisp.net>
398 * src/clfswm.lisp (main-unprotected): Create the configuration
399 menu only once at startup.
401 2011-02-22 Desmond O. Chang <dochang@gmail.com>
403 * contrib/amixer.lisp: Add a volume mode inspired by the emms
404 volume package. Alsa mixer interface.
406 * contrib/volume-mode.lisp: Add a volume mode inspired by the emms
409 2011-02-22 Desmond O. Chang <dochang@gmail.com>
411 * src/clfswm.lisp (main): Use ASDF:SYSTEM-SOURCE-DIRECTORY instead
412 of *LOAD-TRUENAME*. *LOAD-TRUENAME* is only bound during a call to
413 LOAD. If one eval CLFSWM:MAIN in repl, BASE-DIR will be an empty
414 string. Use ASDF:SYSTEM-SOURCE-DIRECTORY to fix it.
416 2011-02-16 Philippe Brochard <pbrochard@common-lisp.net>
418 * src/clfswm.lisp (main-unprotected): Add a close hook. And close
419 the notify window, the virtual keyboard and the clfswm terminal by
422 2011-02-15 Philippe Brochard <pbrochard@common-lisp.net>
424 * src/clfswm.lisp (main-unprotected): Destroy the notify window
425 before closing the display. This fix a bug when resetting/reloading
428 2011-02-12 Philippe Brochard <pbrochard@common-lisp.net>
430 * src/xlib-util.lisp (equal-wm-class-fun, equal-wm-name-fun)
431 (raise-window-fun, raise-and-focus-window-fun): New functions.
433 * src/config.lisp (*clfswm-terminal-cmd*): Switch from xterm to
435 (*never-managed-window-list*): Structure change to be more
436 flexible. Let the choice to focus, raise and do nothing on never
439 2011-02-09 Philippe Brochard <pbrochard@common-lisp.net>
441 * src/clfswm-util.lisp (mouse-focus-move/resize-generic): Take
442 care of never managed windows to move or resize them if the raise
445 * src/clfswm-internal.lisp (in-frame, in-window, in-child): New
448 2011-02-08 Philippe Brochard <pbrochard@common-lisp.net>
450 * src/clfswm.lisp (main-mode): Raise or not unmanaged windows
451 following request in *never-managed-window-list*.
453 2011-02-05 Philippe Brochard <pbrochard@common-lisp.net>
455 * *: **** Release 1102 ****
457 2011-02-05 Desmond O. Chang <dochang@gmail.com>
459 * src/keysyms.lisp: Add extended keysyms from stumpwm.
461 2011-02-01 Desmond O. Chang <dochang@gmail.com>
463 * src/clfswm-util.lisp (run-or-raise): New function (thanks to
466 * src/clfswm-internal.lisp (with-all-*): add a nil block.
468 2011-01-28 Desmond O. Chang <dochang@gmail.com>
470 * src/clfswm-util.lisp (xdg-config-home): XDG_CONFIG_HOME should
471 be $HOME/.config by default.
473 2010-12-29 Philippe Brochard <pbrochard@common-lisp.net>
475 * contrib/osd.lisp (display-doc): Add another method where a
476 CLFSWM native window is used to display the key documentation.
478 2010-12-27 Philippe Brochard <pbrochard@common-lisp.net>
480 * src/xlib-util.lisp (with-xlib-protect): Force to revert to the
483 2010-12-25 Philippe Brochard <pbrochard@common-lisp.net>
485 * src/clfswm-second-mode.lisp (second-key-mode): Call the second
486 mode leave function only when the generic mode was ended.
488 2010-12-08 Philippe Brochard <pbrochard@common-lisp.net>
490 * src/clfswm-second-mode.lisp (sm-leave-function): Do not use
491 *second-mode-program* anymore.
493 2010-12-07 Philippe Brochard <pbrochard@common-lisp.net>
495 * src/clfswm-second-mode.lisp (*second-mode-leave-function*): New
496 variable bound to a function executed (when not null) on second
499 2010-11-14 Philippe Brochard <pbrochard@common-lisp.net>
501 * src/clfswm-util.lisp (find-child-under-mouse): Do not find
504 2010-11-13 Philippe Brochard <pbrochard@common-lisp.net>
506 * src/clfswm-expose-mode.lisp (expose-mode-display-accel-windows):
507 Do not display the accel window for unmanaged windows.
509 2010-11-11 Philippe Brochard <pbrochard@common-lisp.net>
511 * src/clfswm-internal.lisp (set-current-root): Handle
512 window-parent in set-current-root.
514 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Do not
515 focus the parent child when the current root is a window.
517 2010-11-09 Philippe Brochard <pbrochard@common-lisp.net>
519 * src/clfswm-expose-mode.lisp (expose-windows-current-child-mode):
520 New function an bindings.
522 * src/clfswm-layout.lisp (tile-layout, set-tile-layout): Fill
525 2010-11-07 Philippe Brochard <pbrochard@common-lisp.net>
527 * src/clfswm-layout.lisp (tile-layout-ask-keep-position): New
528 function to let the user choose to keep child position with
531 * src/clfswm-internal.lisp (remove-frame-data-slot): New
534 2010-11-05 Philippe Brochard <pbrochard@common-lisp.net>
536 * src/clfswm-internal.lisp (frame-select-next-child)
537 (frame-select-previous-child): New functions and bindings. Select
538 the next/previous child in the current frame.
540 2010-10-31 Philippe Brochard <pbrochard@common-lisp.net>
542 * src/clfswm-query.lisp (query-mode-complet): New function: Handle
543 completion in query-mode.
545 2010-10-30 Philippe Brochard <pbrochard@common-lisp.net>
547 * src/clfswm-query.lisp (query-print-string): Handle long lines
550 2010-10-27 Philippe Brochard <pbrochard@common-lisp.net>
552 * src/clfswm-expose-mode.lisp (expose-create-window): Ensure that
553 all characters are printable.
555 2010-10-25 Philippe Brochard <pbrochard@common-lisp.net>
557 * contrib/server/server.lisp: Load clfswm client code in the main
558 program and let the user start it with a --client command line
561 * src/package.lisp (*main-entrance-hook*): New hook executed after
562 loading configuration file and before opening the display.
564 2010-10-23 Philippe Brochard <pbrochard@common-lisp.net>
566 * src/xlib-util.lisp: Remove unnecessary xlib:display-finish-output.
568 * src/clfswm-internal.lisp (show-child): Show window only if not
571 * src/clfswm-keys.lisp (binding-substitute-modifier): Utility to
572 change modifiers after binding definition.
574 2010-10-21 Philippe Brochard <pbrochard@common-lisp.net>
576 * contrib/osd.lisp: New file: OSD (On Screen Display) for
579 * src/clfswm-menu.lisp (open-menu): Modularise function.
581 2010-10-13 Philippe Brochard <pbrochard@common-lisp.net>
583 * src/clfswm-info.lisp (show-first-aid-kit): Display the essential
584 key binding in main and second mode.
586 2010-10-10 Philippe Brochard <pbrochard@common-lisp.net>
588 * src/clfswm-util.lisp (open-notify-window): Convert hello-window
589 functions to a more generic Notify-window system.
591 * src/tools.lisp (add-timer): Add an id to identify the timer.
593 2010-10-09 Philippe Brochard <pbrochard@common-lisp.net>
595 * src/tools.lisp (erase-timer): New function.
597 * src/clfswm-util.lisp (display-hello-window): Add a timer to hide
598 the hello window. Add Configuration variables.
600 2010-10-08 Philippe Brochard <pbrochard@common-lisp.net>
602 * src/clfswm-util.lisp (): Add an Hello window at startup.
604 * src/tools.lisp (process-timers): Add a timer system.
606 2010-10-07 Philippe Brochard <pbrochard@common-lisp.net>
608 * src/clfswm-query.lisp (add-in-query-string): Handle correctly
611 2010-10-06 Philippe Brochard <pbrochard@common-lisp.net>
613 * src/clfswm-query.lisp (query-print-string): Change cursor color
614 and show parenthesis matching with colors (on match and on
617 2010-10-05 Philippe Brochard <pbrochard@common-lisp.net>
619 * src/clfswm-internal.lisp (show-all-children): Do not raise a
620 child when its parent is hidden.
622 2010-10-02 Philippe Brochard <pbrochard@common-lisp.net>
624 * src/clfswm-circulate-mode.lisp (select-next-subchild): Add the
625 possibility to circulate over subchild of the current child.
627 * src/clfswm-expose-mode.lisp (expose-all-windows-mode)
628 (expose-windows-generic): Add an escape-body function to return to
629 the original state on escape key.
631 * src/clfswm-util.lisp (bind-on-slot): Add an optional parameter
632 to bind the current child from the configuration file.
634 2010-10-01 Philippe Brochard <pbrochard@common-lisp.net>
636 * src/clfswm-nw-hooks.lisp (absorb-window-nw-hook): Absorb new
637 window hook: the frame absorb all new windows that match
638 nw-absorb-test frame data slot.
640 2010-09-30 Philippe Brochard <pbrochard@common-lisp.net>
642 * src/clfswm-expose-mode.lisp (expose-create-window): Show window
643 title in accel window.
645 2010-09-29 Philippe Brochard <pbrochard@common-lisp.net>
647 * configure: Use the Xavier Maillard clfswm script in contrib to
648 build an executable in the standard way.
650 2010-09-26 Philippe Brochard <pbrochard@common-lisp.net>
652 * src/clfswm-expose-mode.lisp (expose-mode-display-accel-windows):
653 New functions. Add a window on each child in the expose mode to
656 * src/clfswm-internal.lisp (child-x, child-y, child-width)
657 (child-height): New methods to get real child coordinates.
659 2010-09-25 Philippe Brochard <pbrochard@common-lisp.net>
661 * src/clfswm-layout.lisp (*-layout): Use child-position.
663 * src/clfswm-internal.lisp (child-position): New function.
665 * src/clfswm-expose-mode.lisp (expose-windows-mode)
666 (expose-all-windows-mode): Use a generic mode.
668 * src/xlib-util.lisp (with-handle-event-symbol): Use a filled list
669 with handle-event-fun symbols instead of inspecting clfswm
670 internals symbols on each mode change.
672 * src/clfswm-expose-mode.lisp: Move and rename present*-windows in
673 a separate clfswm-expose-mode.lisp file.
675 * src/clfswm-util.lisp (speed-mouse-right, speed-mouse-down): Use
676 screen size instead of hardcoded test coordinates.
678 2010-09-24 Philippe Brochard <pbrochard@common-lisp.net>
680 * src/clfswm-util.lisp (speed-mouse-reset, speed-mouse-left)
681 (speed-mouse-right, speed-mouse-up, speed-mouse-down)
682 (speed-mouse-undo, speed-mouse-first-history): New functions to
683 quickly move the mouse. Implemented for the second mode.
685 2010-09-16 Philippe Brochard <pbrochard@common-lisp.net>
687 * contrib/clfswm: Move clfswm sources to $tmp_dir if there is no
688 write permission on $clfswm_asd_path. So anybody can start clfswm
689 even if there is no write permission on the source directory.
691 2010-09-12 Philippe Brochard <pbrochard@common-lisp.net>
693 * contrib/clfswm: Add support to cmucl, ccl and ecl.
695 2010-09-11 Philippe Brochard <pbrochard@common-lisp.net>
697 * src/clfswm-util.lisp (set-hide-unmanaged-window)
698 (set-show-unmanaged-window, set-default-hide-unmanaged-window):
699 New functions and menu entry.
700 (set-globally-hide-unmanaged-window)
701 (set-globally-show-unmanaged-window): New functions and menu
704 * src/clfswm-internal.lisp (hide-unmanager-window-p): New
706 (show-child): Add a data slot on frame to hide or not unmanaged
709 * src/clfswm-corner.lisp (present-clfswm-terminal)
710 (present-virtual-keyboard): Use a function (generic-present-body)
711 instead of a macro (generate-present-body).
713 * src/clfswm-util.lisp (update-menus): List all directories and
714 subdirectories in $XDG_DATA_DIRS/applications.
716 2010-09-10 Philippe Brochard <pbrochard@common-lisp.net>
718 * src/clfswm-corner.lisp (generate-present-body): New macro.
719 (present-clfswm-terminal, present-virtual-keyboard): Use
720 generate-present-body.
722 2010-09-09 Philippe Brochard <pbrochard@common-lisp.net>
724 * src/clfswm-util.lisp (update-menus): Follow XDG specifications
725 instead of the non-portable Debian update-menu.
727 2010-09-07 Philippe Brochard <pbrochard@common-lisp.net>
729 * src/clfswm.lisp (error-handler): New function do handle
730 asynchronous errors and ignore them.
731 (open-display): Install the new error-handler on display.
733 2010-09-05 Philippe Brochard <pbrochard@common-lisp.net>
735 * src/xlib-util.lisp (with-xlib-protect): Add a
736 with-simple-restart on top of body execution.
738 2010-09-04 Philippe Brochard <pbrochard@common-lisp.net>
740 * src/clfswm.lisp (main-loop): Protect all xlib functions with an
743 * src/xlib-util.lisp (handle-event): use with-xlib-protect only in
744 handle-event. Add a with-simple-restart to prevent a
745 clisp/new-lisp infinite loop.
747 2010-08-30 Philippe Brochard <pbrochard@common-lisp.net>
749 * src/clfswm-corner.lisp (present-clfswm-terminal): Make the
750 clfswm terminal working even on xterm title changes.
752 2010-08-29 Philippe Brochard <pbrochard@common-lisp.net>
754 * src/clfswm-util.lisp (run-other-window-manager): Update for
757 * src/tools.lisp (do-execute): New parameter io to change the
760 * src/clfswm-util.lisp (hide-current-child): Prevent from removing
763 * src/clfswm-internal.lisp (child-member): New predicate.
764 (child-remove): New function.
766 * src/*.lisp: Use child-member and child-remove everywhere it's
769 2010-08-28 Philippe Brochard <pbrochard@common-lisp.net>
771 * src/clfswm.lisp (main-loop): Ensure that all events have been
772 processed after a process-event.
774 * src/clfswm-internal.lisp (is-in-current-child-p): New function.
776 2010-08-27 Philippe Brochard <pbrochard@common-lisp.net>
778 * src/clfswm.lisp (main-mode:configure-request): Raise the window
779 only when present on the current child and focus it accordingly.
781 2010-08-26 Philippe Brochard <pbrochard@common-lisp.net>
783 * src/clfswm-circulate-mode.lisp (circulate-loop-function):
784 Use is-a-key-pressed-p.
786 * src/xlib-util.lisp (is-a-key-pressed-p): New predicate.
788 * src/clfswm-keys.lisp (define-ungrab/grab): Use all values
789 returned by xlib:keysym->keycodes.
791 * src/*.lisp: Use the new child-equal-p to compare children. This
792 prevent a bug with sbcl/cmucl when the standard equal function
793 does not work with xlib:window.
795 * src/clfswm-internal.lisp (child-equal-p): New predicate.
797 2010-08-25 Philippe Brochard <pbrochard@common-lisp.net>
799 * src/clfswm-generic-mode.lisp (generic-mode): Use an
800 xlib:event-listen before processing event with
801 xlib:process-event. This prevent a bug with CLX threaded
802 implementation like sbcl.
804 * src/clfswm.lisp (main-loop): Use an xlib:event-listen before
805 processing event with xlib:process-event. This prevent a bug with
806 CLX threaded implementation like sbcl.
808 2010-08-17 Philippe Brochard <pbrochard@common-lisp.net>
810 * contrib/server/key.lisp (ushell-sh): Add ccl and ecl support.
812 * src/xlib-util.lisp (compress-motion-notify): Use a loop instead
815 * src/clfswm-internal.lisp (with-find-in-all-frames): New macro.
816 (find-parent-frame, find-frame-window, find-frame-by-name)
817 (find-frame-by-number): Use with-find-in-all-frames to search in
818 frames in the right order.
820 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Fix an
821 unwanted flickering with unmanaged windows.
823 2010-08-16 Philippe Brochard <pbrochard@common-lisp.net>
825 * src/package.lisp: Remove event handler hooks as they're not
826 needed anymore (To replace them: use closure and define-handler).
828 * src/xlib-util.lisp (move-window, resize-window)
829 (wait-mouse-button-release): Use a generic mode.
831 * src/*.lisp: Replace the case to handle event with a more (tricky)
832 lispy method which bind a function to each keywords associated
835 2010-07-23 Philippe Brochard <pbrochard@common-lisp.net>
837 * src/clfswm-util.lisp (delete-current-child): Invert bindings and
838 menu entry between delete-current-child and remove-current-child.
839 ie: Delete a child and its children in all frames by default.
841 2010-07-21 Philippe Brochard <pbrochard@common-lisp.net>
843 * src/package.lisp: Add a placement configuration group.
845 * src/binding*.lisp: Bind control+g to escape the current action
848 * src/clfswm-internal.lisp
849 (delete-child-and-children-in-all-frames): New function and
850 binding: Second mode - Control+Delete delete the current child and
851 its children in all frames (ie: close the current child and its
854 2010-07-20 Philippe Brochard <pbrochard@common-lisp.net>
856 * src/clfswm-internal.lisp (remove-child-in-frame): Do not destroy
857 the frame window and the frame gc. Close a very annoying bug when
858 cuting/pasting a frame or moving a child over frames with the
861 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Redisplay
862 all children in *current-root* after moving/resizing a frame.
864 2010-07-18 Philippe Brochard <pbrochard@common-lisp.net>
866 * src/clfswm-util.lisp (delete-focus-window)
867 (destroy-focus-window): Remove child in parent frame before
870 2010-07-16 Philippe Brochard <pbrochard@common-lisp.net>
872 * src/clfswm-util.lisp (identify-key): Add a timeout in
874 (mouse-click-to-focus-generic): Use find-child-under-mouse instead
875 of the window passed by xlib:process-event.
877 * src/xlib-util.lisp (move-window, resize-window)
878 (wait-mouse-button-release): Add a timeout in xlib:process-event.
880 2010-04-11 Philippe Brochard <pbrochard@common-lisp.net>
882 * src/clfswm-util.lisp (run-other-window-manager): Add the ability
883 to launch an other window manager and to return to clfswm.
885 2010-03-18 Philippe Brochard <pbrochard@common-lisp.net>
887 * src/clfswm-layout.lisp (set-tile-space-layout): Set default
890 2009-12-15 Philippe Brochard <pbrochard@common-lisp.net>
892 * src/clfswm.lisp (main-loop): Add a *loop-hook* parameter and a
895 * src/clfswm-generic-mode.lisp (generic-mode): Add a loop-hook
896 parameter and a loop timeout.
898 2009-12-05 Philippe Brochard <pbrochard@common-lisp.net>
900 * src/clfswm.lisp (main): Add an alternate configuration filename
903 * load.lisp: Add a debuging code example.
905 2009-11-14 Philippe Brochard <pbrochard@common-lisp.net>
907 * src/clfswm-configuration.lisp (create-configuration-menu): New
908 menu to configure all clfswm variables while clfswm is running.
910 2009-11-12 Philippe Brochard <pbrochard@common-lisp.net>
912 * src/clfswm-util.lisp (save-configuration-variables): New
913 function to save all configuration variables in clfswmrc.
915 2009-11-11 Philippe Brochard <pbrochard@common-lisp.net>
917 * src/clfswm-info.lisp (info-mode): Begining of mouse support in
919 (set-default-info-keys): Add cursor key support in info mode.
921 2009-11-08 Philippe Brochard <pbrochard@common-lisp.net>
923 * contrib/reboot-halt.lisp: Add a Suspend/Reboot/Halt menu in
926 * src/clfswm.lisp (main): Add a read-conf-file-p parameter to
927 prevent reading the configuration file (this may be useful to
928 produce the original documentation without user modifications
929 with the rc configuration file).
931 2009-11-07 Philippe Brochard <pbrochard@common-lisp.net>
933 * src/bindings-second-mode.lisp (set-default-second-keys):
934 Simplification of Escape key to close/kill/remove the focus window
935 and unhide all windows.
937 * src/bindings.lisp (set-default-main-keys): Simplification of
938 Escape key to close/kill/remove the focus window and unhide all
941 * src/clfswm-util.lisp (ask-close/kill-current-window): Add remove
942 focus and unhide all windows capabilities.
944 2009-10-10 Philippe Brochard <pbrochard@common-lisp.net>
946 * contrib/mpd.lisp (start-gmpc): Add gmpc in the mpd menu.
948 2009-07-29 Philippe Brochard <pbrochard@common-lisp.net>
950 * src/clfswm-layout.lisp (tile-layout, tile-horizontal-layout):
951 Keep child order and don't make unnecessary child movement.
952 (one-column-layout, one-line-layout): New layouts.
954 2009-06-29 Philippe Brochard <pbrochard@common-lisp.net>
956 * *: **** Release 0906 ****
958 * contrib/cd-player.lisp: New file to handle the CD player.
960 * contrib/xmms.lisp: New file to handle the xmms player.
962 2009-06-28 Philippe Brochard <pbrochard@common-lisp.net>
964 * src/clfswm-layout.lisp (set-no-layout-remember-size): New layout:
965 Maximize windows in their frame - Leave frames to their actual
968 * src/bindings-second-mode.lisp (set-default-second-keys): Bind
969 "o" on set-open-in-new-frame-in-parent-frame-nw-hook.
971 2009-06-27 Philippe Brochard <pbrochard@common-lisp.net>
973 * contrib/keyb_fr.lisp: New file to handle an azerty keyboard.
975 2009-06-24 Philippe Brochard <pbrochard@common-lisp.net>
977 * contrib/mpd.lisp: Use a standard menu.
979 * src/clfswm-info.lisp: Use a standard menu for the help-menu.
981 2009-06-22 Philippe Brochard <pbrochard@common-lisp.net>
983 * contrib/mpd.lisp: New file to handle the Music Player Daemon (MPD)
985 2009-06-19 Philippe Brochard <pbrochard@common-lisp.net>
987 * src/clfswm-autodoc.lisp (produce-doc, produce-doc-html): Minor
990 2009-06-18 Philippe Brochard <pbrochard@common-lisp.net>
992 * src/config.lisp (get-fullscreen-size): One pixel adjustment
995 * src/clfswm-placement.lisp (*-child-placement): One pixel
998 2009-06-16 Philippe Brochard <pbrochard@common-lisp.net>
1000 * src/clfswm-circulate-mode.lisp (draw-circulate-mode-window):
1001 Ensure that all characters are printable.
1003 * src/config.lisp (get-fullscreen-size): Adjust default fullscreen
1006 * src/clfswm-placement.lisp (*-child-placement): Adjust
1007 coordinates to one pixel in the current child.
1009 2009-06-04 Philippe Brochard <pbrochard@common-lisp.net>
1011 * src/clfswm-query.lisp (query-enter-function): Assign font before
1012 width and height calculation.
1014 2009-06-03 Philippe Brochard <pbrochard@common-lisp.net>
1016 * src/xlib-util.lisp (banish-pointer): Use with-placement macro to
1017 bannish the pointer in an arbitrary place.
1019 * src/clfswm-info.lisp (info-mode): Use with-placement macro to
1020 place the info window in an arbitrary place.
1022 * src/clfswm-query.lisp (query-enter-function): Use with-placement
1023 macro to place the query window in an arbitrary place.
1025 * src/clfswm-placement.lisp: New file. Allow to place info windows
1026 or query windows on an arbitrary place. Allow to bannish the
1027 pointer on an arbitrary place.
1029 2009-05-16 Philippe Brochard <pbrochard@common-lisp.net>
1031 * src/clfswm-circulate-mode.lisp (reorder-child)
1032 (reorder-brother): Unfocus windows before reordering children or
1035 2009-05-13 Philippe Brochard <pbrochard@common-lisp.net>
1037 * src/clfswm-circulate-mode.lisp (reorder-brother): Ensure that
1038 the parent is a frame.
1040 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Handle
1041 motion with a default modifier.
1043 * src/clfswm.lisp (handle-motion-notify): Handle motion with a
1046 * src/clfswm-info.lisp (info-mode): Handle motion with a default
1048 (info-mode): Optimization in loop function.
1050 2009-05-10 Philippe Brochard <pbrochard@common-lisp.net>
1052 * src/clfswm-circulate-mode.lisp (reorder-brother): Handle
1053 root-frame correctly.
1055 * clfswm.asd: Dependency fix for clfswm-generic-mode.
1057 * src/clfswm-circulate-mode.lisp (reorder-child)
1058 (reorder-brother): Handle empty frames.
1059 (reorder-brother): Redisplay only the parent frame of the current
1062 * src/clfswm-util.lisp (frame-toggle-maximize): Redisplay only the
1063 parent frame of the current frame.
1065 2009-05-09 Philippe Brochard <pbrochard@common-lisp.net>
1067 * src/clfswm-util.lisp (frame-toggle-maximize): New function:
1068 Maximize/Unmaximize the current frame in its parent frame.
1070 * src/clfswm-layout.lisp (maximize-layout): New layout: Maximize
1071 windows and frames in their parent frame.
1073 2009-05-05 Philippe Brochard <pbrochard@common-lisp.net>
1075 * src/*.lisp: Add support for Clozure Common Lisp (CCL).
1077 * src/clfswm-circulate-mode.lisp (reorder-child)
1078 (reorder-brother): Reinitialise on circulate type change
1079 child to brother or brother to child.
1081 * src/*.lisp (*): Use map-window instead of xlib:map-window. So
1082 calls xlib:display-finish-output on each map-request. So speed up
1085 * src/xlib-util.lisp (map-window): New function. Call
1086 xlib:display-finish-output on each map request.
1088 2009-04-28 Philippe Brochard <pbrochard@common-lisp.net>
1090 * src/clfswm-second-mode.lisp (sm-handle-motion-notify):
1091 Optimisation when drawing second mode window.
1093 2009-04-27 Philippe Brochard <pbrochard@common-lisp.net>
1095 * src/clfswm-circulate-mode.lisp (circulate-mode): Optimisation in
1098 2009-04-22 Philippe Brochard <pbrochard@common-lisp.net>
1100 * src/clfswm-util.lisp (run-program-from-query-string): Launch
1101 command only with a return validation.
1103 2009-04-22 Xavier Maillard <xma@gnu.org>
1105 * src/clfswm-query.lisp (query-string): Use a generic mode.
1107 2009-04-19 Xavier Maillard <xma@gnu.org>
1109 * src/clfswm-info.lisp (info-mode): Use generic-mode for info-mode.
1111 2009-04-18 Xavier Maillard <xma@gnu.org>
1113 * src/clfswm-generic-mode.lisp (generic-mode): Add a generic mode
1114 to define all other modes.
1116 2009-04-05 Philippe Brochard <pbrochard@common-lisp.net>
1118 * src/package.lisp (): Use *default-font-string* for all
1121 * src/clfswm-info.lisp (info-mode): Ensure integer windows size.
1123 2009-02-17 Philippe Brochard <pbrochard@common-lisp.net>
1125 * src/xlib-util.lisp (null-size-window-p): Better check of null
1128 2009-02-14 Philippe Brochard <pbrochard@common-lisp.net>
1130 * src/clfswm.lisp (handle-map-request): Add a fix to manage
1131 correctly fullscreen windows (SDL particularly).
1133 2008-12-20 Philippe Brochard <pbrochard@common-lisp.net>
1135 * src/xlib-util.lisp (get-color): Allocate colors only once -> fix
1136 a segfault with clisp/new-clx.
1138 * src/clfswm.lisp (handle-motion-notify): Add a needed window
1141 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Add a
1142 needed window argument.
1144 2008-10-30 Philippe Brochard <pbrochard@common-lisp.net>
1146 * src/xlib-util.lisp (wait-no-key-or-button-press)
1147 (wait-a-key-or-button-press): Check buttons press/release correctly"
1149 2008-10-28 Philippe Brochard <pbrochard@common-lisp.net>
1151 * src/menu-def.lisp: Add children navigation menu in the movement
1152 menu (select next/previous child/brother/level).
1154 2008-10-26 Philippe Brochard <pbrochard@common-lisp.net>
1156 * *: Rename 'sister' frame to 'brother' frame.
1158 * src/clfswm-keys.lisp (unalias-modifiers): Convert a modifier
1159 alias in a real modifier.
1161 * src/package.lisp (*modifier-alias*): New list of modifier alias
1162 For example: :alt is :mod-1, :numlock is :mod-2...
1164 * src/tools.lisp (remove-hook): New function.
1166 * src/clfswm-keys.lisp (with-capslock, without-capslock)
1167 (with-numlock, without-cnumlock): New functions.
1169 2008-10-25 Philippe Brochard <pbrochard@common-lisp.net>
1171 * src/clfswm-info.lisp: Use the *binding-hook* to create info
1172 keys and mouse bindings.
1174 * src/bindings-second-mode.lisp: Use the *binding-hook* to create
1175 second keys and mouse bindings.
1177 * src/bindings.lisp: Use the *binding-hook* to create main keys
1180 2008-10-10 Philippe Brochard <pbrochard@common-lisp.net>
1182 * src/clfswm-menu.lisp (open-menu): Remember parent menu to undo
1185 2008-10-09 Philippe Brochard <pbrochard@common-lisp.net>
1187 * src/menu-def.lisp: Use a menu instead of a function for the
1190 2008-10-08 Philippe Brochard <pbrochard@common-lisp.net>
1192 * src/clfswm-util.lisp (show-standard-menu): Display the standard
1193 menu from the 'update-menus' command.
1195 2008-10-07 Philippe Brochard <pbrochard@common-lisp.net>
1197 * src/clfswm-query.lisp (query-string): Do not ungrab keyboard if
1198 it's already grabbed.
1200 * src/clfswm-internal.lisp (display-frame-info): Use configurable
1201 colors and fix a bug with background.
1202 (display-frame-info): Set window background when displaying info.
1204 2008-10-06 Philippe Brochard <pbrochard@common-lisp.net>
1206 * src/xlib-util.lisp (my-character->keysyms): Use a macro to avoid
1207 warning with clisp/new-clx.
1209 2008-10-04 Philippe Brochard <pbrochard@common-lisp.net>
1211 * src/clfswm-util.lisp (jump-to-slot): Prevent to jump on a
1214 2008-09-23 Philippe Brochard <pbrochard@common-lisp.net>
1216 * *: **** Release 0809 ****
1218 2008-09-23 Philippe Brochard <pbrochard@common-lisp.net>
1220 * src/clfswm-util.lisp (ensure-unique-name): New function and menu
1222 (ensure-unique-number): New function and menu entry.
1224 2008-09-22 Philippe Brochard <pbrochard@common-lisp.net>
1226 * src/clfswm-nw-hooks.lisp (named-frame-nw-hook): New new window
1227 hook: open the next window in a named frame.
1228 (numbered-frame-nw-hook): New new window hook: open the next
1229 window in a numbered frame.
1231 * src/clfswm-query.lisp (query-string): Grab the keyboard in all
1232 cases. So query-string can be called even in the main mode.
1234 * src/clfswm-internal.lisp (show-all-children): Do not raise a
1235 child by default => far less flickering.
1237 2008-09-19 Philippe Brochard <pbrochard@common-lisp.net>
1239 * src/bindings-second-mode.lisp: Bind "t" to tile-current-frame.
1241 * src/menu-def.lisp: Change key binding for the CLFSWM menu
1244 * src/xlib-util.lisp (xgrab-pointer): Handle the case where cursor
1245 is nil. (workaround on some CLX implementation).
1247 2008-09-12 Philippe Brochard <pbrochard@common-lisp.net>
1249 * src/menu-def.lisp: Add a menu to set a focus policy for all
1252 * src/clfswm-util.lisp (set-focus-policy-generic-for-all)
1253 (all-frames-set-*-focus-policy): Set a focus policy for all
1256 * src/clfswm.lisp (handle-enter-notify): sloppy-select
1257 mode. Select a child and its parents on mouse over.
1259 2008-09-03 Philippe Brochard <pbrochard@common-lisp.net>
1261 * src/clfswm.lisp (handle-enter-notify): Add a sloppy strict focus
1262 policy -> Sloppy focus only for windows in the current frame.
1263 (main-unprotected): Exit clfswm on init error (ie: when another
1264 window manager is running).
1266 * src/clfswm-util.lisp (reset-clfswm): New function.
1268 2008-09-02 Philippe Brochard <pbrochard@common-lisp.net>
1270 * src/clfswm-menu.lisp (init-menu): New function.
1272 * src/clfswm-util.lisp (reload-clfswm): New function to reload
1274 (exit-clfswm): Rename quit-clfswm to exit-clfswm.
1276 * src/clfswm.lisp (main, main-unprotected): Handle error in a
1277 superior main function. Now CLFSWM can't break the X session. It
1278 just reinitialize the display and run a new main loop.
1280 * src/clfswm-corner.lisp: Make *clfswm-terminal* and
1281 *vt-keyboard-on* global to avoid warnings when loading clfswm.
1283 * src/clfswm-layout.lisp: Add a specific GIMP layout menu.
1284 (help-on-gimp-layout): Describe how to use the GIMP layout.
1286 2008-09-01 Philippe Brochard <pbrochard@common-lisp.net>
1288 * src/clfswm-layout.lisp (set-gimp-layout): Change the layout to
1289 main-window-right-layout. Change the keybinding for (shift)alt+tab
1290 to not select windows in the main window lisst.
1291 Bind F8 to add a window in the main window list.
1292 Bind F9 to remove a window in the main window list.
1293 Change the focus policy to :sloppy.
1294 (set-previous-layout): Restore the previous layout, keybinding and
1297 2008-08-31 Philippe Brochard <pbrochard@common-lisp.net>
1299 * src/clfswm-menu.lisp (add-menu-comment): Add comments in menu.
1301 * src/clfswm-layout.lisp (main-window-left-layout)
1302 (main-window-bottom-layout, main-window-top-layout): New
1304 Factorize layouts in menu.
1306 2008-08-30 Philippe Brochard <pbrochard@common-lisp.net>
1308 * src/clfswm-layout.lisp (main-window-right-layout): A possible
1309 GIMP layout: one or more main windows on one side of the
1310 frame. Others on the other size.
1312 * src/clfswm-util.lisp
1313 (current-frame-set-click/sloppy-focus-policy): Each frame can have
1314 a different focus policy (one of :click or :sloppy).
1315 The default focus policy is set with *default-focus-policy*.
1317 2008-08-23 Philippe Brochard <pbrochard@common-lisp.net>
1319 * src/clfswm-info.lisp (show-config-variable): New function.
1321 2008-08-19 Philippe Brochard <pbrochard@common-lisp.net>
1323 * src/clfswm-layout.lisp (tile-horizontal-layout): New layout.
1325 * src/clfswm-info.lisp: Colored help for key binding and corners
1328 2008-08-18 Philippe Brochard <pbrochard@common-lisp.net>
1330 * src/clfswm-util.lisp (delete-focus-window)
1331 (destroy-focus-window): Remove chid only in
1332 handle-unmap/destroy-notify. Focus *current-root* only when
1333 closing/killing the current child.
1335 * src/clfswm-autodoc.lisp (produce-corner-*-doc): New autodoc
1336 functions or corners.
1338 2008-08-17 Philippe Brochard <pbrochard@common-lisp.net>
1340 * src/clfswm-corner.lisp (present-clfswm-terminal): New corner
1341 action: Hide/Unhide a terminal on mouse corner action. (By default
1342 right mouse button on the top left corner).
1344 * src/config.lisp (*never-managed-window-list*): New config
1347 * src/clfswm-internal.lisp (never-managed-window-p): New function:
1348 Handle never managed window in a more simple way.
1350 * src/clfswm-corner.lisp: New file and new and more simple method
1351 to define corners actions.
1353 2008-08-15 Philippe Brochard <pbrochard@common-lisp.net>
1355 * src/clfswm-info.lisp (info-mode): Info line can now be colored.
1357 * src/clfswm-layout.lisp (fast-layout-switch)
1358 (define-fast-layout-switch): New functions: Switch between two
1361 * src/clfswm-second-mode.lisp (leave-second-mode): Takes care if
1362 really in the second mode. So leave-second-mode can be used even
1365 * src/clfswm-util.lisp (switch-to-last-child): New function:
1366 Store the current child and switch to the previous one.
1368 2008-07-16 Philippe Brochard <pbrochard@common-lisp.net>
1370 * src/clfswm-util.lisp (display-current-window-info): Display the
1372 (have-to-present-virtual-keyboard): Add a virtual keyboard corner
1373 (top right by default). By default 'xvkbd' is used.
1375 2008-06-28 Philippe Brochard <pbrochard@common-lisp.net>
1377 * src/xlib-util.lisp (move-window, resize-window): Compress motion
1380 * src/clfswm.lisp (handle-motion-notify): Compress motion events.
1382 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Compress
1385 * src/clfswm-info.lisp (info-mode): Compress motion events.
1387 2008-06-21 Philippe Brochard <pbrochard@common-lisp.net>
1389 * src/clfswm-internal.lisp (show-all-children): Compute geometry
1390 and selection first and then show only necessary children.
1391 (show-child): remove unneeded display-p parameter.
1393 * src/config.lisp (get-fullscreen-size): Place the frame border
1394 outside the screen (this prevent the loose of 2 pixels per
1397 2008-06-12 Philippe Brochard <pbrochard@common-lisp.net>
1399 * src/clfswm-internal.lisp (focus-child): Algorithm change to
1400 raise only the selected child.
1402 2008-06-08 Philippe Brochard <pbrochard@common-lisp.net>
1404 * src/clfswm-internal.lisp (raise-p-list, show-all-children):
1405 Raise only viewable children.
1407 2008-06-06 Philippe Brochard <pbrochard@common-lisp.net>
1409 * src/clfswm-internal.lisp (show-all-children): Always raise all
1410 displayed children. Remove all references to raise-p.
1412 2008-06-04 Philippe Brochard <pbrochard@common-lisp.net>
1414 * src/menu-def.lisp (child-menu): New menu entry on raise/lower
1417 * src/bindings-second-mode.lisp ("Page_Down", "Page_Up"): New
1418 second mode binding on raise/lower child in its frame.
1420 * src/clfswm-nw-hooks.lisp (leave-focus-frame-nw-hook): Adapt
1421 behaviour to the new raise/lower property.
1422 Call clear-nw-hook before the rest of the hook.
1424 * src/bindings.lisp (mouse-click-to-focus-and-move-window)
1425 (mouse-click-to-focus-and-resize-window): Stop button event. This
1426 prevent a keyboard/pointer freeze.
1428 2008-06-03 Philippe Brochard <pbrochard@common-lisp.net>
1430 * src/clfswm-internal.lisp (frame-lower-child)
1431 (frame-raise-child): New functions to raise/lower a child in its
1434 * src/clfswm-util.lisp (have-to-present-windows)
1435 (have-to-present-all-windows): New functions to have an MaxOS
1436 expose like on mouse click in screen corner.
1438 * src/clfswm-info.lisp ("Page_Down", "Page_Up"): Add boundaries.
1440 2008-05-30 Philippe Brochard <pbrochard@common-lisp.net>
1442 * src/clfswm-util.lisp (unhide-a-child-from-all-frames): Unhide a
1443 child from a choice in all frames with hidden children.
1445 * src/clfswm-info.lisp (info-mode-menu): Handle separators.
1447 2008-05-28 Philippe Brochard <pbrochard@common-lisp.net>
1449 * src/clfswm-util.lisp (hide-current-child, unhide-a-child)
1450 (unhide-all-children): New functions.
1452 * src/clfswm-info.lisp (info-mode-menu): Handle symbols and
1455 * src/clfswm-util.lisp (hide/show-frame-window): new function and
1458 2008-05-23 Philippe Brochard <pbrochard@common-lisp.net>
1460 * src/clfswm-util.lisp (rename-current-child): Do not display the
1461 frame info for a window.
1463 2008-05-20 Philippe Brochard <pbrochard@common-lisp.net>
1465 * src/clfswm-internal.lisp (remove-child-in-frame): Destroy the
1466 frame window for the removed child and its children.
1468 2008-05-18 Philippe Brochard <pbrochard@common-lisp.net>
1470 * src/clfswm-autodoc.lisp (produce-*-doc-*): Add a note to use the
1473 2008-05-17 Philippe Brochard <pbrochard@common-lisp.net>
1475 * src/clfswm-nw-hooks.lisp (default-frame-nw-hook): Do not handle
1476 the ROX pinboard (ie: leave it lowered in the root window as
1479 * src/clfswm-layout.lisp (tile-left-space-layout): New layout.
1480 (tile-left-layout, tile-right-layout, tile-top-layout)
1481 (tile-bottom-layout): Use all the frame space when there is only
1484 * src/clfswm-internal.lisp (place-window-from-hints): Center
1485 unmanaged windows in the root screen.
1487 * src/clfswm-nw-hooks.lisp (clear-nw-hook, clear-all-nw-hooks):
1490 2008-05-15 Philippe Brochard <pbrochard@common-lisp.net>
1492 * src/clfswm-util.lisp (current-frame-manage-window-type): Fix a
1493 typo in managed types.
1495 * src/clfswm-internal.lisp (show-child): Always display frame info
1496 even if the frame is hidden.
1498 * src/xlib-util.lisp (resize-window): Use a better algorithme to
1501 2008-05-13 Philippe Brochard <pbrochard@common-lisp.net>
1503 * src/clfswm-util.lisp (with-movement): Display frame info for all
1504 frames in current root.
1506 2008-05-12 Philippe Brochard <pbrochard@common-lisp.net>
1508 * src/*.lisp: Rename 'brother' frames to 'sister' frames.
1510 * src/bindings-second-mode.lisp (define-second-key #\a): New
1511 binding on 'add-default-frame'.
1513 * src/clfswm-autodoc.lisp (produce-*-doc-*-in-file): Show a
1514 message to follow the autodocumentation process.
1516 2008-05-10 Philippe Brochard <pbrochard@common-lisp.net>
1518 * src/clfswm-util.lisp (bind-or-jump): Bind "Tab", "Return" and
1519 "Space" to jump to a child. "B" to bind a slot on the current
1522 * src/bindings-second-mode.lisp: Use "Tab" instead of
1525 2008-05-07 Philippe Brochard <pbrochard@common-lisp.net>
1527 * src/clfswm-util.lisp (find-child-under-mouse): Take care of
1528 unmanaged (hidden) windows.
1530 * src/clfswm-internal.lisp (place-window-from-hints): Give a
1531 minimal size for windows.
1532 (with-all-windows-frames-and-parent): New function.
1534 * src/config.lisp (*default-window-width/height*): New parameters.
1536 * src/clfswm-internal.lisp (place-window-from-hints): Center
1537 windows in the screen instead of in their frame.
1539 * src/bindings-second-mode.lisp (tile-space-current-frame): New
1542 * src/clfswm-layout.lisp (register-layout): Intern the once name
1543 in the right package.
1545 2008-05-05 Philippe Brochard <pbrochard@common-lisp.net>
1547 * doc/dot-clfswmrc: Update to follow the new clfswm way.
1549 2008-05-03 Philippe Brochard <pbrochard@common-lisp.net>
1551 * src/clfswm-internal.lisp (set-current-child)
1552 (adapt-child-to-parent, show-child, hide-child): Handle the case
1553 where child is not a frame or a window.
1555 * src/clfswm-util.lisp
1556 (mouse-click-to-focus-generic,mouse-focus-move/resize-generic):
1557 Check if child is a frame.
1559 * src/clfswm-internal.lisp (managed-window-p): Handle the case
1560 where frame is null.
1561 (place-frame): Check if frame and parent are frames.
1563 * src/clfswm-info.lisp (info-mode): display all frame info before
1566 * src/clfswm-second-mode.lisp (second-key-mode): display all frame
1567 info before leaving.
1569 * src/clfswm-internal.lisp (display-all-frame-info): New function.
1571 2008-05-02 Philippe Brochard <pbrochard@common-lisp.net>
1573 * src/tools.lisp (getenv): Implemented for ECL.
1574 (urun-prog): Implemented for ECL.
1576 * src/clfswm-util.lisp (identify-key): Use a double buffer to
1579 * src/clfswm-query.lisp (query-string): Use a double buffer to
1582 * src/clfswm-info.lisp (draw-info-window): Use a double buffer to
1585 * src/xlib-util.lisp (clear-pixmap-buffer, copy-pixmap-buffer):
1588 2008-05-01 Philippe Brochard <pbrochard@common-lisp.net>
1590 * src/clfswm-info.lisp (info-mode): Add boundaries in the info mode window.
1592 * src/menu-def.lisp: New file: move all menu definition in
1595 * src/clfswm-layout.lisp (register-layout): Use a function instead
1598 2008-04-30 Philippe Brochard <pbrochard@common-lisp.net>
1600 * src/clfswm-autodoc.lisp (produce-menu-doc,
1601 (produce-menu-doc-html): New functions.
1602 (produce-doc-*): Moved to clfswm-autodoc.lisp.
1604 * src/clfswm-util.lisp (paste-selection-no-clear): Prevent to
1605 paste a child on one of its own children. (this prevent a
1607 (move-child-to): Rename move/copy-current-child-by to
1609 (mouse-move-window-over-frame): New function to move the window
1610 under the mouse cursor to another frame.
1612 * src/clfswm-internal.lisp (find-child-in-parent): New function.
1614 2008-04-29 Philippe Brochard <pbrochard@common-lisp.net>
1616 * src/clfswm-internal.lisp (show-all-children): Display unmanaged
1617 windows only when its window parent is the current child.
1619 2008-04-28 Philippe Brochard <pbrochard@common-lisp.net>
1621 * src/clfswm-util.lisp (manage-current-window)
1622 (unmanage-current-window): New functions: Allow to force to manage
1623 or unmanage a window by its parent frame.
1625 * src/bindings-second-mode.lisp (#\o): binded to
1626 set-open-in-new-frame-in-parent-frame-nw-hook and
1627 (#\o :control) to set-open-in-new-frame-in-root-frame-nw-hook
1629 * src/clfswm-util.lisp (with-current-window): New macro.
1631 * src/xlib-util.lisp (move-window, resize-window): Remove uneeded
1632 exposure and enter-window handle event.
1634 * src/clfswm-util.lisp (move-frame, resize-frame): Show all
1635 children for the current child after the move/resize.
1637 2008-04-27 Philippe Brochard <pbrochard@common-lisp.net>
1639 * src/xlib-util.lisp (resize-window): Take care of window size
1642 * src/clfswm-util.lisp (mouse-focus-move/resize-generic): Allow to
1643 move/resize unmanaged windows.
1645 * src/xlib-util.lisp (move-window, resize-window): New functions.
1647 2008-04-25 Philippe Brochard <pbrochard@common-lisp.net>
1649 * src/clfswm-util.lisp (current-frame-manage-window-type): Let the
1650 user choose what window type the current frame must handle.
1651 (display-current-window-info): New function.
1652 (current-frame-manage-all-window-type)
1653 (current-frame-manage-only-normal-window-type)
1654 (current-frame-manage-no-window-type): New functions.
1656 * src/clfswm-internal.lisp (managed-window-p): New function.
1658 * src/package.lisp (frame): Managed type: new frame
1659 parameter. This allow to choose what window type a frame must
1662 * src/*.lisp: Rename all 'father' occurrences to 'parent'.
1664 * src/clfswm-nw-hooks.lisp
1665 (open-in-new-frame-in-parent-frame-nw-hook): New new window hook.
1667 * src/clfswm-util.lisp (adapt-current-frame-to-window-hints): New
1670 * src/tools.lisp (ensure-printable): Return always a string even
1673 2008-04-24 Philippe Brochard <pbrochard@common-lisp.net>
1675 * src/config.lisp (*default-nw-hook*): New variable to change the
1676 default new window hook.
1678 2008-04-22 Philippe Brochard <pbrochard@common-lisp.net>
1680 * clfswm.asd (clfswm): Add a dependency from
1681 clfswm-second-mode.lisp to clfswm.lisp.
1683 * src/clfswm-util.lisp (identify-key): Show the documentation for
1684 the function bound on a key.
1685 (with-movement): Move with-movement,
1686 current-frame-fill/pack/resize-* from bindings-second-mode.lisp
1687 to clfswm-util.lisp.
1689 * src/clfswm-menu.lisp: New menu system that let user change keys
1690 or functions associated to keys.
1692 2008-04-18 Philippe Brochard <pbrochard@common-lisp.net>
1694 * src/clfswm-internal.lisp (show-all-children): Display-child is
1695 the first child by default. Solve a bug with father-p.
1697 2008-04-17 Philippe Brochard <pbrochard@common-lisp.net>
1699 * src/clfswm-internal.lisp (add-frame): Add frame return the
1701 (show-all-children): Move the size computation outside the
1704 * src/bindings-second-mode.lisp (with-movement): Redisplay only
1707 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Redisplay
1708 only the current child.
1710 * src/clfswm-internal.lisp (show-all-children): New display-child
1711 parameter to display only the desired child and its children.
1712 (select-next/previous-child): Only display the current child.
1714 2008-04-14 Philippe Brochard <pbrochard@common-lisp.net>
1716 * src/clfswm.lisp (init-display): Move the default frame creation
1717 on the default init hook.
1719 * src/clfswm-keys.lisp (define-ungrab/grab): Handle all keysyms in
1720 the main mode (for example: "1" on an azerty keyboard).
1722 2008-04-13 Philippe Brochard <pbrochard@common-lisp.net>
1724 * src/clfswm-keys.lisp (find-key-from-code): Better handle of
1725 keysyms. Revert to old grabbing method for the main mode.
1727 2008-04-12 Philippe Brochard <pbrochard@common-lisp.net>
1729 * src/clfswm.lisp (init-display): Add key handling on no focus
1730 window and on frame windows.
1732 2008-04-11 Philippe Brochard <pbrochard@common-lisp.net>
1734 * src/clfswm.lisp (main): Keyboard handle strategie change: Grab
1735 all keys by default and replay just what is needed. No change for
1738 * src/clfswm-keys.lisp: remove grab/ungrab main keys.
1739 (find-key-from-code): Test for shift and not shift presence.
1741 2008-04-09 Philippe Brochard <pbrochard@common-lisp.net>
1743 * src/clfswm-internal.lisp (switch-to-root-frame): show later -
1744 new key parameter to have less flickering.
1746 2008-04-07 Philippe Brochard <pbrochard@common-lisp.net>
1748 * src/bindings-second-mode.lisp (frame-layout-once-menu): Set the
1749 layout only one time and revert to no-layout to freely handle
1752 * src/clfswm-nw-hooks.lisp
1753 (open-in-new-frame-in-root-frame-nw-hook): Tile layout with spaces
1754 with new created window.
1756 * src/clfswm-layout.lisp (register-layout): Now register
1757 automatically a once layout to set the layout only one time and
1758 revert to no-layout to freely handle frames.
1760 2008-04-05 Philippe Brochard <pbrochard@common-lisp.net>
1762 * src/clfswm-nw-hooks.lisp (leave-focus-frame-nw-hook): New
1763 nw-hook: Open the next window in the current frame and leave the
1764 focus to the current child.
1766 2008-04-04 Philippe Brochard <pbrochard@common-lisp.net>
1768 * src/bindings-second-mode.lisp: Add keys definitions to
1769 bind-or-jump in the second mode.
1771 * src/clfswm-util.lisp (bind-or-jump): remove the auto-defining
1772 macro for bind-or-jump-(1|2|3...).
1774 * src/clfswm-keys.lisp (define-define-key/mouse): Allow additional
1775 arguments to function. This allow to do things like:
1776 (define-main-key (key) 'my-function 10 20 'foo) -> 10 20 and 'foo
1777 are passed to my-function on key press.
1779 2008-04-03 Philippe Brochard <pbrochard@common-lisp.net>
1781 * src/clfswm-util.lisp (bind-or-jump): New (great) function.
1783 2008-04-02 Philippe Brochard <pbrochard@common-lisp.net>
1785 * src/clfswm-internal.lisp (child-fullname): New function
1787 * src/clfswm-info.lisp (info-mode-menu): Add an explicit optional
1788 docstring in info-mode-menu. An item can be
1789 '((key function) (key function)) or with docstring
1790 '((key function "documentation 1") (key function "bla bla") (key function))
1792 * src/tools.lisp (ensure-n-elems): New function.
1794 * src/bindings-second-mode.lisp: Bind Alt+mouse-1/3 to move or
1795 resize a frame or the window's father.
1797 * src/clfswm.lisp (init-display): Remove tile-space-layout by
1798 default on the root frame.
1800 * src/clfswm-util.lisp (move/resize-frame): Add standard event
1801 hooks handlers (map-request, configure-notify...)
1803 * src/clfswm-internal.lisp (adapt-child-to-father): Limit minimal
1806 2008-04-01 Philippe Brochard <pbrochard@common-lisp.net>
1808 * src/bindings.lisp: Bind Alt+mouse-1/3 to move or resize a frame
1809 or the window's father.
1811 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Stop button
1812 event only if there is a geometry change.
1813 (mouse-focus-move/resize-generic): Generic function to move or
1814 resize a frame or a window father frame.
1816 2008-04-01 Philippe Brochard <pbrochard@common-lisp.net>
1818 * src/clfswm-internal.lisp (show-all-children): Return t if there
1819 is a geometry change.
1821 2008-03-30 Philippe Brochard <pbrochard@common-lisp.net>
1823 * src/bindings.lisp (Up/Down): Swap select previous/next level.
1825 * src/bindings-second-mode.lisp (Up/Down): Swap select previous/next level.
1827 * src/clfswm.lisp (init-display): Create a default frame in the root frame.
1829 * src/clfswm-internal.lisp (place-frame): Place frame from real (pixel) coordinates.
1830 (with-all-*): Reverse the child list to manage the first child last (like in
1833 * src/config.lisp (*create-frame-on-root*): New variable: Create a new frame on the
1834 root window only if true.
1836 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Create a new frame on the
1837 root window only if *create-frame-on-root* is true.
1839 * src/bindings-second-mode.lisp (sm-mouse-click-to-focus-generic): Create a new frame
1842 2008-03-29 Philippe Brochard <pbrochard@common-lisp.net>
1844 * src/bindings-second-mode.lisp (sm-mouse-click-to-focus-generic): Focus, move and resize
1845 the current child (even if it's a window).
1847 2008-03-28 Philippe Brochard <pbrochard@common-lisp.net>
1849 * src/clfswm-util.lisp (mouse-click-to-focus-and-move)
1850 (mouse-click-to-focus-and-resize): New functions.
1852 * src/clfswm-internal.lisp (*-fl->px): Convert float coordinates to pixel.
1853 (*-px->fl): Convert pixel coordinates to float.
1855 * src/tools.lisp (call-hook): Move call-hook to tools.lisp.
1857 2008-03-27 Philippe Brochard <pbrochard@common-lisp.net>
1859 * src/clfswm-layout.lisp (no-layout): Use :first-only to raise only the
1862 * src/clfswm-internal.lisp (hide-all): Split hide-all-children in hide-all
1863 and hide-all-children.
1864 (raise-if-needed): New function.
1865 (show-child): Use a first-p parameter to raise windows only when they are
1868 2008-03-26 Philippe Brochard <pbrochard@common-lisp.net>
1870 * src/clfswm-internal.lisp (select-next/previous-level): Don't use show-all-children
1873 2008-03-25 Philippe Brochard <pbrochard@common-lisp.net>
1875 * src/clfswm-info.lisp (keys-from-list): new function.
1877 * src/*: rename 'childs' in 'children'.
1879 * src/*: rename 'group' in 'frame'.
1881 2008-03-22 Philippe Brochard <pbrochard@common-lisp.net>
1883 * src/clfswm-pack.lisp (explode-group/explode-current-group): new functions.
1885 2008-03-21 Philippe Brochard <pbrochard@common-lisp.net>
1887 * src/clfswm-pack.lisp: Pack, Fill, Resize functions.
1889 2008-03-16 Philippe Brochard <pbrochard@common-lisp.net>
1891 * src/clfswm-nw-hooks.lisp: Register system for new window hooks.
1892 Bind control+o to open the next window in a new group in the root group
1893 (as open in next window in a new workspace in 0801 version).
1895 2008-03-15 Philippe Brochard <pbrochard@common-lisp.net>
1897 * src/clfswm-util.lisp (show/hide-all-groups-info/key): Show/hide all groups info
1900 2008-03-14 Philippe Brochard <pbrochard@common-lisp.net>
1902 * bindings-second-mode.lisp ("ISO_Left_Tab"): Use ISO_Left_Tab
1903 instead of Tab for select-previous-child.
1905 2008-03-13 Philippe Brochard <pbrochard@common-lisp.net>
1907 * clfswm-util.lisp (force-window-in-group/force-window-center-in-group):
1910 2008-03-11 Philippe Brochard <pbrochard@common-lisp.net>
1912 * clfswm-util.lisp (identify-key): Display the documentation
1913 associated to keys when identifying a key.
1915 2008-03-10 Xavier Maillard <xma@gnu.org>
1917 * contrib/clfswm: Complete rewrite of the script. Detect error and
1918 act accordingly. Add command line arguments to configure the
1919 script execution. User can now choose different common lisp
1920 implementation (clisp and sbcl only), choose where to store the
1921 dumped image, where to find clfswm source.
1923 2008-03-09 Philippe Brochard <pbrochard@common-lisp.net>
1925 * clfswm-internal.lisp (process-new-window): Beginning of new
1926 window hook: each group have a hook to tell what he wants to do
1927 with the new created window.
1929 2008-03-08 Xavier Maillard <xma@gnu.org>
1931 * contrib/clfswm: New script. Dump a CLISP image of CLFSWM then
1932 call the resulting executable.
1934 * clfswm.lisp (read-conf-file): Check for the user config file in
1935 XDG_CONFIG_HOME *first*. Freedesktop.org standards should be
1936 prefered whenever possible.
1938 2008-02-27 Philippe Brochard <pbrochard@common-lisp.net>
1940 * clfswm-layout.lisp (*-layout): Add an optional raise-p
1941 parameter in each layout.
1943 2008-02-26 Philippe Brochard <pbrochard@common-lisp.net>
1945 * clfswm-util.lisp (copy/cut-current-child): Does not affect the
1947 (copy/move-current-child-by-name/number): new functions
1948 (focus-group-by-name/number): new functions
1949 (delete-group-by-name/number): new functions
1951 2008-02-24 Philippe Brochard <pbrochard@common-lisp.net>
1953 * ************************************************************ *
1954 *: Major update - No more reference to workspaces. The main *
1955 structure is a tree of groups or application windows. *
1956 * ************************************************************ *
1958 2008-02-07 Philippe Brochard <pbrochard@common-lisp.net>
1960 * clfswm.lisp (read-conf-file): Read configuration in
1961 $HOME/.clfswmrc or in /etc/clfswmrc or in
1962 $XDG_CONFIG_HOME/clfswm/clfswmrc.
1963 (xdg-config-home): Return the content of $XDG-CONFIG-HOME (default
1966 2008-01-18 Philippe Brochard <pbrochard@common-lisp.net>
1968 * clfswm-internal.lisp (show-all-group): Use *root* and *root-gc*
1971 2008-01-03 Philippe Brochard <pbrochard@common-lisp.net>
1973 * clfswm-internal.lisp (find-window-group): New function.
1975 * clfswm*: Change to make clfswm run with clisp/new-clx.
1977 2008-01-01 Philippe Brochard <pbrochard@common-lisp.net>
1979 * clfswm-util.lisp (query-show-paren): Add show parent matching in
1981 (query-string): Bind control+k to delete end of line.
1983 * clfswm-second-mode.lisp (draw-second-mode-window): Display
1984 the action on mouse motion in second mode.
1986 * clfswm.lisp (handle-exposure): Redisplay groups on exposure
1987 event but do not clear the root window.
1988 (handle-configure-request): Adjust unmanaged window from their
1991 * clfswm-internal.lisp (process-new-window): Adjust new window
1992 with the specified hints (max/min/base width/height).
1994 2007-12-31 Philippe Brochard <pbrochard@common-lisp.net>
1996 * clfswm.lisp (handle-configure-request): Send an Configuration
1997 Notify event. This solve a bug with xterm and rxvt who takes some
1998 times to be mapped. Now there is no delay.
2000 * bindings-second-mode.lisp (define-shell): Run programs after
2001 living the second mode.
2003 2007-12-30 Philippe Brochard <pbrochard@common-lisp.net>
2005 * clfswm-internal.lisp (process-new-window): Do not crop transient
2006 window to group size.
2007 (adapt-window-to-group): Do not crop transient window to group
2010 * clfswm.lisp (handle-configure-request): Adapt just the window to
2011 its group and don't take care of the configure request. Remove the
2012 bug with the Gimp outside the group and speed up the window
2014 (handle-exposure): Remove show-all-group on exposure event
2017 2007-12-29 Philippe Brochard <pbrochard@common-lisp.net>
2019 * clfswm-util.lisp (circulate-group-up-copy-window)
2020 (circulate-group-down-copy-window)
2021 (circulate-workspace-up-copy-group)
2022 (circulate-workspace-down-copy-group): Prevent the copy of the
2023 same window in the same workspace.
2025 * bindings-second-mode.lisp (release-copy-selected-window)
2026 (release-copy-selected-group): Prevent the copy of the same window
2027 in the same workspace.
2029 * clfswm-pager.lisp (generic-pager-move-window-on-previous-line)
2030 (generic-pager-move-window-on-next-line): Remove the copy
2032 (generic-pager-move-group-on-next-workspace)
2033 (generic-pager-move-group-on-previous-workspace): Prevent the copy
2034 of the same window in the same workspace.
2036 * bindings-pager.lisp (mouse-pager-copy-selected-window-release)
2037 (mouse-pager-copy-selected-group-release): Prevent the copy of the
2038 same window in the same workspace.
2040 * tools.lisp (setf/=): new macro to set a variable only when
2043 * clfswm-internal.lisp (adapt-window-to-group): use set/= to set
2044 x, y... only when necessary.
2046 2007-12-28 Philippe Brochard <pbrochard@common-lisp.net>
2048 * clfswm.lisp (handle-configure-notify, *configure-notify-hook*):
2049 new function and hook: force windows to stay in its group (solve a
2052 2007-12-25 Philippe Brochard <pbrochard@common-lisp.net>
2054 * bindings-second-mode.lisp (mouse-motion): use hide-group to have
2055 less flickering when moving/resizing groups.
2057 * clfswm-internal.lisp (hide-group): new function.
2058 (show-all-group): clear-all: new parameter.
2060 2007-12-22 Philippe Brochard <pbrochard@common-lisp.net>
2062 * clfswm-keys.lisp (define-define-key): undefine-*-multi-name: new
2064 * clfswm*: Color change for the pager. Typo or better description
2065 in bindings definitions. Define bindings for a qwerty keyboard by
2066 default. dot-clfswmrc show examples to switch to an azerty
2068 License change to GPL v3.
2069 * config.lisp: new file - group all globals variables in this
2072 2007-08-26 Philippe Brochard <pbrochard@common-lisp.net>
2074 * xlib-util.lisp (hide-window): Remove structure-notivy events
2075 when hidding a window.
2077 2007-05-16 Philippe Brochard <pbrochard@common-lisp.net>
2079 * package.lisp (*sm-property-notify-hook*): Readded
2080 property-notify-hook in second mode.
2082 2007-05-15 Philippe Brochard <pbrochard@common-lisp.net>
2084 * clfswm-keys.lisp (produce-doc-html): Better clean up for strings.
2086 2007-05-13 Philippe Brochard <pbrochard@common-lisp.net>
2088 * clfswm-pack.lisp (tile-current-workspace-to/right/left/top/bottom):
2089 Tile the current workspace with the current window on one side and
2090 others on the other (this emulate the larswm, dwm, wmii way). See
2091 the default configuration file to enable this mode by default.
2093 * clfswm-pager.lisp (pager-tile-current-workspace-to): idem for
2096 2007-05-12 Philippe Brochard <pbrochard@common-lisp.net>
2098 * clfswm-pager.lisp (pager-draw-window-in-group): Add
2099 ensure-printable to print windows name even with non-ascii
2102 2007-05-11 Philippe Brochard <pbrochard@common-lisp.net>
2104 * clfswm-pager.lisp (pager-explode-current-group): Create a new
2105 group for each window in group.
2106 (pager-implode-current-group): Move all windows in workspace to
2107 one group and remove other groups.
2109 * clfswm-pack.lisp (explode-group): Create a new group for each
2111 (implode-group): Move all windows in workspace to one group and
2112 remove other groups.
2114 * clfswm-util.lisp (identify-key): Remove local configuration
2115 variables and made them available for configuration from
2117 (query-string): idem.
2119 2007-04-29 Philippe Brochard <pbrochard@common-lisp.net>
2121 * netwm-util.lisp: Start of NetWM compliance.
2122 Add a Netwm client list gestion.
2124 2007-04-28 Philippe Brochard <pbrochard@common-lisp.net>
2126 * clfswm-internal.lisp (create-group-on-request): open a new group
2127 only when the current group is not empty.
2129 * bindings-second-mode.lisp (define-second-key-#\o-control): Fix a
2130 bug with null workspace.
2132 * clfswm-pager.lisp (pager-handle-event): Add a hook
2133 system. This hooks can be changed in the user configuration file.
2135 * package.lisp: All colors and font variables are set in
2136 package.lisp and can be configured in the user configuration
2138 Note: If you have configured some less ugly colors (esp. for the
2139 pager) don't hesitate to let me know :)
2141 * clfswm-second-mode.lisp (sm-handle-event): Add a hook
2142 system. This hooks can be changed in the user configuration file.
2144 * clfswm.lisp (handle-event): Add a hook system. This hooks can be
2145 changed in the user configuration file (~/.clfswmrc)
2147 2007-04-25 Philippe Brochard <pbrochard@common-lisp.net>
2149 * clfswm-util.lisp (stop-all-pending-actions): new function: reset
2150 arrow action, open next window in new workspace/group.
2152 * bindings.lisp (stop-all-pending-actions): new binding.
2153 (open-next-window-in-new-group-once): Open the next windows in a
2154 new group (only once) or open all new windows in a new group (like
2155 others windows managers).
2157 2007-04-22 Philippe Brochard <pbrochard@common-lisp.net>
2159 * clfswm.lisp (read-conf-file): New function to read a lisp
2160 configuration file at startup.
2161 (focus-group-under-mouse): Check if group isn't the current group
2162 ( prevent a bug with unclutter ).
2164 2007-03-02 Philippe Brochard <pbrochard@common-lisp.net>
2166 * bindings.lisp (run-program-from-query-string): A program can be
2167 launch from a input query window.
2169 2007-03-01 Philippe Brochard <pbrochard@common-lisp.net>
2171 * clfswm-info.lisp: Fix a bug with banish pointer in info mode.
2173 2007-02-28 Philippe Brochard <pbrochard@common-lisp.net>
2175 * clfswm.lisp (process-new-window): One can now open the next
2176 window in a workspace called by its number.
2178 * clfswm-util.lisp (query-font-string): Minimal editing
2180 (eval-from-string): And an REPL in the window manager... :)
2182 2007-02-26 Philippe Brochard <pbrochard@common-lisp.net>
2184 * clfswm.lisp (process-new-window): One can now open the next
2185 window in a new workspace or a new group.
2187 * clfswm-pager.lisp (pager-mode): Display the next arrow action
2188 with the hidden windows.
2190 * clfswm.lisp (second-key-mode): Display the current workspace
2191 number and the next arrow action in the state window.
2193 * clfswm-pager.lisp (pager-mode): Hide all windows before leaving
2194 the pager mode and then redisplay only the current workspace.
2196 2007-02-25 Philippe Brochard <pbrochard@common-lisp.net>
2198 * clfswm.lisp (add-workspace): Workspaces are now numbered. So
2199 they can be focused with a keypress, sorted or renumbered.
2201 2007-02-24 Philippe Brochard <pbrochard@common-lisp.net>
2203 * clfswm-pager.lisp (pager-mode): Remove multiple silly
2204 pager-draw-display. This prevent a lot of flickering in the
2207 * clfswm.lisp: Remove all display-force-output and replace them
2208 with only one display-finish-output in the event loop.
2210 2006-11-06 Philippe Brochard <pbrochard@common-lisp.net>
2212 * clfswm-pager.lisp (pager-center-group): New function - center a
2213 group at the middle of the screen.
2215 * clfswm-pack.lisp (center-group): New function - center a group
2216 at the middle of the screen.
2218 * clfswm.lisp (show-group): Add a cross line under the group.
2219 (show-group): Group are showned even if fullscreened.
2220 (init-display): Add an exposure event on the root window.
2222 2006-11-05 Philippe Brochard <pbrochard@common-lisp.net>
2224 * package.lisp (*default-group*): Default group is the same size
2225 of a fullscreened group.
2227 * bindings*: Use shift to move, control+shift to copy.
2229 * *.lisp: Add comments for configuration or alternatives. So grep
2230 for CONFIG to see where you can configure clfswm. And grep for
2231 Alternative to use some commented code.
2233 * clfswm.lisp (second-key-mode): Use a single window to show the
2234 second mode. See for alternatives at the end of this file.
2236 2006-11-03 Philippe Brochard <pbrochard@common-lisp.net>
2238 * clfswm-keys.lisp (define-define-key/mouse): Factorisation in a
2239 macro of key and mouse definitions.
2240 (define-define-key/mouse): Use state instead of modifiers list
2241 this fix a bug when the modifiers list is not in the rigth order.
2243 * clfswm.lisp (second-key-mode): Add a colored border in second mode.
2245 2006-11-02 Philippe Brochard <pbrochard@common-lisp.net>
2247 * clfswm-info.lisp (info-mode): Add an info mode.
2249 2006-11-01 Philippe Brochard <pbrochard@common-lisp.net>
2251 * clfswm.lisp (process-new-window): Change border size for
2253 (show-all-windows-in-workspace): Unhide all windows even when the
2254 current group is in fullscreen mode.
2256 2006-10-26 Philippe Brochard <pbrochard@common-lisp.net>
2258 * clfswm-util.lisp (identify-key): Add an exposure handle-event to
2259 redisplay the identify window after a terminal switch.
2261 * clfswm-pager.lisp (pager-mode): Add an exposure handle-event to
2262 redisplay the pager after a terminal switch.
2264 2006-10-24 Philippe Brochard <pbrochard@common-lisp.net>
2266 * clfswm-util.lisp (identify-key): Add a window to display
2267 the keys to identify on screen.
2269 * bindings.lisp, bindings-pager.lisp: Define same keys to
2270 move/copy groups/windows in second mode and in pager.
2272 * clfswm.lisp (handle-event*): Same version in all clfswm (fix some
2274 (show-all-windows-in-workspace): unhide window before adapting it
2277 2006-10-23 Philippe Brochard <pbrochard@common-lisp.net>
2279 * clfswm.lisp (handle-event): Revert to an older version.
2281 2006-10-18 Philippe Brochard <pbrochard@common-lisp.net>
2283 * clfswm-util.lisp (force-window-in-group)
2284 (force-window-center-in-group): New functions for transient windows.
2286 * clfswm-pager.lisp (pager-remove-current-workspace/group):
2287 bugfix: hide all windows before removing group or workspace.
2289 2006-10-17 Philippe Brochard <pbrochard@common-lisp.net>
2291 * bindings-pager.lisp (mouse-pager-move-selected-group)
2292 (mouse-pager-copy-selected-group)
2293 (mouse-pager-move-selected-window)
2294 (mouse-pager-copy-selected-window, mouse-pager-rotate-window-up)
2295 (mouse-pager-rotate-window-down): New functions to have mouse in
2298 * clfswm-pager.lisp (pager-swap-window)
2299 (pager-copy-group-on-next/previous-workspace)
2300 (pager-copy-window-on-next/previous-line): New functions
2302 2006-10-15 Philippe Brochard <pbrochard@common-lisp.net>
2304 * clfswm-pager.lisp (pager-move-window-on-next/previous-line,
2305 (pager-move-group-on-next/previous-workspace): new functions.
2307 * clfswm-pack.lisp (resize-half-x-x-current-group): resize group
2308 to its half size (new functions).
2310 2006-10-11 Philippe Brochard <pbrochard@common-lisp.net>
2312 * clfswm-pager.lisp: workspaces, groups and windows can now be
2313 selectionned with the keyboard or the mouse.
2315 2006-10-09 Philippe Brochard <pbrochard@common-lisp.net>
2317 * clfswm-pager.lisp (pager-select-workspace-right/left):
2318 workspaces can now be selectionned with the keyboard.
2320 2006-10-08 Philippe Brochard <pbrochard@common-lisp.net>
2322 * clfswm-keys.lisp (undefine-main-key, undefine-second-key, undefine-mouse-action):
2323 new function to remove a previous defined key or mouse combination.
2325 2006-10-07 Philippe Brochard <pbrochard@common-lisp.net>
2327 * clfswm.lisp (main): Check for access error in init-display.
2329 * clfswm-keys.lisp (define-ungrab/grab): check for keysym and
2330 keycode before grabbing.
2332 * bindings.lisp: Remove nlambda and use defun to keep the function
2333 documentation with clisp.
2334 (define-shell): new macro to define shell command for the second
2337 2006-10-06 Philippe Brochard <pbrochard@common-lisp.net>
2339 * clfswm-keys.lisp (define-ungrab/grab): use a cond instead of a
2342 2006-10-05 Philippe Brochard <pbrochard@common-lisp.net>
2344 * bindings.lisp (accept-motion): Move group bugfix in upper mouse
2345 workspace circulation.
2347 * clfswm-util.lisp (absorb-orphan-window): new function.
2349 * clfswm-keys.lisp: Keysyms support.
2351 2006-10-02 Philippe Brochard <pbrochard@common-lisp.net>
2353 * clfswm.lisp (show-group): Use one gc for all groups and not one
2356 2006-10-01 Philippe Brochard <pbrochard@common-lisp.net>
2358 * bindings.lisp (define-second-key (#\l :mod-1)): fix a typo.
2360 * clfswm.lisp (adapt-window-to-group): Adapt only windows with
2361 width and height outside group.
2363 2006-09-28 Philippe Brochard <pbrochard@common-lisp.net>
2365 * clfswm.lisp: First public release.