[clfswm-cvs] [clfswm-git]CLFSWM - A(nother) Common Lisp FullScreen Window Manager branch master updated. R-1106-139-g60922e1

[Philippe Brochard]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CLFSWM - A(nother) Common Lisp FullScreen Window Manager".

The branch, master has been updated
       via  60922e16b58b6397485dd3f83e734734e5a8f95b (commit)
       via  bcdbd31de7b4a7fe1c42c5a013b31b6636c455ed (commit)
       via  3affb1ff817ab8e407de71b024c74bd713249fa6 (commit)
      from  e45169eb94233f9bdb3a8f3b25af36f30dd68e45 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 60922e16b58b6397485dd3f83e734734e5a8f95b
Author: Philippe Brochard <pbrochard at common-lisp.net>
Date:   Fri Oct 12 23:19:55 2012 +0200

    src/clfswm-query.lisp (set-default-query-keys): Bind query-backspace-clear to C-u and S-C-Backspace

diff --git a/src/clfswm-query.lisp b/src/clfswm-query.lisp
index c781973..8353677 100644
--- a/src/clfswm-query.lisp
+++ b/src/clfswm-query.lisp
@@ -287,6 +287,8 @@
   (define-query-key ("Tab") 'query-mode-complet)
   (define-query-key ("BackSpace") 'query-backspace)
   (define-query-key ("BackSpace" :control) 'query-backspace-word)
+  (define-query-key ("BackSpace" :control :shift) 'query-backspace-clear)
+  (define-query-key ("u" :control) 'query-backspace-clear)
   (define-query-key ("Delete") 'query-delete)
   (define-query-key ("Delete" :control) 'query-delete-word)
   (define-query-key ("Home") 'query-home)

commit bcdbd31de7b4a7fe1c42c5a013b31b6636c455ed
Author: Michael Raitza <spacefrogg-clfswm at meterriblecrew.net>
Date:   Fri Oct 12 23:12:10 2012 +0200

    Added query-backspace-clear.

diff --git a/src/clfswm-query.lisp b/src/clfswm-query.lisp
index feef765..c781973 100644
--- a/src/clfswm-query.lisp
+++ b/src/clfswm-query.lisp
@@ -183,8 +183,11 @@
 
   (defun query-backspace-word ()
     "Delete a word backward"
-    (generic-backspace (or (position #\Space *query-string* :from-end t :end *query-pos*) 0))))
+    (generic-backspace (or (position #\Space *query-string* :from-end t :end *query-pos*) 0)))
 
+  (defun query-backspace-clear ()
+    "Delete backwards until beginning"
+    (generic-backspace 0)))
 
 (labels ((generic-delete (del-pos)
 	   (when (<= del-pos (length *query-string*))

commit 3affb1ff817ab8e407de71b024c74bd713249fa6
Author: Michael Raitza <spacefrogg-clfswm at meterriblecrew.net>
Date:   Fri Oct 12 23:09:53 2012 +0200

    Added set-layout-simple

diff --git a/src/clfswm-layout.lisp b/src/clfswm-layout.lisp
index 9af5020..710bbc0 100644
--- a/src/clfswm-layout.lisp
+++ b/src/clfswm-layout.lisp
@@ -60,6 +60,10 @@
   (fixe-real-size-current-child)
   (set-layout-dont-leave #'no-layout))
 
+(defun set-layout-simple (layout)
+  "Set the layout of the current child"
+  (set-layout-dont-leave layout)
+  (show-all-children))
 
 (defun get-managed-child (parent)
   "Return only the windows that are managed for tiling"

-----------------------------------------------------------------------

Summary of changes:
 src/clfswm-layout.lisp |    4 ++++
 src/clfswm-query.lisp  |    7 ++++++-
 2 files changed, 10 insertions(+), 1 deletions(-)


hooks/post-receive
-- 
CLFSWM - A(nother) Common Lisp FullScreen Window Manager