[bug#51628] [PATCH] gnu: Add lukesmithxyz-st.

[jgart]

* gnu/packages/suckless.scm (lukesmithxyz-st): New variable.
---
 gnu/packages/suckless.scm | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)

diff --git a/gnu/packages/suckless.scm b/gnu/packages/suckless.scm
index 0755700835..f055163478 100644
--- a/gnu/packages/suckless.scm
+++ b/gnu/packages/suckless.scm
@@ -35,6 +35,7 @@ (define-module (gnu packages suckless)
   #:use-module (gnu packages fontutils)
   #:use-module (gnu packages gawk)
   #:use-module (gnu packages gnome)
+  #:use-module (gnu packages gtk)
   #:use-module (gnu packages image)
   #:use-module (gnu packages libbsd)
   #:use-module (gnu packages linux)
@@ -441,6 +442,42 @@ (define-public xst
 @end itemize")
       (license license:expat)))
 
+(define-public lukesmithxyz-st
+  (let ((revision "0")
+        (commit "e053bd6036331cc7d14f155614aebc20f5371d3a"))
+    (package
+      (inherit st)
+      (name "lukesmithxyz-st")
+      (version "0.8.4")
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+              (url "https://github.com/LukeSmithxyz/st";)
+              (commit commit)))
+         (file-name (git-file-name name version))
+         (sha256
+          (base32 "12avzzapkkj4mvd00zh8b6gynk6jysh84jcwlkliyyd82lvyw22v"))))
+      (arguments
+        (substitute-keyword-arguments (package-arguments st)
+         ((#:phases phases)
+          `(modify-phases ,phases
+            (add-after 'unpack 'remove-calls-to-git
+              (lambda _
+                (substitute* "Makefile"
+                  (("git submodule init") "")
+                  (("git submodule update") ""))))))))
+      (inputs
+       `(("libxext" ,libxext)
+         ("harfbuzz" ,harfbuzz)
+         ,@(package-inputs st)))
+      (home-page "https://github.com/LukeSmithxyz/st";)
+      (synopsis "Luke Smith's fork of st")
+      (description
+"Luke's fork of the suckless simple terminal @command{st} with @command{vim}
+bindings and Xresource compatibility.")
+      (license license:expat))))
+
 (define-public surf
   (package
     (name "surf")
-- 
2.33.1