Disable desktop.el
Inhibit startup screen because Boon is not enabled there, meaning I can't use my entry-point `m` key (my-dispatch-hydra) to navigate from that buffer.
This commit is contained in:
parent
e7aa11ea10
commit
8e59fc7d5a
33
init.org
33
init.org
|
@ -194,7 +194,8 @@ NAME is the name of the process and its buffer."
|
||||||
auto-window-vscroll nil
|
auto-window-vscroll nil
|
||||||
locale-coding-system 'utf-8
|
locale-coding-system 'utf-8
|
||||||
file-name-coding-system 'utf-8
|
file-name-coding-system 'utf-8
|
||||||
buffer-file-coding-system 'utf-8)
|
buffer-file-coding-system 'utf-8
|
||||||
|
inhibit-startup-screen t)
|
||||||
(set-terminal-coding-system 'utf-8)
|
(set-terminal-coding-system 'utf-8)
|
||||||
(set-keyboard-coding-system 'utf-8)
|
(set-keyboard-coding-system 'utf-8)
|
||||||
(set-selection-coding-system 'utf-8)
|
(set-selection-coding-system 'utf-8)
|
||||||
|
@ -5382,18 +5383,34 @@ nicked from wasamasa's init - https://github.com/wasamasa/dotemacs/blob/934d0b37
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
|
|
||||||
* desktop - session management
|
* desktop - session management
|
||||||
|
https://emacs.stackexchange.com/questions/31621/handle-stale-desktop-lock-files-after-emacs-system-crash
|
||||||
|
#+BEGIN_SRC emacs-lisp
|
||||||
|
(defun my-remove-stale-lock-file (dir)
|
||||||
|
(let ((pid (desktop-owner dir)))
|
||||||
|
(when pid
|
||||||
|
(let (infile destination display)
|
||||||
|
(unless (= (call-process "ps" infile destination display "-p"
|
||||||
|
(number-to-string pid)) 0)
|
||||||
|
(let ((lock-file (desktop-full-lock-name dir)))
|
||||||
|
(delete-file lock-file)))))))
|
||||||
|
#+END_SRC
|
||||||
|
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
(use-package desktop
|
(use-package desktop
|
||||||
:init
|
:disabled t
|
||||||
(desktop-save-mode t)
|
:init (desktop-save-mode t)
|
||||||
(desktop-auto-save-enable)
|
|
||||||
:config
|
:config
|
||||||
(setq desktop-dirname "~/.emacs.d/desktop-save/"
|
(let ((dir (locate-user-emacs-file "")))
|
||||||
desktop-save 'ask-if-new
|
(my-remove-stale-lock-file dir)
|
||||||
|
(setq desktop-path (list dir))
|
||||||
|
(desktop-read))
|
||||||
|
(desktop-auto-save-enable)
|
||||||
|
(setq desktop-dirname "~/.emacs.d/desktop-save/"
|
||||||
|
desktop-save 'ask-if-new
|
||||||
;; don't save buffers, just the history
|
;; don't save buffers, just the history
|
||||||
desktop-files-not-to-save ""
|
desktop-files-not-to-save ""
|
||||||
desktop-buffers-not-to-save ""
|
desktop-buffers-not-to-save ""
|
||||||
desktop-restore-frames nil)
|
desktop-restore-frames nil)
|
||||||
(cl-loop for var in
|
(cl-loop for var in
|
||||||
'(grep-history
|
'(grep-history
|
||||||
grep-find-history
|
grep-find-history
|
||||||
|
|
Loading…
Reference in New Issue