From a8512459728900ac8258a8c516b20548e741a96f Mon Sep 17 00:00:00 2001
From: Xah Lee <xahlee@gmail.com>
Date: Fri, 3 Sep 2010 02:12:33 +0000
Subject: [PATCH] added about 33 snippets for emacs lisp mode.

---
 snippets/emacs-lisp-mode/and.yasnippet                     | 1 +
 snippets/emacs-lisp-mode/aset.yasnippet                    | 5 +++++
 .../emacs-lisp-mode/bounds-of-thing-at-point.yasnippet     | 7 +++++++
 snippets/emacs-lisp-mode/buffer-modified-p.yasnippet       | 6 ++++++
 snippets/emacs-lisp-mode/copy-directory.yasnippet          | 6 ++++++
 snippets/emacs-lisp-mode/copy-file.yasnippet               | 6 ++++++
 snippets/emacs-lisp-mode/defun.yasnippet                   | 1 +
 snippets/emacs-lisp-mode/defvar.yasnippet                  | 2 +-
 snippets/emacs-lisp-mode/delete-char.yasnippet             | 6 ++++++
 snippets/emacs-lisp-mode/delete-directory.yasnippet        | 6 ++++++
 snippets/emacs-lisp-mode/delete-file.yasnippet             | 6 ++++++
 snippets/emacs-lisp-mode/directory-files.yasnippet         | 6 ++++++
 snippets/emacs-lisp-mode/file-name-directory.yasnippet     | 6 ++++++
 snippets/emacs-lisp-mode/file-name-extension.yasnippet     | 6 ++++++
 .../emacs-lisp-mode/file-name-sans-extension.yasnippet     | 6 ++++++
 snippets/emacs-lisp-mode/insert-file-contents.yasnippet    | 6 ++++++
 snippets/emacs-lisp-mode/insert.yasnippet                  | 2 +-
 snippets/emacs-lisp-mode/let.yasnippet                     | 1 +
 snippets/emacs-lisp-mode/make-directory.yasnippet          | 6 ++++++
 snippets/emacs-lisp-mode/message.yasnippet                 | 2 +-
 snippets/emacs-lisp-mode/not.yasnippet                     | 1 +
 snippets/emacs-lisp-mode/or.yasnippet                      | 1 +
 snippets/emacs-lisp-mode/region-active-p.yasnippet         | 6 ++++++
 snippets/emacs-lisp-mode/rename-file.yasnippet             | 6 ++++++
 snippets/emacs-lisp-mode/save-buffer.yasnippet             | 6 ++++++
 snippets/emacs-lisp-mode/search-backward-regexp.yasnippet  | 6 ++++++
 snippets/emacs-lisp-mode/search-forward-regexp.yasnippet   | 6 ++++++
 snippets/emacs-lisp-mode/set-file-modes.yasnippet          | 6 ++++++
 snippets/emacs-lisp-mode/split-string.yasnippet            | 6 ++++++
 snippets/emacs-lisp-mode/thing-at-point.yasnippet          | 7 +++++++
 snippets/emacs-lisp-mode/vector.yasnippet                  | 6 ++++++
 snippets/emacs-lisp-mode/y-or-n-p.yasnippet                | 6 ++++++
 snippets/emacs-lisp-mode/yes-or-no-p.yasnippet             | 5 +++++
 33 files changed, 158 insertions(+), 3 deletions(-)
 create mode 100755 snippets/emacs-lisp-mode/aset.yasnippet
 create mode 100755 snippets/emacs-lisp-mode/bounds-of-thing-at-point.yasnippet
 create mode 100755 snippets/emacs-lisp-mode/buffer-modified-p.yasnippet
 create mode 100755 snippets/emacs-lisp-mode/copy-directory.yasnippet
 create mode 100755 snippets/emacs-lisp-mode/copy-file.yasnippet
 create mode 100755 snippets/emacs-lisp-mode/delete-char.yasnippet
 create mode 100755 snippets/emacs-lisp-mode/delete-directory.yasnippet
 create mode 100755 snippets/emacs-lisp-mode/delete-file.yasnippet
 create mode 100755 snippets/emacs-lisp-mode/directory-files.yasnippet
 create mode 100755 snippets/emacs-lisp-mode/file-name-directory.yasnippet
 create mode 100755 snippets/emacs-lisp-mode/file-name-extension.yasnippet
 create mode 100755 snippets/emacs-lisp-mode/file-name-sans-extension.yasnippet
 create mode 100755 snippets/emacs-lisp-mode/insert-file-contents.yasnippet
 create mode 100755 snippets/emacs-lisp-mode/make-directory.yasnippet
 create mode 100755 snippets/emacs-lisp-mode/region-active-p.yasnippet
 create mode 100755 snippets/emacs-lisp-mode/rename-file.yasnippet
 create mode 100755 snippets/emacs-lisp-mode/save-buffer.yasnippet
 create mode 100755 snippets/emacs-lisp-mode/search-backward-regexp.yasnippet
 create mode 100755 snippets/emacs-lisp-mode/search-forward-regexp.yasnippet
 create mode 100755 snippets/emacs-lisp-mode/set-file-modes.yasnippet
 create mode 100755 snippets/emacs-lisp-mode/split-string.yasnippet
 create mode 100755 snippets/emacs-lisp-mode/thing-at-point.yasnippet
 create mode 100755 snippets/emacs-lisp-mode/vector.yasnippet
 create mode 100755 snippets/emacs-lisp-mode/y-or-n-p.yasnippet
 create mode 100755 snippets/emacs-lisp-mode/yes-or-no-p.yasnippet

