;; ielm buffer serdes

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

  "Deserialize an `inferior-emacs-lisp-mode' buffer."

  (ielm)

  (current-buffer))

(defun wg-serialize-ielm-buffer (buffer)

  "Serialize an `inferior-emacs-lisp-mode' buffer."

  (with-current-buffer buffer

    (when (eq major-mode 'inferior-emacs-lisp-mode)

      (list 'wg-deserialize-ielm-buffer))))

;; Magit buffers

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

  ""

  (require 'magit)

  (if (boundp 'magit-status-mode-map)

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

        (let ((default-directory (car dir)))

          (current-buffer)

          ))))

(defun wg-serialize-magit-buffer (buffer)

  ""

  (if (boundp 'magit-status-mode-map)

      (with-current-buffer buffer

        (when (eq major-mode 'magit-status-mode)

          (list 'wg-deserialize-magit-buffer

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

                )))))

;; shell buffer serdes

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

  "Deserialize a `shell-mode' buffer.

Run shell with last working dir"

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

    (let ((default-directory (car dir)))

      (shell (wg-buf-name buf))

      (current-buffer)

      )))