add file-utils.el

.rc/.bash_aliases

@@ -8,3 +8,7 @@ alias grep='grep --color=always'
 alias egrep='egrep --color=auto'
 alias emacs='emacs -nw'
 alias elisp='emacs -Q --script'
+alias du0='du --max-depth=0 . -lh'
+alias du1='du --max-depth=1 . -lh'
+alias du2='du --max-depth=2 . -lh'
+alias pdf='evince'

elisp/file-utils.el

@@ -0,0 +1,34 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; NAME
+;;   file-utils.el     all elisp files operation
+;;                     related function definition
+;; 
+;; USAGE
+;;   (load "/path/to/file-utils.el")
+;;
+;; AUTHOR
+;;   Aborn Jiang (aborn.jiang@gmail.com)
+;;
+;; VERSIOIN
+;;   v0.1    2014-01-23  function: obtain-file-content
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(defun obtain-file-content (filename)
+  "Return file content as a string list."
+  (interactive "p")
+  (with-temp-buffer 
+    (insert-file-contents filename)
+    (buffer-string)
+    )
+  )
+
+(defun print-elements-of-list (list)
+  "Print each element in list."
+  (interactive "p")
+  (setq i 0)
+  (while list
+    (print (concat (number-to-string i) "=" (car list)))
+    (setq list (cdr list)
+          i (+ i 1))
+    )
+  )