From a22098c94345c2077bc5074e59443ab1d1b149df Mon Sep 17 00:00:00 2001
From: Wilko Meyer <w@wmeyer.eu>
Date: Fri, 26 Jul 2024 01:06:05 +0200
Subject: [PATCH] gnu: Add drm-info.

* gnu/packages/freedesktop.scm (drm-info): New variable.

Change-Id: I02a0bdcbb49644de9884038cd36bf6d8482f84ae
Signed-off-by: Zheng Junjie <zhengjunjie@iscas.ac.cn>
---
 gnu/packages/freedesktop.scm | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)

diff --git a/gnu/packages/freedesktop.scm b/gnu/packages/freedesktop.scm
index 222ea0fb0b..6ec5119c78 100644
--- a/gnu/packages/freedesktop.scm
+++ b/gnu/packages/freedesktop.scm
@@ -38,6 +38,7 @@
 ;;; Copyright © 2022 Samuel Culpepper <sculpepper@newstore.com>
 ;;; Copyright © 2024 aurtzy <aurtzy@gmail.com>
 ;;; Copyright © 2024 Dariqq <dariqq@posteo.net>
+;;; Copyright © 2024 Wilko Meyer <w@wmeyer.eu>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -117,6 +118,7 @@ (define-module (gnu packages freedesktop)
   #:use-module (gnu packages networking)
   #:use-module (gnu packages nss)
   #:use-module (gnu packages package-management)
+  #:use-module (gnu packages pciutils)
   #:use-module (gnu packages perl)
   #:use-module (gnu packages perl-check)
   #:use-module (gnu packages pkg-config)
@@ -2475,6 +2477,37 @@ (define-public desktop-file-utils
 @end table")
     (license license:gpl2+)))
 
+(define-public drm-info
+  (package
+    (name "drm-info")
+    (version "2.6.0")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://gitlab.freedesktop.org/emersion/drm_info.git")
+             (commit (string-append "v" version))))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32
+         "0fc1rd3c16ddzbdpcj473ykszipzblj98lk376slk63v7mqvc1qm"))))
+    (build-system meson-build-system)
+    (arguments (list #:configure-flags
+                     #~(list "-Dman-pages=enabled"
+                             "-Dlibpci=enabled")))
+    (native-inputs
+     (append (if (%current-target-system)
+                 (list pkg-config-for-build)
+                 '())
+             (list pkg-config scdoc)))
+    (inputs
+     (list libdrm json-c pciutils))
+    (home-page "https://gitlab.freedesktop.org/emersion/drm_info")
+    (synopsis "Dump DRM device info")
+    (description "Displaying and dumping information on Direct
+Rendering Manager devices.")
+    (license license:expat)))
+
 (define-public xdg-user-dirs
   (package
     (name "xdg-user-dirs")