diff options
Diffstat (limited to 'configs/shared/emacs/.emacs.d/elpa/lsp-mode-20180911.1829/lsp-imenu.el')
-rw-r--r-- | configs/shared/emacs/.emacs.d/elpa/lsp-mode-20180911.1829/lsp-imenu.el | 75 |
1 files changed, 0 insertions, 75 deletions
diff --git a/configs/shared/emacs/.emacs.d/elpa/lsp-mode-20180911.1829/lsp-imenu.el b/configs/shared/emacs/.emacs.d/elpa/lsp-mode-20180911.1829/lsp-imenu.el deleted file mode 100644 index 1c1869aaefa2..000000000000 --- a/configs/shared/emacs/.emacs.d/elpa/lsp-mode-20180911.1829/lsp-imenu.el +++ /dev/null @@ -1,75 +0,0 @@ -;; Copyright (C) 2016-2018 Vibhav Pant <vibhavp@gmail.com> -*- lexical-binding: t -*- - -;; This program is free software: you can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation, either version 3 of the License, or -;; (at your option) any later version. - -;; This program is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with this program. If not, see <http://www.gnu.org/licenses/>. - -;;; Commentary: - -;; Imenu integration with lsp-mode. Enable with: -;; (require 'lsp-imenu) -;; (add-hook 'lsp-after-open-hook 'lsp-enable-imenu) - -;;; Code: - -(require 'imenu) -(require 'lsp-methods) -(require 'seq) - -(defgroup lsp-imenu nil - "Customization group for `lsp-imenu'." - :group 'lsp-mode) - -(defcustom lsp-imenu-show-container-name t - "Display the symbol's container name in an imenu entry." - :type 'boolean - :group 'lsp-imenu) - -(defcustom lsp-imenu-container-name-separator "/" - "Separator string to use to separate the container name from the symbol while displaying imenu entries." - :type 'string - :group 'lsp-imenu) - -(define-inline lsp--point-to-marker (p) - (inline-quote (save-excursion (goto-char ,p) (point-marker)))) - -(defun lsp--symbol-to-imenu-elem (sym) - (let ((pt (lsp--position-to-point - (gethash "start" (gethash "range" (gethash "location" sym))))) - (name (gethash "name" sym)) - (container (gethash "containerName" sym))) - (cons (if (and lsp-imenu-show-container-name container) - (concat container lsp-imenu-container-name-separator name) - name) - (if imenu-use-markers (lsp--point-to-marker pt) pt)))) - -(defun lsp--symbol-filter (sym) - (not - (lsp--equal-files - (lsp--uri-to-path (gethash "uri" (gethash "location" sym))) - (buffer-file-name)))) - -(defun lsp--get-symbol-type (sym) - (or (cdr (assoc (gethash "kind" sym) lsp--symbol-kind)) "Other")) - -(defun lsp--imenu-create-index () - (let ((symbols (seq-remove #'lsp--symbol-filter (lsp--get-document-symbols)))) - (mapcar (lambda (nested-alist) - (cons (car nested-alist) - (mapcar #'lsp--symbol-to-imenu-elem (cdr nested-alist)))) - (seq-group-by #'lsp--get-symbol-type symbols)))) - -(defun lsp-enable-imenu () - (setq-local imenu-create-index-function #'lsp--imenu-create-index)) - -(provide 'lsp-imenu) -;;; lsp-imenu.el ends here |