emacs - 从文件读入Emacs Lisp列表

Question

我有以下文件data.txt

A
B
C
D

我想将此文件的内容读入Lisp list中，例如

(defun read-list-from-file (fn)
  (interactive)
  (list "A" "B" "C" "D"))

(defun my-read ()
  (interactive)
  (let (( mylist (read-list-from-file "data.txt")))
    (print mylist t)))

如何修改 read-list-from-file，使其返回相同的列表，但从作为输入参数 fn的文件中读取。.文件中的每一行都应是列表中的单独项目。

Answer 1

这段代码:

(with-current-buffer
    (find-file-noselect "~/data.txt")
  (split-string
   (save-restriction
     (widen)
     (buffer-substring-no-properties
      (point-min)
      (point-max)))
   "\n" t))

UPD:

这是 insert-file-contents的版本:

(defun slurp (f)
  (with-temp-buffer
    (insert-file-contents f)
    (buffer-substring-no-properties
       (point-min)
       (point-max))))

(split-string
 (slurp "~/data.txt") "\n" t)