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

From Usipedia
Jump to: navigation, search

解説

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))))
Namespaces
Variants
Views
Actions
Categories