emacs-elpa-diffs
[Top][All Lists]
Advanced

[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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]