From 573f02f31db83c0d84b4cb7adccd3fa623f757a0 Mon Sep 17 00:00:00 2001
From: Hugo Heagren <hugo@heagren.com>
Date: Wed, 22 Sep 2021 16:16:18 +0100
Subject: [PATCH] Cmds like counsel-find-file: Add action on 't' to open in
 other tab

Add action to open in other tab-bar tab to:
- counsel-find-file
- counsel-recentf
- counsel-buffer-or-recentf
- counsel-switch-buffer
- ivy-switch-buffer
---
 counsel.el | 6 +++++-
 ivy.el     | 3 +++
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/counsel.el b/counsel.el
index 43bc9984..30d65af7 100644
--- a/counsel.el
+++ b/counsel.el
@@ -1937,6 +1937,7 @@ choose between `yes-or-no-p' and `y-or-n-p'; otherwise default to
  'counsel-find-file
  '(("j" find-file-other-window "other window")
    ("f" find-file-other-frame "other frame")
+   ("t" find-file-other-tab "other tab")
    ("b" counsel-find-file-cd-bookmark-action "cd bookmark")
    ("x" counsel-find-file-extern "open externally")
    ("r" counsel-find-file-as-root "open as root")
@@ -2331,6 +2332,7 @@ https://www.freedesktop.org/wiki/Specifications/desktop-bookmark-spec"))
  'counsel-recentf
  `(("j" find-file-other-window "other window")
    ("f" find-file-other-frame "other frame")
+   ("t" find-file-other-tab "other tab")
    ("x" counsel-find-file-extern "open externally")
    ("d" ,(lambda (file) (setq recentf-list (delete file recentf-list)))
     "delete from recentf")))
@@ -2441,6 +2443,7 @@ This function uses the `dom' library from Emacs 25.1 or later."
  'counsel-buffer-or-recentf
  '(("j" find-file-other-window "other window")
    ("f" find-file-other-frame "other frame")
+   ("t" find-file-other-tab "other tab")
    ("x" counsel-find-file-extern "open externally")))
 
 (defun counsel-buffer-or-recentf-transformer (var)
@@ -6341,7 +6344,8 @@ in the current window."
 (ivy-set-actions
  'counsel-switch-buffer
  '(("x" counsel-open-buffer-file-externally "open externally")
-   ("j" ivy--switch-buffer-other-window-action "other window")))
+   ("j" ivy--switch-buffer-other-window-action "other window")
+   ("t" 'switch-to-buffer-other-tab "other tab")))
 
 ;;** `counsel-compile'
 (defvar counsel-compile-history nil
diff --git a/ivy.el b/ivy.el
index 851d272e..161dbd11 100644
--- a/ivy.el
+++ b/ivy.el
@@ -4510,6 +4510,9 @@ Otherwise, forward to `ivy-kill-line'."
    ("j"
     ivy--switch-buffer-other-window-action
     "other window")
+   ("t"
+    switch-to-buffer-other-tab
+    "other tab")
    ("k"
     ivy--kill-buffer-action
     "kill")