В Emacs я могу легко скопировать все строки, соответствующие определенному регулярному выражению? Предпочтительно выделять соответствующие строки по мере ввода.
occur получает часть оттуда, копируя их в буфер, но он добавляет много дополнительного материала.
Как насчет этого:
(defun copy-lines-matching-re (re)
"find all lines matching the regexp RE in the current buffer
putting the matching lines in a buffer named *matching*"
(interactive "sRegexp to match: ")
(let ((result-buffer (get-buffer-create "*matching*")))
(with-current-buffer result-buffer
(erase-buffer))
(save-match-data
(save-excursion
(goto-char (point-min))
(while (re-search-forward re nil t)
(princ (buffer-substring-no-properties (line-beginning-position)
(line-beginning-position 2))
result-buffer))))
(pop-to-buffer result-buffer)))
Как и в Emacs 24, occur действительно предоставляет простое решение:
C-u M-s o .*pattern.* RET
Когда вы используете C-u самостоятельно как префиксный аргумент, соответствующая часть каждой строки вставляется в буфер *Occur* без всех нормальных украшений.
Обратите внимание, что, поскольку используется только часть строки, соответствующая регулярному выражению (в отличие от нормального), вам нужен ведущий и конечный .*, чтобы обеспечить захват всей строки.
Детали того, как occur обрабатывают аргументы, немного сложны, поэтому внимательно прочитайте C-h f occur RET, если вы хотите узнать больше.
Вы можете использовать keep-lines, чтобы получить то, что вы хотите, скопировать и отменить. В противном случае существует также flush-lines, чтобы избавиться от строк, которые вы не хотите.
Я использую это долгое время:
(defun occur-mode-clean-buffer ()
"Removes all commentary from the *Occur* buffer, leaving the
unadorned lines."
(interactive)
(if (get-buffer "*Occur*")
(save-excursion
(set-buffer (get-buffer "*Occur*"))
(fundamental-mode)
(goto-char (point-min))
(toggle-read-only 0)
(set-text-properties (point-min) (point-max) nil)
(if (looking-at (rx bol (one-or-more digit)
(or " lines matching \""
" matches for \"")))
(kill-line 1))
(while (re-search-forward (rx bol
(zero-or-more blank)
(one-or-more digit)
":")
(point-max)
t)
(replace-match "")
(forward-line 1)))
(message "There is no buffer named \"*Occur*\".")))
(define-key occur-mode-map (kbd "C-c C-x") 'occur-mode-clean-buffer)
Вы можете установить пакет all. Затем M-x all позволяет редактировать все строки в буфере, соответствующие регулярному выражению. Вместо редактирования вы можете просто скопировать их.