diff --git a/snippets/emacs-lisp-mode/and.yasnippet b/snippets/emacs-lisp-mode/and.yasnippet
index 94d968a..6502b6a 100755
--- a/snippets/emacs-lisp-mode/and.yasnippet
+++ b/snippets/emacs-lisp-mode/and.yasnippet
@@ -1,5 +1,6 @@
 #contributor: Xah Lee (XahLee.org)
 #name: and
 #key: and
+#key: a
 # --
 (and $0)
\ No newline at end of file
diff --git a/snippets/emacs-lisp-mode/aset.yasnippet b/snippets/emacs-lisp-mode/aset.yasnippet
new file mode 100755
index 0000000..9402dc9
--- /dev/null
+++ b/snippets/emacs-lisp-mode/aset.yasnippet
@@ -0,0 +1,5 @@
+#contributor: Xah Lee (XahLee.org)
+#name: aset
+#key: aset
+# --
+(aset ARRAY$0 IDX NEWELT)
\ No newline at end of file
diff --git a/snippets/emacs-lisp-mode/bounds-of-thing-at-point.yasnippet b/snippets/emacs-lisp-mode/bounds-of-thing-at-point.yasnippet
new file mode 100755
index 0000000..103d0f8
--- /dev/null
+++ b/snippets/emacs-lisp-mode/bounds-of-thing-at-point.yasnippet
@@ -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 ...
+
diff --git a/snippets/emacs-lisp-mode/buffer-modified-p.yasnippet b/snippets/emacs-lisp-mode/buffer-modified-p.yasnippet
new file mode 100755
index 0000000..f3ca3aa
--- /dev/null
+++ b/snippets/emacs-lisp-mode/buffer-modified-p.yasnippet
@@ -0,0 +1,6 @@
+#contributor: Xah Lee (XahLee.org)
+#name: buffer-modified-p
+#key: buffer-modified-p
+#key: bmp
+# --
+(buffer-modified-p $0)
\ No newline at end of file
diff --git a/snippets/emacs-lisp-mode/copy-directory.yasnippet b/snippets/emacs-lisp-mode/copy-directory.yasnippet
new file mode 100755
index 0000000..b2516d5
--- /dev/null
+++ b/snippets/emacs-lisp-mode/copy-directory.yasnippet
@@ -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)
\ No newline at end of file
diff --git a/snippets/emacs-lisp-mode/copy-file.yasnippet b/snippets/emacs-lisp-mode/copy-file.yasnippet
new file mode 100755
index 0000000..b952b16
--- /dev/null
+++ b/snippets/emacs-lisp-mode/copy-file.yasnippet
@@ -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)
\ No newline at end of file
diff --git a/snippets/emacs-lisp-mode/defun.yasnippet b/snippets/emacs-lisp-mode/defun.yasnippet
index 26451cb..3937d6d 100755
--- a/snippets/emacs-lisp-mode/defun.yasnippet
+++ b/snippets/emacs-lisp-mode/defun.yasnippet
@@ -1,6 +1,7 @@
 #contributor: Xah Lee (XahLee.org)
 #name: defun
 #key: defun
