1 2012-05-19 Philippe Brochard <pbrochard@common-lisp.net>
3 * src/clfswm-placement.lisp: Adjust width and height in child and
4 root placement to prevent too big child size.
6 2012-05-18 Philippe Brochard <pbrochard@common-lisp.net>
8 * src/clfswm-placement.lisp: New root placement possibility.
10 * src/clfswm-util.lisp (change-current-root-geometry): New
13 2012-05-17 Philippe Brochard <pbrochard@common-lisp.net>
15 * src/clfswm-util.lisp (exchange-root-geometry-with-mouse): New
18 2012-05-16 Philippe Brochard <pbrochard@common-lisp.net>
20 * src/menu-def.lisp: New root menu.
22 2012-05-15 Philippe Brochard <pbrochard@common-lisp.net>
24 * src/clfswm-circulate-mode.lisp (rotate-root-geometry-next)
25 (rotate-root-geometry-previous): New second mode binding to change
28 2012-05-13 Philippe Brochard <pbrochard@common-lisp.net>
30 * src/clfswm-internal.lisp: Remove the *current-child* variable
31 and use a setfable function (current-child) instead.
32 (current-child-setter): Store root current child before apllying
35 2012-05-09 Philippe Brochard <pbrochard@common-lisp.net>
37 * src/clfswm-internal.lisp: Use xdpyinfo/xinerama informations
38 instead of xrandr informations.
40 2012-05-06 Philippe Brochard <pbrochard@common-lisp.net>
42 * src/clfswm-internal.lisp : Use only one list for root
44 (*root*): Root management API simplification.
46 2012-04-30 Philippe Brochard <pbrochard@common-lisp.net>
48 * src/clfswm-internal.lisp: Big change to replace *current-root*
49 variable to support multiple root.
51 2012-04-18 Philippe Brochard <pbrochard@common-lisp.net>
53 * src/tools.lisp (add-new-hook, add-hook): New macro. Do not
54 duplicate hooks by default. Use add-new-hook if you want to
57 2012-04-16 Philippe Brochard <pbrochard@common-lisp.net>
59 * src/clfswm-corner.lisp (wait-window-in-query-tree): Add a limit
60 of try to wait the command window.
62 2012-02-25 Philippe Brochard <pbrochard@common-lisp.net>
64 * src/clfswm-util.lisp (place-frames-from-xrandr)
65 (swap-frame-geometry, rotate-frame-geometry): New helper functions
66 for multiple physical screen.
67 (jump-to-slot, add-frame-in-parent-frame): Change *current-root*
70 2012-01-18 Philippe Brochard <pbrochard@common-lisp.net>
72 * src/*.lisp: Use create-symbol and create-symbol-in-package
73 instead of the shorter symb. (Thanks Aad Versteden).
75 * src/bindings-second-mode.lisp (set-default-second-keys): New
76 key binding to set window and frame transparency.
78 * src/bindings.lisp (set-default-main-mouse): New mouse binding to
79 set window and frame transparency.
81 * src/clfswm-keys.lisp (define-keys): New macro to ease multiple
82 keys definitions. (Thanks Valentin Plechinger for the request).
84 * src/*.lisp: Add full transparency support with xcompmgr.
86 2012-01-14 Philippe Brochard <pbrochard@common-lisp.net>
88 * src/*.lisp: Add transparency support.
90 2012-01-09 Ales Guzik <ales.guzik@gmail.com>
92 * src/clfswm-layout.lisp (tile-layout-mix): New layout to
93 automatically choose between vertival and horizontal tile layout.
94 (tile-space-layout): Fix to have space between screen border and
95 frame the same as between frames.
97 2012-01-04 Philippe Brochard <pbrochard@common-lisp.net>
99 * load.lisp: Support clisp 2.49+ module system to load CLX.
101 2012-01-04 Ales Guzik <ales.guzik@gmail.com>
103 * src/clfswm-layout.lisp (update-layout-managed-children-keep-position):
104 Fix an inattention error.
106 2012-01-04 Philippe Brochard <pbrochard@common-lisp.net>
108 * src/xlib-util.lisp (with-xlib-protect): Protect from
109 xlib:lookup-error. This prevent an error in clisp/new-clx when
110 sometimes an xlib:colormap is expected instead of an xlib:window.
112 2012-01-03 Philippe Brochard <pbrochard@common-lisp.net>
114 * src/xlib-util.lisp (handle-event): Fix a clisp/new-clx error
115 when sometimes window slot of event-slots is a pixmap instead of a
118 2011-12-26 Philippe Brochard <pbrochard@common-lisp.net>
120 * src/clfswm-query.lisp: Fill the history list with a non-nil
123 2011-12-25 Philippe Brochard <pbrochard@common-lisp.net>
125 * src/package.lisp (make-x-drawable): Drawable wrapper to prevent
126 type error in some CLX versions.
127 Replace xlib:drawable-* functions with x-drawable-* equivalents
129 2011-12-14 Philippe Brochard <pbrochard@common-lisp.net>
131 * src/clfswm-util.lisp (um-create-xdg-section-list): Add at least
132 the 'Utility menu entry.
134 * src/config.lisp (*xdg-section-list*): moved to config.lisp.
136 * src/clfswm-util.lisp (update-menus): Set a default value for
137 searching .desktop files when XDG_DATA_DIRS is not set.
139 2011-10-15 Philippe Brochard <pbrochard@common-lisp.net>
141 * src/clfswm-internal.lisp (place-window-from-hints): Use
142 with-placement macro to place unmanaged windows in an arbitrary
145 2011-06-16 Philippe Brochard <pbrochard@common-lisp.net>
147 * src/clfswm-internal.lisp (clean-windows-in-all-frames): Prevent
148 current root and current child being equal to child.
150 2011-06-13 Philippe Brochard <pbrochard@common-lisp.net>
152 * src/keysyms.lisp: Repeat Page_Down/Up keysym definitions at the
153 end of the file to change keysyms priority.
155 2011-06-13 Sylvain HENRY <hsyl20@gmail.com>
157 * *.*: Minor spelling fix.
159 2011-06-12 Philippe Brochard <pbrochard@common-lisp.net>
161 * src/clfswm.lisp (:unmap-notify, :destroy-notify): Show all
162 children just after the xlib tree cleanup -> reduce the
163 flickering when a window is deleted or destroyed.
165 * src/clfswm-internal.lisp (process-existing-windows): Do not
166 process the notify window.
168 2011-06-08 Philippe Brochard <pbrochard@common-lisp.net>
170 * *: **** Release 1106 ****
172 2011-06-08 Philippe Brochard <pbrochard@common-lisp.net>
174 * src/clfswm-internal.lisp (clean-windows-in-all-frames): New
175 function to prevent xlib error when a window is deleted.
177 2011-06-08 Philippe Brochard <pbrochard@common-lisp.net>
179 * src/clfswm-internal.lisp
180 (delete-child-and-children-in-all-frames): Delete or destroy
181 children before displaying all children.
183 2011-06-05 Philippe Brochard <pbrochard@common-lisp.net>
185 * src/clfswm-util.lisp (add-frame-in-parent-frame): New function
188 2011-06-04 Philippe Brochard <pbrochard@common-lisp.net>
190 * src/clfswm.lisp (main-unprotected): Destroy all frames windows
191 before closing the display (not really needed).
193 2011-06-02 Philippe Brochard <pbrochard@common-lisp.net>
195 * src/clfswm-layout.lisp (inc-tile-layout-size)
196 (dec-tile-layout-size, inc-slow-tile-layout-size)
197 (dec-slow-tile-layout-size): New functions and bindings.
199 2011-06-01 Philippe Brochard <pbrochard@common-lisp.net>
201 * src/clfswm-expose-mode.lisp (define-expose-letter-keys): Add
202 0..1 and A..Z keys to select a child in exposé mode.
204 * src/clfswm-internal.lisp (display-frame-info): Remove hidden
205 infos in frames windows.
207 * src/clfswm-util.lisp (ask-close/kill-current-window): Menu
210 2011-05-30 Philippe Brochard <pbrochard@common-lisp.net>
212 * src/clfswm-internal.lisp (get-parent-layout): Minor fullscreen
215 2011-05-29 Philippe Brochard <pbrochard@common-lisp.net>
217 * src/clfswm-internal.lisp
218 (delete-child-and-children-in-all-frames): Show all children
219 before deleting/destroying a windows, so prevent a flickering.
220 (get-parent-layout): Return the fullscreen size when the current
223 2011-05-28 Philippe Brochard <pbrochard@common-lisp.net>
225 * src/clfswm-internal.lisp (get-parent-layout): Handle correctly
228 * src/clfswm-util.lisp (delete-focus-window-generic): Do not hide
229 child before removing, so prevent a flickering.
231 * src/clfswm-internal.lisp (show-all-children): Rectangular
232 optimization to display only needed children.
233 (show-all-children): Remove flickering on
234 select-next/previous-brother.
236 2011-05-17 Philippe Brochard <pbrochard@common-lisp.net>
238 * src/clfswm-util.lisp (copy-focus-window, cut-focus-window): New
239 functions and ask-close/kill-current-window menu and bindings
242 2011-05-16 Philippe Brochard <pbrochard@common-lisp.net>
244 * src/clfswm-util.lisp (ask-close/kill-current-window): Add an
245 *ask-close/kill-placement* placement window variable.
247 2011-05-09 Philippe Brochard <pbrochard@common-lisp.net>
249 * contrib/osd.lisp (funcall-button-from-code): Display osd
250 documention for buttons and fix some redefining warnings.
252 2011-05-07 Philippe Brochard <pbrochard@common-lisp.net>
254 * src/clfswm-nw-hooks.lisp (make-permanent-nw-hook-frame): New
255 function. Prevent to add or delete a new window hook for this
258 * src/clfswm-layout.lisp (update-layout-managed-children-position):
261 2011-05-06 Philippe Brochard <pbrochard@common-lisp.net>
263 * src/bindings-second-mode.lisp (set-default-second-keys):
264 select-brother-spatial-move-* binding update.
266 * src/clfswm-layout.lisp (tile-left|right|top|bottom-layout): Ask
267 to keep children positions or not.
269 * src/clfswm-internal.lisp (fixe-real-size): Takes care of border
272 * src/clfswm-layout.lisp (update-layout-managed-children): Fix a
273 bug by using the parent frame instead of the current child.
275 * src/clfswm-circulate-mode.lisp
276 (select-brother-generic-spatial-move+right/left/up/down): New
277 function to select a brother from another in a spatial move.
279 2011-04-19 Philippe Brochard <pbrochard@common-lisp.net>
281 * src/clfswm-pack.lisp (move-frame-constrained)
282 (resize-frame-constrained): Use pixels instead of floating
285 2011-04-18 Philippe Brochard <pbrochard@common-lisp.net>
287 * src/clfswm-pack.lisp (resize-frame-constrained): Takes care of
289 (implode-frame, implode-current-frame): New functions. Absorb all
290 frames subchildren in frame. Explode frame opposite.
292 2011-04-17 Philippe Brochard <pbrochard@common-lisp.net>
294 * src/clfswm-pack.lisp (move-frame-constrained)
295 (resize-frame-constrained): New function. Move and resize frame
296 with the mouse constrained by other frame brothers.
298 2011-04-14 Philippe Brochard <pbrochard@common-lisp.net>
300 * src/clfswm-util.lisp (with-movement-select-next-brother)
301 (with-movement-select-previous-brother)
302 (with-movement-select-next-child): Use a simple method (do not
303 enter in the circulate mode) to allow to circulate in all children
306 * src/clfswm-menu.lisp (open-menu): Save info hash table keys
307 instead of deleting newly created keys.
309 2011-03-21 Philippe Brochard <pbrochard@common-lisp.net>
311 * src/clfswm-internal.lisp (x-px->fl, y-px->fl): Takes care of
314 2011-03-20 Philippe Brochard <pbrochard@common-lisp.net>
316 * src/clfswm-info.lisp (show-config-variable): call
317 produce-conf-var-doc.
319 2011-03-18 Philippe Brochard <pbrochard@common-lisp.net>
321 * src/clfswm-autodoc.lisp (produce-conf-var-doc-html): Produce a
322 documentation for all configurable variables in CLFSWM -
325 * src/clfswm-internal.lisp (leave-frame): Hide all children except
328 2011-03-16 Philippe Brochard <pbrochard@common-lisp.net>
330 * src/clfswm-autodoc.lisp (produce-all-docs): Produce a
331 documentation for all configurable variables in CLFSWM.
333 * src/clfswm-layout.lisp (set-gimp-layout): Display a notify
334 window with the help on the GIMP layout.
336 2011-03-12 Philippe Brochard <pbrochard@common-lisp.net>
338 * src/menu-def.lisp: Menu update to prevent cursor keys clash.
340 * clfswm.asd: Change compilation order to prevent undefined
343 * src/clfswm-internal.lisp (show-child(frame)): Handle properly
344 the show-root-frame-p parameter.
346 2011-03-11 Philippe Brochard <pbrochard@common-lisp.net>
348 * src/clfswm-util.lisp (move-frame, resize-frame): Do not move or
349 resize a frame when it's the current root.
351 2011-03-10 Philippe Brochard <pbrochard@common-lisp.net>
353 * src/clfswm-internal.lisp (show-all-children): Handle properly
354 duplicated child in multipe frames.
356 2011-03-09 Philippe Brochard <pbrochard@common-lisp.net>
358 * contrib/volume-mode.lisp (set-default-volume-keys): Add more
359 keybindings (up/down, right/left) to raise/lower the volume.
361 * src/clfswm-layout.lisp: Add a variable border size for frames
364 2011-03-08 Philippe Brochard <pbrochard@common-lisp.net>
366 * src/clfswm-util.lisp (cut-current-child, remove-current-child)
367 (delete-current-child): Hide the current child before doing the
370 * src/clfswm-internal.lisp (show-all-children): Hide windows not
371 in the current root before displaying those in current root.
372 Remove all hide-all unnecessary calls.
374 * src/clfswm-configuration.lisp (save-variables-in-conf-file):
375 Save only variables with a different value than their original
378 2011-03-07 Philippe Brochard <pbrochard@common-lisp.net>
380 * src/clfswm-info.lisp (show-config-variable): Use the new
383 * src/clfswm-autodoc.lisp (produce-configuration-variables): Use
384 the new defconfig method.
386 * src/clfswm-configuration.lisp (create-configuration-menu):
387 Change the config system with a more lispy one and a less string
388 based one: (defconfig name value group doc).
391 2011-03-06 Philippe Brochard <pbrochard@common-lisp.net>
393 * src/clfswm-internal.lisp (show-all-children): Simplify the
395 (show-child): Display an unmanaged window whe it's the current
397 (show-all-children): add the ability to display all child from
398 *root-frame* and hide all those who are not in *current-root*.
399 -> remove hide-all-children when needed.
401 * src/xlib-util.lisp (move-window,resize-window): Add a
402 *color-move-window* border when moving or resizing a window.
404 2011-03-04 Philippe Brochard <pbrochard@common-lisp.net>
406 * src/clfswm-internal.lisp (show-all-children): Perform only one
407 recusion on the clfswm tree: calculate geometry and place child in
410 2011-03-03 Philippe Brochard <pbrochard@common-lisp.net>
412 * src/clfswm-internal.lisp (show-all-children): Rethink of display
413 child order to prevent very annoying flickering.
415 2011-02-27 Philippe Brochard <pbrochard@common-lisp.net>
417 * src/clfswm-util.lisp (query-yes-or-no): New function.
419 * src/clfswm-configuration.lisp (reset-all-config-variables): New
420 function and menu entry.
421 (query-conf-value): Add the ability to leave the field blank to
422 reset the variable to its default value.
424 2011-02-26 Philippe Brochard <pbrochard@common-lisp.net>
426 * src/clfswm-configuration.lisp
427 (add-all-configuration-default-value): Add a default value to
428 configurable variables.
430 2011-02-23 Philippe Brochard <pbrochard@common-lisp.net>
432 * src/clfswm.lisp (main-unprotected): Create the configuration
433 menu only once at startup.
435 2011-02-22 Desmond O. Chang <dochang@gmail.com>
437 * contrib/amixer.lisp: Add a volume mode inspired by the emms
438 volume package. Alsa mixer interface.
440 * contrib/volume-mode.lisp: Add a volume mode inspired by the emms
443 2011-02-22 Desmond O. Chang <dochang@gmail.com>
445 * src/clfswm.lisp (main): Use ASDF:SYSTEM-SOURCE-DIRECTORY instead
446 of *LOAD-TRUENAME*. *LOAD-TRUENAME* is only bound during a call to
447 LOAD. If one eval CLFSWM:MAIN in repl, BASE-DIR will be an empty
448 string. Use ASDF:SYSTEM-SOURCE-DIRECTORY to fix it.
450 2011-02-16 Philippe Brochard <pbrochard@common-lisp.net>
452 * src/clfswm.lisp (main-unprotected): Add a close hook. And close
453 the notify window, the virtual keyboard and the clfswm terminal by
456 2011-02-15 Philippe Brochard <pbrochard@common-lisp.net>
458 * src/clfswm.lisp (main-unprotected): Destroy the notify window
459 before closing the display. This fix a bug when resetting/reloading
462 2011-02-12 Philippe Brochard <pbrochard@common-lisp.net>
464 * src/xlib-util.lisp (equal-wm-class-fun, equal-wm-name-fun)
465 (raise-window-fun, raise-and-focus-window-fun): New functions.
467 * src/config.lisp (*clfswm-terminal-cmd*): Switch from xterm to
469 (*never-managed-window-list*): Structure change to be more
470 flexible. Let the choice to focus, raise and do nothing on never
473 2011-02-09 Philippe Brochard <pbrochard@common-lisp.net>
475 * src/clfswm-util.lisp (mouse-focus-move/resize-generic): Take
476 care of never managed windows to move or resize them if the raise
479 * src/clfswm-internal.lisp (in-frame, in-window, in-child): New
482 2011-02-08 Philippe Brochard <pbrochard@common-lisp.net>
484 * src/clfswm.lisp (main-mode): Raise or not unmanaged windows
485 following request in *never-managed-window-list*.
487 2011-02-05 Philippe Brochard <pbrochard@common-lisp.net>
489 * *: **** Release 1102 ****
491 2011-02-05 Desmond O. Chang <dochang@gmail.com>
493 * src/keysyms.lisp: Add extended keysyms from stumpwm.
495 2011-02-01 Desmond O. Chang <dochang@gmail.com>
497 * src/clfswm-util.lisp (run-or-raise): New function (thanks to
500 * src/clfswm-internal.lisp (with-all-*): add a nil block.
502 2011-01-28 Desmond O. Chang <dochang@gmail.com>
504 * src/clfswm-util.lisp (xdg-config-home): XDG_CONFIG_HOME should
505 be $HOME/.config by default.
507 2010-12-29 Philippe Brochard <pbrochard@common-lisp.net>
509 * contrib/osd.lisp (display-doc): Add another method where a
510 CLFSWM native window is used to display the key documentation.
512 2010-12-27 Philippe Brochard <pbrochard@common-lisp.net>
514 * src/xlib-util.lisp (with-xlib-protect): Force to revert to the
517 2010-12-25 Philippe Brochard <pbrochard@common-lisp.net>
519 * src/clfswm-second-mode.lisp (second-key-mode): Call the second
520 mode leave function only when the generic mode was ended.
522 2010-12-08 Philippe Brochard <pbrochard@common-lisp.net>
524 * src/clfswm-second-mode.lisp (sm-leave-function): Do not use
525 *second-mode-program* anymore.
527 2010-12-07 Philippe Brochard <pbrochard@common-lisp.net>
529 * src/clfswm-second-mode.lisp (*second-mode-leave-function*): New
530 variable bound to a function executed (when not null) on second
533 2010-11-14 Philippe Brochard <pbrochard@common-lisp.net>
535 * src/clfswm-util.lisp (find-child-under-mouse): Do not find
538 2010-11-13 Philippe Brochard <pbrochard@common-lisp.net>
540 * src/clfswm-expose-mode.lisp (expose-mode-display-accel-windows):
541 Do not display the accel window for unmanaged windows.
543 2010-11-11 Philippe Brochard <pbrochard@common-lisp.net>
545 * src/clfswm-internal.lisp (set-current-root): Handle
546 window-parent in set-current-root.
548 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Do not
549 focus the parent child when the current root is a window.
551 2010-11-09 Philippe Brochard <pbrochard@common-lisp.net>
553 * src/clfswm-expose-mode.lisp (expose-windows-current-child-mode):
554 New function an bindings.
556 * src/clfswm-layout.lisp (tile-layout, set-tile-layout): Fill
559 2010-11-07 Philippe Brochard <pbrochard@common-lisp.net>
561 * src/clfswm-layout.lisp (tile-layout-ask-keep-position): New
562 function to let the user choose to keep child position with
565 * src/clfswm-internal.lisp (remove-frame-data-slot): New
568 2010-11-05 Philippe Brochard <pbrochard@common-lisp.net>
570 * src/clfswm-internal.lisp (frame-select-next-child)
571 (frame-select-previous-child): New functions and bindings. Select
572 the next/previous child in the current frame.
574 2010-10-31 Philippe Brochard <pbrochard@common-lisp.net>
576 * src/clfswm-query.lisp (query-mode-complet): New function: Handle
577 completion in query-mode.
579 2010-10-30 Philippe Brochard <pbrochard@common-lisp.net>
581 * src/clfswm-query.lisp (query-print-string): Handle long lines
584 2010-10-27 Philippe Brochard <pbrochard@common-lisp.net>
586 * src/clfswm-expose-mode.lisp (expose-create-window): Ensure that
587 all characters are printable.
589 2010-10-25 Philippe Brochard <pbrochard@common-lisp.net>
591 * contrib/server/server.lisp: Load clfswm client code in the main
592 program and let the user start it with a --client command line
595 * src/package.lisp (*main-entrance-hook*): New hook executed after
596 loading configuration file and before opening the display.
598 2010-10-23 Philippe Brochard <pbrochard@common-lisp.net>
600 * src/xlib-util.lisp: Remove unnecessary xlib:display-finish-output.
602 * src/clfswm-internal.lisp (show-child): Show window only if not
605 * src/clfswm-keys.lisp (binding-substitute-modifier): Utility to
606 change modifiers after binding definition.
608 2010-10-21 Philippe Brochard <pbrochard@common-lisp.net>
610 * contrib/osd.lisp: New file: OSD (On Screen Display) for
613 * src/clfswm-menu.lisp (open-menu): Modularise function.
615 2010-10-13 Philippe Brochard <pbrochard@common-lisp.net>
617 * src/clfswm-info.lisp (show-first-aid-kit): Display the essential
618 key binding in main and second mode.
620 2010-10-10 Philippe Brochard <pbrochard@common-lisp.net>
622 * src/clfswm-util.lisp (open-notify-window): Convert hello-window
623 functions to a more generic Notify-window system.
625 * src/tools.lisp (add-timer): Add an id to identify the timer.
627 2010-10-09 Philippe Brochard <pbrochard@common-lisp.net>
629 * src/tools.lisp (erase-timer): New function.
631 * src/clfswm-util.lisp (display-hello-window): Add a timer to hide
632 the hello window. Add Configuration variables.
634 2010-10-08 Philippe Brochard <pbrochard@common-lisp.net>
636 * src/clfswm-util.lisp (): Add an Hello window at startup.
638 * src/tools.lisp (process-timers): Add a timer system.
640 2010-10-07 Philippe Brochard <pbrochard@common-lisp.net>
642 * src/clfswm-query.lisp (add-in-query-string): Handle correctly
645 2010-10-06 Philippe Brochard <pbrochard@common-lisp.net>
647 * src/clfswm-query.lisp (query-print-string): Change cursor color
648 and show parenthesis matching with colors (on match and on
651 2010-10-05 Philippe Brochard <pbrochard@common-lisp.net>
653 * src/clfswm-internal.lisp (show-all-children): Do not raise a
654 child when its parent is hidden.
656 2010-10-02 Philippe Brochard <pbrochard@common-lisp.net>
658 * src/clfswm-circulate-mode.lisp (select-next-subchild): Add the
659 possibility to circulate over subchild of the current child.
661 * src/clfswm-expose-mode.lisp (expose-all-windows-mode)
662 (expose-windows-generic): Add an escape-body function to return to
663 the original state on escape key.
665 * src/clfswm-util.lisp (bind-on-slot): Add an optional parameter
666 to bind the current child from the configuration file.
668 2010-10-01 Philippe Brochard <pbrochard@common-lisp.net>
670 * src/clfswm-nw-hooks.lisp (absorb-window-nw-hook): Absorb new
671 window hook: the frame absorb all new windows that match
672 nw-absorb-test frame data slot.
674 2010-09-30 Philippe Brochard <pbrochard@common-lisp.net>
676 * src/clfswm-expose-mode.lisp (expose-create-window): Show window
677 title in accel window.
679 2010-09-29 Philippe Brochard <pbrochard@common-lisp.net>
681 * configure: Use the Xavier Maillard clfswm script in contrib to
682 build an executable in the standard way.
684 2010-09-26 Philippe Brochard <pbrochard@common-lisp.net>
686 * src/clfswm-expose-mode.lisp (expose-mode-display-accel-windows):
687 New functions. Add a window on each child in the expose mode to
690 * src/clfswm-internal.lisp (child-x, child-y, child-width)
691 (child-height): New methods to get real child coordinates.
693 2010-09-25 Philippe Brochard <pbrochard@common-lisp.net>
695 * src/clfswm-layout.lisp (*-layout): Use child-position.
697 * src/clfswm-internal.lisp (child-position): New function.
699 * src/clfswm-expose-mode.lisp (expose-windows-mode)
700 (expose-all-windows-mode): Use a generic mode.
702 * src/xlib-util.lisp (with-handle-event-symbol): Use a filled list
703 with handle-event-fun symbols instead of inspecting clfswm
704 internals symbols on each mode change.
706 * src/clfswm-expose-mode.lisp: Move and rename present*-windows in
707 a separate clfswm-expose-mode.lisp file.
709 * src/clfswm-util.lisp (speed-mouse-right, speed-mouse-down): Use
710 screen size instead of hardcoded test coordinates.
712 2010-09-24 Philippe Brochard <pbrochard@common-lisp.net>
714 * src/clfswm-util.lisp (speed-mouse-reset, speed-mouse-left)
715 (speed-mouse-right, speed-mouse-up, speed-mouse-down)
716 (speed-mouse-undo, speed-mouse-first-history): New functions to
717 quickly move the mouse. Implemented for the second mode.
719 2010-09-16 Philippe Brochard <pbrochard@common-lisp.net>
721 * contrib/clfswm: Move clfswm sources to $tmp_dir if there is no
722 write permission on $clfswm_asd_path. So anybody can start clfswm
723 even if there is no write permission on the source directory.
725 2010-09-12 Philippe Brochard <pbrochard@common-lisp.net>
727 * contrib/clfswm: Add support to cmucl, ccl and ecl.
729 2010-09-11 Philippe Brochard <pbrochard@common-lisp.net>
731 * src/clfswm-util.lisp (set-hide-unmanaged-window)
732 (set-show-unmanaged-window, set-default-hide-unmanaged-window):
733 New functions and menu entry.
734 (set-globally-hide-unmanaged-window)
735 (set-globally-show-unmanaged-window): New functions and menu
738 * src/clfswm-internal.lisp (hide-unmanager-window-p): New
740 (show-child): Add a data slot on frame to hide or not unmanaged
743 * src/clfswm-corner.lisp (present-clfswm-terminal)
744 (present-virtual-keyboard): Use a function (generic-present-body)
745 instead of a macro (generate-present-body).
747 * src/clfswm-util.lisp (update-menus): List all directories and
748 subdirectories in $XDG_DATA_DIRS/applications.
750 2010-09-10 Philippe Brochard <pbrochard@common-lisp.net>
752 * src/clfswm-corner.lisp (generate-present-body): New macro.
753 (present-clfswm-terminal, present-virtual-keyboard): Use
754 generate-present-body.
756 2010-09-09 Philippe Brochard <pbrochard@common-lisp.net>
758 * src/clfswm-util.lisp (update-menus): Follow XDG specifications
759 instead of the non-portable Debian update-menu.
761 2010-09-07 Philippe Brochard <pbrochard@common-lisp.net>
763 * src/clfswm.lisp (error-handler): New function do handle
764 asynchronous errors and ignore them.
765 (open-display): Install the new error-handler on display.
767 2010-09-05 Philippe Brochard <pbrochard@common-lisp.net>
769 * src/xlib-util.lisp (with-xlib-protect): Add a
770 with-simple-restart on top of body execution.
772 2010-09-04 Philippe Brochard <pbrochard@common-lisp.net>
774 * src/clfswm.lisp (main-loop): Protect all xlib functions with an
777 * src/xlib-util.lisp (handle-event): use with-xlib-protect only in
778 handle-event. Add a with-simple-restart to prevent a
779 clisp/new-lisp infinite loop.
781 2010-08-30 Philippe Brochard <pbrochard@common-lisp.net>
783 * src/clfswm-corner.lisp (present-clfswm-terminal): Make the
784 clfswm terminal working even on xterm title changes.
786 2010-08-29 Philippe Brochard <pbrochard@common-lisp.net>
788 * src/clfswm-util.lisp (run-other-window-manager): Update for
791 * src/tools.lisp (do-execute): New parameter io to change the
794 * src/clfswm-util.lisp (hide-current-child): Prevent from removing
797 * src/clfswm-internal.lisp (child-member): New predicate.
798 (child-remove): New function.
800 * src/*.lisp: Use child-member and child-remove everywhere it's
803 2010-08-28 Philippe Brochard <pbrochard@common-lisp.net>
805 * src/clfswm.lisp (main-loop): Ensure that all events have been
806 processed after a process-event.
808 * src/clfswm-internal.lisp (is-in-current-child-p): New function.
810 2010-08-27 Philippe Brochard <pbrochard@common-lisp.net>
812 * src/clfswm.lisp (main-mode:configure-request): Raise the window
813 only when present on the current child and focus it accordingly.
815 2010-08-26 Philippe Brochard <pbrochard@common-lisp.net>
817 * src/clfswm-circulate-mode.lisp (circulate-loop-function):
818 Use is-a-key-pressed-p.
820 * src/xlib-util.lisp (is-a-key-pressed-p): New predicate.
822 * src/clfswm-keys.lisp (define-ungrab/grab): Use all values
823 returned by xlib:keysym->keycodes.
825 * src/*.lisp: Use the new child-equal-p to compare children. This
826 prevent a bug with sbcl/cmucl when the standard equal function
827 does not work with xlib:window.
829 * src/clfswm-internal.lisp (child-equal-p): New predicate.
831 2010-08-25 Philippe Brochard <pbrochard@common-lisp.net>
833 * src/clfswm-generic-mode.lisp (generic-mode): Use an
834 xlib:event-listen before processing event with
835 xlib:process-event. This prevent a bug with CLX threaded
836 implementation like sbcl.
838 * src/clfswm.lisp (main-loop): Use an xlib:event-listen before
839 processing event with xlib:process-event. This prevent a bug with
840 CLX threaded implementation like sbcl.
842 2010-08-17 Philippe Brochard <pbrochard@common-lisp.net>
844 * contrib/server/key.lisp (ushell-sh): Add ccl and ecl support.
846 * src/xlib-util.lisp (compress-motion-notify): Use a loop instead
849 * src/clfswm-internal.lisp (with-find-in-all-frames): New macro.
850 (find-parent-frame, find-frame-window, find-frame-by-name)
851 (find-frame-by-number): Use with-find-in-all-frames to search in
852 frames in the right order.
854 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Fix an
855 unwanted flickering with unmanaged windows.
857 2010-08-16 Philippe Brochard <pbrochard@common-lisp.net>
859 * src/package.lisp: Remove event handler hooks as they're not
860 needed anymore (To replace them: use closure and define-handler).
862 * src/xlib-util.lisp (move-window, resize-window)
863 (wait-mouse-button-release): Use a generic mode.
865 * src/*.lisp: Replace the case to handle event with a more (tricky)
866 lispy method which bind a function to each keywords associated
869 2010-07-23 Philippe Brochard <pbrochard@common-lisp.net>
871 * src/clfswm-util.lisp (delete-current-child): Invert bindings and
872 menu entry between delete-current-child and remove-current-child.
873 ie: Delete a child and its children in all frames by default.
875 2010-07-21 Philippe Brochard <pbrochard@common-lisp.net>
877 * src/package.lisp: Add a placement configuration group.
879 * src/binding*.lisp: Bind control+g to escape the current action
882 * src/clfswm-internal.lisp
883 (delete-child-and-children-in-all-frames): New function and
884 binding: Second mode - Control+Delete delete the current child and
885 its children in all frames (ie: close the current child and its
888 2010-07-20 Philippe Brochard <pbrochard@common-lisp.net>
890 * src/clfswm-internal.lisp (remove-child-in-frame): Do not destroy
891 the frame window and the frame gc. Close a very annoying bug when
892 cuting/pasting a frame or moving a child over frames with the
895 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Redisplay
896 all children in *current-root* after moving/resizing a frame.
898 2010-07-18 Philippe Brochard <pbrochard@common-lisp.net>
900 * src/clfswm-util.lisp (delete-focus-window)
901 (destroy-focus-window): Remove child in parent frame before
904 2010-07-16 Philippe Brochard <pbrochard@common-lisp.net>
906 * src/clfswm-util.lisp (identify-key): Add a timeout in
908 (mouse-click-to-focus-generic): Use find-child-under-mouse instead
909 of the window passed by xlib:process-event.
911 * src/xlib-util.lisp (move-window, resize-window)
912 (wait-mouse-button-release): Add a timeout in xlib:process-event.
914 2010-04-11 Philippe Brochard <pbrochard@common-lisp.net>
916 * src/clfswm-util.lisp (run-other-window-manager): Add the ability
917 to launch an other window manager and to return to clfswm.
919 2010-03-18 Philippe Brochard <pbrochard@common-lisp.net>
921 * src/clfswm-layout.lisp (set-tile-space-layout): Set default
924 2009-12-15 Philippe Brochard <pbrochard@common-lisp.net>
926 * src/clfswm.lisp (main-loop): Add a *loop-hook* parameter and a
929 * src/clfswm-generic-mode.lisp (generic-mode): Add a loop-hook
930 parameter and a loop timeout.
932 2009-12-05 Philippe Brochard <pbrochard@common-lisp.net>
934 * src/clfswm.lisp (main): Add an alternate configuration filename
937 * load.lisp: Add a debuging code example.
939 2009-11-14 Philippe Brochard <pbrochard@common-lisp.net>
941 * src/clfswm-configuration.lisp (create-configuration-menu): New
942 menu to configure all clfswm variables while clfswm is running.
944 2009-11-12 Philippe Brochard <pbrochard@common-lisp.net>
946 * src/clfswm-util.lisp (save-configuration-variables): New
947 function to save all configuration variables in clfswmrc.
949 2009-11-11 Philippe Brochard <pbrochard@common-lisp.net>
951 * src/clfswm-info.lisp (info-mode): Begining of mouse support in
953 (set-default-info-keys): Add cursor key support in info mode.
955 2009-11-08 Philippe Brochard <pbrochard@common-lisp.net>
957 * contrib/reboot-halt.lisp: Add a Suspend/Reboot/Halt menu in
960 * src/clfswm.lisp (main): Add a read-conf-file-p parameter to
961 prevent reading the configuration file (this may be useful to
962 produce the original documentation without user modifications
963 with the rc configuration file).
965 2009-11-07 Philippe Brochard <pbrochard@common-lisp.net>
967 * src/bindings-second-mode.lisp (set-default-second-keys):
968 Simplification of Escape key to close/kill/remove the focus window
969 and unhide all windows.
971 * src/bindings.lisp (set-default-main-keys): Simplification of
972 Escape key to close/kill/remove the focus window and unhide all
975 * src/clfswm-util.lisp (ask-close/kill-current-window): Add remove
976 focus and unhide all windows capabilities.
978 2009-10-10 Philippe Brochard <pbrochard@common-lisp.net>
980 * contrib/mpd.lisp (start-gmpc): Add gmpc in the mpd menu.
982 2009-07-29 Philippe Brochard <pbrochard@common-lisp.net>
984 * src/clfswm-layout.lisp (tile-layout, tile-horizontal-layout):
985 Keep child order and don't make unnecessary child movement.
986 (one-column-layout, one-line-layout): New layouts.
988 2009-06-29 Philippe Brochard <pbrochard@common-lisp.net>
990 * *: **** Release 0906 ****
992 * contrib/cd-player.lisp: New file to handle the CD player.
994 * contrib/xmms.lisp: New file to handle the xmms player.
996 2009-06-28 Philippe Brochard <pbrochard@common-lisp.net>
998 * src/clfswm-layout.lisp (set-no-layout-remember-size): New layout:
999 Maximize windows in their frame - Leave frames to their actual
1002 * src/bindings-second-mode.lisp (set-default-second-keys): Bind
1003 "o" on set-open-in-new-frame-in-parent-frame-nw-hook.
1005 2009-06-27 Philippe Brochard <pbrochard@common-lisp.net>
1007 * contrib/keyb_fr.lisp: New file to handle an azerty keyboard.
1009 2009-06-24 Philippe Brochard <pbrochard@common-lisp.net>
1011 * contrib/mpd.lisp: Use a standard menu.
1013 * src/clfswm-info.lisp: Use a standard menu for the help-menu.
1015 2009-06-22 Philippe Brochard <pbrochard@common-lisp.net>
1017 * contrib/mpd.lisp: New file to handle the Music Player Daemon (MPD)
1019 2009-06-19 Philippe Brochard <pbrochard@common-lisp.net>
1021 * src/clfswm-autodoc.lisp (produce-doc, produce-doc-html): Minor
1024 2009-06-18 Philippe Brochard <pbrochard@common-lisp.net>
1026 * src/config.lisp (get-fullscreen-size): One pixel adjustment
1029 * src/clfswm-placement.lisp (*-child-placement): One pixel
1032 2009-06-16 Philippe Brochard <pbrochard@common-lisp.net>
1034 * src/clfswm-circulate-mode.lisp (draw-circulate-mode-window):
1035 Ensure that all characters are printable.
1037 * src/config.lisp (get-fullscreen-size): Adjust default fullscreen
1040 * src/clfswm-placement.lisp (*-child-placement): Adjust
1041 coordinates to one pixel in the current child.
1043 2009-06-04 Philippe Brochard <pbrochard@common-lisp.net>
1045 * src/clfswm-query.lisp (query-enter-function): Assign font before
1046 width and height calculation.
1048 2009-06-03 Philippe Brochard <pbrochard@common-lisp.net>
1050 * src/xlib-util.lisp (banish-pointer): Use with-placement macro to
1051 bannish the pointer in an arbitrary place.
1053 * src/clfswm-info.lisp (info-mode): Use with-placement macro to
1054 place the info window in an arbitrary place.
1056 * src/clfswm-query.lisp (query-enter-function): Use with-placement
1057 macro to place the query window in an arbitrary place.
1059 * src/clfswm-placement.lisp: New file. Allow to place info windows
1060 or query windows on an arbitrary place. Allow to bannish the
1061 pointer on an arbitrary place.
1063 2009-05-16 Philippe Brochard <pbrochard@common-lisp.net>
1065 * src/clfswm-circulate-mode.lisp (reorder-child)
1066 (reorder-brother): Unfocus windows before reordering children or
1069 2009-05-13 Philippe Brochard <pbrochard@common-lisp.net>
1071 * src/clfswm-circulate-mode.lisp (reorder-brother): Ensure that
1072 the parent is a frame.
1074 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Handle
1075 motion with a default modifier.
1077 * src/clfswm.lisp (handle-motion-notify): Handle motion with a
1080 * src/clfswm-info.lisp (info-mode): Handle motion with a default
1082 (info-mode): Optimization in loop function.
1084 2009-05-10 Philippe Brochard <pbrochard@common-lisp.net>
1086 * src/clfswm-circulate-mode.lisp (reorder-brother): Handle
1087 root-frame correctly.
1089 * clfswm.asd: Dependency fix for clfswm-generic-mode.
1091 * src/clfswm-circulate-mode.lisp (reorder-child)
1092 (reorder-brother): Handle empty frames.
1093 (reorder-brother): Redisplay only the parent frame of the current
1096 * src/clfswm-util.lisp (frame-toggle-maximize): Redisplay only the
1097 parent frame of the current frame.
1099 2009-05-09 Philippe Brochard <pbrochard@common-lisp.net>
1101 * src/clfswm-util.lisp (frame-toggle-maximize): New function:
1102 Maximize/Unmaximize the current frame in its parent frame.
1104 * src/clfswm-layout.lisp (maximize-layout): New layout: Maximize
1105 windows and frames in their parent frame.
1107 2009-05-05 Philippe Brochard <pbrochard@common-lisp.net>
1109 * src/*.lisp: Add support for Clozure Common Lisp (CCL).
1111 * src/clfswm-circulate-mode.lisp (reorder-child)
1112 (reorder-brother): Reinitialise on circulate type change
1113 child to brother or brother to child.
1115 * src/*.lisp (*): Use map-window instead of xlib:map-window. So
1116 calls xlib:display-finish-output on each map-request. So speed up
1119 * src/xlib-util.lisp (map-window): New function. Call
1120 xlib:display-finish-output on each map request.
1122 2009-04-28 Philippe Brochard <pbrochard@common-lisp.net>
1124 * src/clfswm-second-mode.lisp (sm-handle-motion-notify):
1125 Optimisation when drawing second mode window.
1127 2009-04-27 Philippe Brochard <pbrochard@common-lisp.net>
1129 * src/clfswm-circulate-mode.lisp (circulate-mode): Optimisation in
1132 2009-04-22 Philippe Brochard <pbrochard@common-lisp.net>
1134 * src/clfswm-util.lisp (run-program-from-query-string): Launch
1135 command only with a return validation.
1137 2009-04-22 Xavier Maillard <xma@gnu.org>
1139 * src/clfswm-query.lisp (query-string): Use a generic mode.
1141 2009-04-19 Xavier Maillard <xma@gnu.org>
1143 * src/clfswm-info.lisp (info-mode): Use generic-mode for info-mode.
1145 2009-04-18 Xavier Maillard <xma@gnu.org>
1147 * src/clfswm-generic-mode.lisp (generic-mode): Add a generic mode
1148 to define all other modes.
1150 2009-04-05 Philippe Brochard <pbrochard@common-lisp.net>
1152 * src/package.lisp (): Use *default-font-string* for all
1155 * src/clfswm-info.lisp (info-mode): Ensure integer windows size.
1157 2009-02-17 Philippe Brochard <pbrochard@common-lisp.net>
1159 * src/xlib-util.lisp (null-size-window-p): Better check of null
1162 2009-02-14 Philippe Brochard <pbrochard@common-lisp.net>
1164 * src/clfswm.lisp (handle-map-request): Add a fix to manage
1165 correctly fullscreen windows (SDL particularly).
1167 2008-12-20 Philippe Brochard <pbrochard@common-lisp.net>
1169 * src/xlib-util.lisp (get-color): Allocate colors only once -> fix
1170 a segfault with clisp/new-clx.
1172 * src/clfswm.lisp (handle-motion-notify): Add a needed window
1175 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Add a
1176 needed window argument.
1178 2008-10-30 Philippe Brochard <pbrochard@common-lisp.net>
1180 * src/xlib-util.lisp (wait-no-key-or-button-press)
1181 (wait-a-key-or-button-press): Check buttons press/release correctly"
1183 2008-10-28 Philippe Brochard <pbrochard@common-lisp.net>
1185 * src/menu-def.lisp: Add children navigation menu in the movement
1186 menu (select next/previous child/brother/level).
1188 2008-10-26 Philippe Brochard <pbrochard@common-lisp.net>
1190 * *: Rename 'sister' frame to 'brother' frame.
1192 * src/clfswm-keys.lisp (unalias-modifiers): Convert a modifier
1193 alias in a real modifier.
1195 * src/package.lisp (*modifier-alias*): New list of modifier alias
1196 For example: :alt is :mod-1, :numlock is :mod-2...
1198 * src/tools.lisp (remove-hook): New function.
1200 * src/clfswm-keys.lisp (with-capslock, without-capslock)
1201 (with-numlock, without-cnumlock): New functions.
1203 2008-10-25 Philippe Brochard <pbrochard@common-lisp.net>
1205 * src/clfswm-info.lisp: Use the *binding-hook* to create info
1206 keys and mouse bindings.
1208 * src/bindings-second-mode.lisp: Use the *binding-hook* to create
1209 second keys and mouse bindings.
1211 * src/bindings.lisp: Use the *binding-hook* to create main keys
1214 2008-10-10 Philippe Brochard <pbrochard@common-lisp.net>
1216 * src/clfswm-menu.lisp (open-menu): Remember parent menu to undo
1219 2008-10-09 Philippe Brochard <pbrochard@common-lisp.net>
1221 * src/menu-def.lisp: Use a menu instead of a function for the
1224 2008-10-08 Philippe Brochard <pbrochard@common-lisp.net>
1226 * src/clfswm-util.lisp (show-standard-menu): Display the standard
1227 menu from the 'update-menus' command.
1229 2008-10-07 Philippe Brochard <pbrochard@common-lisp.net>
1231 * src/clfswm-query.lisp (query-string): Do not ungrab keyboard if
1232 it's already grabbed.
1234 * src/clfswm-internal.lisp (display-frame-info): Use configurable
1235 colors and fix a bug with background.
1236 (display-frame-info): Set window background when displaying info.
1238 2008-10-06 Philippe Brochard <pbrochard@common-lisp.net>
1240 * src/xlib-util.lisp (my-character->keysyms): Use a macro to avoid
1241 warning with clisp/new-clx.
1243 2008-10-04 Philippe Brochard <pbrochard@common-lisp.net>
1245 * src/clfswm-util.lisp (jump-to-slot): Prevent to jump on a
1248 2008-09-23 Philippe Brochard <pbrochard@common-lisp.net>
1250 * *: **** Release 0809 ****
1252 2008-09-23 Philippe Brochard <pbrochard@common-lisp.net>
1254 * src/clfswm-util.lisp (ensure-unique-name): New function and menu
1256 (ensure-unique-number): New function and menu entry.
1258 2008-09-22 Philippe Brochard <pbrochard@common-lisp.net>
1260 * src/clfswm-nw-hooks.lisp (named-frame-nw-hook): New new window
1261 hook: open the next window in a named frame.
1262 (numbered-frame-nw-hook): New new window hook: open the next
1263 window in a numbered frame.
1265 * src/clfswm-query.lisp (query-string): Grab the keyboard in all
1266 cases. So query-string can be called even in the main mode.
1268 * src/clfswm-internal.lisp (show-all-children): Do not raise a
1269 child by default => far less flickering.
1271 2008-09-19 Philippe Brochard <pbrochard@common-lisp.net>
1273 * src/bindings-second-mode.lisp: Bind "t" to tile-current-frame.
1275 * src/menu-def.lisp: Change key binding for the CLFSWM menu
1278 * src/xlib-util.lisp (xgrab-pointer): Handle the case where cursor
1279 is nil. (workaround on some CLX implementation).
1281 2008-09-12 Philippe Brochard <pbrochard@common-lisp.net>
1283 * src/menu-def.lisp: Add a menu to set a focus policy for all
1286 * src/clfswm-util.lisp (set-focus-policy-generic-for-all)
1287 (all-frames-set-*-focus-policy): Set a focus policy for all
1290 * src/clfswm.lisp (handle-enter-notify): sloppy-select
1291 mode. Select a child and its parents on mouse over.
1293 2008-09-03 Philippe Brochard <pbrochard@common-lisp.net>
1295 * src/clfswm.lisp (handle-enter-notify): Add a sloppy strict focus
1296 policy -> Sloppy focus only for windows in the current frame.
1297 (main-unprotected): Exit clfswm on init error (ie: when another
1298 window manager is running).
1300 * src/clfswm-util.lisp (reset-clfswm): New function.
1302 2008-09-02 Philippe Brochard <pbrochard@common-lisp.net>
1304 * src/clfswm-menu.lisp (init-menu): New function.
1306 * src/clfswm-util.lisp (reload-clfswm): New function to reload
1308 (exit-clfswm): Rename quit-clfswm to exit-clfswm.
1310 * src/clfswm.lisp (main, main-unprotected): Handle error in a
1311 superior main function. Now CLFSWM can't break the X session. It
1312 just reinitialize the display and run a new main loop.
1314 * src/clfswm-corner.lisp: Make *clfswm-terminal* and
1315 *vt-keyboard-on* global to avoid warnings when loading clfswm.
1317 * src/clfswm-layout.lisp: Add a specific GIMP layout menu.
1318 (help-on-gimp-layout): Describe how to use the GIMP layout.
1320 2008-09-01 Philippe Brochard <pbrochard@common-lisp.net>
1322 * src/clfswm-layout.lisp (set-gimp-layout): Change the layout to
1323 main-window-right-layout. Change the keybinding for (shift)alt+tab
1324 to not select windows in the main window lisst.
1325 Bind F8 to add a window in the main window list.
1326 Bind F9 to remove a window in the main window list.
1327 Change the focus policy to :sloppy.
1328 (set-previous-layout): Restore the previous layout, keybinding and
1331 2008-08-31 Philippe Brochard <pbrochard@common-lisp.net>
1333 * src/clfswm-menu.lisp (add-menu-comment): Add comments in menu.
1335 * src/clfswm-layout.lisp (main-window-left-layout)
1336 (main-window-bottom-layout, main-window-top-layout): New
1338 Factorize layouts in menu.
1340 2008-08-30 Philippe Brochard <pbrochard@common-lisp.net>
1342 * src/clfswm-layout.lisp (main-window-right-layout): A possible
1343 GIMP layout: one or more main windows on one side of the
1344 frame. Others on the other size.
1346 * src/clfswm-util.lisp
1347 (current-frame-set-click/sloppy-focus-policy): Each frame can have
1348 a different focus policy (one of :click or :sloppy).
1349 The default focus policy is set with *default-focus-policy*.
1351 2008-08-23 Philippe Brochard <pbrochard@common-lisp.net>
1353 * src/clfswm-info.lisp (show-config-variable): New function.
1355 2008-08-19 Philippe Brochard <pbrochard@common-lisp.net>
1357 * src/clfswm-layout.lisp (tile-horizontal-layout): New layout.
1359 * src/clfswm-info.lisp: Colored help for key binding and corners
1362 2008-08-18 Philippe Brochard <pbrochard@common-lisp.net>
1364 * src/clfswm-util.lisp (delete-focus-window)
1365 (destroy-focus-window): Remove chid only in
1366 handle-unmap/destroy-notify. Focus *current-root* only when
1367 closing/killing the current child.
1369 * src/clfswm-autodoc.lisp (produce-corner-*-doc): New autodoc
1370 functions or corners.
1372 2008-08-17 Philippe Brochard <pbrochard@common-lisp.net>
1374 * src/clfswm-corner.lisp (present-clfswm-terminal): New corner
1375 action: Hide/Unhide a terminal on mouse corner action. (By default
1376 right mouse button on the top left corner).
1378 * src/config.lisp (*never-managed-window-list*): New config
1381 * src/clfswm-internal.lisp (never-managed-window-p): New function:
1382 Handle never managed window in a more simple way.
1384 * src/clfswm-corner.lisp: New file and new and more simple method
1385 to define corners actions.
1387 2008-08-15 Philippe Brochard <pbrochard@common-lisp.net>
1389 * src/clfswm-info.lisp (info-mode): Info line can now be colored.
1391 * src/clfswm-layout.lisp (fast-layout-switch)
1392 (define-fast-layout-switch): New functions: Switch between two
1395 * src/clfswm-second-mode.lisp (leave-second-mode): Takes care if
1396 really in the second mode. So leave-second-mode can be used even
1399 * src/clfswm-util.lisp (switch-to-last-child): New function:
1400 Store the current child and switch to the previous one.
1402 2008-07-16 Philippe Brochard <pbrochard@common-lisp.net>
1404 * src/clfswm-util.lisp (display-current-window-info): Display the
1406 (have-to-present-virtual-keyboard): Add a virtual keyboard corner
1407 (top right by default). By default 'xvkbd' is used.
1409 2008-06-28 Philippe Brochard <pbrochard@common-lisp.net>
1411 * src/xlib-util.lisp (move-window, resize-window): Compress motion
1414 * src/clfswm.lisp (handle-motion-notify): Compress motion events.
1416 * src/clfswm-second-mode.lisp (sm-handle-motion-notify): Compress
1419 * src/clfswm-info.lisp (info-mode): Compress motion events.
1421 2008-06-21 Philippe Brochard <pbrochard@common-lisp.net>
1423 * src/clfswm-internal.lisp (show-all-children): Compute geometry
1424 and selection first and then show only necessary children.
1425 (show-child): remove unneeded display-p parameter.
1427 * src/config.lisp (get-fullscreen-size): Place the frame border
1428 outside the screen (this prevent the loose of 2 pixels per
1431 2008-06-12 Philippe Brochard <pbrochard@common-lisp.net>
1433 * src/clfswm-internal.lisp (focus-child): Algorithm change to
1434 raise only the selected child.
1436 2008-06-08 Philippe Brochard <pbrochard@common-lisp.net>
1438 * src/clfswm-internal.lisp (raise-p-list, show-all-children):
1439 Raise only viewable children.
1441 2008-06-06 Philippe Brochard <pbrochard@common-lisp.net>
1443 * src/clfswm-internal.lisp (show-all-children): Always raise all
1444 displayed children. Remove all references to raise-p.
1446 2008-06-04 Philippe Brochard <pbrochard@common-lisp.net>
1448 * src/menu-def.lisp (child-menu): New menu entry on raise/lower
1451 * src/bindings-second-mode.lisp ("Page_Down", "Page_Up"): New
1452 second mode binding on raise/lower child in its frame.
1454 * src/clfswm-nw-hooks.lisp (leave-focus-frame-nw-hook): Adapt
1455 behaviour to the new raise/lower property.
1456 Call clear-nw-hook before the rest of the hook.
1458 * src/bindings.lisp (mouse-click-to-focus-and-move-window)
1459 (mouse-click-to-focus-and-resize-window): Stop button event. This
1460 prevent a keyboard/pointer freeze.
1462 2008-06-03 Philippe Brochard <pbrochard@common-lisp.net>
1464 * src/clfswm-internal.lisp (frame-lower-child)
1465 (frame-raise-child): New functions to raise/lower a child in its
1468 * src/clfswm-util.lisp (have-to-present-windows)
1469 (have-to-present-all-windows): New functions to have an MaxOS
1470 expose like on mouse click in screen corner.
1472 * src/clfswm-info.lisp ("Page_Down", "Page_Up"): Add boundaries.
1474 2008-05-30 Philippe Brochard <pbrochard@common-lisp.net>
1476 * src/clfswm-util.lisp (unhide-a-child-from-all-frames): Unhide a
1477 child from a choice in all frames with hidden children.
1479 * src/clfswm-info.lisp (info-mode-menu): Handle separators.
1481 2008-05-28 Philippe Brochard <pbrochard@common-lisp.net>
1483 * src/clfswm-util.lisp (hide-current-child, unhide-a-child)
1484 (unhide-all-children): New functions.
1486 * src/clfswm-info.lisp (info-mode-menu): Handle symbols and
1489 * src/clfswm-util.lisp (hide/show-frame-window): new function and
1492 2008-05-23 Philippe Brochard <pbrochard@common-lisp.net>
1494 * src/clfswm-util.lisp (rename-current-child): Do not display the
1495 frame info for a window.
1497 2008-05-20 Philippe Brochard <pbrochard@common-lisp.net>
1499 * src/clfswm-internal.lisp (remove-child-in-frame): Destroy the
1500 frame window for the removed child and its children.
1502 2008-05-18 Philippe Brochard <pbrochard@common-lisp.net>
1504 * src/clfswm-autodoc.lisp (produce-*-doc-*): Add a note to use the
1507 2008-05-17 Philippe Brochard <pbrochard@common-lisp.net>
1509 * src/clfswm-nw-hooks.lisp (default-frame-nw-hook): Do not handle
1510 the ROX pinboard (ie: leave it lowered in the root window as
1513 * src/clfswm-layout.lisp (tile-left-space-layout): New layout.
1514 (tile-left-layout, tile-right-layout, tile-top-layout)
1515 (tile-bottom-layout): Use all the frame space when there is only
1518 * src/clfswm-internal.lisp (place-window-from-hints): Center
1519 unmanaged windows in the root screen.
1521 * src/clfswm-nw-hooks.lisp (clear-nw-hook, clear-all-nw-hooks):
1524 2008-05-15 Philippe Brochard <pbrochard@common-lisp.net>
1526 * src/clfswm-util.lisp (current-frame-manage-window-type): Fix a
1527 typo in managed types.
1529 * src/clfswm-internal.lisp (show-child): Always display frame info
1530 even if the frame is hidden.
1532 * src/xlib-util.lisp (resize-window): Use a better algorithme to
1535 2008-05-13 Philippe Brochard <pbrochard@common-lisp.net>
1537 * src/clfswm-util.lisp (with-movement): Display frame info for all
1538 frames in current root.
1540 2008-05-12 Philippe Brochard <pbrochard@common-lisp.net>
1542 * src/*.lisp: Rename 'brother' frames to 'sister' frames.
1544 * src/bindings-second-mode.lisp (define-second-key #\a): New
1545 binding on 'add-default-frame'.
1547 * src/clfswm-autodoc.lisp (produce-*-doc-*-in-file): Show a
1548 message to follow the autodocumentation process.
1550 2008-05-10 Philippe Brochard <pbrochard@common-lisp.net>
1552 * src/clfswm-util.lisp (bind-or-jump): Bind "Tab", "Return" and
1553 "Space" to jump to a child. "B" to bind a slot on the current
1556 * src/bindings-second-mode.lisp: Use "Tab" instead of
1559 2008-05-07 Philippe Brochard <pbrochard@common-lisp.net>
1561 * src/clfswm-util.lisp (find-child-under-mouse): Take care of
1562 unmanaged (hidden) windows.
1564 * src/clfswm-internal.lisp (place-window-from-hints): Give a
1565 minimal size for windows.
1566 (with-all-windows-frames-and-parent): New function.
1568 * src/config.lisp (*default-window-width/height*): New parameters.
1570 * src/clfswm-internal.lisp (place-window-from-hints): Center
1571 windows in the screen instead of in their frame.
1573 * src/bindings-second-mode.lisp (tile-space-current-frame): New
1576 * src/clfswm-layout.lisp (register-layout): Intern the once name
1577 in the right package.
1579 2008-05-05 Philippe Brochard <pbrochard@common-lisp.net>
1581 * doc/dot-clfswmrc: Update to follow the new clfswm way.
1583 2008-05-03 Philippe Brochard <pbrochard@common-lisp.net>
1585 * src/clfswm-internal.lisp (set-current-child)
1586 (adapt-child-to-parent, show-child, hide-child): Handle the case
1587 where child is not a frame or a window.
1589 * src/clfswm-util.lisp
1590 (mouse-click-to-focus-generic,mouse-focus-move/resize-generic):
1591 Check if child is a frame.
1593 * src/clfswm-internal.lisp (managed-window-p): Handle the case
1594 where frame is null.
1595 (place-frame): Check if frame and parent are frames.
1597 * src/clfswm-info.lisp (info-mode): display all frame info before
1600 * src/clfswm-second-mode.lisp (second-key-mode): display all frame
1601 info before leaving.
1603 * src/clfswm-internal.lisp (display-all-frame-info): New function.
1605 2008-05-02 Philippe Brochard <pbrochard@common-lisp.net>
1607 * src/tools.lisp (getenv): Implemented for ECL.
1608 (urun-prog): Implemented for ECL.
1610 * src/clfswm-util.lisp (identify-key): Use a double buffer to
1613 * src/clfswm-query.lisp (query-string): Use a double buffer to
1616 * src/clfswm-info.lisp (draw-info-window): Use a double buffer to
1619 * src/xlib-util.lisp (clear-pixmap-buffer, copy-pixmap-buffer):
1622 2008-05-01 Philippe Brochard <pbrochard@common-lisp.net>
1624 * src/clfswm-info.lisp (info-mode): Add boundaries in the info mode window.
1626 * src/menu-def.lisp: New file: move all menu definition in
1629 * src/clfswm-layout.lisp (register-layout): Use a function instead
1632 2008-04-30 Philippe Brochard <pbrochard@common-lisp.net>
1634 * src/clfswm-autodoc.lisp (produce-menu-doc,
1635 (produce-menu-doc-html): New functions.
1636 (produce-doc-*): Moved to clfswm-autodoc.lisp.
1638 * src/clfswm-util.lisp (paste-selection-no-clear): Prevent to
1639 paste a child on one of its own children. (this prevent a
1641 (move-child-to): Rename move/copy-current-child-by to
1643 (mouse-move-window-over-frame): New function to move the window
1644 under the mouse cursor to another frame.
1646 * src/clfswm-internal.lisp (find-child-in-parent): New function.
1648 2008-04-29 Philippe Brochard <pbrochard@common-lisp.net>
1650 * src/clfswm-internal.lisp (show-all-children): Display unmanaged
1651 windows only when its window parent is the current child.
1653 2008-04-28 Philippe Brochard <pbrochard@common-lisp.net>
1655 * src/clfswm-util.lisp (manage-current-window)
1656 (unmanage-current-window): New functions: Allow to force to manage
1657 or unmanage a window by its parent frame.
1659 * src/bindings-second-mode.lisp (#\o): binded to
1660 set-open-in-new-frame-in-parent-frame-nw-hook and
1661 (#\o :control) to set-open-in-new-frame-in-root-frame-nw-hook
1663 * src/clfswm-util.lisp (with-current-window): New macro.
1665 * src/xlib-util.lisp (move-window, resize-window): Remove uneeded
1666 exposure and enter-window handle event.
1668 * src/clfswm-util.lisp (move-frame, resize-frame): Show all
1669 children for the current child after the move/resize.
1671 2008-04-27 Philippe Brochard <pbrochard@common-lisp.net>
1673 * src/xlib-util.lisp (resize-window): Take care of window size
1676 * src/clfswm-util.lisp (mouse-focus-move/resize-generic): Allow to
1677 move/resize unmanaged windows.
1679 * src/xlib-util.lisp (move-window, resize-window): New functions.
1681 2008-04-25 Philippe Brochard <pbrochard@common-lisp.net>
1683 * src/clfswm-util.lisp (current-frame-manage-window-type): Let the
1684 user choose what window type the current frame must handle.
1685 (display-current-window-info): New function.
1686 (current-frame-manage-all-window-type)
1687 (current-frame-manage-only-normal-window-type)
1688 (current-frame-manage-no-window-type): New functions.
1690 * src/clfswm-internal.lisp (managed-window-p): New function.
1692 * src/package.lisp (frame): Managed type: new frame
1693 parameter. This allow to choose what window type a frame must
1696 * src/*.lisp: Rename all 'father' occurrences to 'parent'.
1698 * src/clfswm-nw-hooks.lisp
1699 (open-in-new-frame-in-parent-frame-nw-hook): New new window hook.
1701 * src/clfswm-util.lisp (adapt-current-frame-to-window-hints): New
1704 * src/tools.lisp (ensure-printable): Return always a string even
1707 2008-04-24 Philippe Brochard <pbrochard@common-lisp.net>
1709 * src/config.lisp (*default-nw-hook*): New variable to change the
1710 default new window hook.
1712 2008-04-22 Philippe Brochard <pbrochard@common-lisp.net>
1714 * clfswm.asd (clfswm): Add a dependency from
1715 clfswm-second-mode.lisp to clfswm.lisp.
1717 * src/clfswm-util.lisp (identify-key): Show the documentation for
1718 the function bound on a key.
1719 (with-movement): Move with-movement,
1720 current-frame-fill/pack/resize-* from bindings-second-mode.lisp
1721 to clfswm-util.lisp.
1723 * src/clfswm-menu.lisp: New menu system that let user change keys
1724 or functions associated to keys.
1726 2008-04-18 Philippe Brochard <pbrochard@common-lisp.net>
1728 * src/clfswm-internal.lisp (show-all-children): Display-child is
1729 the first child by default. Solve a bug with father-p.
1731 2008-04-17 Philippe Brochard <pbrochard@common-lisp.net>
1733 * src/clfswm-internal.lisp (add-frame): Add frame return the
1735 (show-all-children): Move the size computation outside the
1738 * src/bindings-second-mode.lisp (with-movement): Redisplay only
1741 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Redisplay
1742 only the current child.
1744 * src/clfswm-internal.lisp (show-all-children): New display-child
1745 parameter to display only the desired child and its children.
1746 (select-next/previous-child): Only display the current child.
1748 2008-04-14 Philippe Brochard <pbrochard@common-lisp.net>
1750 * src/clfswm.lisp (init-display): Move the default frame creation
1751 on the default init hook.
1753 * src/clfswm-keys.lisp (define-ungrab/grab): Handle all keysyms in
1754 the main mode (for example: "1" on an azerty keyboard).
1756 2008-04-13 Philippe Brochard <pbrochard@common-lisp.net>
1758 * src/clfswm-keys.lisp (find-key-from-code): Better handle of
1759 keysyms. Revert to old grabbing method for the main mode.
1761 2008-04-12 Philippe Brochard <pbrochard@common-lisp.net>
1763 * src/clfswm.lisp (init-display): Add key handling on no focus
1764 window and on frame windows.
1766 2008-04-11 Philippe Brochard <pbrochard@common-lisp.net>
1768 * src/clfswm.lisp (main): Keyboard handle strategie change: Grab
1769 all keys by default and replay just what is needed. No change for
1772 * src/clfswm-keys.lisp: remove grab/ungrab main keys.
1773 (find-key-from-code): Test for shift and not shift presence.
1775 2008-04-09 Philippe Brochard <pbrochard@common-lisp.net>
1777 * src/clfswm-internal.lisp (switch-to-root-frame): show later -
1778 new key parameter to have less flickering.
1780 2008-04-07 Philippe Brochard <pbrochard@common-lisp.net>
1782 * src/bindings-second-mode.lisp (frame-layout-once-menu): Set the
1783 layout only one time and revert to no-layout to freely handle
1786 * src/clfswm-nw-hooks.lisp
1787 (open-in-new-frame-in-root-frame-nw-hook): Tile layout with spaces
1788 with new created window.
1790 * src/clfswm-layout.lisp (register-layout): Now register
1791 automatically a once layout to set the layout only one time and
1792 revert to no-layout to freely handle frames.
1794 2008-04-05 Philippe Brochard <pbrochard@common-lisp.net>
1796 * src/clfswm-nw-hooks.lisp (leave-focus-frame-nw-hook): New
1797 nw-hook: Open the next window in the current frame and leave the
1798 focus to the current child.
1800 2008-04-04 Philippe Brochard <pbrochard@common-lisp.net>
1802 * src/bindings-second-mode.lisp: Add keys definitions to
1803 bind-or-jump in the second mode.
1805 * src/clfswm-util.lisp (bind-or-jump): remove the auto-defining
1806 macro for bind-or-jump-(1|2|3...).
1808 * src/clfswm-keys.lisp (define-define-key/mouse): Allow additional
1809 arguments to function. This allow to do things like:
1810 (define-main-key (key) 'my-function 10 20 'foo) -> 10 20 and 'foo
1811 are passed to my-function on key press.
1813 2008-04-03 Philippe Brochard <pbrochard@common-lisp.net>
1815 * src/clfswm-util.lisp (bind-or-jump): New (great) function.
1817 2008-04-02 Philippe Brochard <pbrochard@common-lisp.net>
1819 * src/clfswm-internal.lisp (child-fullname): New function
1821 * src/clfswm-info.lisp (info-mode-menu): Add an explicit optional
1822 docstring in info-mode-menu. An item can be
1823 '((key function) (key function)) or with docstring
1824 '((key function "documentation 1") (key function "bla bla") (key function))
1826 * src/tools.lisp (ensure-n-elems): New function.
1828 * src/bindings-second-mode.lisp: Bind Alt+mouse-1/3 to move or
1829 resize a frame or the window's father.
1831 * src/clfswm.lisp (init-display): Remove tile-space-layout by
1832 default on the root frame.
1834 * src/clfswm-util.lisp (move/resize-frame): Add standard event
1835 hooks handlers (map-request, configure-notify...)
1837 * src/clfswm-internal.lisp (adapt-child-to-father): Limit minimal
1840 2008-04-01 Philippe Brochard <pbrochard@common-lisp.net>
1842 * src/bindings.lisp: Bind Alt+mouse-1/3 to move or resize a frame
1843 or the window's father.
1845 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Stop button
1846 event only if there is a geometry change.
1847 (mouse-focus-move/resize-generic): Generic function to move or
1848 resize a frame or a window father frame.
1850 2008-04-01 Philippe Brochard <pbrochard@common-lisp.net>
1852 * src/clfswm-internal.lisp (show-all-children): Return t if there
1853 is a geometry change.
1855 2008-03-30 Philippe Brochard <pbrochard@common-lisp.net>
1857 * src/bindings.lisp (Up/Down): Swap select previous/next level.
1859 * src/bindings-second-mode.lisp (Up/Down): Swap select previous/next level.
1861 * src/clfswm.lisp (init-display): Create a default frame in the root frame.
1863 * src/clfswm-internal.lisp (place-frame): Place frame from real (pixel) coordinates.
1864 (with-all-*): Reverse the child list to manage the first child last (like in
1867 * src/config.lisp (*create-frame-on-root*): New variable: Create a new frame on the
1868 root window only if true.
1870 * src/clfswm-util.lisp (mouse-click-to-focus-generic): Create a new frame on the
1871 root window only if *create-frame-on-root* is true.
1873 * src/bindings-second-mode.lisp (sm-mouse-click-to-focus-generic): Create a new frame
1876 2008-03-29 Philippe Brochard <pbrochard@common-lisp.net>
1878 * src/bindings-second-mode.lisp (sm-mouse-click-to-focus-generic): Focus, move and resize
1879 the current child (even if it's a window).
1881 2008-03-28 Philippe Brochard <pbrochard@common-lisp.net>
1883 * src/clfswm-util.lisp (mouse-click-to-focus-and-move)
1884 (mouse-click-to-focus-and-resize): New functions.
1886 * src/clfswm-internal.lisp (*-fl->px): Convert float coordinates to pixel.
1887 (*-px->fl): Convert pixel coordinates to float.
1889 * src/tools.lisp (call-hook): Move call-hook to tools.lisp.
1891 2008-03-27 Philippe Brochard <pbrochard@common-lisp.net>
1893 * src/clfswm-layout.lisp (no-layout): Use :first-only to raise only the
1896 * src/clfswm-internal.lisp (hide-all): Split hide-all-children in hide-all
1897 and hide-all-children.
1898 (raise-if-needed): New function.
1899 (show-child): Use a first-p parameter to raise windows only when they are
1902 2008-03-26 Philippe Brochard <pbrochard@common-lisp.net>
1904 * src/clfswm-internal.lisp (select-next/previous-level): Don't use show-all-children
1907 2008-03-25 Philippe Brochard <pbrochard@common-lisp.net>
1909 * src/clfswm-info.lisp (keys-from-list): new function.
1911 * src/*: rename 'childs' in 'children'.
1913 * src/*: rename 'group' in 'frame'.
1915 2008-03-22 Philippe Brochard <pbrochard@common-lisp.net>
1917 * src/clfswm-pack.lisp (explode-group/explode-current-group): new functions.
1919 2008-03-21 Philippe Brochard <pbrochard@common-lisp.net>
1921 * src/clfswm-pack.lisp: Pack, Fill, Resize functions.
1923 2008-03-16 Philippe Brochard <pbrochard@common-lisp.net>
1925 * src/clfswm-nw-hooks.lisp: Register system for new window hooks.
1926 Bind control+o to open the next window in a new group in the root group
1927 (as open in next window in a new workspace in 0801 version).
1929 2008-03-15 Philippe Brochard <pbrochard@common-lisp.net>
1931 * src/clfswm-util.lisp (show/hide-all-groups-info/key): Show/hide all groups info
1934 2008-03-14 Philippe Brochard <pbrochard@common-lisp.net>
1936 * bindings-second-mode.lisp ("ISO_Left_Tab"): Use ISO_Left_Tab
1937 instead of Tab for select-previous-child.
1939 2008-03-13 Philippe Brochard <pbrochard@common-lisp.net>
1941 * clfswm-util.lisp (force-window-in-group/force-window-center-in-group):
1944 2008-03-11 Philippe Brochard <pbrochard@common-lisp.net>
1946 * clfswm-util.lisp (identify-key): Display the documentation
1947 associated to keys when identifying a key.
1949 2008-03-10 Xavier Maillard <xma@gnu.org>
1951 * contrib/clfswm: Complete rewrite of the script. Detect error and
1952 act accordingly. Add command line arguments to configure the
1953 script execution. User can now choose different common lisp
1954 implementation (clisp and sbcl only), choose where to store the
1955 dumped image, where to find clfswm source.
1957 2008-03-09 Philippe Brochard <pbrochard@common-lisp.net>
1959 * clfswm-internal.lisp (process-new-window): Beginning of new
1960 window hook: each group have a hook to tell what he wants to do
1961 with the new created window.
1963 2008-03-08 Xavier Maillard <xma@gnu.org>
1965 * contrib/clfswm: New script. Dump a CLISP image of CLFSWM then
1966 call the resulting executable.
1968 * clfswm.lisp (read-conf-file): Check for the user config file in
1969 XDG_CONFIG_HOME *first*. Freedesktop.org standards should be
1970 prefered whenever possible.
1972 2008-02-27 Philippe Brochard <pbrochard@common-lisp.net>
1974 * clfswm-layout.lisp (*-layout): Add an optional raise-p
1975 parameter in each layout.
1977 2008-02-26 Philippe Brochard <pbrochard@common-lisp.net>
1979 * clfswm-util.lisp (copy/cut-current-child): Does not affect the
1981 (copy/move-current-child-by-name/number): new functions
1982 (focus-group-by-name/number): new functions
1983 (delete-group-by-name/number): new functions
1985 2008-02-24 Philippe Brochard <pbrochard@common-lisp.net>
1987 * ************************************************************ *
1988 *: Major update - No more reference to workspaces. The main *
1989 structure is a tree of groups or application windows. *
1990 * ************************************************************ *
1992 2008-02-07 Philippe Brochard <pbrochard@common-lisp.net>
1994 * clfswm.lisp (read-conf-file): Read configuration in
1995 $HOME/.clfswmrc or in /etc/clfswmrc or in
1996 $XDG_CONFIG_HOME/clfswm/clfswmrc.
1997 (xdg-config-home): Return the content of $XDG-CONFIG-HOME (default
2000 2008-01-18 Philippe Brochard <pbrochard@common-lisp.net>
2002 * clfswm-internal.lisp (show-all-group): Use *root* and *root-gc*
2005 2008-01-03 Philippe Brochard <pbrochard@common-lisp.net>
2007 * clfswm-internal.lisp (find-window-group): New function.
2009 * clfswm*: Change to make clfswm run with clisp/new-clx.
2011 2008-01-01 Philippe Brochard <pbrochard@common-lisp.net>
2013 * clfswm-util.lisp (query-show-paren): Add show parent matching in
2015 (query-string): Bind control+k to delete end of line.
2017 * clfswm-second-mode.lisp (draw-second-mode-window): Display
2018 the action on mouse motion in second mode.
2020 * clfswm.lisp (handle-exposure): Redisplay groups on exposure
2021 event but do not clear the root window.
2022 (handle-configure-request): Adjust unmanaged window from their
2025 * clfswm-internal.lisp (process-new-window): Adjust new window
2026 with the specified hints (max/min/base width/height).
2028 2007-12-31 Philippe Brochard <pbrochard@common-lisp.net>
2030 * clfswm.lisp (handle-configure-request): Send an Configuration
2031 Notify event. This solve a bug with xterm and rxvt who takes some
2032 times to be mapped. Now there is no delay.
2034 * bindings-second-mode.lisp (define-shell): Run programs after
2035 living the second mode.
2037 2007-12-30 Philippe Brochard <pbrochard@common-lisp.net>
2039 * clfswm-internal.lisp (process-new-window): Do not crop transient
2040 window to group size.
2041 (adapt-window-to-group): Do not crop transient window to group
2044 * clfswm.lisp (handle-configure-request): Adapt just the window to
2045 its group and don't take care of the configure request. Remove the
2046 bug with the Gimp outside the group and speed up the window
2048 (handle-exposure): Remove show-all-group on exposure event
2051 2007-12-29 Philippe Brochard <pbrochard@common-lisp.net>
2053 * clfswm-util.lisp (circulate-group-up-copy-window)
2054 (circulate-group-down-copy-window)
2055 (circulate-workspace-up-copy-group)
2056 (circulate-workspace-down-copy-group): Prevent the copy of the
2057 same window in the same workspace.
2059 * bindings-second-mode.lisp (release-copy-selected-window)
2060 (release-copy-selected-group): Prevent the copy of the same window
2061 in the same workspace.
2063 * clfswm-pager.lisp (generic-pager-move-window-on-previous-line)
2064 (generic-pager-move-window-on-next-line): Remove the copy
2066 (generic-pager-move-group-on-next-workspace)
2067 (generic-pager-move-group-on-previous-workspace): Prevent the copy
2068 of the same window in the same workspace.
2070 * bindings-pager.lisp (mouse-pager-copy-selected-window-release)
2071 (mouse-pager-copy-selected-group-release): Prevent the copy of the
2072 same window in the same workspace.
2074 * tools.lisp (setf/=): new macro to set a variable only when
2077 * clfswm-internal.lisp (adapt-window-to-group): use set/= to set
2078 x, y... only when necessary.
2080 2007-12-28 Philippe Brochard <pbrochard@common-lisp.net>
2082 * clfswm.lisp (handle-configure-notify, *configure-notify-hook*):
2083 new function and hook: force windows to stay in its group (solve a
2086 2007-12-25 Philippe Brochard <pbrochard@common-lisp.net>
2088 * bindings-second-mode.lisp (mouse-motion): use hide-group to have
2089 less flickering when moving/resizing groups.
2091 * clfswm-internal.lisp (hide-group): new function.
2092 (show-all-group): clear-all: new parameter.
2094 2007-12-22 Philippe Brochard <pbrochard@common-lisp.net>
2096 * clfswm-keys.lisp (define-define-key): undefine-*-multi-name: new
2098 * clfswm*: Color change for the pager. Typo or better description
2099 in bindings definitions. Define bindings for a qwerty keyboard by
2100 default. dot-clfswmrc show examples to switch to an azerty
2102 License change to GPL v3.
2103 * config.lisp: new file - group all globals variables in this
2106 2007-08-26 Philippe Brochard <pbrochard@common-lisp.net>
2108 * xlib-util.lisp (hide-window): Remove structure-notivy events
2109 when hidding a window.
2111 2007-05-16 Philippe Brochard <pbrochard@common-lisp.net>
2113 * package.lisp (*sm-property-notify-hook*): Readded
2114 property-notify-hook in second mode.
2116 2007-05-15 Philippe Brochard <pbrochard@common-lisp.net>
2118 * clfswm-keys.lisp (produce-doc-html): Better clean up for strings.
2120 2007-05-13 Philippe Brochard <pbrochard@common-lisp.net>
2122 * clfswm-pack.lisp (tile-current-workspace-to/right/left/top/bottom):
2123 Tile the current workspace with the current window on one side and
2124 others on the other (this emulate the larswm, dwm, wmii way). See
2125 the default configuration file to enable this mode by default.
2127 * clfswm-pager.lisp (pager-tile-current-workspace-to): idem for
2130 2007-05-12 Philippe Brochard <pbrochard@common-lisp.net>
2132 * clfswm-pager.lisp (pager-draw-window-in-group): Add
2133 ensure-printable to print windows name even with non-ascii
2136 2007-05-11 Philippe Brochard <pbrochard@common-lisp.net>
2138 * clfswm-pager.lisp (pager-explode-current-group): Create a new
2139 group for each window in group.
2140 (pager-implode-current-group): Move all windows in workspace to
2141 one group and remove other groups.
2143 * clfswm-pack.lisp (explode-group): Create a new group for each
2145 (implode-group): Move all windows in workspace to one group and
2146 remove other groups.
2148 * clfswm-util.lisp (identify-key): Remove local configuration
2149 variables and made them available for configuration from
2151 (query-string): idem.
2153 2007-04-29 Philippe Brochard <pbrochard@common-lisp.net>
2155 * netwm-util.lisp: Start of NetWM compliance.
2156 Add a Netwm client list gestion.
2158 2007-04-28 Philippe Brochard <pbrochard@common-lisp.net>
2160 * clfswm-internal.lisp (create-group-on-request): open a new group
2161 only when the current group is not empty.
2163 * bindings-second-mode.lisp (define-second-key-#\o-control): Fix a
2164 bug with null workspace.
2166 * clfswm-pager.lisp (pager-handle-event): Add a hook
2167 system. This hooks can be changed in the user configuration file.
2169 * package.lisp: All colors and font variables are set in
2170 package.lisp and can be configured in the user configuration
2172 Note: If you have configured some less ugly colors (esp. for the
2173 pager) don't hesitate to let me know :)
2175 * clfswm-second-mode.lisp (sm-handle-event): Add a hook
2176 system. This hooks can be changed in the user configuration file.
2178 * clfswm.lisp (handle-event): Add a hook system. This hooks can be
2179 changed in the user configuration file (~/.clfswmrc)
2181 2007-04-25 Philippe Brochard <pbrochard@common-lisp.net>
2183 * clfswm-util.lisp (stop-all-pending-actions): new function: reset
2184 arrow action, open next window in new workspace/group.
2186 * bindings.lisp (stop-all-pending-actions): new binding.
2187 (open-next-window-in-new-group-once): Open the next windows in a
2188 new group (only once) or open all new windows in a new group (like
2189 others windows managers).
2191 2007-04-22 Philippe Brochard <pbrochard@common-lisp.net>
2193 * clfswm.lisp (read-conf-file): New function to read a lisp
2194 configuration file at startup.
2195 (focus-group-under-mouse): Check if group isn't the current group
2196 ( prevent a bug with unclutter ).
2198 2007-03-02 Philippe Brochard <pbrochard@common-lisp.net>
2200 * bindings.lisp (run-program-from-query-string): A program can be
2201 launch from a input query window.
2203 2007-03-01 Philippe Brochard <pbrochard@common-lisp.net>
2205 * clfswm-info.lisp: Fix a bug with banish pointer in info mode.
2207 2007-02-28 Philippe Brochard <pbrochard@common-lisp.net>
2209 * clfswm.lisp (process-new-window): One can now open the next
2210 window in a workspace called by its number.
2212 * clfswm-util.lisp (query-font-string): Minimal editing
2214 (eval-from-string): And an REPL in the window manager... :)
2216 2007-02-26 Philippe Brochard <pbrochard@common-lisp.net>
2218 * clfswm.lisp (process-new-window): One can now open the next
2219 window in a new workspace or a new group.
2221 * clfswm-pager.lisp (pager-mode): Display the next arrow action
2222 with the hidden windows.
2224 * clfswm.lisp (second-key-mode): Display the current workspace
2225 number and the next arrow action in the state window.
2227 * clfswm-pager.lisp (pager-mode): Hide all windows before leaving
2228 the pager mode and then redisplay only the current workspace.
2230 2007-02-25 Philippe Brochard <pbrochard@common-lisp.net>
2232 * clfswm.lisp (add-workspace): Workspaces are now numbered. So
2233 they can be focused with a keypress, sorted or renumbered.
2235 2007-02-24 Philippe Brochard <pbrochard@common-lisp.net>
2237 * clfswm-pager.lisp (pager-mode): Remove multiple silly
2238 pager-draw-display. This prevent a lot of flickering in the
2241 * clfswm.lisp: Remove all display-force-output and replace them
2242 with only one display-finish-output in the event loop.
2244 2006-11-06 Philippe Brochard <pbrochard@common-lisp.net>
2246 * clfswm-pager.lisp (pager-center-group): New function - center a
2247 group at the middle of the screen.
2249 * clfswm-pack.lisp (center-group): New function - center a group
2250 at the middle of the screen.
2252 * clfswm.lisp (show-group): Add a cross line under the group.
2253 (show-group): Group are showned even if fullscreened.
2254 (init-display): Add an exposure event on the root window.
2256 2006-11-05 Philippe Brochard <pbrochard@common-lisp.net>
2258 * package.lisp (*default-group*): Default group is the same size
2259 of a fullscreened group.
2261 * bindings*: Use shift to move, control+shift to copy.
2263 * *.lisp: Add comments for configuration or alternatives. So grep
2264 for CONFIG to see where you can configure clfswm. And grep for
2265 Alternative to use some commented code.
2267 * clfswm.lisp (second-key-mode): Use a single window to show the
2268 second mode. See for alternatives at the end of this file.
2270 2006-11-03 Philippe Brochard <pbrochard@common-lisp.net>
2272 * clfswm-keys.lisp (define-define-key/mouse): Factorisation in a
2273 macro of key and mouse definitions.
2274 (define-define-key/mouse): Use state instead of modifiers list
2275 this fix a bug when the modifiers list is not in the rigth order.
2277 * clfswm.lisp (second-key-mode): Add a colored border in second mode.
2279 2006-11-02 Philippe Brochard <pbrochard@common-lisp.net>
2281 * clfswm-info.lisp (info-mode): Add an info mode.
2283 2006-11-01 Philippe Brochard <pbrochard@common-lisp.net>
2285 * clfswm.lisp (process-new-window): Change border size for
2287 (show-all-windows-in-workspace): Unhide all windows even when the
2288 current group is in fullscreen mode.
2290 2006-10-26 Philippe Brochard <pbrochard@common-lisp.net>
2292 * clfswm-util.lisp (identify-key): Add an exposure handle-event to
2293 redisplay the identify window after a terminal switch.
2295 * clfswm-pager.lisp (pager-mode): Add an exposure handle-event to
2296 redisplay the pager after a terminal switch.
2298 2006-10-24 Philippe Brochard <pbrochard@common-lisp.net>
2300 * clfswm-util.lisp (identify-key): Add a window to display
2301 the keys to identify on screen.
2303 * bindings.lisp, bindings-pager.lisp: Define same keys to
2304 move/copy groups/windows in second mode and in pager.
2306 * clfswm.lisp (handle-event*): Same version in all clfswm (fix some
2308 (show-all-windows-in-workspace): unhide window before adapting it
2311 2006-10-23 Philippe Brochard <pbrochard@common-lisp.net>
2313 * clfswm.lisp (handle-event): Revert to an older version.
2315 2006-10-18 Philippe Brochard <pbrochard@common-lisp.net>
2317 * clfswm-util.lisp (force-window-in-group)
2318 (force-window-center-in-group): New functions for transient windows.
2320 * clfswm-pager.lisp (pager-remove-current-workspace/group):
2321 bugfix: hide all windows before removing group or workspace.
2323 2006-10-17 Philippe Brochard <pbrochard@common-lisp.net>
2325 * bindings-pager.lisp (mouse-pager-move-selected-group)
2326 (mouse-pager-copy-selected-group)
2327 (mouse-pager-move-selected-window)
2328 (mouse-pager-copy-selected-window, mouse-pager-rotate-window-up)
2329 (mouse-pager-rotate-window-down): New functions to have mouse in
2332 * clfswm-pager.lisp (pager-swap-window)
2333 (pager-copy-group-on-next/previous-workspace)
2334 (pager-copy-window-on-next/previous-line): New functions
2336 2006-10-15 Philippe Brochard <pbrochard@common-lisp.net>
2338 * clfswm-pager.lisp (pager-move-window-on-next/previous-line,
2339 (pager-move-group-on-next/previous-workspace): new functions.
2341 * clfswm-pack.lisp (resize-half-x-x-current-group): resize group
2342 to its half size (new functions).
2344 2006-10-11 Philippe Brochard <pbrochard@common-lisp.net>
2346 * clfswm-pager.lisp: workspaces, groups and windows can now be
2347 selectionned with the keyboard or the mouse.
2349 2006-10-09 Philippe Brochard <pbrochard@common-lisp.net>
2351 * clfswm-pager.lisp (pager-select-workspace-right/left):
2352 workspaces can now be selectionned with the keyboard.
2354 2006-10-08 Philippe Brochard <pbrochard@common-lisp.net>
2356 * clfswm-keys.lisp (undefine-main-key, undefine-second-key, undefine-mouse-action):
2357 new function to remove a previous defined key or mouse combination.
2359 2006-10-07 Philippe Brochard <pbrochard@common-lisp.net>
2361 * clfswm.lisp (main): Check for access error in init-display.
2363 * clfswm-keys.lisp (define-ungrab/grab): check for keysym and
2364 keycode before grabbing.
2366 * bindings.lisp: Remove nlambda and use defun to keep the function
2367 documentation with clisp.
2368 (define-shell): new macro to define shell command for the second
2371 2006-10-06 Philippe Brochard <pbrochard@common-lisp.net>
2373 * clfswm-keys.lisp (define-ungrab/grab): use a cond instead of a
2376 2006-10-05 Philippe Brochard <pbrochard@common-lisp.net>
2378 * bindings.lisp (accept-motion): Move group bugfix in upper mouse
2379 workspace circulation.
2381 * clfswm-util.lisp (absorb-orphan-window): new function.
2383 * clfswm-keys.lisp: Keysyms support.
2385 2006-10-02 Philippe Brochard <pbrochard@common-lisp.net>
2387 * clfswm.lisp (show-group): Use one gc for all groups and not one
2390 2006-10-01 Philippe Brochard <pbrochard@common-lisp.net>
2392 * bindings.lisp (define-second-key (#\l :mod-1)): fix a typo.
2394 * clfswm.lisp (adapt-window-to-group): Adapt only windows with
2395 width and height outside group.
2397 2006-09-28 Philippe Brochard <pbrochard@common-lisp.net>
2399 * clfswm.lisp: First public release.