Fix backup directory setting to work properly now

This commit is contained in:
Evie Litherland-Smith 2023-11-21 06:55:18 +00:00
parent 3deed4c318
commit 2287543a80
2 changed files with 13 additions and 11 deletions

View file

@ -43,7 +43,7 @@
(setq backup-directory-alist '(("." . "~/.local/state/emacs/backups")) (setq backup-directory-alist '(("." . "~/.local/state/emacs/backups"))
tramp-backup-directory-alist backup-directory-alist tramp-backup-directory-alist backup-directory-alist
tramp-auto-save-directory "~/.local/state/emacs/backups") tramp-auto-save-directory (cdr (assoc "." tramp-backup-directory-alist)))
(when (require 'package nil :noerror) (when (require 'package nil :noerror)
(add-to-list 'package-archives '("stable" . "https://stable.melpa.org/packages/")) (add-to-list 'package-archives '("stable" . "https://stable.melpa.org/packages/"))
@ -229,12 +229,13 @@
("~" (rx (or ">" "=" "-" "@" "~>" (+ "~")))) ("~" (rx (or ">" "=" "-" "@" "~>" (+ "~"))))
;; __ ___ ____ _|_ __|____|_ ;; __ ___ ____ _|_ __|____|_
("_" (rx (+ (or "_" "|")))) ("_" (rx (+ (or "_" "|"))))
;; Fira code: 0xFF 0x12
("0" (rx (and "x" (+ (in "A-F" "a-f" "0-9")))))
;; Fira code:
"Fl" "Tl" "fi" "fj" "fl" "ft"
;; The few not covered by the regexps. ;; The few not covered by the regexps.
"{|" "[|" "]#" "(*" "}#" "$>" "^=")) "{|" "[|" "]#" "(*" "}#" "$>" "^="))
(ligature-set-ligatures 'prog-mode
'(;; Fira code: 0xFF 0x12
("0" (rx (and "x" (+ (in "A-F" "a-f" "0-9")))))
;; Fira code:
"Fl" "Tl" "fi" "fj" "fl" "ft"))
;; Enables ligature checks globally in all buffers. You can also do it ;; Enables ligature checks globally in all buffers. You can also do it
;; per mode with `ligature-mode'. ;; per mode with `ligature-mode'.
(global-ligature-mode t)) (global-ligature-mode t))

View file

@ -50,11 +50,11 @@
(add-hook 'after-save-hook #'executable-make-buffer-file-executable-if-script-p) (add-hook 'after-save-hook #'executable-make-buffer-file-executable-if-script-p)
#+END_SRC #+END_SRC
** TODO Auto-save file settings ** Auto-save file settings
#+begin_src emacs-lisp :tangle yes #+begin_src emacs-lisp :tangle yes
(setq backup-directory-alist '(("." . "~/.local/state/emacs/backups")) (setq backup-directory-alist '(("." . "~/.local/state/emacs/backups"))
tramp-backup-directory-alist backup-directory-alist tramp-backup-directory-alist backup-directory-alist
tramp-auto-save-directory "~/.local/state/emacs/backups") tramp-auto-save-directory (cdr (assoc "." tramp-backup-directory-alist)))
#+end_src #+end_src
** package-archive with priorities ** package-archive with priorities
#+begin_src emacs-lisp :results output silent #+begin_src emacs-lisp :results output silent
@ -270,12 +270,13 @@
("~" (rx (or ">" "=" "-" "@" "~>" (+ "~")))) ("~" (rx (or ">" "=" "-" "@" "~>" (+ "~"))))
;; __ ___ ____ _|_ __|____|_ ;; __ ___ ____ _|_ __|____|_
("_" (rx (+ (or "_" "|")))) ("_" (rx (+ (or "_" "|"))))
;; Fira code: 0xFF 0x12
("0" (rx (and "x" (+ (in "A-F" "a-f" "0-9")))))
;; Fira code:
"Fl" "Tl" "fi" "fj" "fl" "ft"
;; The few not covered by the regexps. ;; The few not covered by the regexps.
"{|" "[|" "]#" "(*" "}#" "$>" "^=")) "{|" "[|" "]#" "(*" "}#" "$>" "^="))
(ligature-set-ligatures 'prog-mode
'(;; Fira code: 0xFF 0x12
("0" (rx (and "x" (+ (in "A-F" "a-f" "0-9")))))
;; Fira code:
"Fl" "Tl" "fi" "fj" "fl" "ft"))
;; Enables ligature checks globally in all buffers. You can also do it ;; Enables ligature checks globally in all buffers. You can also do it
;; per mode with `ligature-mode'. ;; per mode with `ligature-mode'.
(global-ligature-mode t)) (global-ligature-mode t))