bizzyman / lsp-symbol-outline Goto Github PK

First of all, thanks for doing it.

I came to your repo via reddit and decided to try it immediately. However, I ran into below issue.
My config for this package:

(add-to-list 'load-path "~/work/opensource/LSP-Symbol-Outline")
(use-package outline-magic)
(use-package dash)
(use-package s)
(require 'lsp-symbol-outline)
(require 'lsp-symbol-outline-C)

Debugger entered--Lisp error: (wrong-type-argument hash-table-p nil)
gethash("range" nil)
(let ((plist-item) (hasht-kind (gethash "kind" hasht-item)) (hasht-range (gethash "range" (gethash "location" hasht-item)))) (setq plist-item (plist-put plist-item :index index)) (setq plist-item (lsp-symbol-outline--put-plist-name plist-item hasht-item)) (plist-put plist-item :kind hasht-kind) (if (memq hasht-kind '(5 6 12)) (progn (plist-put plist-item :symbol-start-point (lsp--position-to-point (gethash "start" hasht-range))) (plist-put plist-item :symbol-end-point (funcall sym-end-handler hasht-range))) (plist-put plist-item :symbol-start-point (lsp--position-to-point (gethash "start" hasht-range))) (plist-put plist-item :symbol-end-point (lsp--position-to-point (gethash "end" hasht-range)))) (plist-put plist-item :symbol-end-line (gethash "line" (gethash "end" hasht-range))) (setq plist-item (funcall depth-handler plist-item)) (plist-put plist-item :column (lsp-symbol-outline--get-symbol-column hasht-range)) (save-excursion (if (or (memq hasht-kind '(6 12)) (and (equal major-mode 'python-mode) (equal 5 (plist-get plist-item :kind)))) (progn (plist-put plist-item :args (funcall args-handler plist-item hasht-range)) (plist-put plist-item :docs (funcall docs-handler plist-item))) (plist-put plist-item :args nil) (plist-put plist-item :docs nil))) (setq index (1+ index)) (setq agg-items (cons plist-item agg-items)))
(let ((hasht-item (car --dolist-tail--))) (let ((plist-item) (hasht-kind (gethash "kind" hasht-item)) (hasht-range (gethash "range" (gethash "location" hasht-item)))) (setq plist-item (plist-put plist-item :index index)) (setq plist-item (lsp-symbol-outline--put-plist-name plist-item hasht-item)) (plist-put plist-item :kind hasht-kind) (if (memq hasht-kind '(5 6 12)) (progn (plist-put plist-item :symbol-start-point (lsp--position-to-point (gethash "start" hasht-range))) (plist-put plist-item :symbol-end-point (funcall sym-end-handler hasht-range))) (plist-put plist-item :symbol-start-point (lsp--position-to-point (gethash "start" hasht-range))) (plist-put plist-item :symbol-end-point (lsp--position-to-point (gethash "end" hasht-range)))) (plist-put plist-item :symbol-end-line (gethash "line" (gethash "end" hasht-range))) (setq plist-item (funcall depth-handler plist-item)) (plist-put plist-item :column (lsp-symbol-outline--get-symbol-column hasht-range)) (save-excursion (if (or (memq hasht-kind '(6 12)) (and (equal major-mode 'python-mode) (equal 5 (plist-get plist-item :kind)))) (progn (plist-put plist-item :args (funcall args-handler plist-item hasht-range)) (plist-put plist-item :docs (funcall docs-handler plist-item))) (plist-put plist-item :args nil) (plist-put plist-item :docs nil))) (setq index (1+ index)) (setq agg-items (cons plist-item agg-items))) (setq --dolist-tail-- (cdr --dolist-tail--)))
(while --dolist-tail-- (let ((hasht-item (car --dolist-tail--))) (let ((plist-item) (hasht-kind (gethash "kind" hasht-item)) (hasht-range (gethash "range" (gethash "location" hasht-item)))) (setq plist-item (plist-put plist-item :index index)) (setq plist-item (lsp-symbol-outline--put-plist-name plist-item hasht-item)) (plist-put plist-item :kind hasht-kind) (if (memq hasht-kind '(5 6 12)) (progn (plist-put plist-item :symbol-start-point (lsp--position-to-point (gethash "start" hasht-range))) (plist-put plist-item :symbol-end-point (funcall sym-end-handler hasht-range))) (plist-put plist-item :symbol-start-point (lsp--position-to-point (gethash "start" hasht-range))) (plist-put plist-item :symbol-end-point (lsp--position-to-point (gethash "end" hasht-range)))) (plist-put plist-item :symbol-end-line (gethash "line" (gethash "end" hasht-range))) (setq plist-item (funcall depth-handler plist-item)) (plist-put plist-item :column (lsp-symbol-outline--get-symbol-column hasht-range)) (save-excursion (if (or (memq hasht-kind '(6 12)) (and (equal major-mode 'python-mode) (equal 5 (plist-get plist-item :kind)))) (progn (plist-put plist-item :args (funcall args-handler plist-item hasht-range)) (plist-put plist-item :docs (funcall docs-handler plist-item))) (plist-put plist-item :args nil) (plist-put plist-item :docs nil))) (setq index (1+ index)) (setq agg-items (cons plist-item agg-items))) (setq --dolist-tail-- (cdr --dolist-tail--))))
(let ((--dolist-tail-- (lsp-symbol-outline--lsp-get-document-symbols))) (while --dolist-tail-- (let ((hasht-item (car --dolist-tail--))) (let ((plist-item) (hasht-kind (gethash "kind" hasht-item)) (hasht-range (gethash "range" (gethash "location" hasht-item)))) (setq plist-item (plist-put plist-item :index index)) (setq plist-item (lsp-symbol-outline--put-plist-name plist-item hasht-item)) (plist-put plist-item :kind hasht-kind) (if (memq hasht-kind '(5 6 12)) (progn (plist-put plist-item :symbol-start-point (lsp--position-to-point (gethash "start" hasht-range))) (plist-put plist-item :symbol-end-point (funcall sym-end-handler hasht-range))) (plist-put plist-item :symbol-start-point (lsp--position-to-point (gethash "start" hasht-range))) (plist-put plist-item :symbol-end-point (lsp--position-to-point (gethash "end" hasht-range)))) (plist-put plist-item :symbol-end-line (gethash "line" (gethash "end" hasht-range))) (setq plist-item (funcall depth-handler plist-item)) (plist-put plist-item :column (lsp-symbol-outline--get-symbol-column hasht-range)) (save-excursion (if (or (memq hasht-kind '(6 12)) (and (equal major-mode 'python-mode) (equal 5 (plist-get plist-item :kind)))) (progn (plist-put plist-item :args (funcall args-handler plist-item hasht-range)) (plist-put plist-item :docs (funcall docs-handler plist-item))) (plist-put plist-item :args nil) (plist-put plist-item :docs nil))) (setq index (1+ index)) (setq agg-items (cons plist-item agg-items))) (setq --dolist-tail-- (cdr --dolist-tail--)))))
(let ((agg-items) (index 1)) (let ((--dolist-tail-- (lsp-symbol-outline--lsp-get-document-symbols))) (while --dolist-tail-- (let ((hasht-item (car --dolist-tail--))) (let ((plist-item) (hasht-kind (gethash "kind" hasht-item)) (hasht-range (gethash "range" (gethash "location" hasht-item)))) (setq plist-item (plist-put plist-item :index index)) (setq plist-item (lsp-symbol-outline--put-plist-name plist-item hasht-item)) (plist-put plist-item :kind hasht-kind) (if (memq hasht-kind '(5 6 12)) (progn (plist-put plist-item :symbol-start-point (lsp--position-to-point (gethash "start" hasht-range))) (plist-put plist-item :symbol-end-point (funcall sym-end-handler hasht-range))) (plist-put plist-item :symbol-start-point (lsp--position-to-point (gethash "start" hasht-range))) (plist-put plist-item :symbol-end-point (lsp--position-to-point (gethash "end" hasht-range)))) (plist-put plist-item :symbol-end-line (gethash "line" (gethash "end" hasht-range))) (setq plist-item (funcall depth-handler plist-item)) (plist-put plist-item :column (lsp-symbol-outline--get-symbol-column hasht-range)) (save-excursion (if (or (memq hasht-kind '(6 12)) (and (equal major-mode 'python-mode) (equal 5 (plist-get plist-item :kind)))) (progn (plist-put plist-item :args (funcall args-handler plist-item hasht-range)) (plist-put plist-item :docs (funcall docs-handler plist-item))) (plist-put plist-item :args nil) (plist-put plist-item :docs nil))) (setq index (1+ index)) (setq agg-items (cons plist-item agg-items))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (reverse agg-items))
lsp-symbol-outline--create-symbols-list(lsp-symbol-outline--get-symbol-end-point lsp-symbol-outline--set-placeholder-depth lsp-symbol-outline--get-symbol-args-generic lsp-symbol-outline--get-symbol-docs-C)
(lsp-symbol-outline--sort-list-by-start (lsp-symbol-outline--create-symbols-list sym-end-handler depth-handler args-handler docs-handler))
(funcall tree-sort-handler (lsp-symbol-outline--sort-list-by-start (lsp-symbol-outline--create-symbols-list sym-end-handler depth-handler args-handler docs-handler)))
(let ((inhibit-message t) (current-pos (point)) (lsp-outline-list (funcall tree-sort-handler (lsp-symbol-outline--sort-list-by-start (lsp-symbol-outline--create-symbols-list sym-end-handler depth-handler args-handler docs-handler)))) (mod major-mode) (buf (current-buffer)) (window (condition-case nil (progn (split-window (selected-window) (eval lsp-symbol-outline-window-size) lsp-symbol-outline-window-position)) (error nil))) (outline-buffer (lsp-symbol-outline--create-buffer))) (set (make-local-variable 'buffer-orig-lsp-outline-list) lsp-outline-list) (set (make-local-variable 'lsp-outline-buffer) outline-buffer) (set (make-local-variable 'buffer-hash-value) (md5 (buffer-substring-no-properties (point-min) (point-max)))) (if window (progn (window--display-buffer outline-buffer window 'window nil t) window)) (pop-to-buffer outline-buffer) (erase-buffer) (lsp-symbol-outline-mode) (set (make-local-variable 'lsp-outline-buf-mode) (symbol-name mod)) (set (make-local-variable 'lsp-symbol-outline-print-func) print-handler) (set (make-local-variable 'lsp-symbol-outline-print-sorted-func) print-sorted-handler) (set (make-local-variable 'mode-line-format) lsp-symbol-outline-modeline-format) (set (make-local-variable 'lsp-symbol-outline-args-inv) lsp-symbol-outline-default-arg-visibility) (set (make-local-variable 'lsp-outline-buf-mode) (symbol-name mod)) (set (make-local-variable 'lsp-outline-list) lsp-outline-list) (set (make-local-variable 'lsp-symbol-outline-src-buffer) buf) (set (make-local-variable 'lsp-symbol-outline-visibility-cycling-func) visibility-cycle-handler) (set (make-local-variable 'lsp-symbol-outline-args-props-func) arg-props-handler) (if lsp-symbol-outline-start-sorted (lsp-symbol-outline-print-sorted) (lsp-symbol-outline-print-sequential)) (if lsp-symbol-outline-enable-position-indicator (save-current-buffer (set-buffer lsp-symbol-outline-src-buffer) (let ((--dolist-tail-- lsp-outline-list)) (while --dolist-tail-- (let ((i (car --dolist-tail--))) (lsp-symbol-outline-add-idle-timer-highlight-props (plist-get i :symbol-start-point) (plist-get i :symbol-end-point) (plist-get i :line)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (set (make-local-variable 'lsp-s-o-idle-timer-highlight) (run-with-idle-timer 0.3 t (function lsp-symbol-outline-highlight-symbol))) (lsp-symbol-outline-highlight-symbol))) (outline-minor-mode 1) (make-local-variable 'outline-regexp) (setq outline-regexp "^\ +[^ ]") (set-display-table-slot standard-display-table 'selective-display (let ((face-offset (* (face-id 'lsp-symbol-outline-button-face) (lsh 1 22)))) (vconcat (mapcar (function (lambda (c) (+ face-offset c))) " +")))) (goto-char (point-min)) (forward-line (1- (lsp-symbol-outline--find-closest-cell lsp-outline-list current-pos))) (if (not (looking-at-p " *[^ ] ")) (forward-whitespace 1) (forward-whitespace 2)) (if lsp-symbol-outline-startup-folded (outline-hide-sublevels 3)) (setq window-size-fixed lsp-symbol-outline-lock-window) (toggle-truncate-lines 1))
lsp-symbol-outline-create-buffer-window(lsp-symbol-outline--get-symbol-end-point lsp-symbol-outline--set-placeholder-depth lsp-symbol-outline--get-symbol-args-generic lsp-symbol-outline--get-symbol-docs-C lsp-symbol-outline--tree-sort-rem-args lsp-symbol-outline--print-outline-clike-generic lsp-symbol-outline--print-outline-sorted-clike-generic (closure (t) nil nil) lsp-symbol-outline--cycle-arg-visibility-clike-generic)
lsp-symbol-outline-make-outline-C()
funcall-interactively(lsp-symbol-outline-make-outline-C)
call-interactively(lsp-symbol-outline-make-outline-C record nil)
command-execute(lsp-symbol-outline-make-outline-C record)
helm-M-x(nil "lsp-symbol-outline-make-outline-C")
funcall-interactively(helm-M-x nil "lsp-symbol-outline-make-outline-C")
call-interactively(helm-M-x nil nil)
command-execute(helm-M-x)

After last weeks changes in lsp-mode symbol-outline became broken. Please, tell that you still mantain this package!^^

Do you intend adding support for ccls ? It is a fork of cquery.