Subject: [PATCH v2] gnu: Add emacs-sxiv.

From: pinoaffe <[email-masked]>
Date: Wed, 23 Aug 2023 19:19:24 +0200

* gnu/packages/emacs-xyz.scm (emacs-sxiv): New variable.
---
 gnu/packages/emacs-xyz.scm | 36 +++++++++++++++++++++++++++++++++++-
 1 file changed, 35 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index d7e45fffc6..18bd15dcc4 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -70,7 +70,7 @@
 ;;; Copyright © 2020 Jérémy Korwin-Zmijowski <[email-masked]>
 ;;; Copyright © 2020 Alberto Eleuterio Flores Guerrero <[email-masked]>
 ;;; Copyright © 2020 Marius Bakke <[email-masked]>
-;;; Copyright © 2020, 2022 pinoaffe <[email-masked]>
+;;; Copyright © 2020, 2022, 2023 pinoaffe <[email-masked]>
 ;;; Copyright © 2020, 2021, 2022 Vinicius Monego <[email-masked]>
 ;;; Copyright © 2020 Ryan Desfosses <[email-masked]>
 ;;; Copyright © 2020 Marcin Karpezo <[email-masked]>
@@ -207,6 +207,7 @@ (define-module (gnu packages emacs-xyz)
   #:use-module (gnu packages lesstif)
   #:use-module (gnu packages llvm)
   #:use-module (gnu packages image)
+  #:use-module (gnu packages image-viewers)
   #:use-module (gnu packages linux)
   #:use-module (gnu packages libevent)
   #:use-module (gnu packages lisp)
@@ -26431,6 +26432,39 @@ (define-public emacs-picpocket
 @end itemize")
       (license license:gpl3+))))
 
+(define-public emacs-sxiv
+  (package
+    (name "emacs-sxiv")
+    (version "0.4.1")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                    (url "https://tildegit.org/contrapunctus/sxiv")
+                    (commit (string-append "v" version))))
+              (file-name (git-file-name name version))
+              (sha256
+               (base32
+                "0gimq172pp143jckfhhyw319n3vpjvlkadm0vhypycas9i89mcg0"))))
+    (inputs (list sxiv))
+    (propagated-inputs (list emacs-dash))
+    (arguments
+     `( #:phases
+         (modify-phases %standard-phases
+           (add-after 'unpack 'set-sxiv-path
+             (lambda* (#:key inputs #:allow-other-keys)
+               (emacs-substitute-sexps "sxiv.el"
+                 (":command
+                  (append"
+                  `(list ,(string-append (assoc-ref inputs "sxiv")
+                                         "/bin/sxiv")))))))))
+    (build-system emacs-build-system)
+    (home-page "https://tildegit.org/contrapunctus/sxiv")
+    (synopsis "Launch sxiv from Emacs with Dired integration")
+    (description "This package integrates sxiv into Dired.  It adds a command
+to start sxiv from a Dired buffer, allowing you to mark or unmark image files
+in said buffer using sxiv.")
+    (license license:unlicense)))
+
 (define-public emacs-mu4e-conversation
   (let ((commit "98110bb9c300fc9866dee8e0023355f9f79c9b96")
         (revision "5"))

base-commit: 005912c595bf7a3329f8aa51a4ccb1d91b6ecd9e
-- 
2.41.0