workgroups2 Changeset - 051a184a4239

Changeset - 051a184a4239

Parent rev.

Child rev.

[Not reviewed]

0 2 0

Sergey Pashinin - 11 years ago 2014-06-25 19:44:24
sergey@pashinin.com

wg-load-last-workgroup works now

2 files changed with 16 insertions and 3 deletions:

src/workgroups-commands.el

src/workgroups-variables.el

0 comments (0 inline, 0 general)

src/workgroups-commands.el

➞

Show inline comments

@@ @@ -41,6 +41,13 @@ @@
           (wg-set-previous-workgroup current)
           (wg-set-current-workgroup workgroup)
           ;; Save "last-workgroup" to the session params
           (if (and (wg-current-session t)
                    (wg-current-workgroup t))
               (wg-set-session-parameter (wg-current-session t)
                                         'last-workgroup
                                         (wg-workgroup-name (wg-current-workgroup))))
           ;; If a workgroup had ECB - turn it on
           (if (and (boundp 'ecb-minor-mode)
                    (not ecb-minor-mode)
@@ @@ -719,7 +726,13 @@ the session regardless of whether it's been modified." @@
            (if (and wg-open-this-wg
                     (member wg-open-this-wg (wg-workgroup-names)))
                (wg-switch-to-workgroup wg-open-this-wg)
              (wg-switch-to-workgroup (car it))))
              (if (and wg-load-last-workgroup
                       (member (wg-session-parameter (wg-current-session t) 'last-workgroup)
                               (wg-workgroup-names)))
                  (wg-switch-to-workgroup
                   (wg-session-parameter (wg-current-session t) 'last-workgroup))
                (wg-switch-to-workgroup (car it)))
              ))
          (wg-fontified-message (:cmd "Loaded: ") (:file filename)))
         (t
          (wg-query-and-save-if-modified)

src/workgroups-variables.el

➞

Show inline comments

@@ @@ -24,8 +24,8 @@ @@
   :type 'string
   :group 'workgroups)
 (defcustom wg-load-last-workgroup nil
   "Load last active, not first, workgroup from all your workgroups."
 (defcustom wg-load-last-workgroup t
   "Load last active (not first) workgroup from all your workgroups if it exists."
   :group 'workgroups
   :type 'boolean)

0 comments (0 inline, 0 general)