blob: ac24b913510401b2923ae3f51f9b45bd4b7ea280 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
;;; init-sql.el --- LSP Configuration File -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(use-package sql
:ensure nil
:commands add-sql-connection
:config
;; partially inspired by https://dev.to/viglioni/emacs-as-sql-client-with-lsp-143l (but currently only works for postgres)
(defun add-sql-connection (name product port server user password database extra)
(let ((driver (if (eq product 'postgres)
"postgresql"
(symbol-name product))))
(when (not (boundp 'sql-connection-alist))
(setq sql-connection-alist nil))
(add-to-list 'sql-connection-alist (list name
(list 'sql-product `(quote ,product))
(list 'sql-port port)
(list 'sql-server server)
(list 'sql-user user)
(list 'sql-password password)
(list 'sql-database (format "%s://%s:%s@%s:%s/%s?%s" product user password server port database extra))))
(when (not (boundp 'lsp-sqls-connections))
(setq lsp-sqls-connections nil))
(add-to-list 'lsp-sqls-connections (list (cons 'driver driver) (cons 'dataSourceName (format "host=%s port=%s user=%s password=%s dbname=%s sslmode=disable" server port user password database ))))))
;; https://www.emacswiki.org/emacs/SqlMode
(defun my-sql-save-history-hook ()
(let ((lval 'sql-input-ring-file-name)
(rval 'sql-product))
(if (symbol-value rval)
(let ((filename
(concat "~/.emacs.d/sql/"
(symbol-name (symbol-value rval))
"-history.sql")))
(set (make-local-variable lval) filename))
(error
(format "SQL history will not be saved because %s is nil"
(symbol-name rval))))))
(add-hook 'sql-interactive-mode-hook 'my-sql-save-history-hook))
(use-package sqlup-mode
:diminish
:hook
(sql-mode . sqlup-mode)
(sql-interactive-mode . sqlup-mode)
:bind ("C-c c u" . sqlup-capitalize-keywords-in-region))
(use-package sql-indent
:commands sqlind-minor-mode)
(use-package sqlformat
:bind (:map sql-mode-map ("C-c C-f" . sqlformat)))
(provide 'init-sql)
;;; init-sql.el ends here
|