dotfiles/emacs/.emacs.d/settings/desktop.el

;;-*-mode: emacs-lisp; coding: utf-8;-*-

;; desktop saving for session sanity, add a hook into auto-save-hook
;; to save it at logical times
(require 'desktop)

(desktop-save-mode 1)

(setq desktop-path           '("~/.emacs.d/"))
(setq desktop-dirname        "~/.emacs.d")
(setq desktop-base-file-name ".emacs.desktop")

(defun local-desktop-save ()
  (interactive)
  (if (eq (desktop-owner) (emacs-pid))
      (desktop-save desktop-dirname)))

(add-hook 'auto-save-hook 'desktop-save-in-desktop-dir)