workgroups2 Changeset - 4c5c4890f3c4

Changeset - 4c5c4890f3c4

Parent rev.

Child rev.

[Not reviewed]

0 1 0

Sergey Pashinin - 11 years ago 2014-08-08 19:17:34
sergey@pashinin.com

Fix for "notmuch" special buffer

1 file changed with 3 insertions and 1 deletions:

src/workgroups-specialbufs.el

0 comments (0 inline, 0 general)

src/workgroups-specialbufs.el

➞

Show inline comments

                                             (rename-buffer inf-sml-buffer-name t))))))
                                   (switch-to-buffer (wg-buf-name buffer))
                                   (goto-char (point-max)))))))
 ;; Geiser repls
 ;; http://www.nongnu.org/geiser/
 (wg-support 'geiser-repl-mode 'geiser
             `((save . (geiser-impl--implementation))
               (deserialize . ,(lambda (buffer vars)
                                 (when (fboundp 'run-geiser)
                                   (wg-dbind (impl) vars
                                     (run-geiser impl)
                                     (goto-char (point-max))))
                                 (switch-to-buffer (wg-buf-name buffer))))))
 ;; w3m-mode
 (wg-support 'w3m-mode 'w3m
             `((save . (w3m-current-url))
               (deserialize . ,(lambda (buffer vars)
                                 (wg-dbind (url) vars
                                   (w3m-goto-url url))))))
 ;; notmuch
 (wg-support 'notmuch-hello-mode 'notmuch
             `((deserialize . ,(lambda (buffer vars) (notmuch)))))
             `((deserialize . ,(lambda (buffer vars)
                                 (notmuch)
                                 (get-buffer (wg-buf-name buffer))))))
 ;; Wanderlust modes:
 ;; WL - folders
 ;;(defun wg-deserialize-wl-folders-buffer (buf)
 ;;  ""
 ;;  (if (fboundp 'wl)
 ;;      (wg-dbind (this-function) (wg-buf-special-data buf)
 ;;        ;;(when (not (eq major-mode 'wl-folder-mode))
 ;;        (wl)
 ;;        (goto-char (point-max))
 ;;        (current-buffer)
 ;;        )))
 ;;
 ;;(defun wg-serialize-wl-folders-buffer (buffer)
 ;;  ""
 ;;  (if (fboundp 'wl)
 ;;      (with-current-buffer buffer
 ;;        (when (eq major-mode 'wl-folder-mode)
 ;;          (list 'wg-deserialize-wl-folders-buffer
 ;;                )))))
 ;; WL - summary mode (list of mails)
 ;;(defun wg-deserialize-wl-summary-buffer (buf)
 ;;  ""

0 comments (0 inline, 0 general)