top  Index  Search  Changes  RSS  Login

howm wiki - ElScreen Diff

  • Added parts are displayed like this.
  • Deleted parts are displayed like this.

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)
      ))

----
* [[作者]][[Author]]もずっと愛用してます. elscreen なしの生活なんて考えられない.
{{comment}}
----