+#key: d
 # --
 (defun $1 ()
   "DOCSTRING"
diff --git a/snippets/emacs-lisp-mode/defvar.yasnippet b/snippets/emacs-lisp-mode/defvar.yasnippet
index 676e92e..bf5fa81 100755
--- a/snippets/emacs-lisp-mode/defvar.yasnippet
+++ b/snippets/emacs-lisp-mode/defvar.yasnippet
@@ -2,4 +2,4 @@
 #name: defvar
 #key: defvar
 # --
-(defvar SYMBOL &optional INITVALUE "DOCSTRING")
\ No newline at end of file
+(defvar $0 &optional INITVALUE "DOCSTRING")
\ No newline at end of file
diff --git a/snippets/emacs-lisp-mode/delete-char.yasnippet b/snippets/emacs-lisp-mode/delete-char.yasnippet
new file mode 100755
index 0000000..da983bd
--- /dev/null
+++ b/snippets/emacs-lisp-mode/delete-char.yasnippet
@@ -0,0 +1,6 @@
+#contributor: Xah Lee (XahLee.org)
+#name: delete-char
+#key: delete-char
+#key: dc
+# --
+(delete-char $0)
\ No newline at end of file
diff --git a/snippets/emacs-lisp-mode/delete-directory.yasnippet b/snippets/emacs-lisp-mode/delete-directory.yasnippet
new file mode 100755
index 0000000..59f0838
--- /dev/null
+++ b/snippets/emacs-lisp-mode/delete-directory.yasnippet
@@ -0,0 +1,6 @@
+#contributor: Xah Lee (XahLee.org)
+#name: delete-directory
+#key: delete-directory
+#key: dd
+# --
+(delete-directory $0 &optional RECURSIVE)
\ No newline at end of file
diff --git a/snippets/emacs-lisp-mode/delete-file.yasnippet b/snippets/emacs-lisp-mode/delete-file.yasnippet
new file mode 100755
index 0000000..dfbd4f1
--- /dev/null
+++ b/snippets/emacs-lisp-mode/delete-file.yasnippet
@@ -0,0 +1,6 @@
+#contributor: Xah Lee (XahLee.org)
+#name: delete-file
+#key: delete-file
+#key: df
+# --
+(delete-file $0)
\ No newline at end of file
diff --git a/snippets/emacs-lisp-mode/directory-files.yasnippet b/snippets/emacs-lisp-mode/directory-files.yasnippet
new file mode 100755
index 0000000..df301a2
--- /dev/null
+++ b/snippets/emacs-lisp-mode/directory-files.yasnippet
@@ -0,0 +1,6 @@
+#contributor: Xah Lee (XahLee.org)
+#name: directory-files
+#key: directory-files
+#key: df
+# --
+(directory-files $0 &optional FULL MATCH NOSORT)
\ No newline at end of file
diff --git a/snippets/emacs-lisp-mode/file-name-directory.yasnippet b/snippets/emacs-lisp-mode/file-name-directory.yasnippet
new file mode 100755
index 0000000..e7fb5c0
--- /dev/null
+++ b/snippets/emacs-lisp-mode/file-name-directory.yasnippet
@@ -0,0 +1,6 @@
+#contributor: Xah Lee (XahLee.org)
+#name: file-name-directory
+#key: file-name-directory
+#key: fnd
+# --
+(file-name-directory $0)
\ No newline at end of file
diff --git a/snippets/emacs-lisp-mode/file-name-extension.yasnippet b/snippets/emacs-lisp-mode/file-name-extension.yasnippet
new file mode 100755
index 0000000..38dc0c4
--- /dev/null
+++ b/snippets/emacs-lisp-mode/file-name-extension.yasnippet
@@ -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)
\ No newline at end of file
diff --git a/snippets/emacs-lisp-mode/file-name-sans-extension.yasnippet b/snippets/emacs-lisp-mode/file-name-sans-extension.yasnippet
new file mode 100755
index 0000000..8b18db5
--- /dev/null
+++ b/snippets/emacs-lisp-mode/file-name-sans-extension.yasnippet
@@ -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)
\ No newline at end of file
diff --git a/snippets/emacs-lisp-mode/insert-file-contents.yasnippet b/snippets/emacs-lisp-mode/insert-file-contents.yasnippet
new file mode 100755
index 0000000..ffdd154
--- /dev/null
+++ b/snippets/emacs-lisp-mode/insert-file-contents.yasnippet
@@ -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)
\ No newline at end of file
diff --git a/snippets/emacs-lisp-mode/insert.yasnippet b/snippets/emacs-lisp-mode/insert.yasnippet
index 2dbd0bd..ae5943d 100755
--- a/snippets/emacs-lisp-mode/insert.yasnippet
+++ b/snippets/emacs-lisp-mode/insert.yasnippet
@@ -1,6 +1,6 @@
 #contributor: Xah Lee (XahLee.org)
 #name: insert
 #key: insert
