init
This commit is contained in:
18
snippets/emacs-lisp-mode/file.read-lines
Normal file
18
snippets/emacs-lisp-mode/file.read-lines
Normal file
@@ -0,0 +1,18 @@
|
||||
# -*- mode: snippet -*-
|
||||
# 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")
|
||||
)
|
||||
Reference in New Issue
Block a user