Very basic first hack at emacs based edit server

edit_server.el

@@ -0,0 +1,97 @@
+;;
+;; Emacs edit-server
+;;
+;; This provides an edit server to respond to requests from the Chrome
+;; Emacs Chrome plugin. Based on
+;; http://www.emacswiki.org/emacs/EmacsEchoServer to start with.
+;;
+;; (C) 2009 Alex Bennee (alex@bennee.com)
+;; Licensed under GPLv3
+;;
+;;
+
+(defvar edit-server-port 9292
+  "Port the edit server listens too")
+
+(defvar edit-server-clients '() 
+  "alist where KEY is a client process and VALUE is the string")
+
+(defvar edit-server-current-proc 'nil
+  "Network process associated with the current edit, made local when
+  the edit buffer is create")
+
+(defun edit-server-start nil
+  "Start the edit server"
+  (interactive)
+  (unless (process-status "edit-server")
+    (make-network-process
+     :name "edit-server"
+     :buffer "*edit-server*"
+     :family 'ipv4
+     :host 'local ; only listen to local connections
+     :service edit-server-port
+     :filter 'edit-server-filter
+     :server 't) 
+    (setq edit-server-clients '())))
+
+(defun edit-server-stop nil
+  "Stop the edit server"
+  (interactive)
+  (while edit-server-clients
+    (delete-process (car (car edit-server-clients)))
+    (setq edit-server-clients (cdr edit-server-clients)))
+  (delete-process "edit-server"))
+
+
+(defun edit-server-filter (proc string)
+  "Called each time something connects to the edit server"
+  (message (format "edit-server-filter: got %s" string))
+  (let ((pending (assoc proc edit-server-clients))
+        message
+        index)
+    ;;create entry if required
+    (unless pending
+      (setq edir-server-clients (cons (cons proc "") edit-server-clients))
+      (setq pending  (assoc proc edit-server-clients)))
+
+    ;;Get the content from the headers, we don't actually much care
+    ;;about the headers for now. I suspect this would break on Windows
+    (let ((content (cdr (split-string http "
\n
\n"))))
+      (edit-server-create-edit-buffer proc content))))
+
+(defun edit-server-create-edit-buffer(proc string)
+  "Create an edit buffer, place content in it and setup the call
+backs"
+  (switch-to-buffer "edit-text-buffer")
+  (insert 'string)
+  (set (make-variable-buffer-local edit-server-current-proc) proc)
+  (local-set-key (kbd "C-x k") 'edit-server-done)
+  (local-set-key ((kbd "C-x C-s") 'edit-server-done)))
+
+;
+; HTTP/1.0 200 OK
+; Server: BaseHTTP/0.3 Python/2.6.4
+; Date: Fri, 18 Dec 2009 19:00:28 GMT
+; 
+; This is a test
+; For the text
+;
+
+(defun edit-server-done()
+  "Once someone is done with editing their text edit-server-done is
+  called and the response is sent back to the browser"
+  (interactive)
+  (message "edit-server-done")
+  (let (proc edit-server-current-proc)
+    (process-send-string proc "HTTP/1.0 200 OK
\n")
+    (process-send-string proc "Server: Emacs
\n")
+    (process-send-string proc "
\n")
+    (process-send-string proc (buffer-string))))
+    
+
+(defun edit-server-sentinel (proc msg)
+  (delq proc edit-server-clients)
+  (message (format "client %s has quit" proc)))
+
+
+