ElScreen

GNU Screen の Emacs 版。

http://www.morishima.net/~naoto/j/software/elscreen/

• elscreen 本家で ElScreen-howm という Add-On が提供されています[2005-11-20]。すばらしい。

;; (elscreen + howm-1.1.1rc3 以降で)
;; 一覧・内容バッファから
;; M-RET → elscreen 0 で開く
;; C-u 3 M-RET → elscreen 3 で開く
(eval-after-load "elscreen"
  '(progn
     (require 'howm)  ;; 追加 [2006-11-06]
     (defvar *howm-elscreen* nil)
     (defun howm-elscreen-goto ()
       (when *howm-elscreen*
         (elscreen-goto *howm-elscreen*)))
     (add-hook 'howm-view-before-open-hook 'howm-elscreen-goto)
     (defun howm-elscreen-open-something (n opener)
       ;; move cursor back from contents to summary in the original screen
       (save-window-excursion
         (let ((*howm-elscreen* (or n 0)))
           (funcall opener))
         (elscreen-toggle))
       (elscreen-toggle))
     (defun howm-elscreen-open-summary (n)
       (interactive "P")
       (howm-elscreen-open-something n #'howm-view-summary-open-sub))
     (defun howm-elscreen-open-contents (n)
       (interactive "P")
       (howm-elscreen-open-something n #'howm-view-contents-open-sub))
     (define-key howm-view-summary-mode-map
       "\M-\C-m" 'howm-elscreen-open-summary)
     (define-key howm-view-contents-mode-map
       "\M-\C-m" 'howm-elscreen-open-contents)
     ))

• 作者もずっと愛用してます. elscreen なしの生活なんて考えられない.