pdf-tools和all-the-icons-dired以及一些其他all-the-icons相关的包会有奇怪的兼容性问题

SPQR · 2020 年11 月 28 日 07:43

Install with straight.el will cause compatibility issue with some other packages

opened 07:39AM - 28 Nov 20 UTC

closed 11:04AM - 28 Nov 20 UTC

Basically, I've installed all-the-icons-dired and pdf-tools using straight.el: …```emacs-lisp (use-package all-the-icons-dired :straight t :init (add-hook 'dired-mode-hook 'all-the-icons-dired-mode)) (use-package pdf-tools :straight (:depth full) ;; try to clone the full depth or clone with depth=1 make no difference :config (pdf-tools-install :no-query)) ``` With this config, every time I startup emacs, emacs will recompile pdf-tools, and after compiling (it always success with compiling tho), pdf-tools still won't work properly, meaning every time I open a pdf file, it will only open pdf as text, and if I M-x pdf-view-mode, an error will occur: ``` Debugger entered--Lisp error: (file-error "Spawning child process" "Exec format error") signal(file-error ("Spawning child process" "Exec format error")) (or (string-match-p ":Document is encrypted\\'" (car (cdr err))) (signal (car err) (cdr err))) (condition-case err (pdf-info-open (pdf-info--normalize-file-or-buffer file-or-buffer)) (error (or (string-match-p ":Document is encrypted\\'" (car (cdr err))) (signal (car err) (cdr err))))) pdf-info-encrypted-p() (if (pdf-info-encrypted-p) (progn (let ((prompt (format "Enter password for `%s': " (abbreviate-file-name (buffer-file-name)))) (key (concat "/pdf-tools" (buffer-file-name))) (i 3) password) (while (and (> i 0) (pdf-info-encrypted-p)) (setq i (1- i)) (setq password (password-read prompt key)) (setq prompt "Invalid password, try again: ") (condition-case nil (progn (pdf-info-open nil password)) (error nil))) (pdf-info-open nil password) (password-cache-add key password)))) pdf-view-decrypt-document() (let ((delay-mode-hooks t)) (special-mode) (setq major-mode 'pdf-view-mode) (setq mode-name "PDFView") (progn (if (get 'special-mode 'mode-class) (put 'pdf-view-mode 'mode-class (get 'special-mode 'mode-class))) (if (keymap-parent pdf-view-mode-map) nil (set-keymap-parent pdf-view-mode-map (current-local-map))) nil nil) (use-local-map pdf-view-mode-map) nil nil (if (and (or jka-compr-really-do-compress (let ((file-name-handler-alist nil)) (not (and buffer-file-name (file-readable-p buffer-file-name))))) (pdf-tools-pdf-buffer-p)) (progn (let ((tempfile (pdf-util-make-temp-file (concat ... "-")))) (write-region nil nil tempfile nil 'no-message) (set (make-local-variable 'pdf-view--buffer-file-name) tempfile)))) (pdf-view-decrypt-document) (if (boundp 'mwheel-scroll-up-function) (set (make-local-variable 'mwheel-scroll-up-function) #'pdf-view-scroll-up-or-next-page)) (if (boundp 'mwheel-scroll-down-function) (set (make-local-variable 'mwheel-scroll-down-function) #'pdf-view-scroll-down-or-previous-page)) (add-hook 'change-major-mode-hook #'(lambda nil (remove-overlays (point-min) (point-max) 'pdf-view t)) nil t) (remove-overlays (point-min) (point-max) 'pdf-view t) (set (make-local-variable 'mode-line-position) '(" P" (:eval (number-to-string (pdf-view-current-page))) "/" (:eval (or (ignore-errors (number-to-string ...)) "???")))) (set (make-local-variable 'auto-hscroll-mode) nil) (set (make-local-variable 'pdf-view--server-file-name) (pdf-view-buffer-file-name)) (set (make-local-variable 'scroll-conservatively) 0) (set (make-local-variable 'cursor-type) nil) (set (make-local-variable 'buffer-read-only) t) (set (make-local-variable 'view-read-only) nil) (set (make-local-variable 'bookmark-make-record-function) 'pdf-view-bookmark-make-record) (set (make-local-variable 'revert-buffer-function) #'pdf-view-revert-buffer) (set (make-local-variable 'buffer-auto-save-file-name) nil) (if (boundp 'image-scaling-factor) (progn (set (make-local-variable 'image-scaling-factor) 1))) (if buffer-undo-list nil (buffer-disable-undo)) (set (make-local-variable 'transient-mark-mode) t) (if (and (and (boundp 'cua-mode) cua-mode) (version< emacs-version "24.4")) (progn (set (make-local-variable 'cua-mode) nil))) (add-hook 'window-configuration-change-hook 'pdf-view-redisplay-some-windows nil t) (add-hook 'deactivate-mark-hook 'pdf-view-deactivate-region nil t) (add-hook 'write-contents-functions 'pdf-view--write-contents-function nil t) (add-hook 'kill-buffer-hook 'pdf-view-close-document nil t) (pdf-view-add-hotspot-function 'pdf-view-text-regions-hotspots-function -9) (add-hook 'image-mode-new-window-functions 'pdf-view-new-window-function nil t) (image-mode-setup-winprops) (run-with-timer 1 nil #'(lambda (buffer) (if (buffer-live-p buffer) (progn (pdf-view-check-incompatible-modes buffer)))) (current-buffer))) (progn (make-local-variable 'delay-mode-hooks) (let ((delay-mode-hooks t)) (special-mode) (setq major-mode 'pdf-view-mode) (setq mode-name "PDFView") (progn (if (get 'special-mode 'mode-class) (put 'pdf-view-mode 'mode-class (get 'special-mode 'mode-class))) (if (keymap-parent pdf-view-mode-map) nil (set-keymap-parent pdf-view-mode-map (current-local-map))) nil nil) (use-local-map pdf-view-mode-map) nil nil (if (and (or jka-compr-really-do-compress (let ((file-name-handler-alist nil)) (not (and buffer-file-name ...)))) (pdf-tools-pdf-buffer-p)) (progn (let ((tempfile (pdf-util-make-temp-file ...))) (write-region nil nil tempfile nil 'no-message) (set (make-local-variable 'pdf-view--buffer-file-name) tempfile)))) (pdf-view-decrypt-document) (if (boundp 'mwheel-scroll-up-function) (set (make-local-variable 'mwheel-scroll-up-function) #'pdf-view-scroll-up-or-next-page)) (if (boundp 'mwheel-scroll-down-function) (set (make-local-variable 'mwheel-scroll-down-function) #'pdf-view-scroll-down-or-previous-page)) (add-hook 'change-major-mode-hook #'(lambda nil (remove-overlays (point-min) (point-max) 'pdf-view t)) nil t) (remove-overlays (point-min) (point-max) 'pdf-view t) (set (make-local-variable 'mode-line-position) '(" P" (:eval (number-to-string (pdf-view-current-page))) "/" (:eval (or (ignore-errors ...) "???")))) (set (make-local-variable 'auto-hscroll-mode) nil) (set (make-local-variable 'pdf-view--server-file-name) (pdf-view-buffer-file-name)) (set (make-local-variable 'scroll-conservatively) 0) (set (make-local-variable 'cursor-type) nil) (set (make-local-variable 'buffer-read-only) t) (set (make-local-variable 'view-read-only) nil) (set (make-local-variable 'bookmark-make-record-function) 'pdf-view-bookmark-make-record) (set (make-local-variable 'revert-buffer-function) #'pdf-view-revert-buffer) (set (make-local-variable 'buffer-auto-save-file-name) nil) (if (boundp 'image-scaling-factor) (progn (set (make-local-variable 'image-scaling-factor) 1))) (if buffer-undo-list nil (buffer-disable-undo)) (set (make-local-variable 'transient-mark-mode) t) (if (and (and (boundp 'cua-mode) cua-mode) (version< emacs-version "24.4")) (progn (set (make-local-variable 'cua-mode) nil))) (add-hook 'window-configuration-change-hook 'pdf-view-redisplay-some-windows nil t) (add-hook 'deactivate-mark-hook 'pdf-view-deactivate-region nil t) (add-hook 'write-contents-functions 'pdf-view--write-contents-function nil t) (add-hook 'kill-buffer-hook 'pdf-view-close-document nil t) (pdf-view-add-hotspot-function 'pdf-view-text-regions-hotspots-function -9) (add-hook 'image-mode-new-window-functions 'pdf-view-new-window-function nil t) (image-mode-setup-winprops) (run-with-timer 1 nil #'(lambda (buffer) (if (buffer-live-p buffer) (progn (pdf-view-check-incompatible-modes buffer)))) (current-buffer)))) pdf-view-mode() funcall-interactively(pdf-view-mode) call-interactively(pdf-view-mode) evil-ex-call-command(nil #("pdf-view-mode" 0 1 (ex-index 1) 1 2 (ex-index 2) 2 3 (ex-index 3) 3 4 (ex-index 4) 4 5 (ex-index 5) 5 6 (ex-index 6) 6 7 (ex-index 7) 7 8 (ex-index 8) 8 9 (ex-index 9) 9 10 (ex-index 10) 10 11 (ex-index 11) 11 12 (ex-index 12) 12 13 (ex-index 13)) nil) eval((evil-ex-call-command nil #("pdf-view-mode" 0 1 (ex-index 1) 1 2 (ex-index 2) 2 3 (ex-index 3) 3 4 (ex-index 4) 4 5 (ex-index 5) 5 6 (ex-index 6) 6 7 (ex-index 7) 7 8 (ex-index 8) 8 9 (ex-index 9) 9 10 (ex-index 10) 10 11 (ex-index 11) 11 12 (ex-index 12) 12 13 (ex-index 13)) nil)) evil-ex-execute(#("pdf-view-mode" 0 1 (ex-index 1) 1 2 (ex-ind ``` To solve this I have to remove the all-the-icons-dired package. But if I use the Melpa package of pdf-tools, this problem won't happen. Another similar issue I have is when I enable the all-the-icon support for awesome-tab (https://github.com/manateelazycat/awesome-tab#icon)

简而言之就是通过straight安装pdf-tools话，会和all-the-icons-dired以及awesome-tab的icon不兼容，会导致pdf-tools重新编译，并且编译完了也无法正常使用，直接从melpa上安装pdf-tools就没这个问题。。。实在想不通是哪里的问题。。。

SPQR · 2020 年11 月 28 日 08:07

刚刚又试了下，melpa安装的pdf-tools也会有这个问题，暂时还没在别的机器上试，但是感觉应该不是个体问题。。

SPQR · 2020 年11 月 28 日 11:01

emacs -Q 排除了是和all-the-icons冲突的可能性，最终是把straight.el 设置里面的 :depth 1去掉之后重新pull了一遍解决了。。。估计可能是某个包不能shallow clone导致的吧