workgroups2 Changeset - 2688f9cde1e9

Changeset - 2688f9cde1e9

Parent rev.

Child rev.

[Not reviewed]

0 1 0

Sergey Pashinin - 12 years ago 2014-03-11 21:40:39
sergey@pashinin.com

Fixed #34

May be still buggy, but now ECB works with workgroups for me

1 file changed with 20 insertions and 0 deletions:

src/workgroups-commands.el

0 comments (0 inline, 0 general)

src/workgroups-commands.el

➞

Show inline comments

@@ @@ -15,22 +15,42 @@ @@
 ;;; workgroup switching commands
 (defun wg-switch-to-workgroup (workgroup &optional noerror)
   "Switch to WORKGROUP."
   (interactive (list (wg-read-workgroup-name)))
   ;; Set a parameter when using ECB
   (if (wg-current-workgroup t)
       (wg-set-workgroup-parameter (wg-current-workgroup t) 'ecb (and (boundp 'ecb-minor-mode)
                                                                      ecb-minor-mode)))
   (let ((workgroup (wg-get-workgroup-create workgroup))
         (current (wg-current-workgroup t)))
     (when (and (eq workgroup current) (not noerror))
       (error "Already on: %s" (wg-workgroup-name current)))
     (when current (push current wg-deactivation-list))
     (unwind-protect
         (progn
           ;; Before switching - turn off ECB
           ;; https://github.com/pashinin/workgroups2/issues/34
           (if (and (boundp 'ecb-minor-mode)
                    ecb-minor-mode
                    (equal ecb-frame (selected-frame)))
               (let ((ecb-split-edit-window-after-start 'before-deactivation))
                 (ecb-deactivate)))
           (wg-restore-workgroup workgroup)
           (wg-set-previous-workgroup current)
           (wg-set-current-workgroup workgroup)
           ;; If a workgroup had ECB - turn it on
           (if (and (boundp 'ecb-minor-mode)
                    (not ecb-minor-mode)
                    (wg-workgroup-parameter (wg-current-workgroup t) 'ecb nil))
               (let ((ecb-split-edit-window-after-start 'before-deactivation))
                 (ecb-activate)))
           (run-hooks 'wg-switch-to-workgroup-hook)
           (wg-fontified-message
             (:cmd "Switched: ")
             (wg-workgroup-name (wg-current-workgroup t))
             ))
       (when current (pop wg-deactivation-list)))))

0 comments (0 inline, 0 general)