From 6c35178715787c922e1395523a3eb1850a483004 Mon Sep 17 00:00:00 2001
From: Xah Lee <xahlee@gmail.com>
Date: Thu, 5 Aug 2010 07:44:11 +0000
Subject: [PATCH] added about 10 elisp keywords. work in progress to add more.

---
 snippets/emacs-lisp-mode/.read_me                        | 5 ++++-
 snippets/emacs-lisp-mode/and.yasnippet                   | 4 ++++
 snippets/emacs-lisp-mode/autoload.yasnippet              | 5 +++++
 snippets/emacs-lisp-mode/car.yasnippet                   | 4 ++++
 snippets/emacs-lisp-mode/define-key.yasnippet            | 4 ++++
 snippets/emacs-lisp-mode/{defun => defun.yasnippet}      | 9 ++++-----
 snippets/emacs-lisp-mode/defvar.yasnippet                | 4 ++++
 snippets/emacs-lisp-mode/grabthing                       | 4 ----
 snippets/emacs-lisp-mode/if.yasnippet                    | 4 ++++
 snippets/emacs-lisp-mode/let.yasnippet                   | 6 ++++++
 snippets/emacs-lisp-mode/not.yasnippet                   | 4 ++++
 snippets/emacs-lisp-mode/or.yasnippet                    | 4 ++++
 snippets/emacs-lisp-mode/quote.yasnippet                 | 5 +++++
 snippets/emacs-lisp-mode/setq.yasnippet                  | 4 ++++
 ...d.process_marked => x-dired.process_marked.yasnippet} | 4 ++--
 .../{file.process => x-file.process.yasnippet}           | 4 ++--
 .../{file.read-lines => x-file.read-lines.yasnippet}     | 4 ++--
 .../{find-replace => x-find-replace.yasnippet}           | 4 ++--
 .../{grabstring => x-grabstring.yasnippet}               | 4 ++--
 snippets/emacs-lisp-mode/x-grabthing.yasnippet           | 4 ++++
 .../{traverse_dir => x-traverse_dir.yasnippet}           | 4 ++--
 .../{word-or-region => x-word-or-region.yasnippet}       | 4 ++--
 22 files changed, 74 insertions(+), 24 deletions(-)
 create mode 100755 snippets/emacs-lisp-mode/and.yasnippet
 create mode 100755 snippets/emacs-lisp-mode/autoload.yasnippet
 create mode 100755 snippets/emacs-lisp-mode/car.yasnippet
 create mode 100755 snippets/emacs-lisp-mode/define-key.yasnippet
 rename snippets/emacs-lisp-mode/{defun => defun.yasnippet} (51%)
 mode change 100644 => 100755
 create mode 100755 snippets/emacs-lisp-mode/defvar.yasnippet
 delete mode 100644 snippets/emacs-lisp-mode/grabthing
 create mode 100755 snippets/emacs-lisp-mode/if.yasnippet
 create mode 100755 snippets/emacs-lisp-mode/let.yasnippet
 create mode 100755 snippets/emacs-lisp-mode/not.yasnippet
 create mode 100755 snippets/emacs-lisp-mode/or.yasnippet
 create mode 100755 snippets/emacs-lisp-mode/quote.yasnippet
 create mode 100755 snippets/emacs-lisp-mode/setq.yasnippet
 rename snippets/emacs-lisp-mode/{dired.process_marked => x-dired.process_marked.yasnippet} (84%)
 mode change 100644 => 100755
 rename snippets/emacs-lisp-mode/{file.process => x-file.process.yasnippet} (87%)
 mode change 100644 => 100755
 rename snippets/emacs-lisp-mode/{file.read-lines => x-file.read-lines.yasnippet} (82%)
 mode change 100644 => 100755
 rename snippets/emacs-lisp-mode/{find-replace => x-find-replace.yasnippet} (88%)
 mode change 100644 => 100755
 rename snippets/emacs-lisp-mode/{grabstring => x-grabstring.yasnippet} (51%)
 mode change 100644 => 100755
 create mode 100755 snippets/emacs-lisp-mode/x-grabthing.yasnippet
 rename snippets/emacs-lisp-mode/{traverse_dir => x-traverse_dir.yasnippet} (67%)
 mode change 100644 => 100755
 rename snippets/emacs-lisp-mode/{word-or-region => x-word-or-region.yasnippet} (91%)
 mode change 100644 => 100755

