workgroups2 Changeset - b17119e03a68

Changeset - b17119e03a68

Parent rev.

Child rev.

[Not reviewed]

0 2 0

Iqbal Ansari - 12 years ago 2013-12-23 19:14:17
iqbal0212@yahoo.com

Add functions for restoring geiser repls

2 files changed with 20 insertions and 2 deletions:

src/workgroups-specialbufs.el

src/workgroups-variables.el

0 comments (0 inline, 0 general)

src/workgroups-specialbufs.el

➞

Show inline comments

@@ @@ -624,8 +624,8 @@ Run shell with a last working directory." @@
         ;; buffer, however we want to create a separate buffer with
         ;; the serialized name
         (let* ((inf-sml-buffer-name (concat "*"
 					    (file-name-nondirectory inf-sml-program)
 					    "*"))
                                             (file-name-nondirectory inf-sml-program)
                                             "*"))
                (existing-sml-buf (wg-temporarily-rename-buffer-if-exists
                                   inf-sml-buffer-name)))
@@ @@ -656,6 +656,23 @@ Run shell with a last working directory." @@
             sml-default-arg
             sml-host-name))))
 ;; Functions to restore geiser repls
 (defun wg-deserialize-inf-geiser-buffer (buffer)
   "Deserialize an geiser repl BUFFER."
   (when (require 'geiser nil 'noerror)
     (wg-dbind (this-function implementation) (wg-buf-special-data buffer)
       (save-window-excursion
         (run-geiser implementation)
         (goto-char (point-max))
         (current-buffer)))))
 (defun wg-serialize-inf-geiser-buffer (buffer)
   "Serialize an geiser repl BUFFER."
   (with-current-buffer buffer
     (when (eq major-mode 'geiser-repl-mode)
       (list 'wg-deserialize-inf-geiser-buffer
             geiser-impl--implementation))))
 ;;; buffer-local variable serdes

src/workgroups-variables.el

➞

Show inline comments

@@ @@ -223,6 +223,7 @@ it to `major-mode'." @@
     wg-serialize-sage-shell-buffer
     wg-serialize-inf-mongo-buffer
     wg-serialize-inf-sml-buffer
     wg-serialize-inf-geiser-buffer
     wg-serialize-wl-folders-buffer
     ;;wg-serialize-wl-summary-buffer
     ;;wg-serialize-mime-view-buffer

0 comments (0 inline, 0 general)