wilkes

(ns rabbitmq
  (:import (com.rabbitmq.client ConnectionParameters 
				ConnectionFactory
				QueueingConsumer)))

(defstruct connection-info
  :username :password :virtual-host :heartbeat :host :port)

(defn connect [info]
  (let [connection (.newConnection (ConnectionFactory. 

wilkes

# Make sure your run: sudo chmod u+s /usr/bin/screen
startup_message off
defscrollback 100000 # functionally infinite scrollback

# This will allow for multi-user usage
# I got all the keys off of the deployment server and added them to my 'pair' user account so no password is needed
multiuser on

# change cmd from C-a to C-z to avoid emacs conflict
escape ^zz

wilkes

(ns fjord
  (:import (javax.servlet.http HttpServletResponse)
	   (org.mortbay.jetty HttpConnection Request Server HttpException)
	   (org.mortbay.jetty.bio SocketConnector)
	   (org.mortbay.jetty.handler AbstractHandler)))

(defstruct webctx :target :request :response :dispatch)

(def *routes* (atom []))

wilkes

Debugger entered--Lisp error: (wrong-type-argument stringp nil)
  expand-file-name(nil)
  magit-get-top-dir(nil)
  magit-status(nil)
  call-interactively(magit-status t nil)
  execute-extended-command(nil)
  call-interactively(execute-extended-command nil nil)

wilkes

(require 'cl)


(defun twm-make-full-screen ()
  (when (and (featurep 'aquamacs) (not (frame-parameter nil 'fullscreen)))
    (aquamacs-toggle-full-frame)))

(defun twm-focus-window () 
  "assumes the largest window is the focus window"
  (get-largest-window))

wilkes

(defun twm-frame-full-screen-p ()
  (frame-parameter nil 'fullscreen))

(defun twm-make-full-screen ()
  (when (and (featurep 'aquamacs) (not (twm-frame-full-screen-p)))
    (aquamacs-toggle-full-frame)))

(defun twm-focus-window () 
  "assumes the largest window is the focus window"
  (get-largest-window))

wilkes

(defun twm-frame-full-screen-p ()
  (frame-parameter nil 'fullscreen))

(defun twm-make-full-screen ()
  (when (and (featurep 'aquamacs) (not (twm-frame-full-screen-p)))
    (aquamacs-toggle-full-frame)))

wilkes

(defun writeroom ()
  "Switches to a WriteRoom-like fullscreen style"
  (interactive)	
  (when (featurep 'aquamacs)
					; switch to Garamond 36pt
;;     (set-frame-font "-apple-garamond-medium-r-normal--36-360-72-72-m-360-iso10646-1")
    (set-frame-font "-apple-monaco-medium-r-normal--14-120-72-72-m-120-mac-roman")
					; switch to fullscreen mode
    (aquamacs-toggle-full-frame)))

wilkes

(comment 
 public static void main(String[] args) throws Exception
 {
     Server server = new Server();
     Connector connector=new SocketConnector();
     connector.setPort(8080);
     server.setConnectors(new Connector[]{connector});
     
     Handler handler=new HelloHandler();
     server.setHandler(handler);

wilkes

(ns fnord.jetty
  (:import (javax.servlet.http HttpServletResponse)
	   (org.mortbay.jetty HttpConnection Request Response Server)
	   (org.mortbay.jetty.bio SocketConnector)
	   (org.mortbay.jetty.handler AbstractHandler)))

(def *dispatch-table* (ref {}))
(def *server* (Server.))
(defstruct webctx :target :request :response :dispatch)