From 467e3a92c1eb7e76eb8ed6a7c69f736f787c3ef2 Mon Sep 17 00:00:00 2001
From: Zheng Junjie <zhengjunjie@iscas.ac.cn>
Date: Sat, 6 Jul 2024 16:46:25 +0800
Subject: [PATCH] gnu: Add krdp.

* gnu/packages/kde-plasma.scm (krdp): New variable.

Change-Id: I3bbd44ffd4f2ad512542a2f1afd7a4c9f6ec8ad1
---
 gnu/packages/kde-plasma.scm | 54 +++++++++++++++++++++++++++++++++++++
 1 file changed, 54 insertions(+)

diff --git a/gnu/packages/kde-plasma.scm b/gnu/packages/kde-plasma.scm
index 0223ef506e..6806eb3b47 100644
--- a/gnu/packages/kde-plasma.scm
+++ b/gnu/packages/kde-plasma.scm
@@ -75,6 +75,7 @@ (define-module (gnu packages kde-plasma)
   #:use-module (gnu packages python)
   #:use-module (gnu packages python-xyz)
   #:use-module (gnu packages package-management) ; flatpak
+  #:use-module (gnu packages rdesktop)
   #:use-module (gnu packages unicode)
   #:use-module (gnu packages video)
   #:use-module (gnu packages vpn)
@@ -88,6 +89,8 @@ (define-module (gnu packages kde-plasma)
   #:use-module (gnu packages base)
   #:use-module (gnu packages gps)
   #:use-module (gnu packages web)
+  #:use-module (gnu packages tls)
+  #:use-module (gnu packages xml)
   #:use-module (gnu packages opencl))
 
 (define-public bluedevil
@@ -395,6 +398,57 @@ (define-public kactivitymanagerd
     (home-page "https://invent.kde.org/plasma/kactivitymanagerd")
     (license (list license:gpl2 license:gpl3))))
 
+(define-public krdp
+  (package
+    (name "krdp")
+    (version "6.1.2")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "mirror://kde/stable/plasma/"
+                                  version "/" name "-"
+                                  version ".tar.xz"))
+              (sha256
+               (base32
+                "0xp1zi51fpw9zcyry6g8qrm7k94pbi6kw3d8dakdnq5qrkcsvc8g"))))
+    (build-system qt-build-system)
+    (arguments (list #:qtbase qtbase
+                     #:phases
+                     #~(modify-phases %standard-phases
+                         (add-after 'unpack 'hardcode-openssl
+                           (lambda* (#:key inputs #:allow-other-keys)
+                             (substitute* "src/kcm/kcmkrdpserver.cpp"
+                               (("\"openssl\"")
+                                (string-append
+                                 "\""
+                                 (search-input-file
+                                  inputs "/bin/openssl")
+                                 "\""))))))))
+    (native-inputs (list extra-cmake-modules
+                         pkg-config
+                         ;; for wayland-scanner
+                         wayland))
+    (inputs (list
+             kconfig
+             kdbusaddons
+             kcmutils
+             ki18n
+             kcoreaddons
+             kstatusnotifieritem
+             kpipewire
+             openssl
+             plasma-wayland-protocols
+             freerdp
+             qtwayland
+             qtdeclarative
+             qtkeychain-qt6
+             wayland-protocols
+             wayland))
+    (synopsis "Library and examples for creating an RDP server")
+    (description "This package provides a library and examples for creating an
+RDP server.")
+    (home-page "https://invent.kde.org/plasma/krdp")
+    (license license:lgpl2.0+)))
+
 (define-public kde-gtk-config
   (package
     (name "kde-gtk-config")