jborden

;; Minor mode for compiling java classes
(defvar javac-mode nil
  "Mode variable for java class files.")
(make-variable-buffer-local 'javac-mode)

(defun javac-mode (&optional arg)
  "Minor mode for compiling java class files.
Special Commands:
\\{javac-mode-map}"
  (interactive "P")

jborden

(ns web-app.core
(:use
   [compojure.core :only [defroutes GET POST]]
   [ring.middleware.json]
   ;; ... remaining libs
   [web-app.register :as register]))

(defroutes web-app
;; ... various routes
(POST "/register-new-user" {body :body} (register/handle-registration body)))

jborden

module push_array
  implicit none
  ! usage:
  ! array = push(array,val)
  interface push
     module procedure push_scalar_int_onto_rank1_int
     module procedure push_scalar_int2_onto_rank1_int2
     module procedure push_rank1_int_onto_rank2_int
     module procedure push_rank1_real8_onto_rank2_real8
  end interface push

jborden

jborden

#!/bin/bash
# comment to temporarily turn off testing
git diff --exit-code
RESULT=$?
[ $RESULT -ne 0 ] && exit 1
if [[ -n $(git status --porcelain | grep ??) ]]; then
    echo "There are untracked files"
    exit 1
fi
lein test