| (ns template | |
| (:require [clojure.edn :as edn] | |
| [clojure.string :as string])) | |
| ;; Tagged literals do not need to be limited to being represented by a single string. Here we represent a value with a tuple of `magic` and `value`. | |
| (defn read-magic [[magic value]] | |
| (case magic | |
| :c (string/capitalize value) | |
| :l (string/lower-case value) | |
| :u (string/upper-case value))) |
| (ns test-helpers | |
| (:import [java.io InputStream OutputStream IOException]) | |
| (:require [clojure.java.io :as io])) | |
| (defn- swap-! | |
| "Atomically swaps the value of atom to be: | |
| (apply f current-value-of-atom args). Note that f may be called | |
| multiple times, and thus should be free of side effects. Returns | |
| the value prior to the update." | |
| [a f & args] |
| (let [undefined-value (atom :undefined-value)] | |
| (defn pick-and-rename [col pick-map] | |
| (apply assoc | |
| {} | |
| (flatten | |
| (filter (fn [[k v]] | |
| (not (= v undefined-value))) | |
| (map (fn [[k v]] | |
| [v (get col k undefined-value)]) | |
| pick-map)))))) |
| (facts "/locations/:id/rates should limit the rate response count by the :limit param" | |
| (let [params [:check_in (gen-check-in) | |
| :check_out (gen-check-out) | |
| :guests 1 | |
| :rooms 1 | |
| :limit ...limit...]] | |
| (apply location-rate-request (:tid location-one) params) => truthy | |
| (provided | |
| (apij.models.hotel-search/search | |
| (contains {:params (contains {:limit apij.views.rates.common/max-hotels})})) |
| ;;(require 'copterj.git-version) ;; Pick up DRY'd version numbers | |
| (require 'clojure.contrib.io) ;; Needed to locate newrelic | |
| (let [java-agent (str "-javaagent:" (clojure.contrib.io/pwd) "/lib/newrelic.jar")] | |
| (defproject apij ~(copterj.git-version/git-describe) | |
| :description "Hotelicopter's API" | |
| :dependencies | |
| [[com.hotelicopter/copterj "1.0.0-SNAPSHOT"] |
Tired of waiting for emacs to start on OS X? This step by step guide will
teach you how to install the latest version of emacs and configure it to start
in the background (daemon mode) and use emacsclient as your main editor.
First you'll need to install the [Homebrew package manager][brew] if yo haven't already. It is amazing.
| # Please install the Engine Yard Capistrano gem | |
| # gem install eycap --source http://gems.engineyard.com | |
| require "eycap/recipes" | |
| require 'new_relic/recipes' | |
| # The following code has been lifted from config.rb | |
| AppConfig = begin | |
| require 'ostruct' | |
| require 'yaml' |
| From 36f25bf11b9e61b6361c829534dea2de0cf08acd Mon Sep 17 00:00:00 2001 | |
| From: Chris Hapgood <cch1@hapgoods.com> | |
| Date: Mon, 11 Oct 2010 09:42:05 -0400 | |
| Subject: [PATCH] Let respond_to do the heavy action cache lifting | |
| In determining the best content type for a response, let respond_to consider | |
| available content types using existing logic. Work hard to ensure that | |
| cached content has an extension to indicate its content type. | |
| --- | |
| .../lib/action_controller/caching/actions.rb | 73 ++++++++++---------- |
| require 'benchmark' | |
| ISO_DATETIME = /\A(\d{4})-(\d\d)-(\d\d) (\d\d):(\d\d):(\d\d)(\.\d+)?\z/ | |
| FAST_ISO_DATETIME = /\A(\d{4})-(\d\d)-(\d\d) (\d\d):(\d\d):(\d\d)(?:\.(\d+))?\z/ | |
| COUNT = 1000000 | |
| SRAND = 1455677931 | |
| DATETIME_STRING = "2010-01-12 12:34:56.%6.6i" | |
| Benchmark.bm do |bench| | |
| f = bench.report("Fast") do |
| # Recursively coerce empty string values in hash -particularly | |
| # useful for HTTP POSTed forms. | |
| # Values are coerced based on the rules mapping of params_hash keys to coerced values. | |
| # See http://dev.rubyonrails.org/ticket/5694 for background | |
| def self.coerce_empty_strings(params_hash, rules = {}) | |
| return unless params_hash | |
| params_hash.each_pair do |k,v| | |
| # AR::Base.extract_callstack_for_multiparameter_attributes can't handle nil values | |
| unless k.include?('(') | |
| params_hash[k] = rules[k.to_sym] if v.kind_of?(String) && v.empty? |