spacemacs/layers/+lang/sql/packages.el

237 lines
8.9 KiB
EmacsLisp
Raw Normal View History

2015-04-13 22:33:27 +00:00
;;; packages.el --- sql Layer packages File for Spacemacs
;;
;; Copyright (c) 2012-2022 Sylvain Benner & Contributors
2015-04-13 22:33:27 +00:00
;;
;; Author: Brian Hicks <brian@brianthicks.com>
2015-04-13 22:33:27 +00:00
;; URL: https://github.com/syl20bnr/spacemacs
;;
;; This file is not part of GNU Emacs.
;;
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
2015-04-13 22:33:27 +00:00
(setq sql-packages
'(
2017-06-07 14:45:47 +00:00
company
2019-03-26 07:56:49 +00:00
org
sql
;; This mode is more up-to-date than the MELPA one.
;; Turns out that it is available in GNU ELPA but we cannot
;; force Spacemacs to fetch from it for now, it will always
;; pickup the MELPA version. So for now we use an explicit
;; recip to fetch from GitHUb the package.
(sql-indent :location (recipe
:fetcher github
:repo "alex-hhh/emacs-sql-indent"
:files ("sql-indent.el")))
(sqlfmt :location local)
(sqlup-mode :toggle sql-capitalize-keywords)
))
2015-04-13 22:33:27 +00:00
(defun sql/init-sql ()
(use-package sql
:defer t
:init
(progn
(spacemacs/register-repl 'sql 'spacemacs/sql-start "sql")
(add-hook 'sql-mode-hook
'spacemacs//sql-setup-backend))
2015-04-25 04:26:44 +00:00
:config
2015-04-13 22:33:27 +00:00
(progn
(setq
;; should not set this to anything else than nil
;; the focus of SQLi is handled by spacemacs conventions
sql-pop-to-buffer-after-send-region nil)
(advice-add 'sql-add-product :after #'spacemacs/sql-populate-products-list)
(advice-add 'sql-del-product :after #'spacemacs/sql-populate-products-list)
(spacemacs/sql-populate-products-list)
2015-04-25 04:26:44 +00:00
(defun spacemacs//sql-source (products)
"return a source for helm selection"
`((name . "SQL Products")
(candidates . ,(mapcar (lambda (product)
(cons (sql-get-product-feature (car product) :name)
(car product)))
products))
(action . (lambda (candidate) (helm-marked-candidates)))))
(defun spacemacs/sql-highlight ()
"set SQL dialect-specific highlighting"
(interactive)
(let ((product (car (helm
:sources (list (spacemacs//sql-source spacemacs-sql-highlightable))))))
(sql-set-product product)))
(defun spacemacs/sql-start ()
"set SQL dialect-specific highlighting and start inferior SQLi process"
(interactive)
(let ((product (car (helm
:sources (list (spacemacs//sql-source spacemacs-sql-startable))))))
(sql-set-product product)
(sql-product-interactive product)))
2015-04-24 05:05:06 +00:00
(defun spacemacs/sql-send-string-and-focus ()
"Send a string to SQLi and switch to SQLi in `insert state'."
(interactive)
(let ((sql-pop-to-buffer-after-send-region t))
(call-interactively 'sql-send-string)
Use evil in holy-mode Motivation While disabling Evil in holy-mode makes its implementation shorter and sounds elegant on the paper, in practice it puts a big burden on the configuration parts which need to know if Evil is enable or not. This is a bad separation of concerns and the bunch of fixes that we were forced to do in the past weeks shows this issue. Those fixes were about removing the knowledge of the activation of Evil by implementing new dispatching functions to be used by layers, this is cumbersome and makes Spacemacs layer configuration more subtle which is not good. There was additional bad consequences of the removal of Evil state like the impossibility to use Evil lisp state or iedit states, or we would have been forced to implement a temporary activation of Evil which is awkward. Instead I reintroduce Evil as the central piece of Spacemacs design thus Evil is now re-enabled in holy-mode. It provides the abstraction we need to isolate editing styles and be able to grow the Spacemacs configuration coverage sanely. Layers don't need to check whether the holy mode is active or not and they don't need to know if Evil is available (it is always available). We also don't need to write additional dispatching functions, this is the job of Evil, and I think it provides everything for this. Ideally configuration layer should be implemented with only Evil in mind and the holy-mode (and hybrid-mode) should magically make it work for Emacs style users, for instance we can freely use `evil-insert-state` anywhere in the code without any guard. Evil is now even more part of Spacemacs, we can really say that Spacemacs is Emacs+Evil which is now an indivisible pair. Spacemacs needed this stable API to continue on the right track. While these changes should be rather transparent to the user, I'm sorry for this experimental period, I failed to see all the implications of such a change, I was just excited about the possibility to make Evil optional. The reality is that Spacemacs has to embrace it and keep its strong position on being Emacs+Evil at the core. Implementation - insert, motion and normal states are forced to emacs state using an advice on `evil-insert-state`, `evil-motion-state` and `evil-normal-state` respectively. These functions can be used freely in the layer configuration. - A new general hook `spacemacs-editing-style-hook` allow to hook any code that need to be configured based on the editing style. Functions hooked to this hook takes the current style as parameter, this basically generalize the hook used to setup hjkl navigation bindings. - ESC has been removed from the emacs state map. - Revert unneeded changes - Revert "evil: enter insert-state only from normal-state" commit bdd702dfbe302206bbc989c7a0832daba087a781. - Revert "avoid being evil in deft with emacs editing style" commit f3a16f49ed27cc8cf05f23f93b006d6e04235381. Additional changes All editing style packages have been moved to a layer called `spacemacs-editing-styles` Notes I did not have time to attack hybrid mode, I should be able to do it later.
2016-03-13 23:41:18 +00:00
(evil-insert-state)))
2015-04-24 05:05:06 +00:00
(defun spacemacs/sql-send-buffer-and-focus ()
"Send the buffer to SQLi and switch to SQLi in `insert state'."
(interactive)
(let ((sql-pop-to-buffer-after-send-region t))
(sql-send-buffer)
Use evil in holy-mode Motivation While disabling Evil in holy-mode makes its implementation shorter and sounds elegant on the paper, in practice it puts a big burden on the configuration parts which need to know if Evil is enable or not. This is a bad separation of concerns and the bunch of fixes that we were forced to do in the past weeks shows this issue. Those fixes were about removing the knowledge of the activation of Evil by implementing new dispatching functions to be used by layers, this is cumbersome and makes Spacemacs layer configuration more subtle which is not good. There was additional bad consequences of the removal of Evil state like the impossibility to use Evil lisp state or iedit states, or we would have been forced to implement a temporary activation of Evil which is awkward. Instead I reintroduce Evil as the central piece of Spacemacs design thus Evil is now re-enabled in holy-mode. It provides the abstraction we need to isolate editing styles and be able to grow the Spacemacs configuration coverage sanely. Layers don't need to check whether the holy mode is active or not and they don't need to know if Evil is available (it is always available). We also don't need to write additional dispatching functions, this is the job of Evil, and I think it provides everything for this. Ideally configuration layer should be implemented with only Evil in mind and the holy-mode (and hybrid-mode) should magically make it work for Emacs style users, for instance we can freely use `evil-insert-state` anywhere in the code without any guard. Evil is now even more part of Spacemacs, we can really say that Spacemacs is Emacs+Evil which is now an indivisible pair. Spacemacs needed this stable API to continue on the right track. While these changes should be rather transparent to the user, I'm sorry for this experimental period, I failed to see all the implications of such a change, I was just excited about the possibility to make Evil optional. The reality is that Spacemacs has to embrace it and keep its strong position on being Emacs+Evil at the core. Implementation - insert, motion and normal states are forced to emacs state using an advice on `evil-insert-state`, `evil-motion-state` and `evil-normal-state` respectively. These functions can be used freely in the layer configuration. - A new general hook `spacemacs-editing-style-hook` allow to hook any code that need to be configured based on the editing style. Functions hooked to this hook takes the current style as parameter, this basically generalize the hook used to setup hjkl navigation bindings. - ESC has been removed from the emacs state map. - Revert unneeded changes - Revert "evil: enter insert-state only from normal-state" commit bdd702dfbe302206bbc989c7a0832daba087a781. - Revert "avoid being evil in deft with emacs editing style" commit f3a16f49ed27cc8cf05f23f93b006d6e04235381. Additional changes All editing style packages have been moved to a layer called `spacemacs-editing-styles` Notes I did not have time to attack hybrid mode, I should be able to do it later.
2016-03-13 23:41:18 +00:00
(evil-insert-state)))
2015-04-24 05:05:06 +00:00
(defun spacemacs/sql-send-paragraph-and-focus ()
"Send the paragraph to SQLi and switch to SQLi in `insert state'."
(interactive)
(let ((sql-pop-to-buffer-after-send-region t))
(sql-send-paragraph)
Use evil in holy-mode Motivation While disabling Evil in holy-mode makes its implementation shorter and sounds elegant on the paper, in practice it puts a big burden on the configuration parts which need to know if Evil is enable or not. This is a bad separation of concerns and the bunch of fixes that we were forced to do in the past weeks shows this issue. Those fixes were about removing the knowledge of the activation of Evil by implementing new dispatching functions to be used by layers, this is cumbersome and makes Spacemacs layer configuration more subtle which is not good. There was additional bad consequences of the removal of Evil state like the impossibility to use Evil lisp state or iedit states, or we would have been forced to implement a temporary activation of Evil which is awkward. Instead I reintroduce Evil as the central piece of Spacemacs design thus Evil is now re-enabled in holy-mode. It provides the abstraction we need to isolate editing styles and be able to grow the Spacemacs configuration coverage sanely. Layers don't need to check whether the holy mode is active or not and they don't need to know if Evil is available (it is always available). We also don't need to write additional dispatching functions, this is the job of Evil, and I think it provides everything for this. Ideally configuration layer should be implemented with only Evil in mind and the holy-mode (and hybrid-mode) should magically make it work for Emacs style users, for instance we can freely use `evil-insert-state` anywhere in the code without any guard. Evil is now even more part of Spacemacs, we can really say that Spacemacs is Emacs+Evil which is now an indivisible pair. Spacemacs needed this stable API to continue on the right track. While these changes should be rather transparent to the user, I'm sorry for this experimental period, I failed to see all the implications of such a change, I was just excited about the possibility to make Evil optional. The reality is that Spacemacs has to embrace it and keep its strong position on being Emacs+Evil at the core. Implementation - insert, motion and normal states are forced to emacs state using an advice on `evil-insert-state`, `evil-motion-state` and `evil-normal-state` respectively. These functions can be used freely in the layer configuration. - A new general hook `spacemacs-editing-style-hook` allow to hook any code that need to be configured based on the editing style. Functions hooked to this hook takes the current style as parameter, this basically generalize the hook used to setup hjkl navigation bindings. - ESC has been removed from the emacs state map. - Revert unneeded changes - Revert "evil: enter insert-state only from normal-state" commit bdd702dfbe302206bbc989c7a0832daba087a781. - Revert "avoid being evil in deft with emacs editing style" commit f3a16f49ed27cc8cf05f23f93b006d6e04235381. Additional changes All editing style packages have been moved to a layer called `spacemacs-editing-styles` Notes I did not have time to attack hybrid mode, I should be able to do it later.
2016-03-13 23:41:18 +00:00
(evil-insert-state)))
2015-04-24 05:05:06 +00:00
(defun spacemacs/sql-send-region-and-focus (start end)
"Send region to SQLi and switch to SQLi in `insert state'."
(interactive "r")
(let ((sql-pop-to-buffer-after-send-region t))
(sql-send-region start end)
Use evil in holy-mode Motivation While disabling Evil in holy-mode makes its implementation shorter and sounds elegant on the paper, in practice it puts a big burden on the configuration parts which need to know if Evil is enable or not. This is a bad separation of concerns and the bunch of fixes that we were forced to do in the past weeks shows this issue. Those fixes were about removing the knowledge of the activation of Evil by implementing new dispatching functions to be used by layers, this is cumbersome and makes Spacemacs layer configuration more subtle which is not good. There was additional bad consequences of the removal of Evil state like the impossibility to use Evil lisp state or iedit states, or we would have been forced to implement a temporary activation of Evil which is awkward. Instead I reintroduce Evil as the central piece of Spacemacs design thus Evil is now re-enabled in holy-mode. It provides the abstraction we need to isolate editing styles and be able to grow the Spacemacs configuration coverage sanely. Layers don't need to check whether the holy mode is active or not and they don't need to know if Evil is available (it is always available). We also don't need to write additional dispatching functions, this is the job of Evil, and I think it provides everything for this. Ideally configuration layer should be implemented with only Evil in mind and the holy-mode (and hybrid-mode) should magically make it work for Emacs style users, for instance we can freely use `evil-insert-state` anywhere in the code without any guard. Evil is now even more part of Spacemacs, we can really say that Spacemacs is Emacs+Evil which is now an indivisible pair. Spacemacs needed this stable API to continue on the right track. While these changes should be rather transparent to the user, I'm sorry for this experimental period, I failed to see all the implications of such a change, I was just excited about the possibility to make Evil optional. The reality is that Spacemacs has to embrace it and keep its strong position on being Emacs+Evil at the core. Implementation - insert, motion and normal states are forced to emacs state using an advice on `evil-insert-state`, `evil-motion-state` and `evil-normal-state` respectively. These functions can be used freely in the layer configuration. - A new general hook `spacemacs-editing-style-hook` allow to hook any code that need to be configured based on the editing style. Functions hooked to this hook takes the current style as parameter, this basically generalize the hook used to setup hjkl navigation bindings. - ESC has been removed from the emacs state map. - Revert unneeded changes - Revert "evil: enter insert-state only from normal-state" commit bdd702dfbe302206bbc989c7a0832daba087a781. - Revert "avoid being evil in deft with emacs editing style" commit f3a16f49ed27cc8cf05f23f93b006d6e04235381. Additional changes All editing style packages have been moved to a layer called `spacemacs-editing-styles` Notes I did not have time to attack hybrid mode, I should be able to do it later.
2016-03-13 23:41:18 +00:00
(evil-insert-state)))
2015-04-24 05:05:06 +00:00
(defun spacemacs/sql-send-line-and-next-and-focus ()
"Send the current line to SQLi and switch to SQLi in `insert state'."
(interactive)
(let ((sql-pop-to-buffer-after-send-region t))
(sql-send-line-and-next)))
(defun spacemacs/sql-send-string ()
"Send a string to SQLi and stays in the same region."
(interactive)
(let ((sql-pop-to-buffer-after-send-region nil))
(call-interactively 'sql-send-string)))
(defun spacemacs/sql-send-buffer ()
"Send the buffer to SQLi and stays in the same region."
(interactive)
(let ((sql-pop-to-buffer-after-send-region nil))
(sql-send-buffer)))
(defun spacemacs/sql-send-paragraph ()
"Send the paragraph to SQLi and stays in the same region."
(interactive)
(let ((sql-pop-to-buffer-after-send-region nil))
(sql-send-paragraph)))
(defun spacemacs/sql-send-region (start end)
"Send region to SQLi and stays in the same region."
(interactive "r")
(let ((sql-pop-to-buffer-after-send-region nil))
(sql-send-region start end)))
(defun spacemacs/sql-send-line-and-next ()
"Send the current line to SQLi and stays in the same region."
(interactive)
(let ((sql-pop-to-buffer-after-send-region nil))
(sql-send-line-and-next)))
2017-10-13 14:50:35 +00:00
(spacemacs/declare-prefix-for-mode 'sql-mode "mb" "buffer")
(spacemacs/declare-prefix-for-mode 'sql-mode "mg" "goto")
2017-10-13 14:50:35 +00:00
(spacemacs/declare-prefix-for-mode 'sql-mode "mh" "dialects")
(spacemacs/declare-prefix-for-mode 'sql-mode "ml" "listing")
(spacemacs/declare-prefix-for-mode 'sql-mode "ms" "REPL")
(spacemacs/set-leader-keys-for-major-mode 'sql-mode
"'" 'spacemacs/sql-start
2015-04-13 22:33:27 +00:00
;; sqli buffer
"bb" 'sql-show-sqli-buffer
"bc" 'sql-connect
"bs" 'sql-set-sqli-buffer
2015-04-13 22:33:27 +00:00
;; dialects
"hk" 'spacemacs/sql-highlight
2015-04-13 22:33:27 +00:00
;; repl
"sb" 'sql-send-buffer
"sB" 'spacemacs/sql-send-buffer-and-focus
"si" 'spacemacs/sql-start
2015-04-24 05:05:06 +00:00
;; paragraph gets "f" here because they can be assimilated to functions.
2015-04-25 04:26:44 +00:00
;; If you separate your commands in a SQL file, this key will send the
;; command around point, which is what you probably want.
"sf" 'spacemacs/sql-send-paragraph
"sF" 'spacemacs/sql-send-paragraph-and-focus
"sl" 'spacemacs/sql-send-line-and-next
"sL" 'spacemacs/sql-send-line-and-next-and-focus
"sq" 'spacemacs/sql-send-string
"sQ" 'spacemacs/sql-send-string-and-focus
"sr" 'spacemacs/sql-send-region
"sR" 'spacemacs/sql-send-region-and-focus
2015-04-13 22:33:27 +00:00
;; listing
"la" 'sql-list-all
"lt" 'sql-list-table)
2015-04-13 22:33:27 +00:00
2017-10-13 14:50:35 +00:00
(spacemacs/declare-prefix-for-mode 'sql-interactive-mode "mb" "buffer")
(spacemacs/set-leader-keys-for-major-mode 'sql-interactive-mode
2015-04-13 22:33:27 +00:00
;; sqli buffer
"br" 'sql-rename-buffer
"bS" 'sql-save-connection)
2015-04-13 22:33:27 +00:00
(add-hook 'sql-interactive-mode-hook
2020-06-25 12:42:37 +00:00
(lambda () (toggle-truncate-lines t)))
;; lsp-sqls
(let ((path-config (cond
((equal sql-lsp-sqls-workspace-config-path 'workspace) "workspace")
((equal sql-lsp-sqls-workspace-config-path 'root) "root")
(t nil))))
(setq lsp-sqls-workspace-config-path path-config)))))
2015-04-13 22:33:27 +00:00
(defun sql/init-sql-indent ()
(use-package sql-indent
2018-07-31 08:17:48 +00:00
:if sql-auto-indent
2018-06-16 07:13:04 +00:00
:defer t
:init (add-hook 'sql-mode-hook 'sqlind-minor-mode)
:config (spacemacs|hide-lighter sqlind-minor-mode)))
(defun sql/init-sqlfmt ()
(use-package sqlfmt
:commands sqlfmt-buffer
:init
(spacemacs/declare-prefix-for-mode 'sql-mode "m=" "formatting")
(spacemacs/set-leader-keys-for-major-mode 'sql-mode
"=r" 'sqlfmt-region
"==" 'sqlfmt-buffer)))
(defun sql/init-sqlup-mode ()
(use-package sqlup-mode
:defer t
:init
(progn
(add-hook 'sql-mode-hook 'sqlup-mode)
(unless sql-capitalize-keywords-disable-interactive
(add-hook 'sql-interactive-mode-hook 'sqlup-mode))
(spacemacs/set-leader-keys-for-major-mode 'sql-mode
"c" 'sqlup-capitalize-keywords-in-region))
:config
(progn
2018-06-16 07:13:04 +00:00
(spacemacs|hide-lighter sqlup-mode)
(setq sqlup-blacklist (append sqlup-blacklist
sql-capitalize-keywords-blacklist)))))
2017-06-07 14:45:47 +00:00
(defun sql/post-init-company ()
2020-06-25 12:42:37 +00:00
(spacemacs//sql-setup-company))
2019-03-26 07:56:49 +00:00
(defun sql/pre-init-org ()
(spacemacs|use-package-add-hook org
:post-config (add-to-list 'org-babel-load-languages '(sql . t))))