[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/detached a1075c6488: Add view key-binding in detached-l
From: |
ELPA Syncer |
Subject: |
[elpa] externals/detached a1075c6488: Add view key-binding in detached-list |
Date: |
Mon, 17 Oct 2022 12:57:31 -0400 (EDT) |
branch: externals/detached
commit a1075c64886d5d2b67a6f04079862c495c3fcd0c
Author: Niklas Eklund <niklas.eklund@posteo.net>
Commit: Niklas Eklund <niklas.eklund@posteo.net>
Add view key-binding in detached-list
---
detached-list.el | 9 +++++++++
1 file changed, 9 insertions(+)
diff --git a/detached-list.el b/detached-list.el
index 1d555dab65..ac18160f88 100644
--- a/detached-list.el
+++ b/detached-list.el
@@ -191,6 +191,14 @@ Optionally DELETE the session if prefix-argument is
provided."
(detached-list--get-marked-or-current-sessions))
(detached-list-revert)))
+(defun detached-list-view-session (session)
+ "View SESSION."
+ (interactive
+ (list (detached--get-session major-mode)))
+ (let ((detached-open-session-display-buffer-action
+ detached-list-open-session-display-buffer-action))
+ (detached-view-dwim session)))
+
(defun detached-list-rerun-session (session &optional suppress-output)
"Rerun SESSION at point.
@@ -738,6 +746,7 @@ If prefix-argument is provided unmark instead of mark."
(define-key map (kbd "T") #'detached-list-toggle-sessions)
(define-key map (kbd "u") #'detached-list-unmark-session)
(define-key map (kbd "U") #'detached-list-unmark-sessions)
+ (define-key map (kbd "v") #'detached-list-view-session)
(define-key map (kbd "w") #'detached-list-copy-session-command)
(define-key map (kbd "W") #'detached-list-copy-session-output)
(define-key map (kbd "x") #'detached-list-detach-from-session)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/detached a1075c6488: Add view key-binding in detached-list,
ELPA Syncer <=