;; R shell, M-x R

(wg-support 'inferior-ess-mode 'ess-inf

            `((save . (inferior-ess-program))

              (deserialize . ,(lambda (buffer vars)

                                (wg-dbind (cmd) vars

                                  (let ((ess-ask-about-transfile nil)

                                        (ess-ask-for-ess-directory nil)

                                        (ess-history-file nil))

                                    (R)))))))

;; inferior-octave-mode

(wg-support 'inferior-octave-mode 'octave

            `((deserialize . ,(lambda (buffer vars)

                                (prog1 (run-octave)

                                  (rename-buffer (wg-buf-name buffer) t))))))

;; Prolog shell

(wg-support 'prolog-inferior-mode 'prolog

            `((deserialize . ,(lambda (buffer vars)

                                (save-window-excursion

                                  (run-prolog nil))

                                (switch-to-buffer "*prolog*")

                                (goto-char (point-max))))))

;; compilation-mode

;;

;; I think it's not a good idea to compile a program just to switch

;; workgroups. So just restoring a buffer name.

(wg-support 'compilation-mode 'compile

            `((serialize . ,(lambda (buffer)

                              (if (boundp' compilation-arguments) compilation-arguments)))

              (deserialize . ,(lambda (buffer vars)

                                (save-window-excursion

                                  (get-buffer-create (wg-buf-name buffer)))

                                (with-current-buffer (wg-buf-name buffer)

                                  (when (boundp' compilation-arguments)

                                    (make-local-variable 'compilation-arguments)

                                    (setq compilation-arguments vars)))

                                (switch-to-buffer (wg-buf-name buffer))

                                (goto-char (point-max))))))

;; grep-mode

;; see grep.el - `compilation-start' - it is just a compilation buffer

;; local variables:

;; `compilation-arguments' == (cmd mode nil nil)

(wg-support 'grep-mode 'grep

            `((serialize . ,(lambda (buffer)

                              (if (boundp' compilation-arguments) compilation-arguments)))