sql-sucks-less.el

sql-sucks-less.el

(defun sql-switch-sqli-buffer ()
  (interactive)
  (unless (and sql-buffer (buffer-live-p (get-buffer sql-buffer))
               (get-buffer-process sql-buffer))
    (sql-set-sqli-buffer))
  (setq last-sql-buffer (current-buffer))
  (pop-to-buffer sql-buffer))

(defun sqli-switch-sql-buffer ()
  (interactive)
  (pop-to-buffer last-sql-buffer))

(defun sql-clear-sqli-buffer ()
  (interactive)
  (unless (and sql-buffer (buffer-live-p (get-buffer sql-buffer))
               (get-buffer-process sql-buffer))
    (sql-set-sqli-buffer))
  (with-current-buffer sql-buffer
    (comint-clear-buffer)))


(define-key sql-mode-map (kbd "C-c C-z") 'sql-switch-sqli-buffer)
(define-key sql-mode-map (kbd "C-c M-o") 'sql-clear-sqli-buffer)
(define-key sql-interactive-mode-map (kbd "C-c C-z") 'sqli-switch-sql-buffer)