如果大纲标题“**”之前没有空行，则插入一个空行

Question

谁能帮我进一步定义我的组织大纲清理功能。我希望在以** 开头的每个大纲标题之间有一个空行，考虑到这两种可能性——即，可能没有空行（这意味着我们需要插入一个）；并且，可能有太多的空行（这意味着我们需要删除多余的）。没有空行的情况（我们需要插入一个）是函数中缺少的。

大纲可能有好几个层次，没有办法准确预测大纲部分的结尾会是什么，所以我们只需要关注标题开头的模式来定义功能——例如。 ，如果只有\n[*][*]，而不是\n\n[*][*]，则插入\n。

(defun lawlist-cleanup ()
  "If there are no blank lines preceding an outline heading `**`, then insert one
blank line.  If there are more than one blank line, then delete the extras."
  (interactive)
  (beginning-of-buffer)
  (save-excursion
    (while (re-search-forward "\n\n\n[*][*]" nil t)
      (left-char 3)
      (delete-blank-lines))))

---

编辑：这是基于 juanleon 和 Bruce Connor 提供的慷慨帮助的更新功能。它处理一级和二级标题的情况，一级标题有一个额外的空行。

(defun lawlist-cleanup-second-draft ()
  (interactive)
  (save-excursion 
    (replace-regexp "\n+\\*\\* " "\n\n** " nil (point-min) (point-max))
    (replace-regexp "\n+\\* " "\n\n\n* " nil (point-min) (point-max))))

Answer 1

使用delete-blank-lines 的问题在于它的行为取决于点周围的空白行数。这是解决问题的一种非常不优雅的方法：

(save-excursion
  (beginning-of-buffer)
  (while (re-search-forward "^[*][*]" nil t)
    (forward-line 0)
    (newline)
    (forward-line -1)
    (delete-blank-lines)
    (delete-blank-lines)
    (newline)
    (forward-line 1))))

它有点伤我的眼睛，它看起来更像是一个宏而不是一个函数，但我认为它可以完成这项工作。

Answer 2

我认为@juanleon 的答案没有任何问题，但这是另一种应该有效的方法（只是为了展示正则表达式的力量 :-D）。

(save-excursion 
 (replace-regexp "[ 
]+\\*\\* " "\n\n** " nil (point-min) (point-max)))

注意：方括号内是空格和换行符。