wilkes

(require 'slime)
(slime-setup)
(require 'clojure-auto)
(require 'clojure-paredit)

(add-to-list 'auto-mode-alist '("\\.clj$" . clojure-mode))

;; These are extra key defines because I kept typing them.  
;; Within clojure-mode, have Ctrl-x Ctrl-e evaluate the last 
;; expression.

wilkes

(ns rets
  (:import (org.apache.http.client HttpClient)
           (org.apache.http.client.methods HttpGet HttpPost)
           (org.apache.http.impl.client DefaultHttpClient)
           (org.apache.http.util EntityUtils)))

(use '[clojure.contrib.str-utils])

(def base-url "http://rets.realtracs.net:6103")
(def login-path "/rets/login")

wilkes

def test_refer_physician_no_caller(self):
    signals.referral_without_caller.disconnect(alerts.referral_without_caller)
    
    callback_called = Ref(False)
    def cb(sender, **kwargs):
        callback_called(True)
    signals.referral_without_caller.connect(cb)
    
    physician = milkman.deliver(Physician, is_active=True)
    

wilkes

def _get_or_instantiate(request, objclass):
    try:
        key = _keyify(objclass)
        return objclass._default_manager.get(pk=session.get(request, key))
    except (ObjectDoesNotExist, KeyError):
        return objclass()

# becomes:

def _get(request, objclass):

wilkes

Debugger entered--Lisp error: (file-error "Searching for program" "No such file or directory" "lisp")
  start-process("inferior-lisp" #<buffer *inferior-lisp*> "lisp")
  apply(start-process "inferior-lisp" #<buffer *inferior-lisp*> "lisp" nil)
  start-file-process("inferior-lisp" #<buffer *inferior-lisp*> "lisp")
  apply(start-file-process "inferior-lisp" #<buffer *inferior-lisp*> "lisp" nil)
  comint-exec-1("inferior-lisp" #<buffer *inferior-lisp*> "lisp" nil)
  comint-exec(#<buffer *inferior-lisp*> "inferior-lisp" "lisp" nil nil)
  (let ((process-environment ...)) (comint-exec (current-buffer) "inferior-lisp" program nil program-args))
  (save-current-buffer (set-buffer (get-buffer-create buffer)) (when directory (cd ...)) (comint-mode) (let (...) (comint-exec ... "inferior-lisp" program nil program-args)) (lisp-mode-variables t) (let (...) (slime-set-query-on-exit-flag proc) proc))
  (with-current-buffer (get-buffer-create buffer) (when directory (cd ...)) (comint-mode) (let (...) (comint-exec ...

wilkes

(defun clj-repl (binary)
  (setq swank-clojure-binary binary)
  (require 'swank-clojure-autoload)
  (slime))

(defun pt-repl ()
  (interactive)
  (clj-repl "~/Projects/gh/pivotal-tracker-clj/bin/slime"))