-
Notifications
You must be signed in to change notification settings - Fork 8
Support client capabilities (ocaml.next-hole
)
#54
New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
Support client capabilities (ocaml.next-hole
)
#54
Conversation
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
That's out of my league :-)
Are the test failures expected ?
5a47175
to
1125507
Compare
c4c98e0
to
67654b1
Compare
1029262
to
e58ae4a
Compare
e58ae4a
to
1e9976a
Compare
ocaml-eglot.el
Outdated
(when (fboundp 'eglot-execute) | ||
(cl-defmethod eglot-execute :around (_ action) | ||
"Custom handler for performing client commands." | ||
(pcase (cl-getf action :command) | ||
("ocaml.next-hole" (ocaml-eglot--command-next-hole | ||
(cl-getf action :arguments))) | ||
(_ (cl-call-next-method))))) | ||
|
||
(when (fboundp 'eglot-execute-command) | ||
(cl-defmethod eglot-execute-command :around (_ command arguments) | ||
"Custom handler for performing client commands (legacy)." | ||
(pcase command | ||
("ocaml.next-hole" (ocaml-eglot--command-next-hole arguments)) | ||
(_ (cl-call-next-method))))) | ||
|
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
It might be useful for later or other dev to comment here on the reason why you need both of these.
In general these extensions looks quite tricky, documenting your implementation choices and the difficulty you encountered would be very valuable.
No description provided.