search

jdtsmith / mode-minder

Show all modes available in Emacs
GNU General Public License v3.0
45 stars 1 forks source link

Error when there are modes defined in my config #2

Closed karthink closed 8 months ago

karthink commented 10 months ago

When I run M-x mode-minder, I get:

Backtrace:

Debugger entered--Lisp error: (wrong-type-argument stringp nil)
  (file-name-base nil)
  (#<subr F616e6f6e796d6f75732d6c616d626461_anonymous_lambda_2> my/org-hugo-mode)
  (mode-minder)
  (funcall-interactively mode-minder)
  (command-execute mode-minder record)
  (execute-extended-command nil "mode-minder" "mode-minder")
  (funcall-interactively execute-extended-command nil "mode-minder" "mode-minder")
  (command-execute execute-extended-command)

my/org-hugo-mode is defined in my init file inside the use-package block for ox-hugo.

jdtsmith commented 10 months ago

I pushed a change to try to handle this, see if that fixes it for you. I presume if it's defined in your init it will already be active.

karthink commented 10 months ago

Thanks. Now I get the following error:

Debugger entered--Lisp error: (wrong-type-argument integer-or-marker-p delete)
  (mouse-posn-property ((66 . 1) (delete) ".#emacs-async-comp-geiser-log-8PbDQc.el" 0) context-menu-function)
  (context-menu-map)
  (#f(compiled-function (_) #<bytecode -0x1415a92fc4ff11e6>) (keymap))
  (describe-map (keymap (menu . context-menu-open) (down-mouse-3 menu-item "Context Menu" (keymap) :filter #f(compiled-function (_) #<bytecode -0x1415a92fc4ff11e6>)) (mouse-3)) [] nil t nil t t nil)
  (describe-map-tree (keymap (menu . context-menu-open) (down-mouse-3 menu-item "Context Menu" (keymap) :filter #f(compiled-function (_) #<bytecode -0x1415a92fc4ff11e6>)) (mouse-3)) t nil nil nil t nil nil t)
  (substitute-command-keys "Toggle Context Menu mode.\n\nWhen Context Menu mode ...")
  (documentation context-menu-mode)
  (and t (documentation mode))
  (let* ((doc (and t (documentation mode))) (doc (and doc (substring doc 0 (string-match "\\(\\.[[:space:]]\\)\\|\n" doc)))) (beg (and doc (point)))) (if beg (progn (princ (concat " " doc)) (add-text-properties beg (point) '(font-lock-face custom-documentation))) nil))
  (save-current-buffer (set-buffer standard-output) (save-excursion (re-search-backward " \\([^ ]+\\)") (help-xref-button 1 'mode-minder-help-function mode)) (if tag (princ tag)) (princ (make-string pad 32)) (let* ((doc (and t (documentation mode))) (doc (and doc (substring doc 0 (string-match "\\(\\.[[:space:]]\\)\\|\n" doc)))) (beg (and doc (point)))) (if beg (progn (princ (concat " " doc)) (add-text-properties beg (point) '(font-lock-face custom-documentation))) nil)))
  (let* ((mstr (concat (make-string (* 2 depth) 32) (if (= (% depth 2) 0) "•" "-") " " (symbol-name mode))) (sfile (symbol-file mode)) (aliases (gethash mode mode-minder-alias-ht)) (tag (if sfile (concat (cond ((file-in-directory-p sfile package-user-dir) "[P]") ((not ...) "[O]")) (if aliases (concat " (" (string-join ... ", ") ")"))))) (pad (max 0 (- mode-minder-pad (length mstr) (length tag))))) (princ mstr) (save-current-buffer (set-buffer standard-output) (save-excursion (re-search-backward " \\([^ ]+\\)") (help-xref-button 1 'mode-minder-help-function mode)) (if tag (princ tag)) (princ (make-string pad 32)) (let* ((doc (and t (documentation mode))) (doc (and doc (substring doc 0 (string-match "\\(\\.[[:space:]]\\)\\|\n" doc)))) (beg (and doc (point)))) (if beg (progn (princ (concat " " doc)) (add-text-properties beg (point) '(font-lock-face custom-documentation))) nil))) (princ "\n") (mapc #'(lambda (c) (mode-minder--map-tree c (gethash c mode-minder-ht) (1+ depth))) (sort children #'mode-minder--sym-sort)))
  (mode-minder--map-tree context-menu-mode nil 0)
  ((closure (t) (x) (mode-minder--map-tree x (gethash x mode-minder-ht) 0)) context-menu-mode)
  (mapc (closure (t) (x) (mode-minder--map-tree x (gethash x mode-minder-ht) 0)) (abbrev-mode abridge-diff-mode ace-window-display-mode ace-window-posframe-mode allout-mode allout-widgets-mode antifennel-mode artist-mode async-bytecomp-package-mode auto-composition-mode auto-compression-mode auto-encryption-mode auto-fill-mode auto-image-file-mode auto-insert-mode auto-revert-mode auto-revert-tail-mode auto-save-mode auto-save-visited-mode avy-linum-mode bib-cite-minor-mode blink-cursor-mode buffer-face-mode bug-reference-mode bug-reference-prog-mode button-mode calctex-mode cdlatex-mode checkdoc-minor-mode citar-embark-mode cl-font-lock-built-in-mode cl-old-struct-compat-mode column-number-mode comint-fontify-input-mode company-mode company-search-mode company-tng-mode compilation-minor-mode compilation-shell-minor-mode completion-in-region-mode consult-preview-at-point-mode context-menu-mode corfu-mode corfu-popupinfo-mode coterm-auto-char-lighter-mode coterm-auto-char-mode coterm-char-mode coterm-mode coterm-scroll-snap-mode cua-mode ...))
  (while (and (consp --cl-var--) (progn (setq list (car --cl-var--)) (consp --cl-var--))) (setq heading (car --cl-var--)) (princ (format "%s (%d):" heading (mode-minder--count list))) (save-current-buffer (set-buffer standard-output) (add-text-properties (line-beginning-position) (point) '(font-lock-face info-title-2))) (princ "\n\n") (mapc #'(lambda (x) (mode-minder--map-tree x (gethash x mode-minder-ht) 0)) (sort list #'mode-minder--sym-sort)) (setq --cl-var-- (cdr --cl-var--)) (setq --cl-var-- (cdr --cl-var--)))
  (let* ((--cl-var-- (append (mapcar #'cdr (seq-group-by #'(lambda ... ...) roots)) (list minors))) (list nil) (--cl-var-- '("Major Mode Hierarchies" "\nStandalone Modes" "\nMinor Modes")) (heading nil)) (while (and (consp --cl-var--) (progn (setq list (car --cl-var--)) (consp --cl-var--))) (setq heading (car --cl-var--)) (princ (format "%s (%d):" heading (mode-minder--count list))) (save-current-buffer (set-buffer standard-output) (add-text-properties (line-beginning-position) (point) '(font-lock-face info-title-2))) (princ "\n\n") (mapc #'(lambda (x) (mode-minder--map-tree x (gethash x mode-minder-ht) 0)) (sort list #'mode-minder--sym-sort)) (setq --cl-var-- (cdr --cl-var--)) (setq --cl-var-- (cdr --cl-var--))) nil)
  (let (roots minors) (mapatoms #'(lambda (x) (if (and (commandp x) (string-suffix-p "-mode" (symbol-name x))) (progn (let* (...) (progn ... ...)))))) (let* ((--cl-var-- (append (mapcar #'cdr (seq-group-by #'... roots)) (list minors))) (list nil) (--cl-var-- '("Major Mode Hierarchies" "\nStandalone Modes" "\nMinor Modes")) (heading nil)) (while (and (consp --cl-var--) (progn (setq list (car --cl-var--)) (consp --cl-var--))) (setq heading (car --cl-var--)) (princ (format "%s (%d):" heading (mode-minder--count list))) (save-current-buffer (set-buffer standard-output) (add-text-properties (line-beginning-position) (point) '(font-lock-face info-title-2))) (princ "\n\n") (mapc #'(lambda (x) (mode-minder--map-tree x (gethash x mode-minder-ht) 0)) (sort list #'mode-minder--sym-sort)) (setq --cl-var-- (cdr --cl-var--)) (setq --cl-var-- (cdr --cl-var--))) nil))
  ((closure (t) nil (let (roots minors) (mapatoms #'(lambda (x) (if (and ... ...) (progn ...)))) (let* ((--cl-var-- (append (mapcar ... ...) (list minors))) (list nil) (--cl-var-- '("Major Mode Hierarchies" "\nStandalone Modes" "\nMinor Modes")) (heading nil)) (while (and (consp --cl-var--) (progn (setq list ...) (consp --cl-var--))) (setq heading (car --cl-var--)) (princ (format "%s (%d):" heading (mode-minder--count list))) (save-current-buffer (set-buffer standard-output) (add-text-properties (line-beginning-position) (point) '...)) (princ "\n\n") (mapc #'(lambda ... ...) (sort list #'mode-minder--sym-sort)) (setq --cl-var-- (cdr --cl-var--)) (setq --cl-var-- (cdr --cl-var--))) nil))))
  (help--window-setup "*Mode-Minder*" (closure (t) nil (let (roots minors) (mapatoms #'(lambda (x) (if (and ... ...) (progn ...)))) (let* ((--cl-var-- (append (mapcar ... ...) (list minors))) (list nil) (--cl-var-- '("Major Mode Hierarchies" "\nStandalone Modes" "\nMinor Modes")) (heading nil)) (while (and (consp --cl-var--) (progn (setq list ...) (consp --cl-var--))) (setq heading (car --cl-var--)) (princ (format "%s (%d):" heading (mode-minder--count list))) (save-current-buffer (set-buffer standard-output) (add-text-properties (line-beginning-position) (point) '...)) (princ "\n\n") (mapc #'(lambda ... ...) (sort list #'mode-minder--sym-sort)) (setq --cl-var-- (cdr --cl-var--)) (setq --cl-var-- (cdr --cl-var--))) nil))))
  (mode-minder)
  (funcall-interactively mode-minder)
  (command-execute mode-minder record)
  (execute-extended-command nil "mode-minder" "mode-min")
  (funcall-interactively execute-extended-command nil "mode-minder" "mode-min")
  (command-execute execute-extended-command)

Along with the following warnings:

⛔ Warning (treesit): Cannot activate tree-sitter, because language grammar for go is unavailable (not-found): (libtree-sitter-go libtree-sitter-go.0 libtree-sitter-go.0.0 libtree-sitter-go.so libtree-sitter-go.so.0 libtree-sitter-go.so.0.0) No such file or directory
⛔ Warning (treesit): Cannot activate tree-sitter, because language grammar for gomod is unavailable (not-found): (libtree-sitter-gomod libtree-sitter-gomod.0 libtree-sitter-gomod.0.0 libtree-sitter-gomod.so libtree-sitter-gomod.so.0 libtree-sitter-gomod.so.0.0) No such file or directory
⛔ Warning (treesit): Cannot activate tree-sitter, because language grammar for json is unavailable (not-found): (libtree-sitter-json libtree-sitter-json.0 libtree-sitter-json.0.0 libtree-sitter-json.so libtree-sitter-json.so.0 libtree-sitter-json.so.0.0) No such file or directory
⛔ Warning (treesit): Cannot activate tree-sitter, because language grammar for cpp is unavailable (not-found): (libtree-sitter-cpp libtree-sitter-cpp.0 libtree-sitter-cpp.0.0 libtree-sitter-cpp.so libtree-sitter-cpp.so.0 libtree-sitter-cpp.so.0.0) No such file or directory
⛔ Warning (treesit): Cannot activate tree-sitter, because language grammar for c is unavailable (not-found): (libtree-sitter-c libtree-sitter-c.0 libtree-sitter-c.0.0 libtree-sitter-c.so libtree-sitter-c.so.0 libtree-sitter-c.so.0.0) No such file or directory
⛔ Warning (treesit): Cannot activate tree-sitter, because language grammar for cpp is unavailable (not-found): (libtree-sitter-cpp libtree-sitter-cpp.0 libtree-sitter-cpp.0.0 libtree-sitter-cpp.so libtree-sitter-cpp.so.0 libtree-sitter-cpp.so.0.0) No such file or directory
⛔ Warning (treesit): Cannot activate tree-sitter, because language grammar for cmake is unavailable (not-found): (libtree-sitter-cmake libtree-sitter-cmake.0 libtree-sitter-cmake.0.0 libtree-sitter-cmake.so libtree-sitter-cmake.so.0 libtree-sitter-cmake.so.0.0) No such file or directory
⛔ Warning (treesit): Cannot activate tree-sitter, because language grammar for typescript is unavailable (not-found): (libtree-sitter-typescript libtree-sitter-typescript.0 libtree-sitter-typescript.0.0 libtree-sitter-typescript.so libtree-sitter-typescript.so.0 libtree-sitter-typescript.so.0.0) No such file or directory
⛔ Warning (treesit): Cannot activate tree-sitter, because language grammar for tsx is unavailable (not-found): (libtree-sitter-tsx libtree-sitter-tsx.0 libtree-sitter-tsx.0.0 libtree-sitter-tsx.so libtree-sitter-tsx.so.0 libtree-sitter-tsx.so.0.0) No such file or directory
⛔ Warning (treesit): Cannot activate tree-sitter, because language grammar for toml is unavailable (not-found): (libtree-sitter-toml libtree-sitter-toml.0 libtree-sitter-toml.0.0 libtree-sitter-toml.so libtree-sitter-toml.so.0 libtree-sitter-toml.so.0.0) No such file or directory
⛔ Warning (treesit): Cannot activate tree-sitter, because language grammar for java is unavailable (not-found): (libtree-sitter-java libtree-sitter-java.0 libtree-sitter-java.0.0 libtree-sitter-java.so libtree-sitter-java.so.0 libtree-sitter-java.so.0.0) No such file or directory
⛔ Warning (treesit): Cannot activate tree-sitter, because language grammar for ruby is unavailable (not-found): (libtree-sitter-ruby libtree-sitter-ruby.0 libtree-sitter-ruby.0.0 libtree-sitter-ruby.so libtree-sitter-ruby.so.0 libtree-sitter-ruby.so.0.0) No such file or directory
⛔ Warning (treesit): Cannot activate tree-sitter, because language grammar for dockerfile is unavailable (not-found): (libtree-sitter-dockerfile libtree-sitter-dockerfile.0 libtree-sitter-dockerfile.0.0 libtree-sitter-dockerfile.so libtree-sitter-dockerfile.so.0 libtree-sitter-dockerfile.so.0.0) No such file or directory
⛔ Warning (treesit): Cannot activate tree-sitter, because language grammar for yaml is unavailable (not-found): (libtree-sitter-yaml libtree-sitter-yaml.0 libtree-sitter-yaml.0.0 libtree-sitter-yaml.so libtree-sitter-yaml.so.0 libtree-sitter-yaml.so.0.0) No such file or directory
jdtsmith commented 10 months ago

Looks like an error with documentation for one of your modes. What does M-: (documentation 'context-menu-mode) do?

The warnings are harmless, it's just trying to load all of the ts modes it saw (not knowing they have no ts grammar installed).

jdtsmith commented 10 months ago

Any progress on figuring this one out?

jdtsmith commented 8 months ago

Closing, but please let me know if this is still an issue.