用Emacs编写mybatis
用Emacs编写mybatis
*/-->
code {color: #FF0000}
pre.src {background-color: #002b36; color: #839496;}
用Emacs编写mybatis
1 效果图
2 配置
现在web开发,最流行的orm框架非mybatis莫属了,它功能强大,编写简单灵活,可以直接编写SQL,也可以添加条件控制。但是,正是因为mybatis采用xml作为结构语言,所以,难免会有大量的xml和sql混杂在一起的代码,对这些代码对语法高亮以及自动缩减就是一个问题。
在Emacs中对xml有web-mode对其提供了非常好的支持,无论是缩进、跳转、剪切、拷贝、折叠等等操作都非常简单高效,远超各种IDE。对SQL也有很好的支持。但是对于mybatis却没有任何支持,用web-mode则sql无法高亮和缩进,用sql则基础xml结构缩减有问题。网上关于Emacs中编写mybatis的也甚少有涉及的,说明用Emacs来进行java开发的还是很少的。于是,只能本人自己思考解决方案了。
我记得之前Purcell大神写了一个mmm-mode,说是可以把多个mode放到一起,不知是作何用,说不定可以让web-mode支持sql语句。于是就在package管理中安装了mmm-mode。然后,配置了web-mode中对sql-mode的支持:
(mmm-add-classes
'((web-sql-select :submode sql-mode
:front "<select[^>]*>[ \t]*\n" :back "[ \t]*</select>")
(web-sql-insert :submode sql-mode
:front "<insert[^>]*>[ \t]*\n" :back "[ \t]*</insert>")
(web-sql-update :submode sql-mode
:front "<update[^>]*>[ \t]*\n" :back "[ \t]*</update>")
(web-sql-delete :submode sql-mode
:front "<delete[^>]*>[ \t]*\n" :back "[ \t]*</delete>")
)) (mmm-add-mode-ext-class 'web-mode nil 'web-sql-select)
(mmm-add-mode-ext-class 'web-mode nil 'web-sql-insert)
(mmm-add-mode-ext-class 'web-mode nil 'web-sql-update)
(mmm-add-mode-ext-class 'web-mode nil 'web-sql-delete)
其实就是根据正则表达式来确定哪些代码是属于指定的submode的,对于mybatis中的sql语句而言,很简单就可以找出哪些是sql语句了。
然后,比较难的是对齐,因为两种语言混杂在一起,用其中任一一种都有问题。经过仔细的思考和试验之后,发现一种配置是相对合理,且实现简单的:
(defun mmm-indent-line-web-sql-submode ()
(web-mode-propertize)
(let (cur-type prev-type)
(save-excursion
(back-to-indentation)
(setq cur-type (get-text-property (point) 'tag-type)))
(save-excursion
(previous-line)
(back-to-indentation)
(setq prev-type (get-text-property (point) 'tag-type)))
(if (or
(not (or prev-type cur-type)) ; both lines sql
(and (not prev-type) (eq cur-type 'start)) ; sql -> xml
)
(sql-indent-line)
(web-mode-indent-line)))) (defun mmm-indent-line-web-sql ()
(interactive)
(funcall
(save-excursion
(back-to-indentation)
(mmm-update-submode-region)
(if (and mmm-current-overlay
(> (overlay-end mmm-current-overlay) (point)))
'mmm-indent-line-web-sql-submode
'web-mode-indent-line)))) (setq mmm-indent-line-function 'mmm-indent-line-web-sql)
如此,只使用mmm-mode用来支持mybatis的话,再加上一些其他的小配置,比如更新之后自动刷新语法高亮等,就很简单了:
(setq mmm-parse-when-idle t)
(setq mmm-global-classes nil)
(setq mmm-classes-alist nil)
(setq mmm-mode-ext-classes-alist nil)
总的配置,可以去我的github上查看,也可以直接拷贝下面的代码:
;;; init-mmm.el --- Summary
;;; Commentary:
;; comments ;;; Code:
(use-package mmm-mode
;; :hook ((web-mode . mmm-mode))
:commands mmm-mode
:config
(defun mmm-indent-line-web-sql-submode ()
(web-mode-propertize)
(let (cur-type prev-type)
(save-excursion
(back-to-indentation)
(setq cur-type (get-text-property (point) 'tag-type)))
(save-excursion
(previous-line)
(back-to-indentation)
(setq prev-type (get-text-property (point) 'tag-type)))
(if (or
(not (or prev-type cur-type)) ; both lines sql
(and (not prev-type) (eq cur-type 'start)) ; sql -> xml
)
(sql-indent-line)
(web-mode-indent-line)))) (defun mmm-indent-line-web-sql ()
(interactive)
(funcall
(save-excursion
(back-to-indentation)
(mmm-update-submode-region)
(if (and mmm-current-overlay
(> (overlay-end mmm-current-overlay) (point)))
'mmm-indent-line-web-sql-submode
'web-mode-indent-line)))) (setq mmm-parse-when-idle t)
(setq mmm-global-classes nil)
(setq mmm-classes-alist nil)
(setq mmm-mode-ext-classes-alist nil)
(setq mmm-indent-line-function 'mmm-indent-line-web-sql) (mmm-add-classes
'((web-sql-select :submode sql-mode
:front "<select[^>]*>[ \t]*\n" :back "[ \t]*</select>")
(web-sql-insert :submode sql-mode
:front "<insert[^>]*>[ \t]*\n" :back "[ \t]*</insert>")
(web-sql-update :submode sql-mode
:front "<update[^>]*>[ \t]*\n" :back "[ \t]*</update>")
(web-sql-delete :submode sql-mode
:front "<delete[^>]*>[ \t]*\n" :back "[ \t]*</delete>")
)) (mmm-add-mode-ext-class 'web-mode nil 'web-sql-select)
(mmm-add-mode-ext-class 'web-mode nil 'web-sql-insert)
(mmm-add-mode-ext-class 'web-mode nil 'web-sql-update)
(mmm-add-mode-ext-class 'web-mode nil 'web-sql-delete)
) (provide 'init-mmm)
;;; init-mmm.el ends here
Date: 2017-12-16 21:17
Author: WEN YANG
Created: 2017-12-16 Sat 22:02
最新文章
- 整理ViewController的生命周期和加载过程
- 窥探Swift之使用Web浏览器编译Swift代码以及Swift中的泛型
- Jquery插件开发学习
- 552 you must authentication
- java-GUI图形用户界面
- 一模 (4) day1
- Java对象的序列化和反序列化实践
- SAP SOAMANAGER 配置WEBSERVICE 提示:Service cannot be reached解决方法
- Mac OS X 如何设置默认浏览器
- Install MongoDB on Windows
- POJ-2774-Long Long Message(后缀数组-最长公共子串)
- KMP与扩展KMP
- 【实战】静默安装-oracle 11.2.0.3 on centos 5.10
- 【Android】应用启动画面
- Python challenge 3 - urllib &;amp; re
- Spring集成MyBatis框架
- python脚本批量生成数据
- Linux计划任务及压缩归档(week2_day1)--技术流ken
- [Swift]两种线程休眠的方式
- hdf 5文件格式及python中利用h5py模块读写h5文件