Giá trị kết quả của mã elisp được lưu trữ trong một tệp?

Question

Tìm cách đánh giá mã elisp được lưu trữ trong một tệp bên ngoài và chuyển kết quả của nó dưới dạng đối số hàm. Ví dụ minh hoạ những gì tôi muốn đạt được sau:

;; content of my_template.el 
'(this is a list) 

;; content of .emacs where result of my_template.el has to be used 
(define-auto-insert "\.ext$" 
    ;; bellow is my attempt to retrieve resulting list object 
    ;; but getting nil instead 
    (with-temp-buffer 
     (insert-file-contents ("my_template.el")) 
     (eval-buffer)))) 

Có lẽ tìm kiếm một chức năng eval giống như mà bên cạnh tác dụng phụ cũng trả về kết quả của biểu thức cuối cùng.

Bất kỳ ý tưởng nào?

Answer 1

Sử dụng biến để chia sẻ dữ liệu dễ dàng hơn và phổ biến hơn, ví dụ:

;; content of ~/my_template.el 
(defvar my-template '(this is a list)) 

;; content of .emacs where result of my_template.el has to be used 
(load-file "~/my_template.el") 
(define-auto-insert "\.ext$" 
    my-template) 

Cập nhật chức năng eval-file nên làm những gì bạn muốn:

;; content of ~/my_template.el 
'(this is a list) 

(defun eval-file (file) 
    "Execute FILE and return the result of the last expression." 
    (load-file file) 
    (with-temp-buffer 
    (insert-file-contents file) 
    (emacs-lisp-mode) 
    (goto-char (point-max)) 
    (backward-sexp) 
    (eval (sexp-at-point)))) 

(eval-file "~/my_template.el") 
=> (this is a list) 

Cập nhật hai: không đánh giá biểu thức cuối cùng hai lần

(defun eval-file (file) 
    "Execute FILE and return the result of the last expression." 
    (eval 
    (ignore-errors 
    (read-from-whole-string 
     (with-temp-buffer 
     (insert-file-contents file) 
     (buffer-string)))))) 

(eval-file "~/my_template.el") 
=> (this is a list) 

Answer 2

Không đọc từ chuỗi. Đọc từ bộ đệm.

(defun load&return (file &optional msgp) 
    "Load FILE. Return the value of the last sexp read." 
    (interactive "fFile: \np") 
    (let* ((sexp (with-current-buffer (find-file-noselect file) 
        (goto-char (point-min)) 
        (read (current-buffer)))) 
     (val (ignore-errors (eval sexp)))) 
    (prog1 val (when msgp (message "Value: %S" val)))))