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