branch: elpa/evil-matchit
commit 1c1a218d34362808ba085342bdfba7471d0e27c1
Author: Chen Bin <[email protected]>
Commit: Chen Bin <[email protected]>
sql
---
evil-matchit-sql.el | 101 ++++++++++++++++++++++++++++++++++++++++++++++++++++
evil-matchit.el | 6 ++++
2 files changed, 107 insertions(+)
diff --git a/evil-matchit-sql.el b/evil-matchit-sql.el
new file mode 100644
index 0000000000..5d2c32870a
--- /dev/null
+++ b/evil-matchit-sql.el
@@ -0,0 +1,101 @@
+;;; evil-matchit-sql.el ---sql plugin of evil-matchit
+
+;; Copyright (C) 2014 Chen Bin <[email protected]>
+
+;; Author: Chen Bin <[email protected]>
+
+;; This file is not part of GNU Emacs.
+
+;;; License:
+
+;; This file is part of evil-matchit
+;;
+;; evil-matchit is free software: you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as published
+;; by the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+;;
+;; evil-matchit is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+
+;;; Code:
+
+;; OPTIONAL, you don't need SDK to write a plugin for evil-matchit
+;; but SDK don make you write less code, isn't it?
+;; All you need to do is just define the match-tags for SDK algorithm to
lookup.
+(require 'evil-matchit-sdk)
+
+;; copied from sql.vim
+;; Handle the following:
+;; if
+;; elseif | elsif
+;; else [if]
+;; end if
+;;
+;; [while condition] loop
+;; leave
+;; break
+;; continue
+;; exit
+;; end loop
+;;
+;; for
+;; leave
+;; break
+;; continue
+;; exit
+;; end loop
+;;
+;; do
+;; statements
+;; doend
+;;
+;; case
+;; when
+;; when
+;; default
+;; end case
+;;
+;; merge
+;; when not matched
+;; when matched
+;;
+;; EXCEPTION
+;; WHEN column_not_found THEN
+;; WHEN OTHERS THEN
+;;
+;; create[ or replace] procedure|function|event
+ ;; '^\s*\<\%(do\|for\|while\|loop\)\>.*:'.
+;; TODO for one howto, if it cannot match any keyword,
+;; should try next howto, the purpose is avoid missing any howto
+(defvar evilmi-sql-extract-keyword-howtos
+ '(("^[ \t]*\\([a-zA-Z]+ [a-zA-Z]+\\)" 1)
+ ("^[ \t]*\\([a-zA-Z]+\\)" 1)
+ ("^.* \\(loop\\)[;]? *$" 1)
+ ))
+
+(defvar evilmi-sql-match-tags
+ '(("if" ("elsif" "else" "elseif" "else *if") ("end" "end *if"))
+ (("loop") ("leave" "break" "continue" "exit") ("end loop"))
+ ("begin" () "end")
+ ("case" ("when *others") ("end *case" "end"))
+ (("do") () "do *end")
+ ))
+
+;;;###autoload
+(defun evilmi-sql-get-tag ()
+ (let (rlt)
+ (setq rlt (evilmi-sdk-get-tag evilmi-sql-match-tags
evilmi-sql-extract-keyword-howtos))
+ rlt))
+
+;;;###autoload
+(defun evilmi-sql-jump (rlt NUM)
+ (evilmi-sdk-jump rlt NUM evilmi-sql-match-tags
evilmi-sql-extract-keyword-howtos))
+
+(provide 'evil-matchit-sql)
diff --git a/evil-matchit.el b/evil-matchit.el
index 55171f3bda..51f1802390 100644
--- a/evil-matchit.el
+++ b/evil-matchit.el
@@ -128,6 +128,12 @@ If this flag is nil, then 50 means jump 50 times.")
(plist-put evilmi-plugins 'python-mode '((evilmi-simple-get-tag
evilmi-simple-jump)
(evilmi-python-get-tag
evilmi-python-jump)))
+ ;; SQL
+ (autoload 'evilmi-sql-get-tag "evil-matchit-sql" nil)
+ (autoload 'evilmi-sql-jump "evil-matchit-sql" nil)
+ (plist-put evilmi-plugins 'sql-mode '((evilmi-simple-get-tag
evilmi-simple-jump)
+ (evilmi-sql-get-tag
evilmi-sql-jump)))
+
;; C/C++
(autoload 'evilmi-c-get-tag "evil-matchit-c" nil)
(autoload 'evilmi-c-jump "evil-matchit-c" nil)
