我必须做一个非常具体的任务来重复做一遍又一遍,并希望将它永久地放在我的.emacs
文件中。但我对emacs-lisp的管理能力不足:
[F8]
记住当前游标在xtab
中的列位置[F9]
,而光标在其他行中:
在当前行找到最左边的字符串//
,如果没有,则发出蜂鸣声并停止
插入尽可能多的空格,以便//
到达以前记住的列xtab
,或者如果光标已经超出xtab
则不执行任何操作
向前搜索下一个//
并将光标放在它上面我设法将它分配给临时键盘宏,但必须为每个更改的xtab
值重新记录它。
最终目标是我希望轻松地将注释与不同的代码对齐
int main() { // the enty function
int x = 100; // my new variable
for(int i=1; i<2012; ++i) { // loop a lot
x -= i;
}
} // end of all things
至
int main() { // the entry function
int x = 100; // my new variable
for(int i=1; i<2012; ++i) { // loop a lot
x -= i;
}
} // end of all things
知道如何自动化这个吗?我需要在我的.emacs
文件中存档这个 - 或类似的?
Tungd说,align-regexp
对这类事情有好处。
(defun my-align-comments (beginning end)
"Align instances of // within marked region."
(interactive "*r")
(let (indent-tabs-mode align-to-tab-stop)
(align-regexp beginning end "\\(\\s-*\\)//")))
这就像互动电话:
M-x align-regexp
RET //
RET
或者更多与语言无关的版本:
(defun my-align-comments (beginning end)
"Align comments within marked region."
(interactive "*r")
(let (indent-tabs-mode align-to-tab-stop)
(align-regexp beginning end (concat "\\(\\s-*\\)"
(regexp-quote comment-start)))))
不完全是你的问题的答案,但为了达到预期的目标,你可以只标记该区域并使用align-regexp
。
这是代码:
(defvar c-current-comment-col 30)
(defun c-set-comment-col ()
(interactive)
(setq c-current-comment-col (current-column)))
(defun c-comment-to-col ()
(interactive)
(beginning-of-line)
(when (re-search-forward "//" (line-end-position) t)
(backward-char 2)
(let ((delta (- c-current-comment-col
(current-column))))
(if (plusp delta)
(insert (make-string delta ? ))
(if (looking-back
(format "\\( \\{%d\\}\\)" (- delta)))
(delete-region
(match-beginning 1)
(match-end 1))
(message
"I'm sorry Dave, I afraid can't do that.")))))
(next-line 1))
(global-set-key [C-f6] 'c-set-comment-col)
(global-set-key [f6] 'c-comment-to-col)
我在最后添加了一个next-line
电话。现在你可以做C-f6 f3 f6 M-0 f4对齐直到缓冲区结束。
M-x align
非常强大,会自动处理给定的特定示例。
但是,它也会对齐变量声明,这可能比您想要的更多。在这种情况下,您必须自定义align-region-separate
或使用align-regexp
答案。