Emacs personal configuration
Вы не можете выбрать более 25 тем Темы должны начинаться с буквы или цифры, могут содержать дефисы(-) и должны содержать не более 35 символов.

43 lines
1.5KB

  1. (require-package 'sql-indent)
  2. (after-load 'sql
  3. (require 'sql-indent))
  4. (defun sanityinc/pop-to-sqli-buffer ()
  5. "Switch to the corresponding sqli buffer."
  6. (interactive)
  7. (if sql-buffer
  8. (progn
  9. (pop-to-buffer sql-buffer)
  10. (goto-char (point-max)))
  11. (sql-set-sqli-buffer)
  12. (when sql-buffer
  13. (sanityinc/pop-to-sqli-buffer))))
  14. (after-load 'sql
  15. (define-key sql-mode-map (kbd "C-c C-z") 'sanityinc/pop-to-sqli-buffer)
  16. (add-hook 'sql-interactive-mode-hook 'sanityinc/never-indent)
  17. (when (package-installed-p 'dash-at-point)
  18. (defun sanityinc/maybe-set-dash-db-docset ()
  19. (when (eq sql-product 'postgres)
  20. (setq dash-at-point-docset "psql")))
  21. (add-hook 'sql-mode-hook 'sanityinc/maybe-set-dash-db-docset)
  22. (add-hook 'sql-interactive-mode-hook 'sanityinc/maybe-set-dash-db-docset)
  23. (defadvice sql-set-product (after set-dash-docset activate)
  24. (sanityinc/maybe-set-dash-db-docset))))
  25. (setq-default sql-input-ring-file-name
  26. (expand-file-name ".sqli_history" user-emacs-directory))
  27. ;; See my answer to https://emacs.stackexchange.com/questions/657/why-do-sql-mode-and-sql-interactive-mode-not-highlight-strings-the-same-way/673
  28. (defun sanityinc/font-lock-everything-in-sql-interactive-mode ()
  29. (unless (eq 'oracle sql-product)
  30. (sql-product-font-lock nil nil)))
  31. (add-hook 'sql-interactive-mode-hook 'sanityinc/font-lock-everything-in-sql-interactive-mode)
  32. (after-load 'page-break-lines
  33. (push 'sql-mode page-break-lines-modes))
  34. (provide 'init-sql)