From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp2 ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms11 with LMTPS id cEXSNgeCiV8KBAAA0tVLHw (envelope-from ) for ; Fri, 16 Oct 2020 11:20:39 +0000 Received: from aspmx1.migadu.com ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp2 with LMTPS id 0D+VMgeCiV+FUgAAB5/wlQ (envelope-from ) for ; Fri, 16 Oct 2020 11:20:39 +0000 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by aspmx1.migadu.com (Postfix) with ESMTPS id 78C8D94042F for ; Fri, 16 Oct 2020 11:20:39 +0000 (UTC) Received: from localhost ([::1]:53630 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1kTNmn-0006mA-Sm for larch@yhetil.org; Fri, 16 Oct 2020 07:20:37 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:56446) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1kTNmF-0006lu-Md for guix-patches@gnu.org; Fri, 16 Oct 2020 07:20:04 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:46384) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1kTNmE-0007Vx-U0 for guix-patches@gnu.org; Fri, 16 Oct 2020 07:20:03 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1kTNmE-0001gt-OL for guix-patches@gnu.org; Fri, 16 Oct 2020 07:20:02 -0400 X-Loop: help-debbugs@gnu.org Subject: [bug#44029] [PATCH 4/4] services: Add LXQt desktop service. References: <20201016144000.04a245db@pantherx.org> In-Reply-To: <20201016144000.04a245db@pantherx.org> Resent-From: Reza Alizadeh Majd Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Fri, 16 Oct 2020 11:20:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 44029 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 44029@debbugs.gnu.org Cc: Reza Alizadeh Majd Received: via spool by 44029-submit@debbugs.gnu.org id=B44029.16028471926464 (code B ref 44029); Fri, 16 Oct 2020 11:20:02 +0000 Received: (at 44029) by debbugs.gnu.org; 16 Oct 2020 11:19:52 +0000 Received: from localhost ([127.0.0.1]:57926 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1kTNm3-0001gC-PG for submit@debbugs.gnu.org; Fri, 16 Oct 2020 07:19:52 -0400 Received: from out2-smtp.messagingengine.com ([66.111.4.26]:46633) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1kTNm1-0001fy-6y for 44029@debbugs.gnu.org; Fri, 16 Oct 2020 07:19:49 -0400 Received: from compute1.internal (compute1.nyi.internal [10.202.2.41]) by mailout.nyi.internal (Postfix) with ESMTP id 2A78A5C0196; Fri, 16 Oct 2020 07:19:44 -0400 (EDT) Received: from mailfrontend1 ([10.202.2.162]) by compute1.internal (MEProxy); Fri, 16 Oct 2020 07:19:44 -0400 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=pantherx.org; h= from:to:cc:subject:date:message-id:mime-version :content-transfer-encoding; s=fm1; bh=Vkwep3lEGWm78nJHusmLqtbbBU gAaaGXKOklC5bvMoM=; b=it9wIb9N1LJmxIz7ek4rTbPnVv/+6g2bMOC1NV/cDu etw/IRd8eDdpxBjcjDuz/QCiEwFOde++pjWJS1PVJtWJaj+C/mqUSxyOoM2X6Msd /eIDC2zgAIrIJ40uucg9lkiC0EkGnOi4uS/lWFSpzVK5gPv/+5jlA2oMgzQSghJB 1Kv2cZ3YOWFBtkte4LW7z4f6om8Wgsy5MyIQC+DSchd9WmXrJgc5pu13IF+l5MuL h1gf4a3F2RMEB1mqWa2Vk8KjXFtWxc7pe7DrUFFCH/8Kg4IeUA3zC2Ba1lClR0j3 lA7rD47+FkJwrbcNP6DINypXFHxvMEWzMsX6jLzpYaBQ== DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d= messagingengine.com; h=cc:content-transfer-encoding:date:from :message-id:mime-version:subject:to:x-me-proxy:x-me-proxy :x-me-sender:x-me-sender:x-sasl-enc; s=fm1; bh=Vkwep3lEGWm78nJHu smLqtbbBUgAaaGXKOklC5bvMoM=; b=el0XN7TcoDJeO1dua71QJjzbj9Y3dRBqc tnjRgGndhdmDjB5LS56s51pkd+diI4JUP/S5OuOYECZV2EhAfLzmIi/0BedSD+qw N2aLmR4F14IFu6AfPBFJxQyVm+2JgWw/9yBYqRc5t1uEnnFVmjpRcF5BqnFMHUAy 0F/BVmhAZTuaA/KQ6suH+1ggAm5PXyONSzLduTjLWQ7W+xK591Txv7j7++ML25FH 9TLW2GfEe+22mK7YhkkzlP8Bzlj/ZiZTIv02OydqYPNdBWvxLrg1Zsz6p+cNlgOO lI/nhTpe0YWugTVtsv1f0G2QRw6wVuf+eWNiKp3Cy0DEaBzSKOydQ== X-ME-Sender: X-ME-Proxy-Cause: gggruggvucftvghtrhhoucdtuddrgedujedrieehgdeflecutefuodetggdotefrodftvf curfhrohhfihhlvgemucfhrghsthforghilhdpqfgfvfdpuffrtefokffrpgfnqfghnecu uegrihhlohhuthemuceftddtnecunecujfgurhephffvufffkffoggfgsedtkeertdertd dtnecuhfhrohhmpeftvgiirgcutehlihiirgguvghhucforghjugcuoehrrdhmrghjuges phgrnhhthhgvrhigrdhorhhgqeenucggtffrrghtthgvrhhnpefgueeitdffffdvheehie egueekkefhfffhvdevtdelteeivefgffeludffueeugeenucfkphepudekhedrvddtledr udeliedrudehkeenucevlhhushhtvghrufhiiigvpedtnecurfgrrhgrmhepmhgrihhlfh hrohhmpehrrdhmrghjugesphgrnhhthhgvrhigrdhorhhg X-ME-Proxy: Received: from panther.local (unknown [185.209.196.158]) by mail.messagingengine.com (Postfix) with ESMTPA id 418803280064; Fri, 16 Oct 2020 07:19:41 -0400 (EDT) From: Reza Alizadeh Majd Date: Fri, 16 Oct 2020 14:49:24 +0330 Message-Id: <20201016111924.27139-1-r.majd@pantherx.org> X-Mailer: git-send-email 2.28.0 MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Spam-Score: -0.7 (/) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-Spam-Score: -1.7 (-) X-BeenThere: guix-patches@gnu.org List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+larch=yhetil.org@gnu.org Sender: "Guix-patches" X-Scanner: scn0 X-Spam-Score: 6.49 Authentication-Results: aspmx1.migadu.com; dkim=fail (body hash did not verify) header.d=pantherx.org header.s=fm1 header.b=it9wIb9N; dkim=fail (body hash did not verify) header.d=messagingengine.com header.s=fm1 header.b=el0XN7Tc; dmarc=none; spf=pass (aspmx1.migadu.com: domain of guix-patches-bounces@gnu.org designates 209.51.188.17 as permitted sender) smtp.mailfrom=guix-patches-bounces@gnu.org X-Spam: Yes X-TUID: m7DOaMlx4IS7 * gnu/services/desktop.scm (, lxqt-desktop-configuration?, lxqt-desktop-service-type, lxqt-desktop-service): New variables. --- gnu/services/desktop.scm | 43 ++++++++++++++++++++++++++++++++++++++++ 1 file changed, 43 insertions(+) diff --git a/gnu/services/desktop.scm b/gnu/services/desktop.scm index bdbea5dddf..416f50e417 100644 --- a/gnu/services/desktop.scm +++ b/gnu/services/desktop.scm @@ -53,6 +53,7 @@ #:use-module (gnu packages suckless) #:use-module (gnu packages linux) #:use-module (gnu packages libusb) + #:use-module (gnu packages lxqt) #:use-module (gnu packages mate) #:use-module (gnu packages enlightenment) #:use-module (guix deprecation) @@ -131,6 +132,11 @@ xfce-desktop-service xfce-desktop-service-type + lxqt-desktop-configuration + lxqt-desktop-configuration? + lxqt-desktop-service + lxqt-desktop-service-type + x11-socket-directory-service enlightenment-desktop-configuration @@ -1004,6 +1010,43 @@ system as root from within a user session, after the user has authenticated with the administrator's password." (service xfce-desktop-service-type config)) + +;;; +;;; Lxqt desktop service. +;;; + +(define-record-type* lxqt-desktop-configuration + make-lxqt-desktop-configuration + lxqt-desktop-configuration? + (lxqt lxqt-package + (default lxqt))) + +(define (lxqt-polkit-settings config) + "Return the list of LXQt dependencies that provide polkit actions and +rules." + (let ((lxqt (lxqt-package config))) + (map (lambda (name) + ((package-direct-input-selector name) lxqt)) + '("lxqt-admin")))) + +(define lxqt-desktop-service-type + (service-type + (name 'lxqt-desktop) + (extensions + (list (service-extension polkit-service-type + lxqt-polkit-settings) + (service-extension profile-service-type + (compose list lxqt-package)))) + (default-value (lxqt-desktop-configuration)) + (description "Run LXQt desktop environment."))) + +(define-deprecated (lxqt-desktop-service #:key (config + (lxqt-desktop-configuration))) + lxqt-desktop-service-type + "Return a service that adds the @code{lxqt} package to the system profile, +and extends polkit with the actions from @code{lxqt-admin}." + (service lxqt-desktop-service-type config)) + ;;; ;;; X11 socket directory service -- 2.28.0