(:~ handle text messages
 : @author andy bunce
 :)
module namespace lsp-text = 'lsp-text';
import module namespace p="xq4" at "xq4.xqm";

declare variable $lsp-text:methods:=map{
  "textDocument/didOpen": lsp-text:didOpen#1,
  "textDocument/didClose" : lsp-text:method-unknown#1,
  "textDocument/didChange": lsp-text:method-unknown#1,
  "textDocument/hover":  lsp-text:hover#1,
  "textDocument/completion": lsp-text:completion#1
};
(:~  hover

:)
declare
function lsp-text:hover($json as map(*)) 
as map(*)?
{
 let $doc:=$json?params?textDocument?uri
 return map{
    "jsonrpc": "2.0",
    "id": $json?id,
    "result":{
  "contents": [
    {
      "language": "markdown",
      "value": `this is **bold** markdown
      a link (here)[http://google.com]
      The last line`
    },
    {
      "language": "plaintext",
      "value": "A hover for " || json:serialize($json)
    }]
}
  }
};

declare
function lsp-text:completion($json as map(*)) 
as map(*)?
{
 let $doc:=$json?params?textDocument?uri
 return map{
    "jsonrpc": "2.0",
    "id": $json?id,
    "result":()
  }
};

(:~  didOpen method response :)
declare
function lsp-text:didOpen($json as map(*)) 
as map(*)?
{
 let $textDoc:=$json?params?textDocument
 let $text:=$textDoc?text=>trace("TXT")
 return ()
};

(:~  unknown method response :)
declare
function lsp-text:method-unknown($json as map(*)) 
as map(*)?
{
 let $_:=trace($json?method,"unknown")
 return ()
};