-#key: ins
+#key: i
 # --
 (insert $0)
\ No newline at end of file
diff --git a/snippets/emacs-lisp-mode/let.yasnippet b/snippets/emacs-lisp-mode/let.yasnippet
index 90110be..76e991e 100755
--- a/snippets/emacs-lisp-mode/let.yasnippet
+++ b/snippets/emacs-lisp-mode/let.yasnippet
@@ -1,6 +1,7 @@
 #contributor: Xah Lee (XahLee.org)
 #name: let
 #key: let
+#key: l
 # --
 (let ($1 )
  $0
diff --git a/snippets/emacs-lisp-mode/make-directory.yasnippet b/snippets/emacs-lisp-mode/make-directory.yasnippet
new file mode 100755
index 0000000..6c6ee64
--- /dev/null
+++ b/snippets/emacs-lisp-mode/make-directory.yasnippet
@@ -0,0 +1,6 @@
+#contributor: Xah Lee (XahLee.org)
+#name: make-directory
+#key: make-directory
+#key: md
+# --
+(make-directory $0 &optional PARENTS)
\ No newline at end of file
diff --git a/snippets/emacs-lisp-mode/message.yasnippet b/snippets/emacs-lisp-mode/message.yasnippet
index a478288..ea3009e 100755
--- a/snippets/emacs-lisp-mode/message.yasnippet
+++ b/snippets/emacs-lisp-mode/message.yasnippet
@@ -1,6 +1,6 @@
 #contributor: Xah Lee (XahLee.org)
 #name: message
 #key: message
-#key: msg
+#key: m
 # --
 (message "FORMATSTRING$0" &optional ARGS)
\ No newline at end of file
diff --git a/snippets/emacs-lisp-mode/not.yasnippet b/snippets/emacs-lisp-mode/not.yasnippet
index 624bea5..083bcd7 100755
--- a/snippets/emacs-lisp-mode/not.yasnippet
+++ b/snippets/emacs-lisp-mode/not.yasnippet
@@ -1,5 +1,6 @@
 #contributor: Xah Lee (XahLee.org)
 #name: not
 #key: not
+#key: n
 # --
 (not $0 )
\ No newline at end of file
diff --git a/snippets/emacs-lisp-mode/or.yasnippet b/snippets/emacs-lisp-mode/or.yasnippet
index 74e817a..046218c 100755
--- a/snippets/emacs-lisp-mode/or.yasnippet
+++ b/snippets/emacs-lisp-mode/or.yasnippet
@@ -1,5 +1,6 @@
 #contributor: Xah Lee (XahLee.org)
 #name: or
 #key: or
+#key: o
 # --
 (or $0 )
\ No newline at end of file
diff --git a/snippets/emacs-lisp-mode/region-active-p.yasnippet b/snippets/emacs-lisp-mode/region-active-p.yasnippet
new file mode 100755
index 0000000..e70553e
--- /dev/null
+++ b/snippets/emacs-lisp-mode/region-active-p.yasnippet
@@ -0,0 +1,6 @@
+#contributor: Xah Lee (XahLee.org)
+#name: region-active-p
+#key: region-active-p
+#key: rap
+# --
+(region-active-p)
\ No newline at end of file
diff --git a/snippets/emacs-lisp-mode/rename-file.yasnippet b/snippets/emacs-lisp-mode/rename-file.yasnippet
new file mode 100755
index 0000000..b589a89
--- /dev/null
+++ b/snippets/emacs-lisp-mode/rename-file.yasnippet
@@ -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)
\ No newline at end of file
diff --git a/snippets/emacs-lisp-mode/save-buffer.yasnippet b/snippets/emacs-lisp-mode/save-buffer.yasnippet
new file mode 100755
index 0000000..931a72c
--- /dev/null
+++ b/snippets/emacs-lisp-mode/save-buffer.yasnippet
@@ -0,0 +1,6 @@
+#contributor: Xah Lee (XahLee.org)
+#name: save-buffer
+#key: save-buffer
+#key: sb
+# --
+(save-buffer $0)
\ No newline at end of file
diff --git a/snippets/emacs-lisp-mode/search-backward-regexp.yasnippet b/snippets/emacs-lisp-mode/search-backward-regexp.yasnippet
new file mode 100755
index 0000000..33795fd
--- /dev/null
+++ b/snippets/emacs-lisp-mode/search-backward-regexp.yasnippet
@@ -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)
\ No newline at end of file
diff --git a/snippets/emacs-lisp-mode/search-forward-regexp.yasnippet b/snippets/emacs-lisp-mode/search-forward-regexp.yasnippet
new file mode 100755
index 0000000..eb37b84
--- /dev/null
+++ b/snippets/emacs-lisp-mode/search-forward-regexp.yasnippet
@@ -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)
\ No newline at end of file
diff --git a/snippets/emacs-lisp-mode/set-file-modes.yasnippet b/snippets/emacs-lisp-mode/set-file-modes.yasnippet
new file mode 100755
index 0000000..f7d7e16
--- /dev/null
+++ b/snippets/emacs-lisp-mode/set-file-modes.yasnippet
@@ -0,0 +1,6 @@
+#contributor: Xah Lee (XahLee.org)
+#name: set-file-modes
+#key: set-file-modes
+#key: sfm
+# --
+(set-file-modes $0 MODE)
\ No newline at end of file
diff --git a/snippets/emacs-lisp-mode/split-string.yasnippet b/snippets/emacs-lisp-mode/split-string.yasnippet
new file mode 100755
index 0000000..37c372d
--- /dev/null
+++ b/snippets/emacs-lisp-mode/split-string.yasnippet
@@ -0,0 +1,6 @@
+#contributor: Xah Lee (XahLee.org)
+#name: split-string
+#key: split-string
+#key: ss
+# --
+(split-string $0 &optional SEPARATORS OMIT-NULLS)
\ No newline at end of file
diff --git a/snippets/emacs-lisp-mode/thing-at-point.yasnippet b/snippets/emacs-lisp-mode/thing-at-point.yasnippet
new file mode 100755
index 0000000..412c431
--- /dev/null
+++ b/snippets/emacs-lisp-mode/thing-at-point.yasnippet
@@ -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 ...
+
diff --git a/snippets/emacs-lisp-mode/vector.yasnippet b/snippets/emacs-lisp-mode/vector.yasnippet
new file mode 100755
index 0000000..59ad236
--- /dev/null
+++ b/snippets/emacs-lisp-mode/vector.yasnippet
@@ -0,0 +1,6 @@
+#contributor: Xah Lee (XahLee.org)
+#name: vector
+#key: vector
+#key: v
+# --
+(vector $0)
\ No newline at end of file
diff --git a/snippets/emacs-lisp-mode/y-or-n-p.yasnippet b/snippets/emacs-lisp-mode/y-or-n-p.yasnippet
new file mode 100755
index 0000000..8aeec63
--- /dev/null
+++ b/snippets/emacs-lisp-mode/y-or-n-p.yasnippet
@@ -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 ")
\ No newline at end of file
diff --git a/snippets/emacs-lisp-mode/yes-or-no-p.yasnippet b/snippets/emacs-lisp-mode/yes-or-no-p.yasnippet
new file mode 100755
index 0000000..e7bb064
--- /dev/null
+++ b/snippets/emacs-lisp-mode/yes-or-no-p.yasnippet
@@ -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 ")
\ No newline at end of file