;;; special buffer serdes functions ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;

;; TODO: Possibly add restore-special-data customization option

;; 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

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

  "Deserialize an Info buffer."

  (require 'info)

  (wg-aif (cdr (wg-buf-special-data buf))

      (apply #'Info-find-node it)

    (info))

  (current-buffer))

(defun wg-serialize-Info-buffer (buffer)

  "Serialize an Info buffer."

  (with-current-buffer buffer

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

buffers of that type.  A non-nil return value indicates that it

can.  The first non-nil return value becomes the buffer's special

serialization data.  The return value should be a cons, with a

deserialization function (a function symbol or a lambda) as the car,

and any other serialization data as the cdr.

When it comes time to deserialize the buffer, the deserialization

function (the car of the cons mentioned above) is passed the

wg-buf object, from which it should restore the buffer.  The

special serialization data itself can be accessed

with (cdr (wg-buf-special-data <wg-buf>)).  The deserialization

function must return the restored Emacs buffer object.

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

  "Non-nil means restore scroll-bar settings on workgroup restore."

  :type 'boolean

  :group 'workgroups)

(defcustom wg-restore-fringes t

  "Non-nil means restore fringe settings on workgroup restore."

  :type 'boolean

  :group 'workgroups)

(defcustom wg-restore-margins t

  "Non-nil means restore margin settings on workgroup restore."

  :type 'boolean