[elpa] externals/detached 33d31b1619 17/22: Add command to open session log file in dired

[ELPA Syncer]

branch: externals/detached
commit 33d31b1619787077a279d05d9c0c8a4f8c30f1c7
Author: Niklas Eklund <niklas.eklund@posteo.net>
Commit: Niklas Eklund <niklas.eklund@posteo.net>

    Add command to open session log file in dired
---
 detached-init.el |  2 ++
 detached.el      | 11 +++++++++++
 2 files changed, 13 insertions(+)

diff --git a/detached-init.el b/detached-init.el
index b6bcda7543..6576c918fc 100644
--- a/detached-init.el
+++ b/detached-init.el
@@ -31,6 +31,7 @@
 (declare-function detached-compile-session "detached")
 (declare-function detached-delete-session "detached")
 (declare-function detached-insert-session-command "detached")
+(declare-function detached-open-session-directory "detached")
 (declare-function detached-kill-session "detached")
 (declare-function detached-rerun-session "detached")
 (declare-function detached-tail-session "detached")
@@ -78,6 +79,7 @@
     (define-key map "c" #'detached-compile-session)
     (define-key map "d" #'detached-delete-session)
     (define-key map "i" #'detached-insert-session-command)
+    (define-key map "f" #'detached-open-session-directory)
     (define-key map "k" #'detached-kill-session)
     (define-key map "r" #'detached-rerun-session)
     (define-key map "t" #'detached-tail-session)
diff --git a/detached.el b/detached.el
index 0ce5e93223..4f76cef42c 100644
--- a/detached.el
+++ b/detached.el
@@ -520,6 +520,17 @@ Optionally DELETE the session if prefix-argument is 
provided."
           (detached-log-mode)))
       (ediff-buffers buffer1 buffer2))))
 
+;;;###autoload
+(defun detached-open-session-directory (session)
+  "Open SESSION's log directory."
+  (interactive
+   (list (detached-completing-read (detached-get-sessions))))
+  (let* ((file-path
+          (detached--session-file session 'log))
+         (tramp-verbose 1))
+    (when (file-exists-p file-path)
+      (dired-jump-other-window file-path))))
+
 ;;;###autoload
 (defun detached-detach-session ()
   "Detach from session in current buffer.