CAN I HAVE A MOMENT TO BREATH BEFORE YOU START ASKING ME QUESTIONS

This commit is contained in:
Benson Chu 2023-03-17 17:20:38 -05:00
parent 6db9a9cc73
commit 011c4feaaa
2 changed files with 4 additions and 2 deletions

View file

@ -157,7 +157,6 @@
(timer-event-handler timer))
(remhash k gac--debounce-timers)))
(when (not noninteractive)
(when my/puppet-p
(add-to-list 'emacs-startup-hook

View file

@ -69,6 +69,9 @@
(setq gac-default-message
#'gac-commit-message)
(defun my/gac--wait-for-idle (buffer)
(run-with-idle-timer 5 nil #'gac--after-save buffer))
(defun my/gac--debounced-save ()
(let* ((actual-buffer (current-buffer)))
(when-let (current-timer (gethash actual-buffer gac--debounce-timers))
@ -76,7 +79,7 @@
(cancel-timer current-timer))
(puthash actual-buffer
(run-at-time gac-debounce-interval nil
#'gac--after-save
#'my/gac--wait-for-idle
actual-buffer)
gac--debounce-timers)))