emacs lsp vls config

vls_config.el

  (lsp-register-client
   (make-lsp-client :new-connection (lsp-stdio-connection "~/.vscode/extensions/octref.vetur-0.18.0/server/bin/vls")
                    :major-modes '(web-mode)
                    :ignore-messages '("readFile .*? requested by Vue but content not available")
                    :initialization-options (lambda ()
                                            '(:vetur
                                              (:completion
                                               (:autoImport t :useScaffoldSnippets t :tagCasing "kebab")
                                               :grammar
                                               (:customBlocks
                                                (:docs "md" :i18n "json"))
                                               :validation
                                               (:template t :style t :script t)
                                               :format
                                               (:options
                                                (:tabSize 2 :useTabs :json-false)
                                                :defaultFormatter
                                                (:html "prettyhtml" :css "prettier" :postcss "prettier" :scss "prettier" :less "prettier" :stylus "stylus-supremacy" :js "prettier" :ts "prettier")
                                                :defaultFormatterOptions
                                                (:js-beautify-html
                                                 (:wrap_attributes "force-expand-multiline")
                                                 :prettyhtml
                                                 (:printWidth 100 :singleQuote :json-false :wrapAttributes :json-false :sortAttributes :json-false))
                                                :styleInitialIndent :json-false :scriptInitialIndent :json-false)
                                               :trace
                                               (:server "verbose")
                                               :dev
                                               (:vlsPath ""))
                                              ))
                    :initialized-fn 'my-lsp-set-cfg
                    :server-id 'vls))