如何让Emacs解包一段代码？-HowtogetEmacstounwrapablockofcode?

2  

Nobody had what I was looking for so I decided to dust off my elisp manual and do it myself. This seems to work well enough, though the output isn't precisely what I asked for. In this version the first option goes on a line by itself instead of staying on the first line like in my original question.

没有人有我想要的东西,所以我决定把我的elisp手册除掉,然后自己做。这似乎运作得很好,虽然输出并不是我要求的。在这个版本中,第一个选项单独出现,而不是像我原来的问题一样停留在第一行。

(defun tcl-multiline-options ()
  "spread option/value pairs across multiple lines with continuation characters"
  (interactive)
  (save-excursion
    (tcl-join-continuations)
    (beginning-of-line)
    (while (re-search-forward " -[^ ]+ +"  (line-end-position) t)
      (goto-char (match-beginning 0))
      (insert " \\\n")
      (goto-char (+(match-end 0) 3))
      (indent-according-to-mode)
      (forward-sexp))))

(defun tcl-join-continuations ()
  "join multiple continuation lines into a single physical line"
  (interactive)
  (while (progn (end-of-line) (char-equal (char-before) ?\\))
    (forward-line 1))
  (while (save-excursion (end-of-line 0) (char-equal (char-before) ?\\))
    (end-of-line 0)
    (delete-char -1)
    (delete-char 1)
    (fixup-whitespace)))

1  

In this case I would use a macro. You can start recording a macro with C-x (, and stop recording it with C-x ). When you want to replay the macro type C-x e.

在这种情况下,我会使用宏。您可以使用C-x开始录制宏(并使用C-x停止录制)。当您想重播宏类型C-x e时。

In this case, I would type, C-a C-x ( C-s v a l u e C-f C-f \ RET SPC SPC SPC SPC C-x )

在这种情况下,我会键入,C-a C-x(C-s v a l u e C-f C-f \ RET SPC SPC SPC SPC C-x)

That would record a macro that searches for "value", moves forward 2, inserts a slash and newline, and finally spaces the new line over to line up. Then you could repeat this macro a few times.

这将记录一个宏,搜索“值”,向前移动2,插入斜线和换行符,最后将新行空格连接到排队。然后你可以重复这个宏几次。

EDIT: I just realized, your literal text may not be as easy to search as "value1". You could also search for spaces and cycle through the hits. For example, hitting, C-s a few times after the first match to skip over some of the matches.

编辑:我刚刚意识到,你的文字文本可能不像“value1”那样容易搜索。您还可以搜索空格并循环浏览。例如,在第一场比赛后几次击中C-s以跳过一些比赛。

Note: Since your example is "ad-hoc" this solution will be too. Often you use macros when you need an ad-hoc solution. One way to make the macro apply more consistently is to put the original statement all on one line (can also be done by a macro or manually).

注意:由于您的示例是“ad-hoc”,因此该解决方案也是如此。通常在需要临时解决方案时使用宏。使宏应用更一致的一种方法是将原始语句全部放在一行上(也可以通过宏或手动完成)。

EDIT: Thanks for the comment about ( versus C-(, you were right my mistake!

编辑:感谢你的评论(与C-相对(你错了!)

0  

Personally, I do stuff like this all the time.

就个人而言,我总是这样做。

But I don't write a function to do it unless I'll be doing it every day for a year.

但我不会写一个函数去做,除非我每天都会这样做一年。

You can easily do it with query-replace, like this:

您可以使用query-replace轻松完成此操作,如下所示:

m-x (query-replace " -option" "^Q^J -option")

m-x(query-replace“-option”“^ Q ^ J -option”)

I say ^Q^J as that is what you'll type to quote a newline and put it in the string.

我说^ Q ^ J因为这是你输入引用换行符并将其放在字符串中的内容。

Then just press 'y' for the strings to replace, and 'n' to skip the wierd corner cases you'd find.

然后按“y”键替换字符串,然后按“n”跳过你找到的奇怪的角落情况。

Another workhorse function is query-replace-regexp that can do replacements of regular expressions.

另一个主力函数是query-replace-regexp,可以替换正则表达式。

and also grep-query-replace, which will perform query-replace by parsing the output of a grep command. This is useful because you can search for "foo" in 100 files, then do the query-replace on each occurrence skipping from file to file.

还有grep-query-replace,它将通过解析grep命令的输出来执行查询替换。这很有用,因为您可以在100个文件中搜索“foo”,然后在每个从文件到文件的跳过中执行查询替换。

0  

Your mode may support this already. In C mode and Makefile mode, at least, M-q (fill-paragraph) will insert line continuations in the fill-column and wrap your lines.

您的模式可能已经支持此功能。在C模式和Makefile模式下,至少,M-q(fill-paragraph)将在填充列中插入行连续并包裹您的行。

What mode are you editing this in?

你在哪个模式编辑?