changeset 144:a7deb3b738a2

Merge
author Augie Fackler <durin42@gmail.com>
date Thu, 17 Sep 2009 10:36:05 -0500
parents 35eef880a5ac (diff) e30655eb7050 (current diff)
children a585b0d2b828
files .elisp/settings/10.require.el
diffstat 3 files changed, 184 insertions(+), 20 deletions(-) [+]
line wrap: on
line diff
new file mode 100644
--- /dev/null
+++ b/.elisp/http-twiddle.el
@@ -0,0 +1,153 @@
+;;; http-twiddle.el -- send & twiddle & resend HTTP requests
+;;
+;; Version 1.0 written by Luke Gorrie <luke@synap.se> in February 2006
+;; This program belongs to the public domain.
+;;
+;; (downloaded from http://fresh.homeunix.net/~luke/misc/emacs/http-twiddle.el)
+;;
+;; This is a program for testing hand-written HTTP requests. You write
+;; your request in an Emacs buffer (using http-twiddle-mode) and then
+;; press `C-c C-c' each time you want to try sending it to the server.
+;; This way you can interactively debug the requests. To change port or
+;; destination do `C-u C-c C-c'.
+;;
+;; The program is particularly intended for the POST-"500 internal
+;; server error"-edit-POST loop of integration with SOAP programs.
+;;
+;; The mode is activated by `M-x http-twiddle-mode' or automatically
+;; when opening a filename ending with .http-twiddle.
+;;
+;; The request can either be written from scratch or you can paste it
+;; from a snoop/tcpdump and then twiddle from there.
+;;
+;; See the documentation for the `http-twiddle-mode' and
+;; `http-twiddle-mode-send' functions below for more details and try
+;; `M-x http-twiddle-mode-demo' for a simple get-started example.
+;;
+;; Tested with GNU Emacs 21.4.1 and not tested/ported on XEmacs yet.
+
+;;; Example buffer:
+
+;; POST / HTTP/1.0
+;; Connection: close
+;; Content-Length: $Content-Length
+;;
+;; The request body goes here
+
+(require 'font-lock)                    ; faces
+
+(eval-when-compile
+  (unless (fboundp 'define-minor-mode)
+    (require 'easy-mmode)
+    (defalias 'define-minor-mode 'easy-mmode-define-minor-mode))
+  (require 'cl))
+
+(define-minor-mode http-twiddle-mode
+  "Major mode for twiddling around with HTTP requests and sending them.
+Use `http-twiddle-mode-send' (\\[http-twiddle-mode-send]) to send the request."
+  nil
+  " http-twiddle"
+  '(("\C-c\C-c" . http-twiddle-mode-send)))
+
+(defvar http-twiddle-show-request t
+  "*Show the request in the transcript.")
+
+(add-to-list 'auto-mode-alist '("\\.http-twiddle$" . http-twiddle-mode))
+
+(defvar http-twiddle-endpoint nil
+  "Cache of the (HOST PORT) to send the request to.")
+
+(defvar http-twiddle-process nil
+  "Socket connected to the webserver.")
+
+(defvar http-twiddle-port-history '()
+  "History of port arguments entered in the minibuffer.
+\(To make XEmacs happy.)")
+
+(defvar http-twiddle-host-history '()
+  "History of port arguments entered in the minibuffer.
+\(To make XEmacs happy.)")
+
+(defun http-twiddle-mode-send (host port)
+  "Send the current buffer to the server.
+Linebreaks are automatically converted to CRLF (\\r\\n) format and any
+occurences of \"$Content-Length\" are replaced with the actual content
+length."
+  (interactive (http-twiddle-read-endpoint))
+  ;; close any old connection
+  (when http-twiddle-process
+    (kill-buffer (process-buffer http-twiddle-process)))
+  (let ((content (buffer-string)))
+    (with-temp-buffer
+      (insert content)
+      (http-twiddle-convert-cr-to-crlf)
+      (http-twiddle-expand-content-length)
+      (let ((request (buffer-string)))
+        (setq http-twiddle-process
+              (open-network-stream "http-twiddle" "*HTTP Twiddle*" host port))
+        (set-process-filter http-twiddle-process 'http-twiddle-process-filter)
+        (set-process-sentinel http-twiddle-process 'http-twiddle-process-sentinel)
+        (process-send-string http-twiddle-process request)
+        (save-selected-window
+          (pop-to-buffer (process-buffer http-twiddle-process))
+          (when http-twiddle-show-request
+            (insert request)
+            (set-window-start (selected-window) (point))
+            (add-text-properties (point-min) (point-max)
+                                 '(face font-lock-comment-face)))
+          (set-mark (point)))))))
+
+(defun http-twiddle-read-endpoint ()
+  "Return the endpoint (HOST PORT) to send the request to."
+  (if (and http-twiddle-endpoint (null current-prefix-arg))
+      http-twiddle-endpoint
+    (setq http-twiddle-endpoint
+          (list (read-string "Host: (default localhost) "
+                             nil 'http-twiddle-host-history "localhost")
+                (let ((input (read-from-minibuffer "Port: " nil nil t 'http-twiddle-port-history)))
+                  (if (integerp input)
+                      input
+                    (error "Not an integer: %S" input)))))))
+
+(defun http-twiddle-convert-cr-to-crlf ()
+  "Convert \\n linebreaks to \\r\\n in the whole buffer."
+  (save-excursion
+    (goto-char (point-min))
+    (while (re-search-forward "[^\r]\n" nil t)
+      (backward-char)
+      (insert "\r"))))
+
+(defun http-twiddle-expand-content-length ()
+  "Replace any occurences of $Content-Length with the actual Content-Length."
+  (save-excursion
+    (goto-char (point-min))
+    (let ((content-length
+           (save-excursion (when (search-forward "\r\n\r\n" nil t)
+                             (- (point-max) (point))))))
+      (unless (null content-length)
+        (let ((case-fold-search t))
+          (while (search-forward "$content-length" nil t)
+            (replace-match (format "%d" content-length) nil t)))))))
+
+(defun http-twiddle-process-filter (process string)
+  "Process data from the socket by inserting it at the end of the buffer."
+  (with-current-buffer (process-buffer process)
+    (goto-char (point-max))
+    (insert string)))
+
+(defun http-twiddle-process-sentinel (process what)
+  (with-current-buffer (process-buffer process)
+    (goto-char (point-max))
+    (let ((start (point)))
+      (insert "Connection closed\n")
+      (add-text-properties start (point) '(face font-lock-string-face)))))
+
+(defun http-twiddle-mode-demo ()
+  (interactive)
+  (pop-to-buffer (get-buffer-create "*http-twiddle demo*"))
+  (http-twiddle-mode 1)
+  (erase-buffer)
+  (insert "POST / HTTP/1.0\nContent-Length: $Content-Length\nConnection: close\n\nThis is the POST body.\n")
+  (message "Now press `C-c C-c' and enter a webserver address (e.g. google.com port 80)."))
+
+(provide 'http-twiddle)
--- a/.elisp/settings/10.require.el
+++ b/.elisp/settings/10.require.el
@@ -18,3 +18,4 @@
 (add-to-list 'auto-mode-alist '("\\.yml$" . yaml-mode))
 
 (require 'nose)
+(require 'http-twiddle)
--- a/.hgignore
+++ b/.hgignore
@@ -1,20 +1,30 @@
-syntax:glob
-hgwebdir.conf
-.*
-*.pid
-*.pyc
-Desktop
-Documents
-Downloads
-Dropbox
-Library
-Misc. Stuff
-Movies
-Music
-Pictures
-Programming
-Public
-Sites
-durin42_html
-public_html
-www
+syntax:re
+
+# complex regex to ignore all but what I want from dotfiles
+^\.(?!bashrc$|best_unicode|elisp|emacs$|gitconfig$|hg|inputrc$|ipython|irbrc$|pdbrc\.py$|python|screenrc$|shell\.d|vim|zfun|zsh)
+
+# above RE fails to exclude viminfo
+\.viminfo
+# above RE fails to exclude history or machine-specific files
+^\..*(?=history|machine).*
+
+# No pid files
+.*\.pid$
+
+#one-off file/directory exclusions
+hgwebdir\.conf
+^Desktop
+^Documents
+^Downloads
+^Dropbox
+^Library
+^Misc. Stuff
+^Movies
+^Music
+^Pictures
+^Programming
+^Public
+^Sites
+^durin42_html
+^public_html
+^www