diff options
author | Adam Chlipala <adamc@hcoop.net> | 2008-10-16 16:24:19 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2008-10-16 16:24:19 -0400 |
commit | 78c1a4cd0f7766327190268b8e3609c854ebfa54 (patch) | |
tree | 47c17bbfc5f80908d39e5a32df30437512e5d6d2 /src | |
parent | 0a66597b3498f5863620c3ca5e2713e45eed47f8 (diff) |
Indenting simple DML properly
Diffstat (limited to 'src')
-rw-r--r-- | src/elisp/urweb-mode.el | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/src/elisp/urweb-mode.el b/src/elisp/urweb-mode.el index 5e217e1a..fb3db560 100644 --- a/src/elisp/urweb-mode.el +++ b/src/elisp/urweb-mode.el @@ -512,9 +512,16 @@ If anyone has a good algorithm for this..." (beginning-of-line) (current-indentation))) +(defconst urweb-sql-main-starters + '("SELECT" "INSERT" "UPDATE" "DELETE")) + (defconst urweb-sql-starters - '("FROM" "WHERE" "GROUP" "ORDER" "HAVING" "LIMIT" "OFFSET")) + (append urweb-sql-main-starters + '("^\\s-+FROM" "WHERE" "GROUP" "ORDER" "HAVING" "LIMIT" "OFFSET" + "VALUES" "SET"))) +(defconst urweb-sql-main-starters-re + (urweb-syms-re urweb-sql-main-starters)) (defconst urweb-sql-starters-re (urweb-syms-re urweb-sql-starters)) @@ -575,7 +582,9 @@ If anyone has a good algorithm for this..." (and (looking-at urweb-sql-starters-re) (save-excursion (and (re-search-backward urweb-sql-starters-re nil t) - (current-indentation)))) + (if (looking-at urweb-sql-main-starters-re) + (current-column) + (current-indentation))))) (and (setq data (assoc sym urweb-close-paren)) (urweb-indent-relative sym data)) |