[bug#38721] [PATCH] gnu: Add i3-gaps

[Alexandru-Sergiu Marton <brown121407@gmail.com>]

* gnu/packages/wm.scm (i3-gaps): New variable.
---
 gnu/packages/wm.scm | 75 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 75 insertions(+)

diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm
index 6c1919be56..904e2a3975 100644
--- a/gnu/packages/wm.scm
+++ b/gnu/packages/wm.scm
@@ -30,6 +30,7 @@
 ;;; Copyright © 2019 Evan Straw <evan.straw99@gmail.com>
 ;;; Copyright © 2019 Brett Gilio <brettg@gnu.org>
 ;;; Copyright © 2019 Noodles! <nnoodle@chiru.no>
+;;; Copyright © 2019 Alexandru-Sergiu Marton <brown121407@member.fsf.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -327,6 +328,80 @@ i3 primarily targets advanced users.  Windows are managed manually and organised
 inside containers, which can be split vertically or horizontally, and optionally
 resized.
 
+i3 uses a plain-text configuration file, and can be extended and controlled from
+many programming languages.")
+    (license license:bsd-3)))
+
+(define-public i3-gaps
+  (package
+    (name "i3-gaps")
+    (version "4.17.1")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "https://github.com/Airblader/i3/releases/download/"
+                                  version "/i3-" version ".tar.bz2"))
+              (sha256
+               (base32
+                "0gqcr6s53dk3f2y9h6cna00rnwnh4yymk96li7lbym3d84cxjzrs"))))
+    (build-system gnu-build-system)
+    (arguments
+     `(#:configure-flags
+       ;; The build system tries to build in a separate directory, but that
+       ;; seems to be unnecessary.
+       (list "--disable-builddir")
+
+       ;; The test suite requires the unpackaged Xephyr X server.
+       #:tests? #f
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'install 'patch-session-file
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((out (assoc-ref outputs "out"))
+                    (i3 (string-append out "/bin/i3"))
+                    (i3-with-shmlog (string-append out "/bin/i3-with-shmlog")))
+               (substitute* (string-append out "/share/xsessions/i3.desktop")
+                 (("Exec=i3") (string-append "Exec=" i3)))
+               (substitute* (string-append out "/share/xsessions/i3-with-shmlog.desktop")
+                 (("Exec=i3-with-shmlog") (string-append "Exec=" i3-with-shmlog)))
+               #t))))))
+    (inputs
+     `(("libxcb" ,libxcb)
+       ("xcb-util" ,xcb-util)
+       ("xcb-util-cursor" ,xcb-util-cursor)
+       ("xcb-util-keysyms" ,xcb-util-keysyms)
+       ("xcb-util-wm" ,xcb-util-wm)
+       ("xcb-util-xrm" ,xcb-util-xrm)
+       ("libxkbcommon" ,libxkbcommon)
+       ("libev" ,libev)
+       ("libyajl" ,libyajl)
+       ("asciidoc" ,asciidoc)
+       ("xmlto" ,xmlto)
+       ("perl-pod-simple" ,perl-pod-simple)
+       ("libx11" ,libx11)
+       ("pcre" ,pcre)
+       ("startup-notification" ,startup-notification)
+       ("pango" ,pango)
+       ("cairo" ,cairo)))
+    (native-inputs
+     `(("which" ,which)
+       ("perl" ,perl)
+       ("pkg-config" ,pkg-config)
+       ;; For building the documentation.
+       ("libxml2" ,libxml2)
+       ("docbook-xsl" ,docbook-xsl)))
+    (home-page "https://github.com/Airblader/i3")
+    (synopsis "Tiling window manager with gaps")
+    (description "i3-gaps is a fork of i3wm, a tiling window manager for X11.
+It is kept up to date with upstream, adding a few additional features such
+as gaps between windows.
+
+i3 is a tiling X11 window manager that dynamically manages
+tiled, stacked, and tabbed window layouts.
+
+i3 primarily targets advanced users.  Windows are managed manually and organised
+inside containers, which can be split vertically or horizontally, and optionally
+resized.
+
 i3 uses a plain-text configuration file, and can be extended and controlled from
 many programming languages.")
     (license license:bsd-3)))
-- 
2.24.1