dotfiles/emacs.d/later-init.el

59 lines
2.1 KiB
EmacsLisp
Raw Permalink Normal View History

(setq initial-major-mode 'fundamental-mode)
(setq ring-bell-function 'ignore)
(setq sentence-end-double-space nil)
;; TODO: do i really want to enable this?
;; (setopt auto-revert-avoid-polling t)
;; (setopt auto-revert-interval 5)
;; (setopt auto-revert-check-vc-info t)
;; (global-auto-revert-mode)
(setq create-lockfiles nil)
;; put all auto-generated configurations in a separate file
(setq custom-file (locate-user-emacs-file "custom.el"))
(load custom-file :no-error-if-file-is-missing)
;; autosaves ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq auto-save-default t)
(setq auto-save-include-big-deletions t)
;; better "autosaves" file handling (the `#file#` files)
(setq kill-buffer-delete-auto-save-files t)
(setq auto-save-file-name-transforms
`((".*" ,temporary-file-directory t)))
;; backups ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq make-backup-files nil)
;; keep all *~ backup files inside ~/.emacs.d/backup
(defun get-emacsd-backup-file-name (fpath)
"Return a new file path for a given file path.
If the new path's directory does not exist, this will create them."
(let* ((backup-root-dir "~/.emacs.d/backup/")
2024-12-03 11:16:34 -05:00
(file-path (replace-regexp-in-string "[A-Za-z]:" "" fpath)) ; remove Windows drive letter
(backup-file-path (replace-regexp-in-string "//" "/" (concat backup-root-dir file-path "~"))))
(make-directory (file-name-directory backup-file-path)
2024-12-03 11:16:34 -05:00
(file-name-directory backup-file-path))
backup-file-path))
(setopt make-backup-file-name-function 'get-emacsd-backup-file-name)
(setq backup-by-copying-when-linked t)
(setq backup-by-copying t)
(setq delete-old-versions t)
(setq version-control t)
(setq vc-make-backup-files nil)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; dumb shit because of course something fucked up like the PATH not being
;; set correctly would be a thing, right? can't have this working right
;; out-of-the-box like almost every other app .... *grumble*
(use-package exec-path-from-shell
:ensure t
:init
(when (memq window-system '(mac ns x))
(exec-path-from-shell-initialize)))