branch: elpa/sesman
commit fea061de1657d738e2fa3f1c2c0006b6357df1e8
Author: Vitalie Spinu <spinu...@gmail.com>
Commit: Vitalie Spinu <spinu...@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
