From c13334d651b13d8b047cb3dc35ad3e1ef239013f Mon Sep 17 00:00:00 2001 From: Alexander Sulfrian Date: Thu, 22 Oct 2009 05:30:58 +0200 Subject: added snippets for loading with module from dotfiles --- .../snippets/text-mode/emacs-lisp-mode/file.read-lines | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 emacs.d/snippets/text-mode/emacs-lisp-mode/file.read-lines (limited to 'emacs.d/snippets/text-mode/emacs-lisp-mode/file.read-lines') diff --git a/emacs.d/snippets/text-mode/emacs-lisp-mode/file.read-lines b/emacs.d/snippets/text-mode/emacs-lisp-mode/file.read-lines new file mode 100644 index 0000000..b4a1942 --- /dev/null +++ b/emacs.d/snippets/text-mode/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") +) \ No newline at end of file -- cgit v1.2.3