propertyinfo("Address",X) :- addresstext(X)
propertyinfo("Parcel Number",X) :- apn(X)
propertyinfo("Zoning District",X) :- zonelist(X)

formattedlocation(L) :- evaluate(
  if(
    someformattedaddress,
    choose(A,formattedaddress(A)),
    true,
    stringappend("Parcel Number: ", choose(A,apn(A)))
  ), L
)

someformattedaddress :- formattedaddress(X)
formattedaddress(X) :- address(A) & ~empty(A) & city(J) & evaluate(
  capitalizeone(
    stringappend(
      A,", ",J
    )
  ), X 
)

%To be shown in property information
addresstext(X) :- evaluate(
  if(
    someformattedaddress,
    stringappend(choose(A,formattedaddress(A)),", CA"),
    true,
    "—"
  ), X
)

zonelist(ZL) :- evaluate(setofall(Z,displayzone(Z)),S) & map(divify,S,L) & joinall(L,"",ZL)
displayzone(T) :- zone(Z) & evaluate(display_url(Z), T)

display_url(Z) := if (
  zone_url(Z,_), stringappend("<a class='link' target='_blank' href='",choose(X,zone_url(Z,X)),"'>",Z,"</a>"),
  true, Z
)


divify(X,Y) :- stringappend("<div>",X,"</div>",Y)


projectreport("Eligibility",E) :- statusmessage(X,Y,Z) & evaluate(inlinestatusicon(X,Y),E)
inlinestatusicon(X,Y) := stringappend(
  "<div class='inline-status status-",X,"'>",
    Y,
    if(
      split_zone_with_different_status,
      " <div class='gap-1x'></div><div class='small-text left--3x'>This property is located in more than 1 zoning district.</div>",
      true,
      ""
    ),
  "</div>"
)

projectreport("Proposed Use",X) :- use(U) & evaluate(
  if(
    ~somedescription(U),
    U,
    true,
    stringappend(
      "<div>",U,"</div>",
      "<div class='gap-1x'></div>",
      "<div class='small-text'>",choose(D,description(U,D)),"</div>"
    )
  ), X
)

somedescription(U) :- description(U,X)