libohad-dev/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Create a named function for the autosave predicate

Browse source
This commit is contained in:
Ohad Livne 2025-07-11 17:11:49 +03:00
parent 9ae31dc4be
commit 8b0ac14305
Signed by: libohad-dev
GPG key ID: 34FDC68B51191A4D
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
.config/emacs/init.el
View file

@ -8,6 +8,10 @@
(zerop (call-process "git" nil nil nil (zerop (call-process "git" nil nil nil
"-C" dirname "ls-files" "--error-unmatch" filename)))) "-C" dirname "ls-files" "--error-unmatch" filename))))
(defun should-auto-save-current-buffer-p ()
"Check whether the current buffer should be autosaved."
(git-tracked-file-p buffer-file-name))
(defun find-init-file () (defun find-init-file ()
"Find the user's init file" "Find the user's init file"
(interactive) (interactive)
@ -42,7 +46,7 @@
; keep-sorted start ; keep-sorted start
(auto-save-interval 20) (auto-save-interval 20)
(auto-save-visited-mode t) (auto-save-visited-mode t)
(auto-save-visited-predicate (lambda () (git-tracked-file-p buffer-file-name))) (auto-save-visited-predicate #'should-auto-save-current-buffer)
(column-number-mode t) (column-number-mode t)
(dired-dwim-target 'dired-dwim-target-next) (dired-dwim-target 'dired-dwim-target-next)
(display-time-24hr-format t) (display-time-24hr-format t)