Webページを表示するだけのElisp

解説

HTTP 1.0でページを入手して表示し，qキーを押すと終了します． 操作マニュアルを表示する場合などに便利かもしれません．

余談ですが，switch-to-bufferやpop-to-bufferは便利ですね．cunning-mode.el - insert fixed sentence with indentでは垂直二分割するためにかなり面倒な実装をしてしまいました．

ソースコード

 (global-set-key "\C-c\C-f"
                 '(lambda ()
                    (interactive)
                    (let ((map (make-keymap))
                          (buf (get-buffer-create "*show-page*")))
                      (switch-to-buffer buf)
                      (process-send-string (open-network-stream "show-page" buf "tetuet.is-mine.net" 80)
                                           "GET /cunning-mode.el HTTP/1.0\r\nHost: tetuet.is-mine.net\r\n\r\n")
                      (define-key map "q" '(lambda () (interactive) (kill-buffer (current-buffer))))
                      (use-local-map map))))