add a whole bunch of snippets taken from other people

css-mode/bg

@@ -0,0 +1,3 @@
+#name : background-color: ...
+# --
+background-color: #${1:DDD};

css-mode/bg.1

@@ -0,0 +1,3 @@
+#name : background-image: ...
+# --
+background-image: url($1);

css-mode/bor

@@ -0,0 +1,3 @@
+#name : border size style color
+# --
+border: ${1:1px} ${2:solid} #${3:999};

css-mode/cl

@@ -0,0 +1,4 @@
+#contributor : rejeep <johan.rejeep@gmail.com>
+#name : clear: ...
+# --
+clear: $1;

css-mode/disp.block

@@ -0,0 +1,4 @@
+#contributor : rejeep <johan.rejeep@gmail.com>
+#name : display: block
+# --
+display: block;

css-mode/disp.inline

@@ -0,0 +1,4 @@
+#contributor : rejeep <johan.rejeep@gmail.com>
+#name : display: inline
+# --
+display: inline;

css-mode/disp.none

@@ -0,0 +1,4 @@
+#contributor : rejeep <johan.rejeep@gmail.com>
+#name : display: none
+# --
+display: none;

css-mode/ff

@@ -0,0 +1,4 @@
+#contributor : rejeep <johan.rejeep@gmail.com>
+#name : font-family: ...
+# --
+font-family: $1;

css-mode/fs

@@ -0,0 +1,4 @@
+#contributor : rejeep <johan.rejeep@gmail.com>
+#name : font-size: ...
+# --
+font-size: ${12px};

css-mode/mar.bottom

@@ -0,0 +1,4 @@
+#contributor : rejeep <johan.rejeep@gmail.com>
+#name : margin-bottom: ...
+# --
+margin-bottom: $1;

css-mode/mar.left

@@ -0,0 +1,4 @@
+#contributor : rejeep <johan.rejeep@gmail.com>
+#name : margin-left: ...
+# --
+margin-left: $1;

css-mode/mar.mar

@@ -0,0 +1,4 @@
+#contributor : rejeep <johan.rejeep@gmail.com>
+#name : margin: ...
+# --
+margin: $1;

css-mode/mar.margin

@@ -0,0 +1,4 @@
+#contributor : rejeep <johan.rejeep@gmail.com>
+#name : margin top right bottom left
+# --
+margin: ${top} ${right} ${bottom} ${left};

css-mode/mar.right

@@ -0,0 +1,4 @@
+#contributor : rejeep <johan.rejeep@gmail.com>
+#name : margin-right: ...
+# --
+margin-right: $1;

css-mode/mar.top

@@ -0,0 +1,4 @@
+#contributor : rejeep <johan.rejeep@gmail.com>
+#name : margin-top: ...
+# --
+margin-top: $1;

css-mode/pad.bottom

@@ -0,0 +1,4 @@
+#contributor : rejeep <johan.rejeep@gmail.com>
+#name : padding-bottom: ...
+# --
+padding-bottom: $1;

css-mode/pad.left

@@ -0,0 +1,4 @@
+#contributor : rejeep <johan.rejeep@gmail.com>
+#name : padding-left: ...
+# --
+padding-left: $1;

css-mode/pad.pad

@@ -0,0 +1,4 @@
+#contributor : rejeep <johan.rejeep@gmail.com>
+#name : padding: ...
+# --
+padding: $1;

css-mode/pad.padding

@@ -0,0 +1,4 @@
+#contributor : rejeep <johan.rejeep@gmail.com>
+#name : padding: top right bottom left
+# --
+padding: ${top} ${right} ${bottom} ${left};

css-mode/pad.right

@@ -0,0 +1,4 @@
+#contributor : rejeep <johan.rejeep@gmail.com>
+#name : padding-right: ...
+# --
+padding-right: $1;

css-mode/pad.top

