emacs: don't use before-save hooks if agw-no-fixes is `t'
parent
ec33f1c305
commit
679afca151
|
@ -6,6 +6,9 @@
|
|||
(defvar agw-mode-map (make-sparse-keymap)
|
||||
"Global keymap for `agw-mode'.")
|
||||
|
||||
(defvar-local agw-no-fixes nil
|
||||
"Fixes files before save if `t' in this buffer.")
|
||||
|
||||
(define-minor-mode agw-key-map-mode
|
||||
"Minor mode for key bindings."
|
||||
:global t
|
||||
|
@ -34,6 +37,12 @@
|
|||
standard-indent 2
|
||||
tab-width 2))
|
||||
|
||||
(defun agw-before-save ()
|
||||
"Hook to be run before saving a file."
|
||||
(unless agw-no-fixes
|
||||
(copyright-update)
|
||||
(delete-trailing-whitespace)))
|
||||
|
||||
(defun agw-remove-elc ()
|
||||
"Removes an elc file if it exists."
|
||||
(let ((elc (concat buffer-file-name "c")))
|
||||
|
|
|
@ -73,8 +73,7 @@
|
|||
(add-hook 'reb-lisp-mode-hook #'agw-fp-mode)
|
||||
(add-hook 'scheme-mode-hook #'agw-fp-mode)
|
||||
|
||||
(add-hook 'before-save-hook #'copyright-update)
|
||||
(add-hook 'before-save-hook #'delete-trailing-whitespace)
|
||||
(add-hook 'before-save-hook #'agw-before-save)
|
||||
|
||||
(agw-set-key "b d" #'kill-this-buffer)
|
||||
(agw-set-key "b e" #'ibuffer)
|
||||
|
|
Loading…
Reference in New Issue