Add a selection hook in select-from-menu.

This lets the caller do something every time an item is selected.

A use case for this is is a "visual-pull-from-windowlist", which pulls
the selected window every time you select it.

menu.lisp

@@ -243,6 +243,7 @@ Returns the selected element in TABLE or nil if aborted. "
                     (when prompt-line
                       (push prompt-line strings)
                       (incf highlight))
+                    (run-hook-with-args *menu-selection-hook* menu)
                     (echo-string-list screen strings highlight))
                   (multiple-value-bind (action key-seq) (read-from-keymap keymap)
                     (if action

primitives.lisp

@@ -59,6 +59,7 @@
           *pre-command-hook*
           *post-command-hook*
           *selection-notify-hook*
+          *menu-selection-hook*
           *display*
           *shell-program*
           *maxsize-border-width*
@@ -328,6 +329,10 @@ the command as a symbol.")
   "Called after a :selection-notify event is processed. It is called
 with 1 argument: the selection as a string.")
 
+(defvar *menu-selection-hook* '()
+  "Called after an item is selected in the windows menu. It is called
+with 1 argument: the menu.")
+
 ;; Data types and globals used by stumpwm
 
 (defvar *display* nil

stumpwm.texi.in

@@ -2152,6 +2152,7 @@ $$$ *urgent-window-hook*
 $$$ *event-processing-hook*
 $$$ *pre-command-hook*
 $$$ *post-command-hook*
+$$$ *menu-selection-hook*
 
 @node Modules, Hacking, Hooks, Top
 @chapter Modules