mirror of
https://github.com/pestctrl/emacs-config.git
synced 2026-06-14 12:21:20 +00:00
111 lines
3.4 KiB
EmacsLisp
111 lines
3.4 KiB
EmacsLisp
;;; work-org-autosync.el --- -*- lexical-binding: t -*-
|
|
|
|
;; Copyright (C) 2022 Benson Chu
|
|
|
|
;; Author: Benson Chu <bensonchu457@gmail.com>
|
|
;; Created: [2022-09-01 10:09]
|
|
|
|
;; This file is not part of GNU Emacs
|
|
|
|
;; This program is free software: you can redistribute it and/or modify
|
|
;; it under the terms of the GNU General Public License as published by
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
;; (at your option) any later version.
|
|
|
|
;; This program is distributed in the hope that it will be useful,
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;; GNU General Public License for more details.
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
|
;; along with this program. If not, see <https://www.gnu.org/licenses/>.
|
|
|
|
;;; Commentary:
|
|
|
|
;;; Code:
|
|
(require 'use-package)
|
|
(use-package git-auto-commit-mode)
|
|
(require 'git-auto-fast-forward-mode)
|
|
(use-package keychain-environment)
|
|
|
|
(setq gac-automatically-add-new-files-p nil)
|
|
(setq-default gac-debounce-interval 20)
|
|
|
|
(defmacro defun-cached (name args &rest body)
|
|
(let ((var-name (intern (concat (symbol-name name) "--cached"))))
|
|
`(progn
|
|
(defvar ,var-name t)
|
|
|
|
(defun ,name ,args
|
|
(when ,var-name
|
|
(setq ,var-name nil)
|
|
(run-with-timer 15 nil #'(lambda () (setq ,var-name t)))
|
|
,@body)))))
|
|
|
|
(defun gac-use-magit-push (buffer)
|
|
(let ((default-directory (file-name-directory (buffer-file-name buffer))))
|
|
(magit-push-current-to-pushremote nil)))
|
|
|
|
(advice-add #'gac-push :override #'gac-use-magit-push)
|
|
|
|
;; (defvar gac-auto-merge-branch-list nil)
|
|
;; (make-variable-buffer-local 'gac-auto-merge-branch-list)
|
|
|
|
(add-hook 'git-auto-commit-mode-hook
|
|
#'gac-after-save-func t t)
|
|
|
|
(add-hook 'git-auto-commit-mode-hook
|
|
#'keychain-refresh-environment)
|
|
|
|
(add-to-list 'safe-local-variable-values
|
|
'(gac-automatically-push-p . t))
|
|
|
|
(defun gac-commit-message (filename)
|
|
(format "%s autocommit: %s\n\n%s"
|
|
(system-name)
|
|
(format-time-string "%Y/%m/%d %H:%M:%S")
|
|
filename))
|
|
|
|
(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))
|
|
(remhash actual-buffer gac--debounce-timers)
|
|
(cancel-timer current-timer))
|
|
(puthash actual-buffer
|
|
(run-at-time gac-debounce-interval nil
|
|
#'my/gac--wait-for-idle
|
|
actual-buffer)
|
|
gac--debounce-timers)))
|
|
|
|
(defun work-ga/on-auto-branch (dir)
|
|
t)
|
|
|
|
(advice-add #'ga/on-auto-branch
|
|
:override
|
|
#'work-ga/on-auto-branch)
|
|
|
|
(advice-add #'gac--debounced-save
|
|
:override
|
|
#'my/gac--debounced-save)
|
|
|
|
(defun gac-debounce-again-if-magit-in-progress (buf)
|
|
;; Return true if should-be-automatic is true, AND
|
|
(or (and (buffer-file-name buf)
|
|
(ga/should-be-automatic (file-name-directory (buffer-file-name buf))))
|
|
;; Otherwise, debounce again and return nil
|
|
(and (with-current-buffer buf
|
|
(gac--debounced-save))
|
|
nil)))
|
|
|
|
(advice-add #'gac--after-save
|
|
:before-while
|
|
#'gac-debounce-again-if-magit-in-progress)
|
|
|
|
(provide 'work-org-autosync)
|
|
;;; work-org-autosync.el ends here
|