保存和恢复 elscreen 选项卡和拆分框架答案

【问题标题】：Save and restore elscreen tabs and split frames保存和恢复 elscreen 选项卡和拆分框架
【发布时间】：2014-03-17 01:52:17
【问题描述】：

我有许多水平和垂直分割的 elscreen 选项卡（框架？）。我希望能够保存当前缓冲区、每个框架中的窗口布局以及框架本身。

简而言之，我希望能够关闭 emacs 并以与关闭时相对相同的状态重新打开。

（我认为我的术语是正确的）

【问题讨论】：

您是否尝试过使用 Emacs 的快照开发人员构建和内置的 desktop.el 来查看您离想要到达的位置有多近？我会从那个开始，然后在必要时调整 elscreen 。您的水平/垂直拆分称为windows。 frame 包含所有 windows 并且可以最小化或最大化。我的理解是，Emacs 的开发人员构建有一些额外的小工具来恢复 windows，这在稳定的公开版本中尚不可用。

标签： emacs

【解决方案1】：

这是我的 .emacs 中专门用于此目的的内容（内联来源）：

自动保存和恢复 elscreen 会话

;; http://stackoverflow.com/questions/803812/emacs-reopen-buffers-from-last-session-on-startup
(defvar emacs-configuration-directory
    "~/.emacs.d/"
    "The directory where the emacs configuration files are stored.")
(defvar elscreen-tab-configuration-store-filename
    (concat emacs-configuration-directory ".elscreen")
    "The file where the elscreen tab configuration is stored.")

退出时自动保存 elscreen：

(defun elscreen-store ()
    "Store the elscreen tab configuration."
    (interactive)
    (if (desktop-save emacs-configuration-directory)
        (with-temp-file elscreen-tab-configuration-store-filename
            (insert (prin1-to-string (elscreen-get-screen-to-name-alist))))))

;; (push #'elscreen-store kill-emacs-hook)

启动时自动恢复 elscreen：

(defun elscreen-restore ()
    "Restore the elscreen tab configuration."
    (interactive)
    (if (desktop-read)
        (let ((screens (reverse
                        (read
                         (with-temp-buffer
                          (insert-file-contents elscreen-tab-configuration-store-filename)
                          (buffer-string))))))
            (while screens
                (setq screen (car (car screens)))
                (setq buffers (split-string (cdr (car screens)) ":"))
                (if (eq screen 0)
                    (switch-to-buffer (car buffers))
                    (elscreen-find-and-goto-by-buffer (car buffers) t t))
                (while (cdr buffers)
                    (switch-to-buffer-other-window (car (cdr buffers)))
                    (setq buffers (cdr buffers)))
                (setq screens (cdr screens))))))



;; (elscreen-restore)

【讨论】：