multiple-cursors做代码对齐
*/-->
code {color: #FF0000}
pre.src {background-color: #002b36; color: #839496;}
multiple-cursors做代码对齐
假设我们有这样一个文件：
::msgcat::mcset cn "steel" "钢"
::msgcat::mcset cn "al" "铝"
::msgcat::mcset cn "general" "焊缝参数"
::msgcat::mcset cn "FAT" "疲劳等级 *"
::msgcat::mcset cn "Weld type" "焊缝类型"
::msgcat::mcset cn "Weld width" "焊缝宽度"
我们想要让它对齐成如下：
::msgcat::mcset cn "steel" "钢"
::msgcat::mcset cn "al" "铝"
::msgcat::mcset cn "general" "焊缝参数"
::msgcat::mcset cn "FAT" "疲劳等级 *"
::msgcat::mcset cn "Weld type" "焊缝类型"
::msgcat::mcset cn "Weld width" "焊缝宽度"
当然，我们可以使用 align-regexp ，然后，使用正则表达式进行对齐，但是，那个还是比较麻烦的。
其实，multiple-cursors中有一个命令 mc/vertical-align-with-space ，可以用来进行对齐操作。
这样，我们只需要先创建一个multiple-cursors：
然后，跳到最后面：
再用 sp-backward-sexp ，跳到要对齐的位置：
再执行 mc/vertical-align-with-space ，就可以对齐了：
这样，基本上可以应对很多比较麻烦的对齐。当然，简单的，用空格或者是其他一个符合对齐的工作，可以使用另外一个函数来完成，更加方便：
(defun my-align-regexp-repeated (start stop regexp)
"Like align-regexp, but repeated for multiple columns. See
http://www.emacswiki.org/emacs/AlignCommands"
(interactive "r\nsAlign regexp: ")
(let ((regexp (if (string= regexp "") " " regexp))
(spacing 1)
(old-buffer-size (buffer-size)))
;; If our align regexp is just spaces, then we don't need any
;; extra spacing.
(when (string-match regexp " ")
(setq spacing 0))
(align-regexp start stop
;; add space at beginning of regexp
(concat "\\([[:space:]]*\\)" regexp)
1 spacing t)
;; modify stop because align-regexp will add/remove characters
(align-regexp start (+ stop (- (buffer-size) old-buffer-size))
;; add space at end of regexp
(concat regexp "\\([[:space:]]*\\)")
1 spacing t)
(indent-region start (+ stop (- (buffer-size) old-buffer-size)))))