language-server: address review issues

This commit is contained in:
Liam Fitzgerald 2020-01-27 12:18:48 +10:00
parent 3c74888c9d
commit 4f9245cb45

View File

@ -86,8 +86,7 @@
++ on-watch ++ on-watch
|= =path |= =path
?: ?=([%primary ~] path) ?: ?=([%primary ~] path)
:_ this `this
~
?. ?=([%http-response @ ~] path) ?. ?=([%http-response @ ~] path)
(on-watch:def path) (on-watch:def path)
`this `this
@ -119,23 +118,18 @@
|= res=out:notification:lsp-sur |= res=out:notification:lsp-sur
^- (list card) ^- (list card)
:_ ~ :_ ~
[%give %fact `/primary %language-server-rpc-notification !>(res)] [%give %fact ~[/primary] %language-server-rpc-notification !>(res)]
:: ::
++ on-notification ++ on-notification
|= not=all:notification:lsp-sur |= not=all:notification:lsp-sur
^- (quip card _state) ^- (quip card _state)
=^ cards state =^ cards state
?+ -.not [~ state] ?+ -.not [~ state]
%text-document--did-open %text-document--did-open (handle-did-open +.not)
(handle-did-open +.not) %text-document--did-change (handle-did-change +.not)
%text-document--did-change %text-document--did-save (handle-did-save +.not)
(handle-did-change +.not) %text-document--did-close (handle-did-close +.not)
%text-document--did-save %exit handle-exit
(handle-did-save +.not)
%text-document--did-close
(handle-did-close +.not)
%exit
handle-exit
== ==
[cards state] [cards state]
++ on-request ++ on-request
@ -152,7 +146,7 @@
|= res=all:response:lsp-sur |= res=all:response:lsp-sur
^- (list card) ^- (list card)
:_ ~ :_ ~
[%give %fact `/primary %language-server-rpc-response !>(res)] [%give %fact ~[/primary] %language-server-rpc-response !>(res)]
:: ::
++ handle-exit ++ handle-exit
^- (quip card _state) ^- (quip card _state)