Выбор Wrap в теге Open/Close, таком как TextMate?

Ответ 1

Этот ответ дает вам решение для обертывания региона (после того, как вы измените его, чтобы использовать угловые скобки).

Эта процедура предложит вам использовать тег и должна помечать каждую строку в области с помощью тега 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\>", как и следовало ожидать.

Ответ 2

В параметрах sgml-mode отметьте область для маркировки, введите M-x sgml-tag и введите имя тега, которое вы хотите использовать (нажмите TAB, чтобы получить список доступных элементов HTML). Более того, этот метод не позволяет вам отмечать каждую строку в регионе, вы можете обойти это, записав макрос клавиатуры.

Ответ 3

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

Ответ 4

Этот вариант ответа Трей также будет правильно указывать 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))))