From 14a6f6032ff989103ef4ca6fea72730d23199774 Mon Sep 17 00:00:00 2001 From: Andreas Gerler Date: Tue, 1 Mar 2022 14:04:47 +0100 Subject: [PATCH] fix my-sql-connect Add key binding and add prefix to open more connections. Signed-off-by: Andreas Gerler --- bba.org | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) 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: -- 2.47.3