guix_mirror_bot pushed a commit to branch master
in repository guix.
commit 4c9e710517b4091def3be95e6aaf10d53a06b492
Author: coopi <[email protected]>
AuthorDate: Sun Mar 1 21:54:03 2026 +0400
gnu: emacs-dirvish: Use absolute paths for external preview programs.
* gnu/packages/emacs-xyz.scm (emacs-dirvish) [arguments]: Add
’set-external-programs’ phase.
[inputs]: Add ’7zip’,’ffmpegthumbnailer’, ’fontconfig’, ’mediainfo’,
’poppler’, and ’vips’.
Merges guix/guix!6795
Change-Id: I91cd52426bfc07e334e5b8965151b6a69d2737a2
Signed-off-by: Cayetano Santos <[email protected]>
---
gnu/packages/emacs-xyz.scm | 27 ++++++++++++++++++++++++++-
1 file changed, 26 insertions(+), 1 deletion(-)
diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index 5f9a511df6..5a11d171a7 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -232,6 +232,7 @@
#:use-module (gnu packages haskell)
#:use-module (gnu packages haskell-apps)
#:use-module (gnu packages ibus)
+ #:use-module (gnu packages image-processing)
#:use-module (gnu packages java)
#:use-module (gnu packages julia-xyz)
#:use-module (gnu packages ncurses)
@@ -25271,7 +25272,31 @@ or @code{treemacs}, but leveraging @code{Dired} to do
the job of display.")
(let ((el-files (find-files "./extensions" ".*\\.el$")))
(for-each (lambda (f)
(rename-file f (basename f)))
- el-files)))))))
+ el-files))))
+ (add-after 'unpack 'set-external-programs
+ (lambda* (#:key inputs #:allow-other-keys)
+ (emacs-substitute-variables "dirvish-widgets.el"
+ ("dirvish-7z-program"
+ (search-input-file inputs "/bin/7z"))
+ ("dirvish-fc-query-program"
+ (search-input-file inputs "/bin/fc-query"))
+ ("dirvish-ffmpegthumbnailer-program"
+ (search-input-file inputs "/bin/ffmpegthumbnailer"))
+ ("dirvish-mediainfo-program"
+ (search-input-file inputs "/bin/mediainfo"))
+ ("dirvish-pdfinfo-program"
+ (search-input-file inputs "/bin/pdfinfo"))
+ ("dirvish-pdftoppm-program"
+ (search-input-file inputs "/bin/pdftoppm"))
+ ("dirvish-vipsthumbnail-program"
+ (search-input-file inputs "/bin/vipsthumbnail"))))))))
+ (inputs
+ (list 7zip
+ ffmpegthumbnailer
+ fontconfig
+ mediainfo
+ poppler
+ vips))
(propagated-inputs (list emacs-compat))
(home-page "https://github.com/alexluigit/dirvish";)
(synopsis "Improved version of the Emacs package Dired")
