gnu: Add exposway.

* gnu/packages/wm.scm (exposway): New variable.

Change-Id: Ic09dd2d7d1e7782795a19875604dcfad3034d693

gnu/packages/wm.scm

@@ -256,6 +256,65 @@ the leaves of a full binary tree.")
 single, maximized application.")
     (license license:expat)))
 
+(define-public exposway
+  (package
+    (name "exposway")
+    (version "1-a1")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://github.com/RadioNoiseE/exposway")
+             (commit (string-append "v" version))))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "0v0rmy1nfqg1y8gw4bi0w15q42dn44d8wqwqhmajck7h6iziym4v"))))
+    (build-system gnu-build-system)
+    (native-inputs (list pkg-config))
+    (inputs (list cairo
+                  pango
+                  grim
+                  json-c
+                  libxkbcommon
+                  wayland
+                  wayland-protocols))
+    (arguments
+     (list
+      #:tests? #f ;No tests.
+      #:make-flags
+      #~(list (string-append "CC=" #$(cc-for-target))
+              (string-append "PREFIX=" #$output))
+      #:phases
+      #~(modify-phases %standard-phases
+          (delete 'configure) ; No configuration script.
+          (add-after 'unpack 'parent-dir
+            (lambda _
+              (substitute* "makefile"
+                ;; The install script does not create directories.
+                (("install -s") "install -s -D")))))))
+    (synopsis "MacOS X Exposé like feature for SwayWM")
+    (description
+     "Exposway brings the MacOS X Exposé functionality to the Sway window
+manager, allowing you to overview all windows and navigate to your desired
+one.  This feature is similar to:
+
+@itemize
+@item
+MacOS Mission Control
+
+@item
+Gnome Activities Overview
+
+@item
+KDE Present Windows
+
+@end itemize
+
+It is written à la @url{https://suckless.org/, Suckless}, so you need to patch
+the package to configure it.")
+    (home-page "https://github.com/RadioNoiseE/exposway")
+    (license license:expat)))
+
 (define-public herbstluftwm
   (package
     (name "herbstluftwm")