yyoncho / lsp-mode

4%

master: 82%

LAST BUILD ON BRANCH schema

branch: schema

CHANGE BRANCH

x

Reset

• schema
• actions
• additional
• angular-fixup
• backup
• better-cancel
• better-methods
• capf
• changelog
• cleanup
• completion
• diagnostics-bar
• disable-lsp-ui
• downloads
• eslint
• fix-sync
• flowjs
• flycheck
• flycheck-fixes
• flymake
• imenu-fixes
• kiennq-bug/lsp-json-slow
• lsp-protocol
• lv
• master
• metal-debug
• mssql
• optimization
• optimize
• org-mode-lsp-mode
• org-mode-new
• perf-docs
• plists
• plists-completion
• protocol
• refactoring
• requre-external-clients
• signatures
• signatures-temp
• which-key
• wip-coverage

Build # 877

Build Type

push

travis-ci

Committed by yyoncho

Commit Message

Implement client side bindings for the protocol

- I have extracted the scema from lsp4e, it covers all features from 3.15 except
the progress reporting stuff from 3.15

- Introduced destructoring function in the form of `(-let [&<LspStructureName>
:lsp-field...`. In order to make that more convenient the fields from the
structure are converter from camel-case to snake-case and also the optional
fields ends with ?. So failureReason will become failure-reason?

- Generated fields accessors, e. g. `(gethash "character" point)` will
become `(lsp:point-character point)`.

- Generated constants for the enums, e. g. `lsp/message-type-warning`.

- Generated methods lsp:<lsp interface>? which will check if the passed object
is satisfying the interface, e. g.

``` elisp
(lsp:position? (ht ("character" 10)
                   ("line" 10)))
=> t
```
Some sample code:

```
Before:

``` elisp
(defun lsp--window-log-message-request (params)
  "Display a message request to the user and send the user's selection back to the server."
  (let* ((type (gethash "type" params))
         (message (lsp--propertize (gethash "message" params) type))
         (choices (seq-map (-partial 'gethash "title")
                           (gethash "actions" params))))
    (if choices
        (completing-read (concat message " ") (seq-into choices 'list) nil t)
      (lsp-log message))))
```

After:

``` elisp
(-defun lsp--window-log-message-request ((&ShowMessageRequestParams :message :type :actions?))
  "Display a message request to the user and send the user's selection back to the server."
  (let* ((message (lsp--propertize message type))
         (choices (seq-map #'lsp:message-action-item-title actions?)))
    (if choices
        (completing-read (concat message " ") (seq-into choices 'list) nil t)
      (lsp-log message))))
```

Run Details

9 of 256 relevant lines covered (3.52%)

0.11 hits per line