karad

;;; fizzbuzzで渡される一つ一つの数値はひとつのリクエストとみなすことができる

(defn wrap-request
  [x]
  {:request x
   :result x})

(defn wrap-result
  [map]
  (:result map))

karad

;;; http://stackoverflow.com/questions/14507445/ring-solution-to-redirect-missing-trailing-slash-urls

(defn good-response? [resp]
  (and resp (not= (:status resp) 404)))

(defn wrap-slash [handler]
  (fn [{:keys [uri] :as req}]
    (let [resp (handler req)]
      (if (or (good-response? resp) (.endsWith uri "/"))
        resp

karad

--------------------------------------------------------------

--------------------------------------------------------------

--------------------------------------------------------------

--------------------------------------------------------------

    ##    ##    ####    ##      ##                            
    ####  ##  ##    ##  ##  ##  ##                            

karad

package libs.f;

import static play.libs.F.Option.*;
import play.libs.F.Either;
import play.libs.F.Option;

/**
 * Either Utility for Play framework F.java
 * 
 * @author kazuhiro hara (http://greative.jp)

karad

package controllers;

import play.*;
import play.mvc.*;
import controllers.*;
import views.html.*;
import org.fusesource.scalate.japi.TemplateEngineFacade;

import java.util.HashMap;
import java.util.Map;

karad

@Entity
@Table(name="statuses")
public class Status extends Model{
    @Required
    public String name;
    public Date created;
    public Date modified;
}