From f04841d72e24abd128116cabd2badc4700e05199 Mon Sep 17 00:00:00 2001
From: Petr Hodina <phodina@protonmail.com>
Date: Mon, 12 Dec 2022 15:12:04 +0100
Subject: [PATCH 5/5] gnu: Add traceshark.

* gnu/packages/linux.scm (traceshark): New variable.

diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
index 036ad48b76..02babf896a 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -179,6 +179,7 @@ (define-module (gnu packages linux)
   #:use-module (guix build-system go)
   #:use-module (guix build-system meson)
   #:use-module (guix build-system python)
+  #:use-module (guix build-system qt)
   #:use-module (guix build-system trivial)
   #:use-module (guix build-system linux-module)
   #:use-module (guix download)
@@ -6333,6 +6334,35 @@ (define-public trace-cmd
 @code{ftrace} and the back-end application to @code{KernelShark}.")
     (license license:gpl3+)))
 
+(define-public traceshark
+  (package
+    (name "traceshark")
+    (version "0.9.13")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                    (url "https://github.com/cunctator/traceshark")
+                    (commit (string-append "v" version "-beta"))))
+              (file-name (git-file-name name version))
+              (sha256
+               (base32
+                "167isad5kfv8cv3k3z1hcpv3yc2i7wlabakr6ji0b17zhl68vn8h"))))
+    (build-system qt-build-system)
+    (arguments
+     (list #:tests? #f ; no test suite
+           #:phases #~(modify-phases %standard-phases
+                        (replace 'configure
+                          (lambda* _
+                            (substitute* "traceshark.pro"
+                              (("/usr") #$output))
+                            (invoke "qmake"))))))
+    (inputs (list qtbase-5))
+    (home-page "https://github.com/cunctator/traceshark")
+    (synopsis "Kernel ftrace and perf events visualization")
+    (description "This package provides a graphical viewer for the Ftrace and
+Perf events that can be captured by the Linux kernel.")
+    (license license:gpl3+)))
+
 (define-public turbostat
   (package
     (name "turbostat")
-- 
2.38.1