18 lines
377 B
Plaintext
18 lines
377 B
Plaintext
#contributor: Xah Lee (XahLee.org)
|
|
#name: read lines of a file
|
|
# key: x-file
|
|
# --
|
|
(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")
|
|
) |