;; TODO: These could be a little more thorough

;;

(require 'dflet)

(require 'workgroups-misc)

;; Dired

(defun wg-deserialize-dired-buffer (buf)

  "Deserialize Dired buffer."

  (wg-dbind (this-function params) (wg-buf-special-data buf)

    (let ((dir (car params)))

      (current-buffer))))

(defun wg-serialize-dired-buffer (buffer)

  "Serialize Dired buffer."

  (with-current-buffer buffer

    (when (eq major-mode 'dired-mode)

      (list 'wg-deserialize-dired-buffer

            (wg-take-until-unreadable (list (or (buffer-file-name) default-directory)))

            ))))

;; Info buffer serdes

See the definitions of the functions in this list for examples of

how to write your own."

  :type 'alist

  :group 'workgroups)

(defcustom wg-default-buffer "*scratch*"

  "Buffer made visible a window when the window's actual buffer

can't be restored.  Also used when a blank workgroup is created."

  :type 'string

  :group 'workgroups)

(defcustom wg-restore-associated-buffers t

  "Non-nil means restore all buffers associated with the

workgroup on workgroup restore."

  :type 'boolean

  :group 'workgroups)

(defcustom wg-restore-frame-position nil

  "Non-nil means restore frame position on workgroup restore."

  :type 'boolean

  :group 'workgroups)

(defcustom wg-restore-scroll-bars t