Emacs : auto-save config

This commit is contained in:
2023-04-11 11:09:22 +09:00
parent 8f0c5279c5
commit 3ae41a1428

View File

@ -38,8 +38,8 @@ Emacs Configuration for emacs 29.50
** Init ** Init
*** Startup hook *** Startup hook
#+begin_src emacs-lisp :tangle ~/.config/emacs/init.el #+begin_src emacs-lisp :tangle ~/.config/emacs/init.el
;;; init.el -*- lexical-binding: t; -*- ;;; init.el -*- lexical-binding: t; -*-
(add-hook 'emacs-startup-hook (add-hook 'emacs-startup-hook
(lambda () (lambda ()
(message "Emacs loaded in %s" (message "Emacs loaded in %s"
(emacs-init-time)))) (emacs-init-time))))
@ -148,16 +148,36 @@ Emacs Configuration for emacs 29.50
*** Backup options *** Backup options
#+begin_src emacs-lisp :tangle ~/.config/emacs/init.el #+begin_src emacs-lisp :tangle ~/.config/emacs/init.el
(setq backup-directory-alist `(("." . ,(expand-file-name "backups/" user-emacs-directory)))) (use-package no-littering
(setq-default custom-file (expand-file-name ".custom.el" user-emacs-directory)) :config
(setq no-littering-etc-directory
(expand-file-name "config/" user-emacs-directory))
(setq no-littering-var-directory
(expand-file-name "data/" user-emacs-directory)))
(require 'recentf)
(add-to-list 'recentf-exclude no-littering-var-directory)
(add-to-list 'recentf-exclude no-littering-etc-directory)
;; interlocking file name
(setq lock-file-name-transforms
`((".*" ,(no-littering-expand-var-file-name "lock/") t)))
;; Auto save
(setq auto-save-file-name-transforms
`((".*" ,(no-littering-expand-var-file-name "auto-save/") t)))
;;(when (fboundp 'startup-redirect-eln-cache)
;; (startup-redirect-eln-cache
;; (convert-standard-filename
;; (expand-file-name "var/eln-cache/" user-emacs-directory))))
(setq backup-directory-alist `(("." . ,(no-litter "auto-save/"))))
(setq custom-file (no-littering-expand-etc-file-name "custom.el"))
(when (file-exists-p custom-file) (when (file-exists-p custom-file)
(load custom-file)) (load custom-file))
(setq delete-by-moving-to-trash t (setq delete-by-moving-to-trash t
trash-directory "~/.local/share/Trash/files/") trash-directory "~/.local/share/Trash/files/")
(setq undo-limit 100000000 (setq undo-limit 100000000
auto-save-default t) auto-save-default t)
(setq auto-save-file-name-transforms
`((".*" ,(expand-file-name "backups/" user-emacs-directory) t)))
#+end_src #+end_src
@ -1590,12 +1610,12 @@ writing and formatting tex file in Emacs.
**** Cdlatex **** Cdlatex
speed-up insertion of environments and math templates. speed-up insertion of environments and math templates.
#+begin_src emacs-lisp :mkdirp yes :tangle ~/.config/emacs/modules/custom-latex.el #+begin_src emacs-lisp :mkdirp yes :tangle ~/.config/emacs/modules/custom-latex.el
(use-package cdlatex ;;(use-package cdlatex
:hook ;; :hook
((org-mode . org-cdlatex-mode) ;; ;(org-mode . org-cdlatex-mode)
(LaTex-mode . cdlatex-mode)) ;; (LaTex-mode . cdlatex-mode)
:config ;; :config
(setq cdlatex-use-dollar-to-ensure-math nil)) ;; (setq cdlatex-use-dollar-to-ensure-math nil))
#+end_src #+end_src
**** Provide Modules **** Provide Modules
#+begin_src emacs-lisp :mkdirp yes :tangle ~/.config/emacs/modules/custom-latex.el #+begin_src emacs-lisp :mkdirp yes :tangle ~/.config/emacs/modules/custom-latex.el
@ -1629,8 +1649,7 @@ enhanced PDF viewer on emacs
:defer t :defer t
:hook (pdf-view-mode . pdf-view-restore-mode) :hook (pdf-view-mode . pdf-view-restore-mode)
:config :config
(setq pdf-view-restore-filename (expand-file-name "backups/pdf-view-restore" (setq pdf-view-restore-filename (no-littering-expand-var-file-name "pdf-view-restore")))
user-emacs-directory)))
#+end_src #+end_src
**** Nov **** Nov
#+begin_src emacs-lisp :mkdirp yes :tangle ~/.config/emacs/modules/custom-extra.el #+begin_src emacs-lisp :mkdirp yes :tangle ~/.config/emacs/modules/custom-extra.el