[STUMP] [PATCH] Logging: messages, destroyed windows; Manual: add missing hook.

[38a938c2]

Manual missed description of *urgent-window-hook*. FIXED

Messages output to the screen were not logged. I assigned level 5 to 
that logging, as it is usually something supposed to be seen by user.

On window destruction event, StumpWM reported (with level 3) that it 
destroys parent window (which is XLib:window object) but doesn't report 
any details. Sometimes the parent window turns out to be XLib:screen, as 
far as I understand, so I want its ID logged. Assigned level 7, as it is 
rather technical detail..
>From 90b82c7df26f43ddd413a1dbcd2a16ed2c059f77 Mon Sep 17 00:00:00 2001
From: 38a938c2 <address@hidden>
Date: Wed, 20 Aug 2008 16:57:17 +0400
Subject: [PATCH] Added a mention of urgent-window-hook

---
 stumpwm.texi.in |    1 +
 1 files changed, 1 insertions(+), 0 deletions(-)

diff --git a/stumpwm.texi.in b/stumpwm.texi.in
index e76304c..96ec904 100644
--- a/stumpwm.texi.in
+++ b/stumpwm.texi.in
@@ -1252,6 +1252,7 @@ $$$ *focus-group-hook*
 $$$ *key-press-hook*
 $$$ *root-click-hook*
 $$$ *mode-line-click-hook*
+$$$ *urgent-window-hook*
 
 @node Modules, Hacking, Hooks, Top
 @chapter Modules
-- 
1.5.6.2

>From 8ccf8fe6f9a6dece0cd2251cb0249131948624e1 Mon Sep 17 00:00:00 2001
From: 38a938c2 <address@hidden>
Date: Wed, 20 Aug 2008 16:58:57 +0400
Subject: [PATCH] Added logging of on-screen messages

---
 message-window.lisp |    3 +++
 1 files changed, 3 insertions(+), 0 deletions(-)

diff --git a/message-window.lisp b/message-window.lisp
index 38497aa..8468623 100644
--- a/message-window.lisp
+++ b/message-window.lisp
@@ -227,6 +227,9 @@ function expects to be wrapped in a with-state for win."
           (cancel-timer *message-window-timer*)
           (setf *message-window-timer* nil))
         (reset-message-window-timer))
+    (dformat 5 "Outputting a message:~%") 
+    (mapcar (lambda (s) (dformat 5 " ~a~%" s)) strings)
+    (dformat 5 "End of mesage~%")
     (apply 'run-hook-with-args *message-hook* strings)))
 
 (defun echo-string (screen msg)
-- 
1.5.6.2

>From 7339d7909d7d69239bb8bb3e5608401ab206752b Mon Sep 17 00:00:00 2001
From: 38a938c2 <address@hidden>
Date: Wed, 20 Aug 2008 16:59:31 +0400
Subject: [PATCH] Added logging of destroyed XLib windows

---
 window.lisp |    1 +
 1 files changed, 1 insertions(+), 0 deletions(-)

diff --git a/window.lisp b/window.lisp
index 05dfc3d..cc862ae 100644
--- a/window.lisp
+++ b/window.lisp
@@ -1095,6 +1095,7 @@ needed."
           (delete window (screen-urgent-windows screen)))
     (dformat 1 "destroy window ~a~%" screen)
     (dformat 3 "destroying parent window~%")
+    (dformat 7 "parent window is ~a~%" (window-parent window))
     (xlib:destroy-window (window-parent window))))
 
 (defun move-window-to-head (group window)
-- 
1.5.6.2