комментарии в блочном стиле с yasnippet

Question

Я ищу, чтобы написать шаблон yasnippet, который позволит мне добавить заголовок лицензии в буфер сценария в Emacs. Любопытное нравится this, но немного улучшилась:

1. Заголовок должен включать для каждого пользователя данные, такие как имя дата и адрес электронной почты владельца авторских прав, , который может быть получен с embedded elisp expansion из yasnippet.
2. Заголовок должен быть прокомментирован с синтаксисом в зависимости от режима программирования, в котором находится файл. Уже есть a gist of a snippet that does all that. В основном это сводится к вложению (comment-region (point-min) (point)) в конец вашего фрагмента.
3. Я хочу изменить комментарий в поле. См. Документацию emacs для переменной comment-style или, если вы хотите посмотреть, как выглядит комментарий в стиле коробки, просто позвоните M-x comment-box в активный регион: он вызывает comment-region с правильными параметрами.

Первый подход, чтобы сделать это настроить стиль, изменив конец предыдущего фрагмента кода на:

(let ((comment-style 'box)) 
      (comment-region (point-min) (point))) 

К сожалению, отступы портится, и моя коробка не прямоугольная. Если я начну с сниппета:

Copyright (c) ${1:`(nth 5 (decode-time))`} 
All rights reserved. 

Redistribution and use in source and binary forms, with or 
without modification, are permitted` 
     (let ((comment-style 'box)) 
      (comment-region (point-min) (point)))` 

Расширение этого фрагмента «разбивает окно» (я отладки этого фрагмента с OCaml синтаксису комментариев, не то, что это имеет значение):

(**************************************************************) 
(* Copyright (c) 2010         *) 
(* All rights reserved.          *) 
(*               *) 
(* Redistribution and use in source and binary forms, with or *) 
(* without modification, are permitted  *) 
(**************************************************************) 

• Сначала я подумал, что вторая строка была отступом на основе размера встроенного кода с предварительным расширением, но в этом случае он должен сделать окончательный *) этой линии, если он скоро появится 25, а не 4.
• Если это с отступом на основе нет текст присутствует в точке внедрения, окончательный *) должен также прибыть 4 места конец, не слишком скоро.
• И, наконец, я не понимаю, что происходит с последней строкой, в которой есть нет встроенного расширения кода: Обычно у меня нет проблем с получением квадратного поля комментариев из абзаца с короткой последней строкой (либо с помощью comment-box, или функцию Elisp в 1-й комментарий-блока этого вопроса.

Я попытался сделать комментарий произойдет после расширения сниппета, чтобы избежать какой-либо побочный эффект, добавив его в yas/after-exit-snippet-hook, заменив последняя функция фрагмента выше:

(add-hook 'yas/after-exit-snippet-hook 
     (let ((comment-style 'box)) 
      (comment-region (point-min) (point))) nil t) 

Но это не помогло. Даже если бы это было так, это оставило бы меня с расширением, который комментировал бы все фрагменты, которые я хотел бы использовать в этом буфере, чего-то, чего я, конечно, не хочу.

Я хотел бы также добавить, что я попытался установить yas/indent-line в fixed, добавив

# expand-env: ((yas/indent-line 'fixed)) 

в начале моего сниппет, но это ничего не изменило. Любые идеи о том, как получить прямоугольник box?

---

Edit: Мы a very nice answer, along with a proposed fix, (! Престижность & спасибо, Сейджи), но остается вопрос о том, как адаптировать его к случаю, когда один хотел бы повторно использовать поле, скажем, как повторное использование $1 в :

Copyright (c) ${1:`(nth 5 (decode-time))`} 
All rights reserved. 

Redistribution and use in $1, in source and binary forms 
`(let ((comment-style 'box)) 
     (comment-region (point-min) (point-at-eol 0)))` 

В этом случае копия шаблона двигателя значение (переменная длина), полученная для поля $1, а именно 2011, к последней строке, при расширении шаблона (после вдавливания), давая комментарий по линии 2 чара слишком широкие. Трудно предсказать при написании шаблона, который должен быть удалить символов в этой строке. Возможно, повторное использование полей и правильное отступы слишком много для запроса одновременно. Кто-нибудь видит способ сделать это?

Answer 1

Изменение вашего фрагмента к этому исправлению последней строки.

Copyright (c) ${1:`(nth 5 (decode-time))`} 
All rights reserved. 

Redistribution and use in source and binary forms, with or 
without modification, are permitted 
`(let ((comment-style 'box))(comment-region (point-min) (point-at-eol 0)))` 

Обратите внимание, что существует разрыв строки между лицензией («... разрешены») и встроенные Emacs Lisp код.

Что касается второй строки, я сначала объясню, почему это происходит, а затем предложит (уродливое) исправление. Когда ваш фрагмент вставляется в файл, встроенные блоки lisp последовательно оцениваются от начала буфера до конца. Это означает, что (nth 5 (decode-time)) был заменен на 2011, когда оценивается следующий блок, (comment-region ...).

В результате comment-region видит вторую линию как

Copyright (c) ${1:2011} 

Так, comment-region ставит достаточно пробелы для этой строки. Затем механизм шаблонов преобразует ${1:2011} в 2011, и это преобразование сокращает строку на 5 символов. Это объясняет преждевременный внешний вид *) на 5 символов во второй строке.

Один из способов исправить эту ситуацию, это положить 5 пробельные назад после того, как comment-region оценивается --- Что-то вдоль линии:

Copyright (c) ${1:`(nth 5 (decode-time))`} @ 
All rights reserved. 

Redistribution and use in source and binary forms, with or 
without modification, are permitted. 
`(let ((comment-style 'box))(comment-region (point-min) (point-at-eol 0)))`` 
(replace-string "@" "  " nil (point-min) (point))`$0 

Answer 2

Это может быть полезен для вас:

# -*- mode: snippet -*- 
# name: param 
# key: param 
# -- 
m.parameter :${1:arg},${1:$(make-string (- 14 (string-width text)) ?\ 
         )}:${2:type}$> 

В нем используется зеркало с функцией для создания пропусков позиционирования. Итак, для вас, это может означать что-то вроде этого:

(* Copyright (c) ${1:2011}${1:$(make-string (- 72 (string-width text)) ?\)} *) 
(* ${2}${2:$(make-string (- 72 (string-width text)))}*) 

Другим вариантом может быть использование yas/after-exit-snippet-hook, но это, кажется устаревшим.(ах, и я хотел отфильтровать текст самостоятельно, область комментариев, которую вы уже пробовали, умнее. Попробуйте область отступа?)