From: Andreas Gerler <baron@bundesbrandschatzamt.de>
Date: Tue, 1 Mar 2022 13:04:47 +0000 (+0100)
Subject: fix my-sql-connect
X-Git-Url: http://git.bundesbrandschatzamt.de/?a=commitdiff_plain;h=14a6f6032ff989103ef4ca6fea72730d23199774;p=emacsconfig.git

fix my-sql-connect

Add key binding and add prefix to open more connections.

Signed-off-by: Andreas Gerler <baron@bundesbrandschatzamt.de>
---

diff --git a/bba.org b/bba.org
index c2838272..1d14e227 100644
--- a/bba.org
+++ b/bba.org
@@ -3126,15 +3126,15 @@ starting sql-connect.
   (defun my-sql-connect ()
     (interactive)
     (require 'my-password "~/.emacs_secrets.el.gpg")
-    (setq sql-product 'vertica)
     (let ((connection (helm-comp-read
                        "Select server: "
                        my-sql-servers-alist
                        )))
-      (sql-connect connection))
-    (sql-rename-buffer)
-    )
-
+      (message connection)
+      (if current-prefix-arg
+          (sql-connect connection connection)
+        (sql-connect connection))))
+  (global-set-key (kbd "s-s") 'my-sql-connect)
 #+END_SRC
 
 your =~/.emacs_secrets.el.gpg= might look like: