marrub
/
scripts
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

emacs: don't use before-save hooks if agw-no-fixes is `t'

master
an 2020-04-20 19:20:16 -06:00
parent ec33f1c305
commit 679afca151
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
emacs/data.el
View File

@ -6,6 +6,9 @@
(defvar agw-mode-map (make-sparse-keymap) (defvar agw-mode-map (make-sparse-keymap)
"Global keymap for `agw-mode'.") "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 (define-minor-mode agw-key-map-mode
"Minor mode for key bindings." "Minor mode for key bindings."
:global t :global t
@ -34,6 +37,12 @@
standard-indent 2 standard-indent 2
tab-width 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 () (defun agw-remove-elc ()
"Removes an elc file if it exists." "Removes an elc file if it exists."
(let ((elc (concat buffer-file-name "c"))) (let ((elc (concat buffer-file-name "c")))

3
emacs/init.el
View File

@ -73,8 +73,7 @@
(add-hook 'reb-lisp-mode-hook #'agw-fp-mode) (add-hook 'reb-lisp-mode-hook #'agw-fp-mode)
(add-hook 'scheme-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 #'agw-before-save)
(add-hook 'before-save-hook #'delete-trailing-whitespace)
(agw-set-key "b d" #'kill-this-buffer) (agw-set-key "b d" #'kill-this-buffer)
(agw-set-key "b e" #'ibuffer) (agw-set-key "b e" #'ibuffer)