;;; workgroups-everywhere

(define-minor-mode workgroups-everywhere

  "Use Workgroups' buffer list filters everywhere `read-buffer' is used."

  :global t

  :group 'workgroups

  (wg-awhen (get 'workgroups-everywhere 'read-buffer-fn)

    (when (eq read-buffer-function 'wg-read-buffer)

      (setq read-buffer-function it))

    (put 'workgroups-everywhere 'read-buffer-fn nil))

  (when workgroups-everywhere

    (put 'workgroups-everywhere 'read-buffer-fn read-buffer-function)

    (setq read-buffer-function 'wg-read-buffer)))

;;; wg-minibuffer-mode

(defvar wg-minibuffer-mode-minor-mode-map-entry

  (cons 'wg-minibuffer-mode wg-minibuffer-mode-map)

  "`wg-minibuffer-mode's entry in `minor-mode-map-alist'.")

(define-minor-mode wg-minibuffer-mode

  "Minor mode for Workgroups' minibuffer commands."

  :global t

  :group 'workgroups

  (when wg-minibuffer-mode

    (add-to-list 'minor-mode-map-alist

                 wg-minibuffer-mode-minor-mode-map-entry)))

(defun wg-turn-on-minibuffer-mode ()

  "`minibuffer-setup-hook' to turn on `wg-minibuffer-mode'."

  (when wg-current-buffer-list-filter-id

    (wg-minibuffer-mode 1)))

(defun wg-turn-off-minibuffer-mode ()

  "`minibuffer-exit-hook' to turn off `wg-minibuffer-mode'."

  (wg-minibuffer-mode -1))

;;; workgroups-mode

(defun wg-reload-session ()

  "Reload current workgroups session."

  (interactive)

    (when (file-exists-p file)

      (condition-case err

          (wg-find-session-file wg-default-session-file)

        (error (message "Error finding session-file: %s" err))))

    ))

(defun wg-find-session-file-on-workgroups-mode-entry ()

  "This function is called when activating workgroups mode. It

loads a session file set in `wg-default-session-file' variable if

`wg-use-default-session-file' is t."

  (when (and wg-use-default-session-file

             (file-exists-p wg-default-session-file))

    (condition-case err

        (wg-find-session-file wg-default-session-file)

      (error (message "Error finding `wg-default-session-file': %s" err)))))

(defun wg-save-session-on-emacs-exit ()

  "Call `wg-save-session-on-exit' with `wg-emacs-exit-save-behavior'.

Added to `kill-emacs-query-functions'."

  (wg-save-session-on-exit wg-emacs-exit-save-behavior)

  t)

(defun wg-save-session-on-workgroups-mode-exit ()

  "Call `wg-save-session-on-exit' with `wg-workgroups-mode-exit-save-behavior'.

Called when `workgroups-mode' is turned off."

  (wg-save-session-on-exit wg-workgroups-mode-exit-save-behavior)

  t)

(defun wg-add-or-remove-workgroups-hooks (remove)

  "Add or remove all of Workgroups' hooks, depending on REMOVE."

  (wg-add-or-remove-hooks

   remove

   'kill-emacs-query-functions 'wg-save-session-on-emacs-exit

   'delete-frame-hook 'wg-update-working-wconfig-on-delete-frame

   'wg-pre-window-configuration-change-hook 'wg-update-working-wconfig-hook

   'window-configuration-change-hook 'wg-flag-window-configuration-changed

   'post-command-hook 'wg-undoify-window-configuration-change

   'minibuffer-setup-hook 'wg-turn-on-minibuffer-mode

   'minibuffer-exit-hook 'wg-flag-just-exited-minibuffer

   'minibuffer-exit-hook 'wg-turn-off-minibuffer-mode

   'ido-make-buffer-list-hook 'wg-set-ido-buffer-list

   '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 ()