diff --git a/snippets/emacs-lisp-mode/.read_me b/snippets/emacs-lisp-mode/.read_me
index 9e6e532..dda5eba 100644
--- a/snippets/emacs-lisp-mode/.read_me
+++ b/snippets/emacs-lisp-mode/.read_me
@@ -1,4 +1,7 @@
-TITLE: Emacs Idiom Template Set. Version 1. 2009-02-22
+TITLE: Emacs Idiom Template Set.
+
+Version 1.1. 2010-08-05
+Version 1. 2009-02-22
 
 DESCRIPTION: Some useful templates for emacs lisp. This template set is based on useful elisp idioms on common tasks.
 
diff --git a/snippets/emacs-lisp-mode/and.yasnippet b/snippets/emacs-lisp-mode/and.yasnippet
new file mode 100755
index 0000000..9c4b3b3
--- /dev/null
+++ b/snippets/emacs-lisp-mode/and.yasnippet
@@ -0,0 +1,4 @@
+#contributor: Xah Lee (XahLee.org)
+#name: and
+# --
+(and $0)
\ No newline at end of file
diff --git a/snippets/emacs-lisp-mode/autoload.yasnippet b/snippets/emacs-lisp-mode/autoload.yasnippet
new file mode 100755
index 0000000..fe8a4e8
--- /dev/null
+++ b/snippets/emacs-lisp-mode/autoload.yasnippet
@@ -0,0 +1,5 @@
+#contributor: Xah Lee (XahLee.org)
+#name: autoload
+# --
+(autoload 'FUNCNAME$0 "FILENAME" & "DOCSTRING" INTERACTIVE TYPE)
+
diff --git a/snippets/emacs-lisp-mode/car.yasnippet b/snippets/emacs-lisp-mode/car.yasnippet
new file mode 100755
index 0000000..1ef1c4c
--- /dev/null
+++ b/snippets/emacs-lisp-mode/car.yasnippet
@@ -0,0 +1,4 @@
+#contributor: Xah Lee (XahLee.org)
+#name: car
+# --
+(car $0)
\ No newline at end of file
diff --git a/snippets/emacs-lisp-mode/define-key.yasnippet b/snippets/emacs-lisp-mode/define-key.yasnippet
new file mode 100755
index 0000000..035efe6
--- /dev/null
+++ b/snippets/emacs-lisp-mode/define-key.yasnippet
@@ -0,0 +1,4 @@
+#contributor: Xah Lee (XahLee.org)
+#name: define-key
+# --
+(define-key KEYMAPNAME$0 (kbd "M-b") 'FUNCNAME)
\ No newline at end of file
diff --git a/snippets/emacs-lisp-mode/defun b/snippets/emacs-lisp-mode/defun.yasnippet
old mode 100644
new mode 100755
similarity index 51%
rename from snippets/emacs-lisp-mode/defun
rename to snippets/emacs-lisp-mode/defun.yasnippet
index 0105d20..8845494
--- a/snippets/emacs-lisp-mode/defun
+++ b/snippets/emacs-lisp-mode/defun.yasnippet
@@ -1,11 +1,10 @@
-#name : function template
-#contributor : Xah Lee
+#contributor: Xah Lee (XahLee.org)
+#name: defun
 # --
 (defun $1 ()
-  "thisandthat."
+  "DOCSTRING"
   (interactive)
   (let (var1)
     (setq var1 some)
     $0
-  )
-)
\ No newline at end of file
+  ))
\ No newline at end of file
diff --git a/snippets/emacs-lisp-mode/defvar.yasnippet b/snippets/emacs-lisp-mode/defvar.yasnippet
new file mode 100755
index 0000000..f027c06
--- /dev/null
+++ b/snippets/emacs-lisp-mode/defvar.yasnippet
@@ -0,0 +1,4 @@
+#contributor: Xah Lee (XahLee.org)
+#name: defvar
+# --
+(defvar SYMBOL & INITVALUE "DOCSTRING")
\ No newline at end of file
diff --git a/snippets/emacs-lisp-mode/grabthing b/snippets/emacs-lisp-mode/grabthing
deleted file mode 100644
index 772b8dc..0000000
--- a/snippets/emacs-lisp-mode/grabthing
+++ /dev/null
@@ -1,4 +0,0 @@
-#name : grab word under cursor
-#contributor : Xah Lee
-# --
-(setq $0 (thing-at-point 'symbol))
diff --git a/snippets/emacs-lisp-mode/if.yasnippet b/snippets/emacs-lisp-mode/if.yasnippet
new file mode 100755
index 0000000..c21133c
--- /dev/null
+++ b/snippets/emacs-lisp-mode/if.yasnippet
@@ -0,0 +1,4 @@
+#contributor: Xah Lee (XahLee.org)
+#name: if
+# --
+(if $0)
\ No newline at end of file
diff --git a/snippets/emacs-lisp-mode/let.yasnippet b/snippets/emacs-lisp-mode/let.yasnippet
new file mode 100755
index 0000000..5d1a40e
--- /dev/null
+++ b/snippets/emacs-lisp-mode/let.yasnippet
@@ -0,0 +1,6 @@
+#contributor: Xah Lee (XahLee.org)
+#name: let
+# --
+(let ($1 )
+ $0
+)
\ No newline at end of file
diff --git a/snippets/emacs-lisp-mode/not.yasnippet b/snippets/emacs-lisp-mode/not.yasnippet
new file mode 100755
index 0000000..3bb627a
--- /dev/null
+++ b/snippets/emacs-lisp-mode/not.yasnippet
@@ -0,0 +1,4 @@
+#contributor: Xah Lee (XahLee.org)
+#name: not
+# --
+(not $0 )
\ No newline at end of file
diff --git a/snippets/emacs-lisp-mode/or.yasnippet b/snippets/emacs-lisp-mode/or.yasnippet
new file mode 100755
index 0000000..55ac47b
--- /dev/null
+++ b/snippets/emacs-lisp-mode/or.yasnippet
@@ -0,0 +1,4 @@
+#contributor: Xah Lee (XahLee.org)
+#name: or
+# --
+(or $0 )
\ No newline at end of file
diff --git a/snippets/emacs-lisp-mode/quote.yasnippet b/snippets/emacs-lisp-mode/quote.yasnippet
new file mode 100755
index 0000000..2ce1f98
--- /dev/null
+++ b/snippets/emacs-lisp-mode/quote.yasnippet
@@ -0,0 +1,5 @@
+#contributor: Xah Lee (XahLee.org)
+#name: '(...)
+#key: '
+# --
+'($0 )
\ No newline at end of file
diff --git a/snippets/emacs-lisp-mode/setq.yasnippet b/snippets/emacs-lisp-mode/setq.yasnippet
new file mode 100755
index 0000000..f161d8a
--- /dev/null
+++ b/snippets/emacs-lisp-mode/setq.yasnippet
@@ -0,0 +1,4 @@
+#contributor: Xah Lee (XahLee.org)
+#name: setq
+# --
+(setq $0 )
\ No newline at end of file
diff --git a/snippets/emacs-lisp-mode/dired.process_marked b/snippets/emacs-lisp-mode/x-dired.process_marked.yasnippet
old mode 100644
new mode 100755
similarity index 84%
rename from snippets/emacs-lisp-mode/dired.process_marked
rename to snippets/emacs-lisp-mode/x-dired.process_marked.yasnippet
index 1b42597..30b20cb
--- a/snippets/emacs-lisp-mode/dired.process_marked
+++ b/snippets/emacs-lisp-mode/x-dired.process_marked.yasnippet
@@ -1,5 +1,5 @@
-#name : process marked files in dired
-#contributor : Xah Lee
+#contributor: Xah Lee (XahLee.org)
+#name: process marked files in dired
 # --
 ;; idiom for processing a list of files in dired's marked files
  
diff --git a/snippets/emacs-lisp-mode/file.process b/snippets/emacs-lisp-mode/x-file.process.yasnippet
old mode 100644
new mode 100755
similarity index 87%
rename from snippets/emacs-lisp-mode/file.process
rename to snippets/emacs-lisp-mode/x-file.process.yasnippet
index abd1a33..7e09cb8
--- a/snippets/emacs-lisp-mode/file.process
+++ b/snippets/emacs-lisp-mode/x-file.process.yasnippet
@@ -1,5 +1,5 @@
-#name : a function that process a file
-#contributor : Xah Lee
+#contributor: Xah Lee (XahLee.org)
+#name: a function that process a file
 # --
 (defun doThisFile (fpath)
   "Process the file at path FPATH ..."
diff --git a/snippets/emacs-lisp-mode/file.read-lines b/snippets/emacs-lisp-mode/x-file.read-lines.yasnippet
old mode 100644
new mode 100755
similarity index 82%
rename from snippets/emacs-lisp-mode/file.read-lines
rename to snippets/emacs-lisp-mode/x-file.read-lines.yasnippet
index b4a1942..015c0f2
--- a/snippets/emacs-lisp-mode/file.read-lines
+++ b/snippets/emacs-lisp-mode/x-file.read-lines.yasnippet
@@ -1,5 +1,5 @@
-#name : read lines of a file
-#contributor : Xah Lee
+#contributor: Xah Lee (XahLee.org)
+#name: read lines of a file
 # --
 (defun read-lines (filePath)
   "Return a list of lines in FILEPATH."
diff --git a/snippets/emacs-lisp-mode/find-replace b/snippets/emacs-lisp-mode/x-find-replace.yasnippet
old mode 100644
new mode 100755
similarity index 88%
rename from snippets/emacs-lisp-mode/find-replace
rename to snippets/emacs-lisp-mode/x-find-replace.yasnippet
index cefcf51..13c3b02
--- a/snippets/emacs-lisp-mode/find-replace
+++ b/snippets/emacs-lisp-mode/x-find-replace.yasnippet
@@ -1,5 +1,5 @@
-#name : find and replace on region
-#contributor : Xah Lee
+#contributor: Xah Lee (XahLee.org)
+#name: find and replace on region
 # --
 (defun replace-html-chars-region (start end)
   "Replace “<” to “&lt;” and other chars in HTML.
diff --git a/snippets/emacs-lisp-mode/grabstring b/snippets/emacs-lisp-mode/x-grabstring.yasnippet
old mode 100644
new mode 100755
similarity index 51%
rename from snippets/emacs-lisp-mode/grabstring
rename to snippets/emacs-lisp-mode/x-grabstring.yasnippet
index 55600b1..5e6aa58
--- a/snippets/emacs-lisp-mode/grabstring
+++ b/snippets/emacs-lisp-mode/x-grabstring.yasnippet
@@ -1,4 +1,4 @@
-#name : grab buffer substring
-#contributor : Xah Lee
+#contributor: Xah Lee (XahLee.org)
+#name: grab buffer substring
 # --
 (setq $0 (buffer-substring-no-properties myStartPos myEndPos))
diff --git a/snippets/emacs-lisp-mode/x-grabthing.yasnippet b/snippets/emacs-lisp-mode/x-grabthing.yasnippet
new file mode 100755
index 0000000..3f4f52c
--- /dev/null
+++ b/snippets/emacs-lisp-mode/x-grabthing.yasnippet
@@ -0,0 +1,4 @@
+#contributor: Xah Lee (XahLee.org)
+#name: grab word under cursor
+# --
+(setq $0 (thing-at-point 'symbol))
diff --git a/snippets/emacs-lisp-mode/traverse_dir b/snippets/emacs-lisp-mode/x-traverse_dir.yasnippet
old mode 100644
new mode 100755
similarity index 67%
rename from snippets/emacs-lisp-mode/traverse_dir
rename to snippets/emacs-lisp-mode/x-traverse_dir.yasnippet
index 2859cbd..09da5f2
--- a/snippets/emacs-lisp-mode/traverse_dir
+++ b/snippets/emacs-lisp-mode/x-traverse_dir.yasnippet
@@ -1,5 +1,5 @@
-#name : traversing a directory
-#contributor : Xah Lee
+#name: traversing a directory
+#contributor: Xah Lee (XahLee.org)
 # --
 ;; apply a function to all files in a dir
 (require 'find-lisp)
diff --git a/snippets/emacs-lisp-mode/word-or-region b/snippets/emacs-lisp-mode/x-word-or-region.yasnippet
old mode 100644
new mode 100755
similarity index 91%
rename from snippets/emacs-lisp-mode/word-or-region
rename to snippets/emacs-lisp-mode/x-word-or-region.yasnippet
index 66a59e4..0f3d1b8
--- a/snippets/emacs-lisp-mode/word-or-region
+++ b/snippets/emacs-lisp-mode/x-word-or-region.yasnippet
@@ -1,5 +1,5 @@
-#name : Command that works on region or word
-#contributor : Xah Lee
+#contributor: Xah Lee (XahLee.org)
+#name: Command that works on region or word
 # --
 ;; example of a command that works on current word or text selection
 (defun down-case-word-or-region ()