emacs - Emacs：您如何将用户提供的最后一个参数存储为默认值？

Question

我正在编写一个交互式函数，我想记住用户提供的最后一个参数并将其用作默认值。

(defun run-rake (param)
  (interactive "sTask: ")
  (shell-command (format "rake %s" task)))

第一次调用该函数时，我希望它记住用户提供的参数，以便下次他们调用该函数时，他们只需按 Enter 键，它将使用他们上次提供的值。

我似乎在文档中找不到这个 - 你如何在 elisp 中做到这一点？

Answer 1

read-from-minibuffer

是你想要使用的。它有一个历史变量的位置。

这是一些示例代码：

(defvar run-rake-history nil "History for run-rake")
(defun run-rake (cmd)
(interactive (list (read-from-minibuffer "Task: " (car run-rake-history) nil nil 'run-rake-history)))
  (shell-command (format "rake %s " cmd)))

显然可以根据您的需求进行定制。'run-rake-history 只是一个变量，用于存储此调用 'read-from-minibuffer 的历史记录。另一种选择是使用 'completing-read - 但假设您有一个要限制用户使用的选项列表（对于类似 shell 的命令通常不是这种情况）。

Answer 2

您可以看到该compile命令是如何执行此操作的。用 调出编译命令的帮助文本C-h f compile，将光标移到包含函数的文件名上，然后点击RETURN。这将调出compile.

基本上，有一个动态/全局变量compile-command保存最后一个编译命令。Emacs 是一个单用户、单线程系统，所以真的不需要更多。还要记住，Elisp 是一个非常古老的 Lisp，变量具有动态（调用堆栈）范围，而不是词法范围。在这种系统中，很自然地：

(let ((compile-command "gcc -o foo foo.c frobnicate.c"))
     ...
     (compile)
     ...)

说到compile命令，你有没有试过用它来代替你自己的run-rake函数？

Answer 3

我想出了如何使用 defvar（全局）手动执行此操作，但这感觉就像核心库应该已经提供的那种东西（有点像方案的 make-parameter）。这看起来像是更多的代码，并且比它应该的更多手动：

(defvar *editconf-ruby-run-rake-last-rake-task* nil)

(defun editconf-ruby-run-rake-last-rake-task (&optional new-val)
  (when new-val
    (setf *editconf-ruby-run-rake-last-rake-task* new-val))
  *editconf-ruby-run-rake-last-rake-task*)

(defun editconf-ruby-run-rake (task-name)
  "Execute rake `task-name'.  See                                                                                            
`krb-ruby-get-rakefile-path-for-current-buffer' for how the                                                                  
Rakefile is located.."
  (interactive
   (let* ((rakefile (krb-ruby-get-rakefile-path-for-current-buffer))
          (rake-tasks (krb-ruby-get-rake-tasks rakefile))
          (default-task (or (editconf-ruby-run-rake-last-rake-task)
                            (editconf-ruby-run-rake-last-rake-task (car rake-tasks)))))
     (list
      (read-string (format "Task [%s|%s]: "
                           rake-tasks
                           default-task)
                   nil nil default-task))))
  (editconf-ruby-run-rake-last-rake-task task-name)
  (let ((cmd (format "cd %s; rake %s"
                     (krb-lisp-strip-path-suffix rakefile 1)
                     task-name)))
    (message "editconf-ruby-run-rake: cmd='%s'" cmd)
    (shell-command cmd)))