tbatchelli

user> (use 'pallet.maven)
 (use 'org.jclouds.compute)
 (use 'pallet.compute)
 (require 'webapp-nodes.nodes)
 (def service (compute-service-from-settings))
#'user/service
user> (pallet.core/converge {webapp-nodes.nodes/proxied 2 webapp-nodes.nodes/haproxy 1} :compute service :phase :deploy)
==== add-target-keys :haproxy :bootstrap nil
==== add-target-keys :proxied :bootstrap nil
==== add-target-keys :haproxy :configure us-east-1/i-9d303bf7

tbatchelli

(ns benchmarks
  (:use net.cgrand.enlive-html)
  (:require [hiccup.core :as hiccup]
            [clj-html.core :as clj-html]))

(defn clj-html-benchmark []
  (let [text "Some text"]
    (clj-html/html
      [:html
        [:head