[elpa] externals/detached d58f815d91 6/7: Add more display buffer customization options

[ELPA Syncer]

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

    Add more display buffer customization options
---
 detached-list.el | 16 +++++++++++++---
 detached.el      | 12 ++++++++++--
 2 files changed, 23 insertions(+), 5 deletions(-)

diff --git a/detached-list.el b/detached-list.el
index 9404ac6d7a..6929037ee6 100644
--- a/detached-list.el
+++ b/detached-list.el
@@ -47,12 +47,20 @@
                                   (:face symbol))))
   :group 'detached)
 
-(defcustom detached-list-display-buffer-action '(display-buffer-same-window
-                                                 (inhibit-same-window . nil))
+(defcustom detached-list-display-buffer-action
+  '(display-buffer-same-window
+    (inhibit-same-window . nil))
   "The action used to display the detached list buffer."
   :group 'detached
   :type 'sexp)
 
+(defcustom detached-list-open-session-display-buffer-action
+  '(display-buffer-same-window
+    (inhibit-same-window . nil))
+  "The action used to display a detached session."
+  :group 'detached
+  :type 'sexp)
+
 (defcustom detached-list-filters nil
   "An alist of custom filters that can be applied.
 
@@ -187,7 +195,9 @@ Optionally SUPPRESS-OUTPUT."
 (defun detached-list-open-session ()
   "View session."
   (interactive)
-  (let ((session (tabulated-list-get-id)))
+  (let ((session (tabulated-list-get-id))
+        (detached-open-session-display-buffer-action
+         detached-list-open-session-display-buffer-action))
     (when (> (length (window-list)) 1)
       (delete-window (get-buffer-window)))
     (detached-open-session session)))
diff --git a/detached.el b/detached.el
index 8e5ac5a7ad..7e2024e922 100644
--- a/detached.el
+++ b/detached.el
@@ -191,6 +191,12 @@ If set to a non nil value the latest entry to
   :type 'float
   :group 'detached)
 
+(defcustom detached-open-session-display-buffer-action
+  '(display-buffer-pop-up-window)
+  "The action used to display a detached session."
+  :group 'detached
+  :type 'sexp)
+
 ;;;;; Public
 
 (defvar detached-enabled nil)
@@ -427,7 +433,8 @@ The session is compiled by opening its output and enabling
           (font-lock-mode)
           (read-only-mode)
           (goto-char (point-max)))
-        (pop-to-buffer buffer-name)))))
+        (select-window
+         (display-buffer buffer-name 
detached-open-session-display-buffer-action))))))
 
 ;;;###autoload
 (defun detached-rerun-session (session &optional suppress-output)
@@ -534,7 +541,8 @@ Optionally DELETE the session if prefix-argument is 
provided."
                 (detached-log-mode))
               (setq detached--buffer-session session)
               (goto-char (point-max)))
-            (pop-to-buffer buffer-name))
+            (select-window
+             (display-buffer buffer-name 
detached-open-session-display-buffer-action)))
         (message "Detached can't find file: %s" file-path)))))
 
 ;;;###autoload