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

@@ @@ -38,12 +38,19 @@ @@
                 (ecb-deactivate)))
           (wg-restore-workgroup workgroup)
           (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)
                    (wg-workgroup-parameter (wg-current-workgroup t) 'ecb nil))
               (let ((ecb-split-edit-window-after-start 'before-deactivation))
                 (ecb-activate)))
@@ @@ -716,13 +723,19 @@ the session regardless of whether it's been modified." @@
            (wg-reset-internal (wg-unpickel-session-parameters session)))
          (wg-awhen (and wg-switch-to-first-workgroup-on-find-session-file
                         (wg-workgroup-list))
            (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)
          (wg-reset-internal (wg-make-session :file-name filename))
          (wg-fontified-message
            (:cmd "(New Workgroups session file)")))))

src/workgroups-variables.el

➞

Show inline comments

@@ @@ -21,14 +21,14 @@ @@
 (defcustom wg-first-wg-name "First workgroup"
   "Title of the first workgroup created."
   :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)
 ;; keybinding customization

0 comments (0 inline, 0 general)