workgroups2 Changeset - 0f9f40f42c2f

Changeset - 0f9f40f42c2f

Parent rev.

Child rev.

[Not reviewed]

0 1 0

Sergey Pashinin - 11 years ago 2014-07-26 11:50:56
sergey@pashinin.com

one line advice

1 file changed with 2 insertions and 4 deletions:

src/workgroups-advice.el

0 comments (0 inline, 0 general)

src/workgroups-advice.el

➞

Show inline comments

 ;; `select-frame' advice
 (defadvice select-frame (before wg-update-current-workgroup-working-wconfig)
   "Update `selected-frame's current workgroup's working-wconfig.
 Before selecting a new frame."
   (when wg-update-current-workgroup-working-wconfig-on-select-frame
     (wg-update-current-workgroup-working-wconfig)))
 ;; enable all advice
 (defun wg-enable-all-advice ()
   "Enable and activate all of Workgroups' advice."
   ;; From advice.el:
   ;;
   ;; (defmacro ad-define-subr-args (subr arglist)
   ;;   `(put ,subr 'ad-subr-arglist (list ,arglist)))
   ;; switch-to-buffer
   ;; (ad-define-subr-args 'switch-to-buffer '(buffer-or-name &optional norecord))
   (ad-enable-advice 'switch-to-buffer 'after 'wg-auto-associate-buffer)
   (ad-enable-advice
    'switch-to-buffer 'before 'wg-pre-window-configuration-change-hook)
   (ad-enable-advice 'switch-to-buffer 'before 'wg-pre-window-configuration-change-hook)
   (ad-activate 'switch-to-buffer)
   ;; set-window-buffer
   ;; (ad-define-subr-args 'set-window-buffer '(window buffer-or-name &optional keep-margins))
   (ad-enable-advice 'set-window-buffer 'after 'wg-auto-associate-buffer)
   (ad-enable-advice
    'set-window-buffer 'before 'wg-pre-window-configuration-change-hook)
   (ad-activate 'set-window-buffer)
   ;; split-window
   (ad-enable-advice
    'split-window 'before 'wg-pre-window-configuration-change-hook)
   (ad-activate 'split-window)
   ;; enlarge-window
   (ad-enable-advice
    'enlarge-window 'before 'wg-pre-window-configuration-change-hook)
   (ad-activate 'enlarge-window)
   ;; delete-window
   (ad-enable-advice
    'delete-window 'before 'wg-pre-window-configuration-change-hook)
   (ad-activate 'delete-window)
@@ @@ -122,50 +121,49 @@ Before selecting a new frame." @@
   ;; delete-windows-on
   (ad-enable-advice
    'delete-windows-on 'before 'wg-pre-window-configuration-change-hook)
   (ad-activate 'delete-windows-on)
   ;; save-buffers-kill-emacs
   (ad-enable-advice 'save-buffers-kill-emacs 'around 'wg-freeze-wconfig)
   (ad-activate 'save-buffers-kill-emacs)
   ;; select-frame
   ;;(ad-enable-advice 'select-frame 'before
   ;;                  'wg-update-current-workgroup-working-wconfig)
   ;;(ad-activate 'select-frame)
+  )
 ;; disable all advice
 ;; (wg-disable-all-advice)
 (defun wg-disable-all-advice ()
   "Disable and deactivate all of Workgroups' advice."
   ;; switch-to-buffer
   (ad-disable-advice 'switch-to-buffer 'after 'wg-auto-associate-buffer)
   (ad-disable-advice
    'switch-to-buffer 'before 'wg-pre-window-configuration-change-hook)
   (ad-disable-advice 'switch-to-buffer 'before 'wg-pre-window-configuration-change-hook)
   (ad-deactivate 'switch-to-buffer)
   ;; set-window-buffer
   (ad-disable-advice 'set-window-buffer 'after 'wg-auto-associate-buffer)
   (ad-disable-advice
    'set-window-buffer 'before 'wg-pre-window-configuration-change-hook)
   (ad-deactivate 'set-window-buffer)
   ;; split-window
   (ad-disable-advice
    'split-window 'before 'wg-pre-window-configuration-change-hook)
   (ad-deactivate 'split-window)
   ;; enlarge-window
   (ad-disable-advice
    'enlarge-window 'before 'wg-pre-window-configuration-change-hook)
   (ad-deactivate 'enlarge-window)
   ;; delete-window
   (ad-disable-advice
    'delete-window 'before 'wg-pre-window-configuration-change-hook)
   (ad-deactivate 'delete-window)
   ;; delete-other-windows

0 comments (0 inline, 0 general)