added about 33 snippets for emacs lisp mode.

This commit is contained in:
Xah Lee 2010-09-03 02:12:33 +00:00
parent 90f9bba834
commit a851245972
33 changed files with 158 additions and 3 deletions

View File

@ -1,5 +1,6 @@
#contributor: Xah Lee (XahLee.org)
#name: and
#key: and
#key: a
# --
(and $0)

View File

@ -0,0 +1,5 @@
#contributor: Xah Lee (XahLee.org)
#name: aset
#key: aset
# --
(aset ARRAY$0 IDX NEWELT)

View File

@ -0,0 +1,7 @@
#contributor: Xah Lee (XahLee.org)
#name: bounds-of-thing-at-point
#key: bounds-of-thing-at-point
#key: botap
# --
(bounds-of-thing-at-point '$0) ; symbol, list, sexp, defun, filename, url, email, word, sentence, whitespace, line, page ...

View File

@ -0,0 +1,6 @@
#contributor: Xah Lee (XahLee.org)
#name: buffer-modified-p
#key: buffer-modified-p
#key: bmp
# --
(buffer-modified-p $0)

View File

@ -0,0 +1,6 @@
#contributor: Xah Lee (XahLee.org)
#name: copy-directory
#key: copy-directory
#key: cd
# --
(copy-directory $0 NEWNAME &optional KEEP-TIME PARENTS)

View File

@ -0,0 +1,6 @@
#contributor: Xah Lee (XahLee.org)
#name: copy-file
#key: copy-file
#key: cf
# --
(copy-file FILE$0 NEWNAME &optional OK-IF-ALREADY-EXISTS KEEP-TIME PRESERVE-UID-GID)

View File

@ -1,6 +1,7 @@
#contributor: Xah Lee (XahLee.org)
#name: defun
#key: defun
#key: d
# --
(defun $1 ()
"DOCSTRING"

View File

@ -2,4 +2,4 @@
#name: defvar
#key: defvar
# --
(defvar SYMBOL &optional INITVALUE "DOCSTRING")
(defvar $0 &optional INITVALUE "DOCSTRING")

View File

@ -0,0 +1,6 @@
#contributor: Xah Lee (XahLee.org)
#name: delete-char
#key: delete-char
#key: dc
# --
(delete-char $0)

View File

@ -0,0 +1,6 @@
#contributor: Xah Lee (XahLee.org)
#name: delete-directory
#key: delete-directory
#key: dd
# --
(delete-directory $0 &optional RECURSIVE)

View File

@ -0,0 +1,6 @@
#contributor: Xah Lee (XahLee.org)
#name: delete-file
#key: delete-file
#key: df
# --
(delete-file $0)

View File

@ -0,0 +1,6 @@
#contributor: Xah Lee (XahLee.org)
#name: directory-files
#key: directory-files
#key: df
# --
(directory-files $0 &optional FULL MATCH NOSORT)

View File

@ -0,0 +1,6 @@
#contributor: Xah Lee (XahLee.org)
#name: file-name-directory
#key: file-name-directory
#key: fnd
# --
(file-name-directory $0)

View File

@ -0,0 +1,6 @@
#contributor: Xah Lee (XahLee.org)
#name: file-name-extension
#key: file-name-extension
#key: fne
# --
(file-name-extension $0 &optional PERIOD)

View File

@ -0,0 +1,6 @@
#contributor: Xah Lee (XahLee.org)
#name: file-name-sans-extension
#key: file-name-sans-extension
#key: fnse
# --
(file-name-sans-extension $0)

View File

@ -0,0 +1,6 @@
#contributor: Xah Lee (XahLee.org)
#name: insert-file-contents
#key: insert-file-contents
#key: ifc
# --
(insert-file-contents $0 &optional VISIT BEG END REPLACE)

View File

@ -1,6 +1,6 @@
#contributor: Xah Lee (XahLee.org)
#name: insert
#key: insert
#key: ins
#key: i
# --
(insert $0)

View File

@ -1,6 +1,7 @@
#contributor: Xah Lee (XahLee.org)
#name: let
#key: let
#key: l
# --
(let ($1 )
$0

View File

@ -0,0 +1,6 @@
#contributor: Xah Lee (XahLee.org)
#name: make-directory
#key: make-directory
#key: md
# --
(make-directory $0 &optional PARENTS)

View File

@ -1,6 +1,6 @@
#contributor: Xah Lee (XahLee.org)
#name: message
#key: message
#key: msg
#key: m
# --
(message "FORMATSTRING$0" &optional ARGS)

View File

@ -1,5 +1,6 @@
#contributor: Xah Lee (XahLee.org)
#name: not
#key: not
#key: n
# --
(not $0 )

View File

@ -1,5 +1,6 @@
#contributor: Xah Lee (XahLee.org)
#name: or
#key: or
#key: o
# --
(or $0 )

View File

@ -0,0 +1,6 @@
#contributor: Xah Lee (XahLee.org)
#name: region-active-p
#key: region-active-p
#key: rap
# --
(region-active-p)

View File

@ -0,0 +1,6 @@
#contributor: Xah Lee (XahLee.org)
#name: rename-file
#key: rename-file
#key: rf
# --
(rename-file FILE$0 NEWNAME &optional OK-IF-ALREADY-EXISTS)

View File

@ -0,0 +1,6 @@
#contributor: Xah Lee (XahLee.org)
#name: save-buffer
#key: save-buffer
#key: sb
# --
(save-buffer $0)

View File

@ -0,0 +1,6 @@
#contributor: Xah Lee (XahLee.org)
#name: search-backward-regexp
#key: search-backward-regexp
#key: sbr
# --
(search-backward-regexp "$0" &optional BOUND NOERROR COUNT)

View File

@ -0,0 +1,6 @@
#contributor: Xah Lee (XahLee.org)
#name: search-forward-regexp
#key: search-forward-regexp
#key: sfr
# --
(search-forward-regexp "$0" &optional BOUND NOERROR COUNT)

View File

@ -0,0 +1,6 @@
#contributor: Xah Lee (XahLee.org)
#name: set-file-modes
#key: set-file-modes
#key: sfm
# --
(set-file-modes $0 MODE)

View File

@ -0,0 +1,6 @@
#contributor: Xah Lee (XahLee.org)
#name: split-string
#key: split-string
#key: ss
# --
(split-string $0 &optional SEPARATORS OMIT-NULLS)

View File

@ -0,0 +1,7 @@
#contributor: Xah Lee (XahLee.org)
#name: thing-at-point
#key: thing-at-point
#key: tap
# --
(thing-at-point '$0) ; symbol, list, sexp, defun, filename, url, email, word, sentence, whitespace, line, page ...

View File

@ -0,0 +1,6 @@
#contributor: Xah Lee (XahLee.org)
#name: vector
#key: vector
#key: v
# --
(vector $0)

View File

@ -0,0 +1,6 @@
#contributor: Xah Lee (XahLee.org)
#name: y-or-n-p
#key: y-or-n-p
#key: yonp
# --
(yes-or-no-p "PROMPT$0 ")

View File

@ -0,0 +1,5 @@
#contributor: Xah Lee (XahLee.org)
#name: yes-or-no-p
#key: yes-or-no-p
# --
(yes-or-no-p "PROMPT$0 ")