Subject: [PATCH] gnu: Add havoc.
From: Feng Shu <[email-masked]>
To: "guix-patches" <[email-masked]>
Date: Thu, 09 Feb 2023 10:16:13 +0800
List-Id: <debbugs-submit.debbugs.gnu.org>

From 08038bf6660768d462f65be64cd0d43cd50f1052 Mon Sep 17 00:00:00 2001
From: Feng Shu <[email-masked]>
Date: Thu, 9 Feb 2023 09:51:07 +0800
Subject: [PATCH] gnu: Add havoc.

* gnu/packages/terminals.scm (havoc): New variable.
---
 gnu/packages/terminals.scm | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)

diff --git a/gnu/packages/terminals.scm b/gnu/packages/terminals.scm
index 02401b712d..406df1f422 100644
--- a/gnu/packages/terminals.scm
+++ b/gnu/packages/terminals.scm
@@ -872,6 +872,39 @@ desktop environments.  It can be used as a standalone terminal and also has
 a server/client mode.")
     (license license:expat)))
 
+(define-public havoc
+  (package
+    (name "havoc")
+    (version "0.4.0")
+    (home-page "https://github.com/ii8/havoc")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference (url home-page) (commit version)))
+              (file-name (git-file-name name version))
+              (sha256
+               (base32
+                "052nfli8x4kvly2iwbk0w3i8gk82bz2p8i0ygkwxhy03m5187lnc"))))
+    (build-system gnu-build-system)
+    (arguments
+     (list
+      #:tests? #f ; no check target
+      #:make-flags
+      #~(list (string-append "PREFIX=" #$output))
+      #:phases
+      #~(modify-phases %standard-phases
+          (delete 'configure) ; no configure script
+          (add-before 'build 'set-CC
+            (lambda _
+              (setenv "CC" #$(cc-for-target)))))))
+    (native-inputs
+     (list pkg-config wayland-protocols))
+    (inputs
+     (list libxkbcommon wayland))
+    (synopsis "Minimal terminal emulator for Wayland on Linux")
+    (description
+     "Havoc is a minimal terminal emulator for Wayland on Linux.")
+    (license license:expat)))
+
 (define-public sakura
   (package
     (name "sakura")
-- 
2.30.2

--