[nongnu] elpa/sesman fea061de16 007/100: Add sesman menu

[ELPA Syncer]

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

    Add sesman menu
---
 sesman.el | 29 +++++++++++++++++++++++++++--
 1 file changed, 27 insertions(+), 2 deletions(-)

diff --git a/sesman.el b/sesman.el
index 9c139b708f..29605f0337 100644
--- a/sesman.el
+++ b/sesman.el
@@ -161,8 +161,10 @@ sessions."
 (defvar sesman-map
   (let (sesman-map)
     (define-prefix-command 'sesman-map)
-    (define-key sesman-map (kbd "C-i") 'sesman-info)
-    (define-key sesman-map (kbd   "i") 'sesman-info)
+    (define-key sesman-map (kbd "C-i") 'sesman-show-info)
+    (define-key sesman-map (kbd   "i") 'sesman-show-info)
+    (define-key sesman-map (kbd "C-l") 'sesman-show-links)
+    (define-key sesman-map (kbd   "l") 'sesman-show-links)
     (define-key sesman-map (kbd "C-s") 'sesman-start)
     (define-key sesman-map (kbd   "s") 'sesman-start)
     (define-key sesman-map (kbd "C-r") 'sesman-restart)
@@ -180,6 +182,29 @@ sessions."
     sesman-map)
   "Session management prefix keymap.")
 
+(defvar sesman-menu
+  '("Sesman"
+    ["Show Session Info" sesman-show-info]
+    ["Show Active Links" sesman-show-links]
+    "--"
+    ["Start" sesman-start]
+    ["Restart" sesman-restart :active (sesman-has-sessions-p)]
+    ["Quit" sesman-quit :active (sesman-has-sessions-p)]
+    "--"
+    ["Link with Buffer" sesman-link-with-buffer :active 
(sesman-has-sessions-p)]
+    ["Link with Directory" sesman-link-with-directory :active 
(sesman-has-sessions-p)]
+    ["Link with Project" sesman-link-with-project :active 
(sesman-has-sessions-p)]
+    "--"
+    ["Unlink" sesman-unlink :active (sesman-has-sessions-p)])
+  "Menu for Sesman")
+
+(defun sesman-install-menu (map)
+  "Install `sesman-menu' into MAP ."
+  (easy-menu-do-define 'seman-menu-open
+                       map
+                       (get 'sesman-menu 'variable-documentation)
+                       sesman-menu))
+
 
 ;;; System Generic