@@ -0,0 +1,4 @@
+#contributor : rejeep <johan.rejeep@gmail.com>
+#name : padding-top: ...
+# --
+padding-top: $1;

emacs-lisp-mode/dired.process_marked

@@ -0,0 +1,16 @@
+#name : process marked files in dired
+#contributor : Xah Lee
+# --
+;; idiom for processing a list of files in dired's marked files
+ 
+;; suppose myProcessFile is your function that takes a file path
+;; and do some processing on the file
+
+(defun dired-myProcessFile ()
+  "apply myProcessFile function to marked files in dired."
+  (interactive)
+  (require 'dired)
+  (mapc 'myProcessFile (dired-get-marked-files))
+)
+
+;; to use it, type M-x dired-myProcessFile

emacs-lisp-mode/file.process

@@ -0,0 +1,17 @@
+#name : a function that process a file
+#contributor : Xah Lee
+# --
+(defun doThisFile (fpath)
+  "Process the file at path FPATH ..."
+  (let ()
+    ;; create temp buffer without undo record or font lock. (more efficient)
+    ;; first space in temp buff name is necessary
+    (set-buffer (get-buffer-create " myTemp"))
+    (insert-file-contents fpath nil nil nil t)
+
+    ;; process it ...
+    ;; (goto-char 0) ; move to begining of file's content (in case it was open)
+    ;; ... do something here
+    ;; (write-file fpath) ;; write back to the file
+
+    (kill-buffer " myTemp")))

emacs-lisp-mode/file.read-lines

@@ -0,0 +1,17 @@
+#name : read lines of a file
+#contributor : Xah Lee
+# --
+(defun read-lines (filePath)
+  "Return a list of lines in FILEPATH."
+  (with-temp-buffer
+    (insert-file-contents filePath)
+    (split-string
+     (buffer-string) "\n" t)) )
+
+;; process all lines
+(mapc 
+ (lambda (aLine) 
+   (message aLine) ; do your stuff here
+   )
+ (read-lines "inputFilePath")
+)

emacs-lisp-mode/find-replace

@@ -0,0 +1,17 @@
+#name : find and replace on region
+#contributor : Xah Lee
+# --
+(defun replace-html-chars-region (start end)
+  "Replace “<” to “&lt;” and other chars in HTML.
+This works on the current region."
+  (interactive "r")
+  (save-restriction 
+    (narrow-to-region start end)
+    (goto-char (point-min))
+    (while (search-forward "&" nil t) (replace-match "&amp;" nil t))
+    (goto-char (point-min))
+    (while (search-forward "<" nil t) (replace-match "&lt;" nil t))
+    (goto-char (point-min))
+    (while (search-forward ">" nil t) (replace-match "&gt;" nil t))
+    )
+  )

emacs-lisp-mode/grabstring

@@ -0,0 +1,4 @@
+#name : grab buffer substring
+#contributor : Xah Lee
+# --
+(setq $0 (buffer-substring-no-properties myStartPos myEndPos))

emacs-lisp-mode/grabthing

@@ -0,0 +1,4 @@
+#name : grab word under cursor
+#contributor : Xah Lee
+# --
+(setq $0 (thing-at-point 'symbol))

emacs-lisp-mode/traverse_dir

@@ -0,0 +1,6 @@
+#name : traversing a directory
+#contributor : Xah Lee
+# --
+;; apply a function to all files in a dir
+(require 'find-lisp)
+(mapc 'my-process-file (find-lisp-find-files "~/myweb/" "\\.html$"))

emacs-lisp-mode/word-or-region

@@ -0,0 +1,27 @@
+#name : Command that works on region or word
+#contributor : Xah Lee
+# --
+;; example of a command that works on current word or text selection
+(defun down-case-word-or-region ()
+  "Lower case the current word or text selection."
+(interactive)
+(let (pos1 pos2 meat)
+  (if (and transient-mark-mode mark-active)
+      (setq pos1 (region-beginning)
+            pos2 (region-end))
+    (setq pos1 (car (bounds-of-thing-at-point 'symbol))
+          pos2 (cdr (bounds-of-thing-at-point 'symbol))))
+
+  ; now, pos1 and pos2 are the starting and ending positions
+  ; of the current word, or current text selection if exists
+
+  ;; put your code here.
+  $0
+  ;; Some example of things you might want to do
+  (downcase-region pos1 pos2) ; example of a func that takes region as args
+  (setq meat (buffer-substring-no-properties pos1 pos2)) ; grab the text.
+  (delete-region pos1 pos2) ; get rid of it
+  (insert "newText") ; insert your new text
+
+  )
+)

erlang-mode/after

@@ -0,0 +1,4 @@
+#name : after ... ->
+# --
+after
+    $1 -> $0

erlang-mode/begin

@@ -0,0 +1,5 @@
+#name : begin ... end
+# --
+begin
+    $0
+end

erlang-mode/beh

@@ -0,0 +1,4 @@
+#name : -behaviour(...).
+# --
+-behaviour(${1:gen_server}).
+$0

erlang-mode/case

@@ -0,0 +1,5 @@
+#name : case ... of ... end
+# --
+case $1 of
+    $0
+end

erlang-mode/compile

@@ -0,0 +1,4 @@
+#name : -compile(...).
+# --
+-compile([${1:export_all}]).
+$0

erlang-mode/def

@@ -0,0 +1,4 @@
+#name : -define(...,...).
+# --
+-define($1,$2).
+$0

erlang-mode/exp

@@ -0,0 +1,5 @@
+#name : -export([]).
+#contributor : hitesh <hitesh.jasani@gmail.com>
+# --
+-export([${1:start/0}]).
+$0

erlang-mode/fun

@@ -0,0 +1,3 @@
+#name : fun (...) -> ... end
+# --
+fun ($1) -> $0 end

erlang-mode/if

@@ -0,0 +1,6 @@
+#name : if ... -> ... ; true -> ... end
+# --
+if
+    $1 -> $2;
+    true -> $0
+end

erlang-mode/ifdef

@@ -0,0 +1,5 @@
+#name : -ifdef(...). ... -endif.
+# --
+-ifdef($1).
+$0
+-endif.

erlang-mode/ifndef

@@ -0,0 +1,5 @@
+#name : -ifndef(...). ... -endif.
+# --
+-ifndef($1).
+$0
+-endif.

erlang-mode/imp

@@ -0,0 +1,5 @@
+#name : -import([]).
+#contributor : hitesh <hitesh.jasani@gmail.com>
+# --
+-import(${1:lists}, [${2:map/2, sum/1}]).
+$0

erlang-mode/inc

@@ -0,0 +1,4 @@
+#name : -include("...").
+# --
+-include("$1").
+$0

erlang-mode/inc.lib

@@ -0,0 +1,4 @@
+#name : -include_lib("...").
+# --
+-include_lib("$1").
+$0

erlang-mode/loop

@@ -0,0 +1,8 @@
+#name : loop(...) -> receive _ -> loop(...) end.
+# --
+${1:loop}($2) ->
+    receive
+	${3:_} ->
+	    $1($2)
+    end.
+$0

erlang-mode/mod

@@ -0,0 +1,6 @@
+#name : -module().
+#contributor : hitesh <hitesh.jasani@gmail.com>
+# --
+-module(${1:`(file-name-nondirectory
+              (file-name-sans-extension (or (buffer-file-name) (buffer-name))))`}).
+$0

erlang-mode/rcv

@@ -0,0 +1,5 @@
+#name : receive ... -> ... end
+# --
+receive
+    $1 -> $0
+end

erlang-mode/rcv.after

@@ -0,0 +1,6 @@
+#name : receive after ... -> ... end
+# --
+receive
+after
+    $1 -> $0
+end

erlang-mode/rec

@@ -0,0 +1,4 @@
+#name : -record(...,{...}).
+# --
+-record($1,{$2}).
+$0

erlang-mode/try

@@ -0,0 +1,7 @@
+#name : try ... of ... catch after end
+# --
+try $1 of
+    $0
+catch
+after
+end

erlang-mode/undef

@@ -0,0 +1,4 @@
+#name : -undef(...).
+# --
+-undef($1).
+$0

f90-mode/au

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : automatic
+# --
+automatic $0 

f90-mode/bd

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : block data
+# --
+block data $0

f90-mode/c

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : continue
+# --
+continue $0

f90-mode/ch

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : character
+# --
+character $0

f90-mode/cx

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : complex
+# --
+complex $0

f90-mode/dc

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : double complex
+# --
+double complex $0

f90-mode/do

@@ -0,0 +1,6 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : do while (...) end do
+# --
+do while (${1:condition})
+   $0
+end do

f90-mode/dp

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : double precision
+# --
+double precision $0

f90-mode/eq

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : equivalence
+# --
+equivalence $0

f90-mode/ib

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : implicit byte
+# --
+implicit byte $0

f90-mode/ic

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : implicit complex
+# --
+implicit complex $0

f90-mode/ich

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : implicit character
+# --
+implicit character $0

f90-mode/if

@@ -0,0 +1,6 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : if then end if
+# --
+if ( ${1:condition} ) then
+   $0
+end if

f90-mode/ii

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : implicit integer 
+# --
+implicit integer $0

f90-mode/il

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : implicit logical
+# --
+implicit logical $0

f90-mode/in

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : implicit none
+# --
+implicit none

f90-mode/inc

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : include
+# --
+include $0

f90-mode/intr

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : intrinsic
+# --
+intrinsic $0

f90-mode/ir

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : implicit real
+# --
+implicit real $0

f90-mode/l

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : logical
+# --
+logical $0

f90-mode/pa

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : parameter
+# --
+parameter $0

f90-mode/pr

@@ -0,0 +1,6 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : program ... end program ...
+# --
+program ${1:name}
+  $0
+end program ${1:name}

f90-mode/re

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : read (*,*)
+# --
+read (${1:*},${2:*}) $0

f90-mode/st

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : structure
+# --
+structure $0

f90-mode/su

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : subroutine
+# --
+subroutine $0

f90-mode/wr

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : write (*,*)
+# --
+write (${1:*},${2:*}) $0

html-mode/body

@@ -0,0 +1,6 @@
+#contributor : Jimmy Wu <frozenthrone88@gmail.com>
+#name : <body>...</body>
+# --
+<body$1>
+  $0
+</body>

html-mode/br

@@ -0,0 +1,4 @@
+#contributor : Jimmy Wu <frozenthrone88@gmail.com>
+#name : <br />
+# --
+<br />

html-mode/code

@@ -0,0 +1,6 @@
+#contributor : Jimmy Wu <frozenthrone88@gmail.com>
+#name : <code>...</code>
+# --
+<code>
+  $0
+</code>

html-mode/code.class

@@ -0,0 +1,6 @@
+#contributor : Jimmy Wu <frozenthrone88@gmail.com>
+#name : <code class="...">...</code>
+# --
+<code class="$1">
+  $0
+</code>

html-mode/dd

@@ -0,0 +1,5 @@
+#contributor : Rodrigo Setti <rodrigosetti@gmail.com>
+#name : <dd> ... </dd>
+#group : list
+# --
+<dd>$1</dd>

html-mode/div

@@ -0,0 +1,3 @@
+#name : <div...>...</div>
+# --
+<div${1: id="${2:some_id}"}${3: class="${4:some_class}"}>$0</div> 

html-mode/div.class

@@ -0,0 +1,6 @@
+#contributor : Jimmy Wu <frozenthrone88@gmail.com>
+#name : <div class="...">...</div>
+# --
+<div class="$1">
+  $0
+</div>

html-mode/div.id

@@ -0,0 +1,6 @@
+#contributor : Jimmy Wu <frozenthrone88@gmail.com>
+#name : <div id="...">...</div>
+# --
+<div id="$1">
+  $0
+</div>

html-mode/div.id-class

@@ -0,0 +1,6 @@
+#contributor : Jimmy Wu <frozenthrone88@gmail.com>
+#name : <div id="..." class="...">...</div>
+# --
+<div id="$1" class="$2">
+  $0
+</div>

html-mode/dl

@@ -0,0 +1,7 @@
+#contributor : Rodrigo Setti <rodrigosetti@gmail.com>
+#name : <dl> ... </dl>
+#group : list
+# --
+<dl>
+    $0
+</dl>

html-mode/dl.id

@@ -0,0 +1,7 @@
+#contributor : Rodrigo Setti <rodrigosetti@gmail.com>
+#name : <dl> ... </dl>
+#group : list
+# --
+<dl id="$1">
+    $0
+</dl>

html-mode/doctype

@@ -0,0 +1,4 @@
+#name : Doctype HTML 4.01 Strict
+#group : meta
+# --
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">

html-mode/doctype.xhml1

@@ -0,0 +1,4 @@
+#name : DocType XHTML 1.0 frameset
+#group : meta
+# --
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Frameset//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-frameset.dtd">

html-mode/doctype.xhtml1_1

@@ -0,0 +1,4 @@
+#name : DocType XHTML 1.1
+#group : meta
+# --
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">

html-mode/doctype.xhtml1_strict

@@ -0,0 +1,4 @@
+#name : DocType XHTML 1.0 Strict
+#group : meta
+# --
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">

html-mode/doctype.xhtml1_transitional

@@ -0,0 +1,4 @@
+#name : DocType XHTML 1.0 Transitional
+#group : meta
+# --
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

html-mode/dov

@@ -0,0 +1,11 @@
+#name : <dov...>...</dov>
+# --
+a mirror up here $3
+
+
+<dov ${1:id="${2:some_id and here comes another nested field: ${3:nested_shit}}"}>
+    $0
+</dov>
+<dov $1>
+    actually some other shit and $3
+</dov>

html-mode/dt

@@ -0,0 +1,5 @@
+#contributor : Rodrigo Setti <rodrigosetti@gmail.com>
+#name : <dt> ... </dt>
+#group : list
+# --
+<dt>$1</dt>

html-mode/form

@@ -0,0 +1,6 @@
+#contributor : Jimmy Wu <frozenthrone88@gmail.com>
+#name :<form method="..." id="..." action="..."></form>
+# --
+<form method="$1" id="$2" action="$3">
+  $0
+</form>

html-mode/h1

@@ -0,0 +1,5 @@
+#contributor : Jimmy Wu <frozenthrone88@gmail.com>
+#name : <h1>...</h1>
+#group : header
+# --
+<h1>$1</h1>

html-mode/h2

@@ -0,0 +1,5 @@
+#contributor : Jimmy Wu <frozenthrone88@gmail.com>
+#name : <h2>...</h2>
+#group : header
+# --
+<h2>$1</h2>

html-mode/h3

@@ -0,0 +1,5 @@
+#contributor : Jimmy Wu <frozenthrone88@gmail.com>
+#name : <h3>...</h3>
+#group : header
+# --
+<h3>$1</h3>

html-mode/h4

@@ -0,0 +1,5 @@
+#contributor : Jimmy Wu <frozenthrone88@gmail.com>
+#name : <h4>...</h4>
+#group : header
+# --
+<h4>$1</h4>

html-mode/h5

@@ -0,0 +1,5 @@
+#contributor : Jimmy Wu <frozenthrone88@gmail.com>
+#name : <h5>...</h5>
+#group : header
+# --
+<h5>$1</h5>