[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master b265d3c 2/7: multishell-list-open-as-default - new operati
From: |
ken manheimer |
Subject: |
[elpa] master b265d3c 2/7: multishell-list-open-as-default - new operation, on "O" |
Date: |
Sat, 30 Jan 2016 23:26:06 +0000 |
branch: master
commit b265d3c65a823c2b3ae703a2c6e22acb8b78387c
Author: Ken Manheimer <address@hidden>
Commit: Ken Manheimer <address@hidden>
multishell-list-open-as-default - new operation, on "O"
---
multishell-list.el | 6 ++++++
1 files changed, 6 insertions(+), 0 deletions(-)
diff --git a/multishell-list.el b/multishell-list.el
index 882a1d1..578abdb 100644
--- a/multishell-list.el
+++ b/multishell-list.el
@@ -14,6 +14,11 @@
"Pop to current entry's shell, and refresh the listing buffer."
(interactive)
(multishell-pop-to-shell nil (tabulated-list-get-id)))
+(defun multishell-list-open-as-default ()
+ "Pop to current entry's shell, and set as the default shell."
+ (interactive)
+ (message "%s <==" (multishell-name-from-entry (tabulated-list-get-id)))
+ (multishell-pop-to-shell '(16) (tabulated-list-get-id)))
(defun multishell-list-open-here ()
"Switch to current entry's shell buffer."
(interactive)
@@ -119,6 +124,7 @@
(define-key multishell-list-mode-map (kbd "d") 'multishell-list-delete)
(define-key multishell-list-mode-map (kbd "e") 'multishell-list-edit-entry)
(define-key multishell-list-mode-map (kbd "o") 'multishell-list-open-pop)
+(define-key multishell-list-mode-map (kbd "O")
'multishell-list-open-as-default)
(define-key multishell-list-mode-map
(kbd "<return>") 'multishell-list-open-here)
- [elpa] master updated (19862ff -> 2d1062d), ken manheimer, 2016/01/30
- [elpa] master b265d3c 2/7: multishell-list-open-as-default - new operation, on "O",
ken manheimer <=
- [elpa] master 79384cc 5/7: multishell-list - refer to multishell.el for commentary, etc., ken manheimer, 2016/01/30
- [elpa] master 07e6318 4/7: multishell - more shaking out of initial multishell-list glitches, ken manheimer, 2016/01/30
- [elpa] master 6145889 1/7: multishell-list-edit-entry - make actual buffer name track edit, ken manheimer, 2016/01/30
- [elpa] master 0bb7575 6/7: multishell - set rev to 1.1.1, ken manheimer, 2016/01/30
- [elpa] master 4c06767 3/7: multishell - shake out some initial multishell-list glitches, ken manheimer, 2016/01/30
- [elpa] master 2d1062d 7/7: multishell - merge 1.1.1, ken manheimer, 2016/01/30