[nongnu] elpa/sesman 92a4c0a168 045/100: Add sesman-post-command-hook

[ELPA Syncer]

branch: elpa/sesman
commit 92a4c0a1684ecafff70678b108c85f43454f8501
Author: Vitalie Spinu <spinuvit@gmail.com>
Commit: Vitalie Spinu <spinuvit@gmail.com>

    Add sesman-post-command-hook
---
 sesman.el | 35 ++++++++++++++++++++---------------
 1 file changed, 20 insertions(+), 15 deletions(-)

diff --git a/sesman.el b/sesman.el
index 98a2c3b572..dfebbce4f8 100644
--- a/sesman.el
+++ b/sesman.el
@@ -156,7 +156,8 @@ Can be either a symbol, or a function returning a symbol.")
                                               (sesman-context cxt-type 
system)))
                             (sesman--all-system-sessions system 'sort)
                             'ask-new))))
-          (sesman--link-session system session cxt-type cxt-val))
+          (sesman--link-session system session cxt-type cxt-val)
+          (run-hooks 'sesman-post-command-hook))
       (error (format "%s association not allowed for this system (%s)"
                      (capitalize cxt-name)
                      system)))))
@@ -304,13 +305,17 @@ If SORT is non-nil, sort in relevance order."
 
 ;;; User Interface
 
+(defun sesman-post-command-hook nil
+  "Normal hook ran after every state-changing Sesman command.")
+
 ;;;###autoload
 (defun sesman-start ()
-  "Start sesman session."
+  "Start a Sesman session."
   (interactive)
   (let ((system (sesman--system)))
     (message "Starting new %s session ..." system)
-    (sesman-start-session system)))
+    (sesman-start-session system)
+    (run-hooks 'sesman-post-command-hook)))
 
 ;;;###autoload
 (defun sesman-restart ()
@@ -323,7 +328,7 @@ If SORT is non-nil, sort in relevance order."
 
 ;;;###autoload
 (defun sesman-quit (&optional which)
-  "Terminate sesman session.
+  "Terminate a Sesman session.
 When WHICH is nil, kill only the current session; when a single universal
 argument or 'linked, kill all linked session; when a double universal argument,
 t or 'all, kill all sessions."
@@ -331,17 +336,17 @@ t or 'all, kill all sessions."
   (let* ((system (sesman--system))
          (sessions (sesman--on-C-u-u-sessions system which)))
     (if (null sessions)
-        (message "No more %s sessions" system)
-      (mapc (lambda (s)
-              (sesman-unregister system s)
-              (sesman-quit-session system s))
-            sessions)
-      (message
-       "Killed %s %s %s"  system
-       (if (= 1 (length sessions)) "session" "sessions")
-       (mapcar #'car sessions)))))
-
-;; ;;;###autoload
+        (message "No %s sessions found" system)
+      (with-temp-message (format "Killing %s %s %s"  system
+                                 (if (= 1 (length sessions)) "session" 
"sessions")
+                                 (mapcar #'car sessions))
+        (mapc (lambda (s)
+                (sesman-unregister system s)
+                (sesman-quit-session system s))
+              sessions))
+      (run-hooks 'sesman-post-command-hook))))
+
+;;;###autoload
 (defun sesman-info (&optional all)
   "Display linked sessions info.
 When ALL is non-nil, show info for all sessions."