anchor.diff:  -define(CT_JSON, {"application/json", to_json}).
   -define(CT_HTML, {"text/html", to_html}).
   -define(CT_EEML, {"text/xml", to_eeml}).
  +-define(STATUS_OPEN, <<$1>>).
   
   
   %% Webmachine Resource functions
  
positive.code: item_to_json(S) ->
      [{id, S#status.id},
       {timestamp, S#status.timestamp},
       {status, S#status.status == <<$1>>}].
  
  
  %% CSV
  
negative.code: 
  open_closed(Status) ->
      open_closed(Status, "open", "closed").
  open_closed(#status{status=?STATUS_OPEN}, Open, _) -> Open;
  open_closed(_, _, Closed) -> Closed.
  
  
  %% Data access functions
  