(:~ 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
{
	"jsonrpc": "2.0",
	"id": 2,
	"method": "textDocument/hover",
	"params": {
		"textDocument": {
			"uri": "file:///session1.json"
		},
		"position": {
			"line": 2,
			"character": 22
		}
	}
}
:)
declare
function lsp-text:hover($json as map(*)) 
as map(*)?
{
 let $doc:=$json?params?textDocument?uri
 return map{
    "jsonrpc": "2.0",
    "id": $json?id,
    "value":"uri: " || $doc
  }
};

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 ()
};