Support Emacs session save and restore

调用 M-x emacs-session-save 命令退出 Emacs, 再次启动 Emacs 时将加载之
前的 frame 和 窗口布局

init.el

@@ -44,6 +44,9 @@
 (require 'init-tex)
 (require 'init-pdf)
 
+(require 'init-session)
+(emacs-session-restore)
+
 (provide 'init)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; init.el ends here

lisp/init-save.el

@@ -3,6 +3,8 @@
 
 ;;; Code:
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; auto-save
 (add-to-list 'load-path "~/.emacs.d/site-lisp/auto-save/")
 (require 'auto-save)
 (auto-save-enable)

lisp/init-session.el

@@ -0,0 +1,38 @@
+;;; init-session.el --- Session settings -*- lexical-binding: t -*-
+;;; Commentary:
+
+;;; Code:
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; desktop
+(setq desktop-load-locked-desktop t)          ; don't popup dialog ask user, load anyway
+(setq desktop-restore-frames t)               ; save and restore the frame and window configuration
+(setq desktop-restore-in-current-display nil) ; restore frames in current display
+(setq desktop-restore-forces-onscreen "all")  ; restore frames that are partially offscreen onscreen
+
+(defun emacs-session-restore ()
+  "Restore emacs session."
+  (interactive)
+  (ignore-errors
+    ;; Restore session.
+    (desktop-read "~/.emacs.d/")
+    ))
+
+(defun emacs-session-save (&optional arg)
+  "Save emacs session."
+  (interactive "p")
+  (ignore-errors
+    (if (equal arg 4)
+        ;; Kill all buffers if with prefix argument.
+        (mapc 'kill-buffer (buffer-list))
+      ;; Save all buffers before exit.
+      (auto-save-buffers))
+    ;; Save session.
+    (make-directory "~/.emacs.d/" t)
+    (desktop-save "~/.emacs.d/")
+    ;; Exit emacs.
+    (kill-emacs)))
+
+(provide 'init-session)
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; init-session.el ends here