workgroups2 Changeset - b89b3fae0af7

Changeset - b89b3fae0af7

Parent rev.

Child rev.

[Not reviewed]

0 1 0

Sergey Pashinin - 12 years ago 2013-08-26 14:12:49
sergey@pashinin.com

fixed autocreation of first workgroup

1 file changed with 4 insertions and 3 deletions:

src/workgroups2.el

0 comments (0 inline, 0 general)

src/workgroups2.el

➞

Show inline comments

@@ @@ -191,55 +191,56 @@ Called when `workgroups-mode' is turned off." @@
    'iswitchb-make-buflist-hook 'wg-set-iswitchb-buffer-list
    'kill-buffer-hook 'wg-auto-dissociate-buffer-hook
    'kill-buffer-hook 'wg-update-buffer-in-buf-list
    'window-configuration-change-hook 'wg-associate-frame-buffers
    'after-make-frame-functions 'wg-after-make-frame))
 (defun wg-add-workgroups-mode-minor-mode-entries ()
   "Add Workgroups' minor-mode entries.
 Adds entries to `minor-mode-list', `minor-mode-alist' and
 `minor-mode-map-alist'."
   (pushnew 'workgroups-mode minor-mode-list)
   (pushnew '(workgroups-mode " wg") minor-mode-alist :test 'equal)
   (setq minor-mode-map-alist
         (cons (cons 'workgroups-mode (wg-make-workgroups-mode-map))
               (delete (assoc 'workgroups-mode minor-mode-map-alist)
                       minor-mode-map-alist))))
 (defun workgroups-mode (&optional arg)
   "Turns `workgroups-mode' on and off.
 If ARG is null, toggle `workgroups-mode'.
 If ARG is an integer greater than zero, turn on `workgroups-mode'.
 If ARG is an integer less one, turn off `workgroups-mode'.
 If ARG is anything else, turn on `workgroups-mode'."
   (interactive (list current-prefix-arg))
   (setq workgroups-mode
         (cond ((not arg) (not workgroups-mode))
               ((integerp arg) (if (> arg 0) t nil))
               (t)))
   (cond
    (workgroups-mode
     (wg-reset-internal)
     (wg-add-workgroups-mode-minor-mode-entries)
     (wg-enable-all-advice)
     (wg-add-or-remove-workgroups-hooks nil)
     ;;(mapcar 'wg-after-make-frame (frame-list))
     (mapc 'wg-after-make-frame (frame-list))
     (wg-add-mode-line-display)
     (wg-find-session-file-on-workgroups-mode-entry)
     (run-hooks 'workgroups-mode-hook))
    (t
     (wg-save-session-on-workgroups-mode-exit)
     (wg-disable-all-advice)
     (wg-add-or-remove-workgroups-hooks t)
     (wg-remove-mode-line-display)
     (run-hooks 'workgroups-mode-exit-hook)))
   (wg-fontified-message
     (:cmd "Workgroups Mode: ")
     (:msg (if workgroups-mode "on" "off")))
   ;;(if (and workgroups-mode
   ;;         (= (length (wg-workgroup-list)) 0))
   ;;    (wg-create-workgroup "First workgroup"))
   (if (and workgroups-mode
            wg-use-default-session-file
            (= (length (wg-workgroup-list)) 0))
       (wg-create-workgroup "First workgroup"))
   workgroups-mode)
 (provide 'workgroups2)
 ;;; workgroups2.el ends here

0 comments (0 inline, 0 general)