emacsでHTTP Requestを送信、取得するためのelispです。デフォルトemacsに入っている url パッケージを使っています。

send-http-request.el

(require 'url)

(defun send-http-request (url)
  "Send a simple http request and open a result within an other buffer.."
  (let
    (
      (url-request-method "GET")
        (url-request-extra-headers '(("Content-Type" . "application/x-www-form-urlencoded"))))
          (url-retrieve url 'switch-to-buffer-for-responce)))

(defun switch-to-buffer-for-responce (status)
  (switch-to-buffer
    (current-buffer)))

(defun get-response (url)
  "Get the http response info."
  (let
    (
      (url-request-method "GET")
      (url-request-extra-headers '(("Content-Type" . "application/x-www-form-urlencoded")))
      (buffer (url-retrieve-synchronously url)))
    (save-excursion
      (set-buffer buffer)
      (goto-char (point-min))
      (concat (buffer-substring-no-properties (point) (point-max))) )))

(provide 'send-http-request)