feat(i3-switch-tabs): add

README.org

@@ -10,6 +10,7 @@ I'll probably push what I can upstream when I figure Guix out.
 | [[https://gitlab.com/dwt1/shell-color-scripts][dt-colorscripts]]            | OK       | Check for implicit dependencies                       |
 | [[https://yadm.io/][yadm]]                       | OK       | Check for implicit dependencies; description          |
 | [[https://github.com/SqrtMinusOne/mpd-watcher][mpd-watcher]]                | OK       |                                                       |
+| [[https://github.com/nikola-kocic/i3-switch-tabs][i3-switch-tabs]]             | OK       |                                                       |
 | [[https://github.com/risacher/sunwait][sunwait]]                    | OK       | Version number                                        |
 | [[https://github.com/alfredopalhares/openvpn-update-resolv-conf][openvpn-update-resolv-conf]] | OK       | Just watch out for $PATH if launched from OpenVPN     |
 | [[https://github.com/deajan/osync][osync]]                      | Works    | Requires shell commands as propagated-inputs          |

i3-switch-tabs.scm

@@ -0,0 +1,59 @@
+(define-module (i3-switch-tabs)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (guix build-system cargo)
+  #:use-module (guix download)
+  #:use-module (guix packages)
+  #:use-module (gnu packages rust)
+  #:use-module (gnu packages crates-io)
+  #:use-module (guix git-download))
+
+(define-public rust-i3ipc-0.10
+  (package
+    (name "rust-i3ipc")
+    (version "0.10.1")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (crate-uri "i3ipc" version))
+       (file-name (string-append name "-" version ".tar.gz"))
+       (sha256
+        (base32 "0zljiin4s8d5ci18f87v5yinji10299z651irf4awgs71k0dmwv3"))))
+    (build-system cargo-build-system)
+    (arguments
+     `(#:skip-build?
+       #t
+       #:cargo-inputs
+       (("rust-byteorder" ,rust-byteorder-1)
+        ("rust-log" ,rust-log-0.4)
+        ("rust-serde" ,rust-serde-1)
+        ("rust-serde-json" ,rust-serde-json-1))))
+    (home-page "https://github.com/tmerr/i3ipc-rs")
+    (synopsis "A library for controlling i3-wm through its IPC interface")
+    (description
+     "This package provides a library for controlling i3-wm through its IPC interface")
+    (license license:expat)))
+
+(define-public rust-i3-switch-tabs
+  (package
+    (name "rust-i3-switch-tabs")
+    (version "0.1.4")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                    (url "https://github.com/nikola-kocic/i3-switch-tabs.git")
+                    (commit (string-append "v" version))))
+              (file-name (git-file-name name version))
+              (sha256
+               (base32
+                "09w2i2z3inyz3aw316gwaaw9pqf7gpjdxl57al0610j9bpjsaw7m"))))
+    (build-system cargo-build-system)
+    (arguments
+     `(#:tests? #f
+       #:cargo-inputs
+       (("rust-i3ipc" ,rust-i3ipc-0.10)
+        ("rust-clap" ,rust-clap-2))))
+    (home-page "https://github.com/nikola-kocic/i3-switch-tabs")
+    (synopsis "Switch top-level tabs in i3-wm ")
+    (description
+     "Switch top-level tabs in i3-wm. Requires i3wm version 4.8 or newer.")
+    (license license:expat)))