如何在不同的代码段中自动对齐注释?

问题描述 投票:5回答:4

我必须做一个非常具体的任务来重复做一遍又一遍,并希望将它永久地放在我的.emacs文件中。但我对emacs-lisp的管理能力不足:

  • 键盘1,说[F8] 记住当前游标在xtab中的列位置
  • 按键-2,说[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文件中存档这个 - 或类似的?

emacs comments alignment text-formatting
4个回答
11
投票

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)))))

2
投票

不完全是你的问题的答案,但为了达到预期的目标,你可以只标记该区域并使用align-regexp


2
投票

这是代码:

(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对齐直到缓冲区结束。


0
投票

M-x align非常强大,会自动处理给定的特定示例。

但是,它也会对齐变量声明,这可能比您想要的更多。在这种情况下,您必须自定义align-region-separate或使用align-regexp答案。

© www.soinside.com 2019 - 2024. All rights reserved.