help-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: YAsnippet Emacs-Lisp Templates


From: weber
Subject: Re: YAsnippet Emacs-Lisp Templates
Date: Thu, 25 Sep 2008 05:19:53 -0700 (PDT)
User-agent: G2/1.0

On 25 set, 06:39, Nordlöw <per.nord...@gmail.com> wrote:
> 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

I did something like that, but after I just preferred using eldoc.
If you have any further questions please use the yasnippet group; the
package author is always helpful...
I'm pasting the code below...
HTH,
weber

;;; Hugo Schmitt (hugows@gmail.com) - Insert elisp function ARGS as a
;;; Yasnippet
;;      13-01-2008
;; Usage:
;; You've just entered a function name but forgot its arguments
(cursor is on ^):
;; (push ^)
;; then running lisp-snippet-insert will expand the snippet:
;; (push ${1:x} {2:place})

;; Note: I wasn't aware of Eldoc at the time, which ends up being
;; much easier to use than this.

(provide 'lisp-snippet-insert)
(require 'yasnippet)
(require 'cl)

(defun lisp-snippet-insert ()
  "Insert args for 'current function' as a snippet."
  (interactive)
  (while (looking-back "\\s-") (backward-delete-char 1)) ; remove any
extra whitespace
  (let* ((fun (function-called-at-point))
                 (args (unified-function-arglist fun)))
        (insert " ")
        (yas/expand-snippet     (point) (point) (args-to-snippet args))))

(defun unified-function-arglist (fun)
  "Return argument LIST for all kinds of functions (or so i hope)."
  (let ((arglist (help-function-arglist fun)))
        (if (or (stringp arglist) (listp arglist))
                (split-string (substring (downcase (format "%S" (help-function-
arglist fun))) 1 -1))
                (cdr (split-string (substring (downcase (car (help-split-fundoc
(documentation fun) "ignore"))) 1 -1))))))

(defun args-to-snippet (arglist)
  "Convert string with space separated args to a snippet template.
Args like &optional will be removed."
  (let* ((filterlist '("&optional" "&rest"))
                 (newlist (remove-if (lambda (x) (member x filterlist)) 
arglist))
                 (template (mapconcat (lambda (arg) (concat "${" arg "}")) 
newlist "
")))
        template))






reply via email to

[Prev in Thread] Current Thread [Next in Thread]