emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

General refactor & cleanup, across the board

Browse source
This commit is contained in:
Henrik Lissner 2019-09-13 21:59:03 -04:00
parent 4ddc5c194b
commit 2d365619cd
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
35 changed files with 141 additions and 155 deletions
Download patch file Download diff file Expand all files Collapse all files

4
modules/tools/magit/autoload.el
View file

@ -55,13 +55,13 @@
(defvar-local +magit--vc-is-stale-p nil)
;;;###autoload
(defun +magit|refresh-vc-state-maybe ()
(defun +magit-refresh-vc-state-maybe-h ()
"Update `vc' and `git-gutter' if out of date."
(when +magit--vc-is-stale-p
(+magit--refresh-vc-in-buffer (current-buffer))))
;;;###autoload
(add-hook 'doom-switch-buffer-hook #'+magit|refresh-vc-state-maybe)
(add-hook 'doom-switch-buffer-hook #'+magit-refresh-vc-state-maybe-h)
;;;###autoload
(defun +magit/quit (&optional _kill-buffer)

26
modules/tools/upload/config.el
View file

@ -33,19 +33,19 @@
(put (car sym) 'safe-local-variable (cdr sym)))
;; Maybe auto-upload on save
(defun +upload|init-after-save ()
(when (and (bound-and-true-p ssh-deploy-root-remote)
ssh-deploy-on-explicit-save)
(ssh-deploy-upload-handler)))
(add-hook 'after-save-hook #'+upload|init-after-save)
(add-hook! 'after-save-hook
(defun +upload-init-after-save-h ()
(when (and (bound-and-true-p ssh-deploy-root-remote)
ssh-deploy-on-explicit-save)
(ssh-deploy-upload-handler))))
;; Enable ssh-deploy if variables are set, and check for changes on open file
;; (if possible)
(defun +upload|init-find-file ()
(when (bound-and-true-p ssh-deploy-root-remote)
(require 'ssh-deploy)
(unless ssh-deploy-root-local
(setq ssh-deploy-root-local (doom-project-root)))
(when ssh-deploy-automatically-detect-remote-changes
(ssh-deploy-remote-changes-handler))))
(add-hook 'find-file-hook #'+upload|init-find-file))
(add-hook! 'find-file-hook
(defun +upload-init-find-file-h ()
(when (bound-and-true-p ssh-deploy-root-remote)
(require 'ssh-deploy)
(unless ssh-deploy-root-local
(setq ssh-deploy-root-local (doom-project-root)))
(when ssh-deploy-automatically-detect-remote-changes
(ssh-deploy-remote-changes-handler))))))