;; You probably already have this, but I'm pulling it in for the -compose function.
(use-package dash
  :ensure t)

(use-package sql
  :ensure nil
  :config
  ;; [2025-05-13 Tue 06:27] MariaDB prompts were getting accidentally deleted without this.
  ;; https://emacs.stackexchange.com/a/14158/37580
  (setopt comint-prompt-read-only t)
  (add-to-list
   'sql-product-alist
   '(sqlite :name               "SQLite"
            :free-software      t
            :font-lock          sql-mode-sqlite-font-lock-keywords
            :sqli-program       sql-sqlite-program
            :sqli-options       sql-sqlite-options
            :sqli-login         sql-sqlite-login-params
            :sqli-comint-func   sql-comint-sqlite
            :list-all           ".tables"
            :list-table         ".schema  %s"
            :completion-object  sql-sqlite-completion-object
            :prompt-regexp      "^sqlite> "
            :prompt-length      8
            :prompt-cont-regexp "^   \\.\\.\\.> "
            :input-filter       sql-placeholders-filter))
  (add-to-list
   'sql-product-alist
   '(mariadb :name               "MariaDB"
             :free-software      t
             :font-lock          sql-mode-mariadb-font-lock-keywords
             :sqli-program       sql-mariadb-program
             :sqli-options       sql-mariadb-options
             :sqli-login         sql-mariadb-login-params
             :sqli-comint-func   sql-comint-mariadb
             :list-all           "SHOW TABLES;"
             :list-table         "DESCRIBE %s;"
             :prompt-regexp      "^MariaDB \\[.*]> "
             :prompt-cont-regexp "^    [\"'`-]> "
             :syntax-alist       ((35 . "< b"))
             :input-filter       (-compose sql-remove-tabs-filter sql-placeholders-filter)))
  )

;; Perfect And Aesthetic SQL Indentation
;; highly recommended
(use-package sql-indent
  :ensure t
  :hook ((sql-mode . sqlind-minor-mode)))

;; Not everyone will like sql-up-mode because it's imperfect and buggy.
;; However, when it works, it's nice.
;; Uninstall it if you don't like it.
(use-package sqlup-mode
  :ensure t
  :hook ((sql-mode . sqlup-mode)
	 (sql-interactive-mode . sqlup-mode))
  :config
  (setq sqlup-blacklist '("name" "user" "binary" "changes"
			  "check" "connection" "open" "output"
			  "parameter" "read" "schema" "session"
			  "system")))