有没有办法创建一个“项目文件” 在 Emacs 中？

Question

我在最宽松的意义上说“项目文件”。 我有一些 python 项目，我使用 Ropemacs 使用 emacs W32 for Windows 进行工作。 理想的是，如果我可以有一个图标，我可以在桌面上单击来打开 emacs，打开绳索项目，并在该项目的顶级目录中设置速度栏。 然后我也许还可以有一种方法以相同的方式在自己的 emacs 中打开下一个项目（但对于该项目）。 当然，如果我可以使用 emacs 命令或 shell 命令来实现相同的效果而不是桌面上的图标，那也是可以接受的。

有什么办法可以做到这一点吗？ 我绝对没有 elisp-fu。 :-(

Answer 1

您可以按照项目所需的方式设置所有内容，然后使用我发布的有关使用desktop.el和命名会话的答案：

哪些备用会话管理器可用于 Emacs？

Answer 2

我实际上正在研究解决这个问题的方法。 我总是有一组想要同时打开/关闭的文件，另外还要做一些事情，例如打开 Magit-status 窗口、dired 缓冲区等。我已经开始使用自己的项目模式，称为元项目。 它还处于早期阶段，但功能足够，我现在正在工作中的项目组中使用它。

在这里查看： http://nafai77.github.com/metaproject/

git 中有什么相当稳定，尽管记录很少。 我很快就会在这里再次开始工作。 我目前已经掌握了小型插件架构的基础知识，因此您可以注册可以在项目打开时完成的自定义操作。

Answer 3

我自己使用以下“解决方案”：项目根由包含 Makefile 的目录定义。 我已将 F12 绑定到模式特定的 elisp 函数，该函数通过创建相应 Makefile 的第一个目标来“编译”项目。 这是通过从当前文件的目录向上递归找到的。

这只是一点点设置，但您永远不需要像以前使用 Eclipse 时经常出现的情况那样重建 .metadata 目录。 设置完成后，您只需放置适当的 Makefile，就可以拥有您的项目了。

(defun get-makefile-recursively-higher ()
  (loop for i below 100 for cwd = (expand-file-name default-directory)
      then next for next = (expand-file-name (concat cwd "/..")) for file =
      (concat cwd "/" "Makefile") do (cond ((and (file-exists-p file))
                                            (return file))) until (equal cwd next))
)

然后由 LaTeX 和 Python 模式使用，如下所示：

(defun py-execute-prog (&optional target) 
  "Invoke python on the file being edited in the current buffer using
   arguments obtained from the minibuffer.  It will save all of the modified
   buffers before trying to execute the file."
  (interactive)
  (let* (makefile file cmd)
    (setq makefile (get-makefile-recursively-higher))
    (setq file (buffer-file-name (current-buffer)))
    (setq cmd (concat "make -f " makefile))
    (setq default-directory (file-name-directory makefile))

    (save-some-buffers (not py-ask-about-save) nil)
    (setq py-pdbtrack-do-tracking-p t)
    (if (get-buffer py-output-buffer)
        (kill-buffer py-output-buffer)) ; Get rid of buffer if it exists.
    (global-unset-key "\C-x\C-l" )
    (global-unset-key  "\C-x\C-p" )
    (global-unset-key  "\C-x\C-e" )
    (global-unset-key  "\C-x\C-n" )
    (global-set-key  "\C-x\C-l" 'py-last-exception)
    (global-set-key  "\C-x\C-p" 'py-previous-exception)
    (global-set-key  "\C-x\C-e" 'py-current-line-exception)
    (global-set-key  "\C-x\C-n" 'py-next-exception) 
    (define-key comint-mode-map [mouse-3] 'py-current-line-exception)
    (make-comint "Python Output" "make" nil "-f" makefile)
    (if (not (get-buffer py-output-buffer)) 
        (message "No output.")
      (setq py-exception-buffer (current-buffer))
      (pop-to-buffer py-output-buffer)  
      )))


(defun make-tex (&optional target)
  (interactive)
  (let (makefile cmd)
    (setq makefile (get-makefile-recursively-higher))
    (save-buffer)
    (TeX-save-document (TeX-master-file))

    (setq cmd (concat "make -j4 -f " makefile " LATEXPARAM=\"-halt-on-error -file-line-error\""
                      " TEXMASTER=" (expand-file-name (TeX-master-file)) ".tex"
                      " TEXMASTERDIR=" (file-name-directory makefile) "/"))

    (when (stringp target)
      (setq cmd (concat cmd " " target))
      )
    (ad-activate-regexp "auto-compile-yes-or-no-p-always-yes")
    (compile cmd)
    (ad-deactivate-regexp "auto-compile-yes-or-no-p-always-yes")
    )
  ) 

Answer 4

有 eproject，但它的记录似乎非常稀疏。

Answer 5

您可以在 bash/cmd.exe 中自行部署。 Windows emacs 发行版附带一个名为 runemacs.bat 的 .bat 文件，该文件接受要作为参数打开的文件。 编写一个小脚本，它应该能够从一个图标打开所有内容。

Answer 6

请参阅 http://www.emacswiki.org/emacs/CategoryProgrammerUtils#ProjectSupport。 有几个管理“项目”的包。 我喜欢 mk-project，但话又说回来，它是我写的。 ;-)

Answer 7

您可以使用桌面书签、Dired 书签或书签列表书签来执行您想要的操作 - 请参阅 书签+。 您甚至可以将代码和多个书签封装在一个书签中，以获得您想要的状态和设置。

另请参阅：Icicles 对项目的支持以获取更多选项。