devn

age  = 26
name = "Devin"

1.upto(5) do |age;name|
  age  = 100
  name = "Rip Van Winkle"
  puts "#{name} is #{age} years old"
end

puts age  # => 26

devn

(def routes
  (-> (app
       ["examples" text] {:get [(fn [req] (walton-html text))]}
       [#".*\.js"] {:get [(file-response "resources/public")]}
       [#".*\.css"] {:get [(file-response "resources/public")]})
      (wrap-file "resources/public")))

devn

(ns blog.core
  (:require [ring.adapter.jetty :as jetty]
            [clojure.contrib.io :as io]
            [clojure.contrib.classpath :as cp])
  (:import [org.jruby.embed ScriptingContainer LocalContextScope]))

(def scripting-container (ScriptingContainer. LocalContextScope/THREADSAFE))

(defn execute-rb [rb-string]
  (. scripting-container runScriptlet rb-string))

devn

(ns demo.gemstoclojure
  (:require [ring.adapater.jetty :as jetty]
            [clojure.contrib.io :as io]
            [clojure.contrib.classpath :as cp])
  (:import [org.jruby.embed ScriptingContainer LocalContextScope]))

(def container (ScriptingContainer. LocalContextScope/THREADSAFE))

(println (cp/classpath))
(println (io/pwd))

devn

/master ☣(solo)> JRUBY_OPTS=--1.9 bundle exec rake --trace
rake aborted!
uninitialized constant Syck::Yecht
/Users/someusername/.rvm/gems/jruby-head@somecompany/gems/configatron-2.8.2/lib/configatron/store.rb:326:in `Store'
/Users/someusername/.rvm/gems/jruby-head@somecompany/gems/configatron-2.8.2/lib/configatron/store.rb:2:in `Configatron'
/Users/someusername/.rvm/gems/jruby-head@somecompany/gems/configatron-2.8.2/lib/configatron/store.rb:1:in `(root)'
/Users/someusername/.rvm/gems/jruby-head@somecompany/gems/configatron-2.8.2/lib/configatron/store.rb:5:in `(root)'
/Users/someusername/.rvm/gems/jruby-head@somecompany/gems/configatron-2.8.2/lib/configatron.rb:2:in `(root)'
/Users/someusername/git/company_i_work_for/somecompany/photos/vendor/somecompany/foreignclient/lib/module_helpers.rb:3:in `(root)'
/Users/someusername/git/company_i_work_for/somecompany/photos/vendor/somecompany/foreignclient/lib/foreignclient.rb:12:in `(root)'

devn

(ns state-is-a-fold
  (:use clojure.test))

;;; After all, state is a fold of events. For example let's say the events are a sequence of numbers
;;; and we are folding by addition:
(deftest simple
  (let [events [1 5 2 4 3]
	state (reduce + events)]
    (is (= 15 state))))

devn

~/$ lein new ring-on-heroku
Created new project in: /home/jim/Development/ring-on-heroku
~/$ cd ring-on-heroku
~/ring-on-heroku$ echo 'web: lein run -m ring-on-heroku.core' > Procfile
~/ring-on-heroku$ cat > src/ring_on_heroku/core.clj 
(ns ring-on-heroku.core
  (:use ring.util.response
        ring.adapter.jetty))

(defn app [req]

devn

;; Clojure

;; Load files, set mode based on hooks and filename
(require 'clojure-mode)
(autoload 'clojure-mode "clojure-mode" "A major mode for Clojure" t)
(add-to-list 'auto-mode-alist '("\\.clj$" . clojure-mode))

(require 'swank-clojure)

devn

;; Clojure

;; Load files, set mode based on hooks and filename
(require 'clojure-mode)
(autoload 'clojure-mode "clojure-mode" "A major mode for Clojure" t)
(add-to-list 'auto-mode-alist '("\\.clj$" . clojure-mode))

(require 'swank-clojure)

(require 'slime)

devn

(defn extract-sexps
  "Extracts s-exp from a string."
  [#^String string]
  (second
   (reduce (fn [[exp exps state cnt] c]
             (cond
              (= state :escape)
              [(.append exp c) exps :string cnt]
              (= state :string) (cond
                                 (= c \")