[nongnu] elpa/hyperdrive 6252ee1ba8 1/2: Change: (h/{directory, history}-display-buffer-action) Improve :type

[ELPA Syncer]

branch: elpa/hyperdrive
commit 6252ee1ba84a15c3eb9f53fb253590247759115f
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>

    Change: (h/{directory,history}-display-buffer-action) Improve :type
---
 hyperdrive-vars.el | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/hyperdrive-vars.el b/hyperdrive-vars.el
index 403453a386..6a0db9c2a3 100644
--- a/hyperdrive-vars.el
+++ b/hyperdrive-vars.el
@@ -86,10 +86,7 @@ Passed to `format-time-string', which see."
   '(display-buffer-same-window)
   "Display buffer action for hyperdrive directories.
 Passed to `display-buffer', which see."
-  ;; TODO: Perhaps use `display-buffer--action-custom-type'?
-  :type '(choice (const :tag "Same window" (display-buffer-same-window))
-                 (const :tag "Pop up window" (display-buffer-pop-up-window))
-                 (sexp :tag "Other")))
+  :type display-buffer--action-custom-type)
 
 (defcustom h/directory-sort '(name . :ascending)
   "Column by which directory entries are sorted.
@@ -114,9 +111,7 @@ one of the directory listing columns (\\+`name', \\+`size', 
or
   '(display-buffer-same-window)
   "Display buffer action for hyperdrive history buffers.
 Passed to `display-buffer', which see."
-  :type '(choice (const :tag "Same window" (display-buffer-same-window))
-                 (const :tag "Pop up window" (display-buffer-pop-up-window))
-                 (sexp :tag "Other")))
+  :type display-buffer--action-custom-type)
 
 (defcustom h/stream-player-command "mpv --force-window=immediate %s"
   "Command used to play streamable URLs externally.