@@ -69,6 +69,46 @@
#:use-module (ice-9 match)
#:use-module (srfi srfi-1))
+(define-public go-github-com-burntsushi-xgbutil
+ (let ((commit "ad855c7130460fb6cf40af9302c649a69082a4ee")
+ (revision "335"))
+ (package
+ (name "go-github-com-burntsushi-xgbutil")
+ (version (git-version "0.0.0" revision commit))
+ (source
+ (origin
+ (method git-fetch)
+ (uri
+ (git-reference
+ (url "https://github.com/BurntSushi/xgbutil")
+ (commit commit)))
+ (file-name (git-file-name name version))
+ (sha256
+ (base32 "0zyqinxjgd7w3qzl2jhc8ipyyg1rh7xjxpd85p88m213ak5865bq"))))
+ (build-system go-build-system)
+ (arguments
+ `(#:import-path "github.com/BurntSushi/xgbutil"
+ #:phases
+ (modify-phases %standard-phases
+ (add-after 'unpack 'patch-source
+ (lambda _
+ (substitute* (find-files "." "\\.go$")
+ ;; Use 'jezek/xgb' instead of 'BurntSushi/xgb',
+ ;; as the latter is unmaintained.
+ (("github.com/BurntSushi/xgb")
+ "github.com/jezek/xgb"))
+ #t)))))
+ (propagated-inputs
+ `(("go-github-com-jezek-xgb" ,go-github-com-jezek-xgb)))
+ (synopsis "Utility Library for X Go Binding")
+ (description "Xgbutil is a utility library designed to work with the X Go
+Binding. This project's main goal is to make various X related tasks easier.
+For example, binding keys, using the EWMH or ICCCM specs with the window manager,
+moving/resizing windows, assigning function callbacks to particular events,
+drawing images to a window, etc.")
+ (home-page "https://github.com/BurntSushi/xgbutil")
+ (license license:wtfpl2))))
+
(define-public go-github-com-jezek-xgb
(let ((commit "0e0f116e1240ae19099324c3b2632003082841b7")
(revision "155"))