MarkLogic: Example payload with GZip compression on the server

payload-with-gzip.xqy

xquery version "1.0-ml";

declare function local:create-html-payload() {
  xdmp:set-response-content-type("text/html"),
  for $a in (1 to 100)
  return element p {"Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Donec hendrerit tempor tellus. Donec pretium posuere tellus. Proin quam nisl, tincidunt et, mattis eget, convallis nec, purus. Cum sociis natoque penatibus et magnis dis parturient montes, nascetur ridiculus mus. Nulla posuere. Donec vitae dolor. Nullam tristique diam non turpis. Cras placerat accumsan nulla. Nullam rutrum. Nam vestibulum accumsan nisl."}
};

if(fn:contains(xdmp:get-request-header("Accept-Encoding"), "gzip"))
then(
  xdmp:set-response-content-type("text/html"),
  xdmp:add-response-header("Content-encoding", "gzip"),
  xdmp:gzip(local:create-html-payload())
)else(
  xdmp:set-response-content-type("text/html"),
  local:create-html-payload()
)