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