Re: YAsnippet Emacs-Lisp Templates

[Nordlöw]

On 25 Sep, 10:26, Andy Stewart <lazycat.mana...@gmail.com> wrote:
> >>>>> "Nordlöw" == Nordlöw  <per.nord...@gmail.com> writes:
>
> Hi, Nordlöw!
>
>     Nordlöw> Has anyone written any YAsnippet templates for emacs-lisp?
>     Nordlöw> /Nordlöw
>
> This my YASnippet templates for emacs-lisp.
>
> ------------------------------> addal start <------------------------------
> #name : (autoload '... "..." "..." ...)
> # --
> (autoload '${1:function-name} "${2:file-name}" "${3:document}" 
> ${0:interactive})
> ------------------------------> addal end   <------------------------------
>
> ------------------------------> addav start <------------------------------
> #name : (defadvice ... ... ...)
> # --
> (defadvice ${1:function-name} (${2:args})
>   "${3:advice-document}"
>   (${0:advice-body})
> )
> ------------------------------> addav end   <------------------------------
>
> ------------------------------> addbk start <------------------------------
> #name : (basic-set-key-alist ...)
> # --
> (basic-set-key-alist ${0:rest})
> ------------------------------> addbk end   <------------------------------
>
> ------------------------------> addgk start <------------------------------
> #name : (global-set-key (kbd "...") ...)
> # --
> (global-set-key (kbd "${1:some-key}") ${0:some-command})
> ------------------------------> addgk end   <------------------------------
>
> ------------------------------> addhk start <------------------------------
> #name : (dolist (hook (list ... )) (add-hook hook '...))
> # --
> (dolist (hook (list
>                ${1:mode-list}
>                ))
>   (add-hook hook '${0:mode-hook}))
> ------------------------------> addhk end   <------------------------------
>
> ------------------------------> addhkd start <------------------------------
> #name : (dolist (hooked (list ...)) (add-hook '... 'hooked))
> # --
> (dolist (hooked (list
>                ${1:mode-list}
>                ))
>   (add-hook '${0:mode-hook} 'hooked))
> ------------------------------> addhkd end   <------------------------------
>
> ------------------------------> addlk start <------------------------------
> #name : (define-key ... (kbd "...") ...)
> # --
> (define-key ${1:some-mode-map} (kbd "${2:some-key}") ${0:some-command})
> ------------------------------> addlk end   <------------------------------
>
> ------------------------------> addpr start <------------------------------
> #name : (provide '...)
> # --
> (provide '${0:library-name})
> ------------------------------> addpr end   <------------------------------
>
> ------------------------------> addrq start <------------------------------
> #name : (require '...)
> # --
> (require '${0:library-name})
> ------------------------------> addrq end   <------------------------------
>
> ------------------------------> addse start <------------------------------
> #name : (setq ... ...)
> # --
> (setq ${1:variable-name} ${0:variable-value})
> ------------------------------> addse end   <------------------------------
>
> ------------------------------> deffu start <------------------------------
> #name : (defun ... (...) "..." ...)
> # --
> (defun ${1:Function Name} ($2)
>   "${3:Function document}"
>   $0)
> ------------------------------> deffu end   <------------------------------
>
> ------------------------------> defvr start <------------------------------
> #name : (defvar ... ... "...")
> # --
> (defvar ${1:variable-name} ${2:variable-varlue} "${0:document}")
> ------------------------------> defvr end   <------------------------------
>
> ------------------------------> evalal start <------------------------------
> #name : (eval-after-load ... ...)
> # --
> (eval-after-load ${1:file-name}
>   ${0:form})
> ------------------------------> evalal end   <------------------------------
>
> ------------------------------> header start <------------------------------
> #name : A elisp file header
> # --
> ;;; ${1:filename}.el --- ${2:Simple description}
>
> ;; Author: ${3:Andy Stewart} ${4:<lazycat.mana...@gmail.com>}
> ;; Maintainer: ${5:Andy Stewart} ${6:<lazycat.mana...@gmail.com>}
> ;; Copyright (C) 2008, $3, all rights reserved.
> ;; Created: ${7:Created time}
> ;; Version: ${8:Current version}
> ;; Last-Updated: ${9:Update time}
> ;; URL: ${10:not distributed yet}
> ;; Keywords: ${11:keyword}
> ;; Compatibility: GNU Emacs ${12:Compatibility version}
>
> ;; This program is free software; you can redistribute it and/or modify
> ;; it under the terms of the GNU General Public License as published by
> ;; the Free Software Foundation; either version 2, or (at your option)
> ;; any later version.
>
> ;; This program is distributed in the hope that it will be useful,
> ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
> ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
> ;; GNU General Public License for more details.
>
> ;; You should have received a copy of the GNU General Public License
> ;; along with this program; see the file COPYING.  If not, write to
> ;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth
> ;; Floor, Boston, MA 02110-1301, USA.
>
> ;; Features that might be requried by this library:
> ;;
> ;;      ${13:None}
> ;;
>
> ;;; Installation:
> ;;
> ;; Copy $1.el to your load-path and add to your ~/.emacs
> ;;
> ;;      (require '$1)
> ;;
> ;; ${14:No need more}
>
> ;;; Commentary:
> ;;
> ;; ${15:Comment}
> ;;
>
> ;;; Change log:
> ;;      
> ;;      ${16:Chang log}
> ;;
>
> ;;; Acknowledgements:
> ;;
> ;; $17
> ;;
>
> ;;; TODO
> ;;
> ;; $18
> ;;
>
> ;;; Require
> $19
>
> ;;; Code:
>
> $0
>
> (provide '$1)
>
> ;;; $1.el ends here
> ------------------------------> header end   <------------------------------
>
> Enjoy!
>
> Andy.

Great!

Is it possible to change the way these are are triggered (the keys I
believe YAsnippet calls them)?

I would like yasnippet to trigger on the real uses of them. For
example

"(defmacro " + TAB
expands defmacro-statement.

Thanks in advance,
Nordlöw