fix my-sql-connect

Add key binding and add prefix to open more connections.

Signed-off-by: Andreas Gerler <baronNOSPAMbundesbrandschatzamt.de>

diff --git a/bba.org b/bba.org
index c2838272dd40e71ea4ae6a9e482ed732ab30387b..1d14e22782339c914b5e72fe295803aec2064d34 100644 (file)
--- 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: