[bug#39378] [PATCH] gnu: Add FIM.

[Leo Famulari <leo@famulari.name>]

* gnu/packages/image-viewers.scm (fim): New variable.
---
 gnu/packages/image-viewers.scm | 41 ++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)

diff --git a/gnu/packages/image-viewers.scm b/gnu/packages/image-viewers.scm
index 85d3a153e7..51f584dfbb 100644
--- a/gnu/packages/image-viewers.scm
+++ b/gnu/packages/image-viewers.scm
@@ -13,6 +13,7 @@
 ;;; Copyright © 2019 Guy Fleury Iteriteka <hoonandon@gmail.com>
 ;;; Copyright © 2019 Pierre Langlois <pierre.langlois@gmx.com>
 ;;; Copyright © 2020 Peng Mei Yu <pengmeiyu@riseup.net>
+;;; Copyright © 2020 Leo Famulari <leo@famulari.name>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -40,11 +41,13 @@
   #:use-module (guix build-system python)
   #:use-module (gnu packages autotools)
   #:use-module (gnu packages algebra)
+  #:use-module (gnu packages bison)
   #:use-module (gnu packages boost)
   #:use-module (gnu packages check)
   #:use-module (gnu packages compression)
   #:use-module (gnu packages curl)
   #:use-module (gnu packages documentation)
+  #:use-module (gnu packages flex)
   #:use-module (gnu packages fontutils)
   #:use-module (gnu packages freedesktop)
   #:use-module (gnu packages gettext)
@@ -56,6 +59,7 @@
   #:use-module (gnu packages graphics)
   #:use-module (gnu packages image)
   #:use-module (gnu packages imagemagick)
+  #:use-module (gnu packages linux)
   #:use-module (gnu packages maths)
   #:use-module (gnu packages perl)
   #:use-module (gnu packages perl-check)
@@ -63,7 +67,10 @@
   #:use-module (gnu packages pkg-config)
   #:use-module (gnu packages python)
   #:use-module (gnu packages python-xyz)
+  #:use-module (gnu packages readline)
+  #:use-module (gnu packages sdl)
   #:use-module (gnu packages qt)
+  #:use-module (gnu packages video)
   #:use-module (gnu packages xdisorg)
   #:use-module (gnu packages xorg)
   #:use-module (gnu packages))
@@ -596,3 +603,37 @@ with tiling window managers.  Features include:
 @end itemize\n")
     (home-page "https://github.com/eXeC64/imv")
     (license license:expat)))
+
+(define-public fim
+  (package
+    (name "fim")
+    (version "0.6")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "http://download.savannah.nongnu.org/releases/"
+                                  "fbi-improved/fim-" version "-trunk.tar.gz"))
+              (sha256
+               (base32
+                "124b7c4flx5ygmy5sqq0gpvxqzafnknbcj6f45ddnbdxik9lazzp"))))
+    (build-system gnu-build-system)
+    (native-inputs
+     `(("flex" ,flex)
+       ("bison" ,bison)
+       ("perl" ,perl)))
+    (inputs
+     `(("aalib" ,aalib)
+       ("alsa-lib" ,alsa-lib)
+       ("giflib" ,giflib)
+       ("libexif" ,libexif)
+       ("libjpeg" ,libjpeg-8)
+       ("libpng" ,libpng)
+       ("libtiff" ,libtiff)
+       ("libxrandr" ,libxrandr)
+       ("libxrender" ,libxrender)
+       ("readline" ,readline)
+       ("sdl" ,sdl)))
+    (synopsis "Image viewer with framebuffer support")
+    (description "FIM is an image viewer that supports both X and the Linux
+framebuffer.")
+    (home-page "https://www.nongnu.org/fbi-improved/")
+    (license license:gpl2+)))
-- 
2.25.0