В TextMate можно использовать ctrl-shift-w обернуть текст в тег Open/Close и ctrl-shift-cmd-w, чтобы обернуть каждую строку в области в тегах Open/Close. Как реализовать эту же функциональность в Emacs с помощью emacs lisp?
emacs becomes <p>emacs</p>
И...
emacs textmate vi becomes <li>emacs</li> <li>textmate</li> <li>vi</li>
Этот ответ дает вам решение для обертывания региона (после того, как вы измените его, чтобы использовать угловые скобки).
Эта процедура предложит вам использовать тег и должна помечать каждую строку в области с помощью тега open/close этого типа:
(defun my-tag-lines (b e tag)
"'tag' every line in the region with a tag"
(interactive "r\nMTag for line: ")
(save-restriction
(narrow-to-region b e)
(save-excursion
(goto-char (point-min))
(while (< (point) (point-max))
(beginning-of-line)
(insert (format "<%s>" tag))
(end-of-line)
(insert (format "</%s>" tag))
(forward-line 1)))))
* Примечание: * Если вы хотите, чтобы tag всегда был li, затем удалите аргумент тега, удалите текст \nMTag for line: из вызова в интерактивный и обновите вызовы вставки, чтобы просто вставить "<li\>", как и следовало ожидать.
В параметрах sgml-mode отметьте область для маркировки, введите M-x sgml-tag и введите имя тега, которое вы хотите использовать (нажмите TAB, чтобы получить список доступных элементов HTML). Более того, этот метод не позволяет вам отмечать каждую строку в регионе, вы можете обойти это, записав макрос клавиатуры.
yasnippet - особенно хорошая реализация синтаксиса фрагмента текста TextMate для Emacs. С этим вы можете импортировать все фрагменты Textmate. Если вы установите его, то этот фрагмент, который я написал, должен делать то, что вы хотите:
(defun wrap-region-or-point-with-html-tag (start end)
"Wraps the selected text or the point with a tag"
(interactive "r")
(let (string)
(if mark-active
(list (setq string (buffer-substring start end))
(delete-region start end)))
(yas/expand-snippet (point)
(point)
(concat "<${1:p}>" string "$0</${1:$(replace-regexp-in-string \" .*\" \"\" text)}>"))))
(global-set-key (kbd "C-W") 'wrap-region-or-point-with-html-tag)
EDIT: (Хорошо, это моя последняя попытка исправить это. Это точно так же, как версия Textmate, даже игнорирует символы после пробела в конце тега)
Извините, я неправильно понял ваш вопрос. Эта функция должна редактировать каждую строку в области.
(defun wrap-lines-in-region-with-html-tag (start end)
"Wraps the selected text or the point with a tag"
(interactive "r")
(let (string)
(if mark-active
(list (setq string (buffer-substring start end))
(delete-region start end)))
(yas/expand-snippet
(replace-regexp-in-string "\\(<$1>\\).*\\'" "<${1:p}>"
(mapconcat
(lambda (line) (format "%s" line))
(mapcar
(lambda (match) (concat "<$1>" match "</${1:$(replace-regexp-in-string \" .*\" \"\" text)}>"))
(split-string string "[\r\n]")) "\n") t nil 1) (point) (point))))
Этот вариант ответа Трей также будет правильно указывать html.
(defun wrap-lines-region-html (b e tag)
"'tag' every line in the region with a tag"
(interactive "r\nMTag for line: ")
(setq p (point-marker))
(save-excursion
(goto-char b)
(while (< (point) p)
(beginning-of-line)
(indent-according-to-mode)
(insert (format "<%s>" tag))
(end-of-line)
(insert (format "</%s>" tag))
(forward-line 1))))