jt/emacs-prelude
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Refactor the window switching advice code

Browse source
This commit is contained in:
Bozhidar Batsov 2013-07-17 15:28:30 +03:00
parent 3b5ac377a0
commit b7d8bf7126
1 changed files with 14 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
core/prelude-editor.el
View file

@ -155,23 +155,19 @@ Will only occur if prelude-whitespace is also enabled."
(file-writable-p buffer-file-name)) (file-writable-p buffer-file-name))
(save-buffer))) (save-buffer)))
(defadvice switch-to-buffer (before switch-buffer-now activate) (defmacro advise-commands (advice-name commands &rest body)
"Invoke `prelude-auto-save-command' before `switch-to-window'." "Apply advice named ADVICE-NAME to multiple COMMANDS.
(prelude-auto-save-command))
(defadvice other-window (before other-window-now activate) The body of the advice is in BODY."
"Invoke `prelude-auto-save-command' before `other-window'." `(progn
(prelude-auto-save-command)) ,@(mapcar (lambda (command)
(defadvice windmove-up (before other-window-now activate) `(defadvice ,command (before ,(intern (concat (symbol-name command) "-" advice-name)) activate)
"Invoke `prelude-auto-save-command' before `windmove-up'." ,@body))
(prelude-auto-save-command)) commands)))
(defadvice windmove-down (before other-window-now activate)
"Invoke `prelude-auto-save-command' before `windmove-down'." ;; advise all window switching functions
(prelude-auto-save-command)) (advise-commands "auto-save"
(defadvice windmove-left (before other-window-now activate) (switch-to-buffer other-window windmove-up windmove-down windmove-left windmove-right)
"Invoke `prelude-auto-save-command' before `windmove-left'."
(prelude-auto-save-command))
(defadvice windmove-right (before other-window-now activate)
"Invoke `prelude-auto-save-command' before `windmove-right'."
(prelude-auto-save-command)) (prelude-auto-save-command))
(add-hook 'mouse-leave-buffer-hook 'prelude-auto-save-command) (add-hook 'mouse-leave-buffer-hook 'prelude-auto-save-command)