Uppercase MySQL keywords in Emacs

uppercase-sql.el

(defun jm/fix-sql-case (start end)                                                                                                                                                                                   
  "Uppercase SQL keywords"
  (interactive "r")
  (save-restriction
    (narrow-to-region start end)
    (goto-char 1)
    (let ((case-fold-search nil))
      (while (search-forward-regexp
              (mapconcat 'downcase (mapcar 'symbol-name '(select from inner outer left join where and in group by into on)) "\\|")
              nil t)
        (replace-match (upcase (match-string 0)) t nil)))))