Installing packages failed because of treemacs-icons-dired-mode

[mohammedi-haroune]

Description :octocat:

Installing packages failed because of treemacs-icons-dired-mode

Reproduction guide :beetle:

• Start Emacs

Observed behaviour: :eyes: :broken_heart: 1 error (s) at startup ! spacemacs may not be able to operate properly

Expected behaviour: :heart: :smile: Spacemacs should work as expected, I didn't do anything to make it break

System Info :computer:

• OS: gnu/linux
• Emacs: 26.3
• Spacemacs: 0.300.0
• Spacemacs branch: develop (rev. d0f5477c3)
• Graphic display: t
• Distribution: spacemacs
• Editing style: vim
• Completion: helm
• Layers:

  (html javascript yaml auto-completion emacs-lisp git helm
    (lsp :variables lsp-ui-doc-enable t)
    markdown org
    (shell :variables shell-default-height 30 shell-default-position 'bottom)
    (spell-checking :variables spell-checking-enable-auto-dictionary t enable-flyspell-auto-completion nil)
    syntax-checking version-control treemacs
    (scala :variables scala-auto-insert-asterisk-in-comments t scala-enable-eldoc t scala-enable-gtags t scala-auto-start-backend t scala-backend 'scala-metals)
    dap
    (python :variables python-backend 'lsp python-formatter 'yapf python-test-runner 'pytest python-pipenv-activate t)
    kivy slack copy-as-format)

• System configuration features: XPM JPEG TIFF GIF PNG RSVG IMAGEMAGICK SOUND GPM DBUS GSETTINGS GLIB NOTIFY ACL LIBSELINUX GNUTLS LIBXML2 FREETYPE M17N_FLT LIBOTF XFT ZLIB TOOLKIT_SCROLL_BARS GTK3 X11 XDBE XIM THREADS LIBSYSTEMD LCMS2

Backtrace :paw_prints:

Debugger entered--Lisp error: (void-function treemacs-icons-dired-mode)
  signal(void-function (treemacs-icons-dired-mode))
  package--download-one-archive(("melpa" . "https://melpa.org/packages/") "archive-contents" nil)
  package--download-and-read-archives(nil)
  package-refresh-contents()
  (let ((package-archives (list archive))) (package-refresh-contents))
  (if (and (not (configuration-layer//package-archive-local-path-p archive)) (eq (quote error) (let ((-with-timeout-value- (catch (quote timeout) (let* ... ...)))) (if (eq -with-timeout-value- (quote timeout)) (progn (progn (display-warning ... ... :warning) (quote error))) -with-timeout-value-)))) nil (let ((package-archives (list archive))) (package-refresh-contents)))
  (let ((aname (car archive)) (apath (cdr archive))) (if quiet nil (spacemacs-buffer/replace-last-line (format "--> refreshing package archive: %s... [%s/%s]" aname i count) t)) (spacemacs//redisplay) (setq i (1+ i)) (if (and (not (configuration-layer//package-archive-local-path-p archive)) (eq (quote error) (let ((-with-timeout-value- (catch ... ...))) (if (eq -with-timeout-value- (quote timeout)) (progn (progn ... ...)) -with-timeout-value-)))) nil (let ((package-archives (list archive))) (package-refresh-contents))))
  (while --dolist-tail-- (setq archive (car --dolist-tail--)) (let ((aname (car archive)) (apath (cdr archive))) (if quiet nil (spacemacs-buffer/replace-last-line (format "--> refreshing package archive: %s... [%s/%s]" aname i count) t)) (spacemacs//redisplay) (setq i (1+ i)) (if (and (not (configuration-layer//package-archive-local-path-p archive)) (eq (quote error) (let ((-with-timeout-value- ...)) (if (eq -with-timeout-value- ...) (progn ...) -with-timeout-value-)))) nil (let ((package-archives (list archive))) (package-refresh-contents)))) (setq --dolist-tail-- (cdr --dolist-tail--)))
  (let ((--dolist-tail-- package-archives) archive) (while --dolist-tail-- (setq archive (car --dolist-tail--)) (let ((aname (car archive)) (apath (cdr archive))) (if quiet nil (spacemacs-buffer/replace-last-line (format "--> refreshing package archive: %s... [%s/%s]" aname i count) t)) (spacemacs//redisplay) (setq i (1+ i)) (if (and (not (configuration-layer//package-archive-local-path-p archive)) (eq (quote error) (let (...) (if ... ... -with-timeout-value-)))) nil (let ((package-archives (list archive))) (package-refresh-contents)))) (setq --dolist-tail-- (cdr --dolist-tail--))))
  (let ((count (length package-archives)) (i 1)) (let ((--dolist-tail-- package-archives) archive) (while --dolist-tail-- (setq archive (car --dolist-tail--)) (let ((aname (car archive)) (apath (cdr archive))) (if quiet nil (spacemacs-buffer/replace-last-line (format "--> refreshing package archive: %s... [%s/%s]" aname i count) t)) (spacemacs//redisplay) (setq i (1+ i)) (if (and (not (configuration-layer//package-archive-local-path-p archive)) (eq (quote error) (let ... ...))) nil (let ((package-archives ...)) (package-refresh-contents)))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (package-read-all-archive-contents) (if quiet nil (spacemacs-buffer/append "\n")))
  (if (and configuration-layer--package-archives-refreshed (not force)) nil (setq configuration-layer--package-archives-refreshed t) (let ((count (length package-archives)) (i 1)) (let ((--dolist-tail-- package-archives) archive) (while --dolist-tail-- (setq archive (car --dolist-tail--)) (let ((aname (car archive)) (apath (cdr archive))) (if quiet nil (spacemacs-buffer/replace-last-line (format "--> refreshing package archive: %s... [%s/%s]" aname i count) t)) (spacemacs//redisplay) (setq i (1+ i)) (if (and (not ...) (eq ... ...)) nil (let (...) (package-refresh-contents)))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (package-read-all-archive-contents) (if quiet nil (spacemacs-buffer/append "\n"))))
  configuration-layer/retrieve-package-archives()
  (let ((delayed-warnings-backup delayed-warnings-list)) (spacemacs-buffer/append (format "Found %s new package(s) to install...\n" not-inst-count)) (configuration-layer/retrieve-package-archives) (setq installed-count 0) (spacemacs//redisplay) (let ((--dolist-tail-- upkg-names) pkg-name) (while --dolist-tail-- (setq pkg-name (car --dolist-tail--)) (let ((pkg (configuration-layer/get-package pkg-name))) (if (and pkg (memq (eieio-oref pkg ...) (quote ...))) (progn (setq installed-count (1+ installed-count)) (configuration-layer//install-package pkg)))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (let ((--dolist-tail-- upkg-names) pkg-name) (while --dolist-tail-- (setq pkg-name (car --dolist-tail--)) (let ((pkg (configuration-layer/get-package pkg-name))) (if (and pkg (memq (eieio-oref pkg ...) (quote ...))) nil (setq installed-count (1+ installed-count)) (configuration-layer//install-package pkg))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (spacemacs-buffer/append "\n") (if init-file-debug nil (setq delayed-warnings-list delayed-warnings-backup)))
  (progn (spacemacs-buffer/set-mode-line "Installing packages..." t) (let ((delayed-warnings-backup delayed-warnings-list)) (spacemacs-buffer/append (format "Found %s new package(s) to install...\n" not-inst-count)) (configuration-layer/retrieve-package-archives) (setq installed-count 0) (spacemacs//redisplay) (let ((--dolist-tail-- upkg-names) pkg-name) (while --dolist-tail-- (setq pkg-name (car --dolist-tail--)) (let ((pkg (configuration-layer/get-package pkg-name))) (if (and pkg (memq ... ...)) (progn (setq installed-count ...) (configuration-layer//install-package pkg)))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (let ((--dolist-tail-- upkg-names) pkg-name) (while --dolist-tail-- (setq pkg-name (car --dolist-tail--)) (let ((pkg (configuration-layer/get-package pkg-name))) (if (and pkg (memq ... ...)) nil (setq installed-count (1+ installed-count)) (configuration-layer//install-package pkg))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (spacemacs-buffer/append "\n") (if init-file-debug nil (setq delayed-warnings-list delayed-warnings-backup))))
  (if upkg-names (progn (spacemacs-buffer/set-mode-line "Installing packages..." t) (let ((delayed-warnings-backup delayed-warnings-list)) (spacemacs-buffer/append (format "Found %s new package(s) to install...\n" not-inst-count)) (configuration-layer/retrieve-package-archives) (setq installed-count 0) (spacemacs//redisplay) (let ((--dolist-tail-- upkg-names) pkg-name) (while --dolist-tail-- (setq pkg-name (car --dolist-tail--)) (let ((pkg ...)) (if (and pkg ...) (progn ... ...))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (let ((--dolist-tail-- upkg-names) pkg-name) (while --dolist-tail-- (setq pkg-name (car --dolist-tail--)) (let ((pkg ...)) (if (and pkg ...) nil (setq installed-count ...) (configuration-layer//install-package pkg))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (spacemacs-buffer/append "\n") (if init-file-debug nil (setq delayed-warnings-list delayed-warnings-backup)))))
  (let* ((upkg-names (configuration-layer//get-uninstalled-packages packages)) (not-inst-count (length upkg-names)) installed-count) (if upkg-names (progn (spacemacs-buffer/set-mode-line "Installing packages..." t) (let ((delayed-warnings-backup delayed-warnings-list)) (spacemacs-buffer/append (format "Found %s new package(s) to install...\n" not-inst-count)) (configuration-layer/retrieve-package-archives) (setq installed-count 0) (spacemacs//redisplay) (let ((--dolist-tail-- upkg-names) pkg-name) (while --dolist-tail-- (setq pkg-name (car --dolist-tail--)) (let (...) (if ... ...)) (setq --dolist-tail-- (cdr --dolist-tail--)))) (let ((--dolist-tail-- upkg-names) pkg-name) (while --dolist-tail-- (setq pkg-name (car --dolist-tail--)) (let (...) (if ... nil ... ...)) (setq --dolist-tail-- (cdr --dolist-tail--)))) (spacemacs-buffer/append "\n") (if init-file-debug nil (setq delayed-warnings-list delayed-warnings-backup))))))
  (let ((display-buffer-alist (quote (("\\(\\*Compile-Log\\*\\)\\|\\(\\*Warnings\\*\\)" (display-buffer-in-side-window) (inhibit-same-window . t) (side . bottom) (window-height . 0.2)))))) (configuration-layer//configure-quelpa) (let* ((upkg-names (configuration-layer//get-uninstalled-packages packages)) (not-inst-count (length upkg-names)) installed-count) (if upkg-names (progn (spacemacs-buffer/set-mode-line "Installing packages..." t) (let ((delayed-warnings-backup delayed-warnings-list)) (spacemacs-buffer/append (format "Found %s new package(s) to install...\n" not-inst-count)) (configuration-layer/retrieve-package-archives) (setq installed-count 0) (spacemacs//redisplay) (let ((--dolist-tail-- upkg-names) pkg-name) (while --dolist-tail-- (setq pkg-name ...) (let ... ...) (setq --dolist-tail-- ...))) (let ((--dolist-tail-- upkg-names) pkg-name) (while --dolist-tail-- (setq pkg-name ...) (let ... ...) (setq --dolist-tail-- ...))) (spacemacs-buffer/append "\n") (if init-file-debug nil (setq delayed-warnings-list delayed-warnings-backup)))))))
  configuration-layer//install-packages((ac-ispell ace-jump-helm-line ace-link ace-window aggressive-indent alert anaconda-mode async auto-compile auto-complete auto-dictionary auto-highlight-symbol auto-yasnippet avy bind-key bind-map blacken browse-at-remote centered-cursor-mode clean-aindent-mode column-enforce-mode company company-anaconda company-emoji company-web copy-as-format css-mode cython-mode dap-mode define-word desktop devdocs diff-mode diminish dotenv-mode dumb-jump editorconfig elisp-slime-nav emmet-mode emoji-cheat-sheet-plus emojify emr esh-help eshell-prompt-extras eshell-z eval-sexp-fu evil evil-anzu evil-args evil-cleverparens ...))
  (let ((packages (append (configuration-layer//filter-distant-packages configuration-layer--used-packages t (quote (not (oref pkg :lazy-install)))) (if (eq (quote all) dotspacemacs-install-packages) (progn (let (all-other-packages) (let ... ...) (configuration-layer//filter-distant-packages all-other-packages nil))))))) (configuration-layer//install-packages packages) (if (and (or (eq (quote used) dotspacemacs-install-packages) (eq (quote used-only) dotspacemacs-install-packages)) (not configuration-layer-force-distribution) (not configuration-layer-exclude-all-layers)) (progn (configuration-layer/delete-orphan-packages packages))))
  (progn (let ((packages (append (configuration-layer//filter-distant-packages configuration-layer--used-packages t (quote (not ...))) (if (eq (quote all) dotspacemacs-install-packages) (progn (let ... ... ...)))))) (configuration-layer//install-packages packages) (if (and (or (eq (quote used) dotspacemacs-install-packages) (eq (quote used-only) dotspacemacs-install-packages)) (not configuration-layer-force-distribution) (not configuration-layer-exclude-all-layers)) (progn (configuration-layer/delete-orphan-packages packages)))))
  (if spacemacs-sync-packages (progn (let ((packages (append (configuration-layer//filter-distant-packages configuration-layer--used-packages t (quote ...)) (if (eq ... dotspacemacs-install-packages) (progn ...))))) (configuration-layer//install-packages packages) (if (and (or (eq (quote used) dotspacemacs-install-packages) (eq (quote used-only) dotspacemacs-install-packages)) (not configuration-layer-force-distribution) (not configuration-layer-exclude-all-layers)) (progn (configuration-layer/delete-orphan-packages packages))))))
  configuration-layer//load()
  (cond (changed-since-last-dump-p (configuration-layer//load) (if (spacemacs/emacs-with-pdumper-set-p) (progn (configuration-layer/message "Layer list has changed since last dump.") (configuration-layer//dump-emacs)))) (spacemacs-force-dump (configuration-layer//load) (if (spacemacs/emacs-with-pdumper-set-p) (progn (configuration-layer/message (concat "--force-dump passed on the command line, " "forcing a redump.")) (configuration-layer//dump-emacs)))) ((spacemacs-is-dumping-p) (configuration-layer//load)) ((and (spacemacs/emacs-with-pdumper-set-p) (spacemacs-run-from-dump-p)) (configuration-layer/message "Running from a dumped file. Skipping the loading process!")) (t (configuration-layer//load) (if (spacemacs/emacs-with-pdumper-set-p) (progn (configuration-layer/message (concat "Layer list has not changed since last time. " "Skipping dumping process!"))))))
  configuration-layer/load()
  (let ((file-name-handler-alist nil)) (require (quote core-spacemacs)) (spacemacs/dump-restore-load-path) (configuration-layer/load-lock-file) (spacemacs/init) (configuration-layer/stable-elpa-init) (configuration-layer/load) (spacemacs-buffer/display-startup-note) (spacemacs/setup-startup-hook) (spacemacs/dump-eval-delayed-functions) (if (and dotspacemacs-enable-server (not (spacemacs-is-dumping-p))) (progn (require (quote server)) (if dotspacemacs-server-socket-dir (progn (setq server-socket-dir dotspacemacs-server-socket-dir))) (if (server-running-p) nil (message "Starting a server...") (server-start)))))
  (if (not (version<= spacemacs-emacs-min-version emacs-version)) (error (concat "Your version of Emacs (%s) is too old. " "Spacemacs requires Emacs version %s or above.") emacs-version spacemacs-emacs-min-version) (let ((file-name-handler-alist nil)) (require (quote core-spacemacs)) (spacemacs/dump-restore-load-path) (configuration-layer/load-lock-file) (spacemacs/init) (configuration-layer/stable-elpa-init) (configuration-layer/load) (spacemacs-buffer/display-startup-note) (spacemacs/setup-startup-hook) (spacemacs/dump-eval-delayed-functions) (if (and dotspacemacs-enable-server (not (spacemacs-is-dumping-p))) (progn (require (quote server)) (if dotspacemacs-server-socket-dir (progn (setq server-socket-dir dotspacemacs-server-socket-dir))) (if (server-running-p) nil (message "Starting a server...") (server-start))))))
  eval-buffer(#<buffer  *load*> nil "/home/mohammedi/.emacs.d/init.el" nil t)  ; Reading at buffer position 1880
  load-with-code-conversion("/home/mohammedi/.emacs.d/init.el" "/home/mohammedi/.emacs.d/init.el" t t)
  load("/home/mohammedi/.emacs.d/init" t t)
  #f(compiled-function () #<bytecode 0x1e0f4d>)()
  command-line()
  normal-top-level()

[mohammedi-haroune]

Hi @syl20bnr, this is torturing me right now, any fixes or work around please ?

[smile13241324]

Hi @mohammedi-haroune are you sure your issue doesn't come from dumping? The void function is defined in more recent treemacs if you packages are up-to-date you should not see this kind of error.

Anyway, you can also disable the function completely with

(treemacs :variables treemacs-use-icons-dired nil)

See #13491

[smile13241324]

If this solves your problem, please close that ticket.

[github-actions[bot]]

This issue has been automatically marked as stale because it has not had recent activity. It will be closed if no further activity occurs. Please let us know if this issue is still valid!