workgroups2 Changeset - be77fb03e9cb

Changeset - be77fb03e9cb

Parent rev.

Child rev.

[Not reviewed]

0 1 0

Sergey Pashinin - 13 years ago 2013-04-29 12:29:11
sergey@pashinin.com

now able to save multiple shell buffers

1 file changed with 13 insertions and 4 deletions:

workgroups-specialbufs.el

0 comments (0 inline, 0 general)

workgroups-specialbufs.el

➞

Show inline comments

 ;; shell buffer serdes
 (defun wg-deserialize-shell-buffer (buf)
   "Deserialize a `shell-mode' buffer."
   (shell (wg-buf-name 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)
       )))
 (defun wg-serialize-shell-buffer (buffer)
   "Serialize a `shell-mode' buffer."
   "Serialize a `shell-mode' buffer.
 Save shell directory"
   (with-current-buffer buffer
     (when (eq major-mode 'shell-mode)
       (list 'wg-deserialize-shell-buffer))))
       (list 'wg-deserialize-shell-buffer
             (wg-take-until-unreadable (list (or (buffer-file-name) default-directory)))
             ;;(mapcar 'wg-take-until-unreadable (or (buffer-file-name) default-directory))
             ))))
 ;; org-agenda buffer serdes

0 comments (0 inline, 0 general)