full sql-mode in doobie interpolators

polymode-scala.el

(use-package polymode
  :commands poly-scala-mode
  :mode ("\\.scala\\'" . poly-scala-mode)
  :config
  (define-hostmode poly-scala-hostmode
    :protect-syntax nil
    :protect-font-lock t
    :mode 'scala-mode)

  (define-innermode poly-scala-sql-multiline-innermode
    :mode 'sql-mode
    :body-indent-offset 'scala-indent:step
    :head-matcher "\\(sql\\|fr\\)\"\"\"[ \t]*\n?"
    :tail-matcher "[ \t]*\"\"\"")

  (define-innermode poly-scala-sql-innermode
    :mode 'sql-mode
    :head-matcher "\\(sql\\|fr\\)\""
    :tail-matcher (cons "\\(^\\|[^\\\\]\\)\\(\"\\)" 2))

  (define-polymode poly-scala-mode
    :hostmode 'poly-scala-hostmode
    :innermodes '(poly-scala-sql-multiline-innermode
                  poly-scala-sql-innermode))
  )