From mboxrd@z Thu Jan  1 00:00:00 1970
From: "Reza Alizadeh Majd" <r.majd@pantherx.org>
Subject: Problem on LXQt service definition
Date: Mon, 13 May 2019 14:33:09 -0400
Message-ID: <fd9ccb67-d5ec-432d-9aab-28eb7ffe1254@www.fastmail.com>
Mime-Version: 1.0
Content-Type: text/plain
Return-path: <help-guix-bounces+gcggh-help-guix=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([209.51.188.92]:55889)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <r.majd@pantherx.org>) id 1hQFll-0006uJ-S7
	for help-guix@gnu.org; Mon, 13 May 2019 14:33:51 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <r.majd@pantherx.org>) id 1hQFlk-0003jw-KY
	for help-guix@gnu.org; Mon, 13 May 2019 14:33:49 -0400
Received: from out4-smtp.messagingengine.com ([66.111.4.28]:34633)
	by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32)
	(Exim 4.71) (envelope-from <r.majd@pantherx.org>) id 1hQFlk-0003hd-9C
	for help-guix@gnu.org; Mon, 13 May 2019 14:33:48 -0400
Received: from compute5.internal (compute5.nyi.internal [10.202.2.45])
	by mailout.nyi.internal (Postfix) with ESMTP id CF77E23135
	for <help-guix@gnu.org>; Mon, 13 May 2019 14:33:45 -0400 (EDT)
List-Id: <help-guix.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/help-guix>,
	<mailto:help-guix-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/help-guix/>
List-Post: <mailto:help-guix@gnu.org>
List-Help: <mailto:help-guix-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/help-guix>,
	<mailto:help-guix-request@gnu.org?subject=subscribe>
Errors-To: help-guix-bounces+gcggh-help-guix=m.gmane.org@gnu.org
Sender: "Help-Guix" <help-guix-bounces+gcggh-help-guix=m.gmane.org@gnu.org>
To: help-guix@gnu.org

Hi, 

I'll try to create a service for `lxqt-desktop` based on same definition on [nixos](https://github.com/NixOS/nixpkgs/blob/master/nixos/modules/services/x11/desktop-managers/lxqt.nix). 
but my service definition won't start and  here is my proposed definition for this service:


;;;
;;; LXQt desktop service.
;;;

(define-record-type* <lxqt-desktop-configuration> lxqt-desktop-configuration
  make-lxqt-desktop-configuration
  lxqt-desktop-configuration
  (lxqt-package lxqt-package (default lxqt)))

(define (lxqt-shepherd-service config)
  "Return a shepherd service for @command{lxqt-session}"
  (let ((lxqt-session ((package-direct-input-selector "lxqt-session") 
                       (lxqt-package config))))
    (list (shepherd-service
            (provision '(lxqt))
            ; (requirement '())
            (documentation "Run the lxqt session")
            (start #~(make-forkexec-constructor
                      (list(string-append #$lxqt-session "/bin/startlxqt"))
                      #:environment-variables
                      (list (string-append "XDG_CONFIG_DIRS=" 
                                           "$XDG_CONFIG_DIRS;/run/current-system/profile/etc/xdg")
                            (string-append "XDG_DATA_DIRS="
                                           "$XDG_DATA_DIRS;/run/current-system/profile/share"))
            (stop #~(make-kill-destructor))))))

(define lxqt-desktop-service-type
  (service-type
    (name 'lxqt-desktop)
    (extensions
      (list
            (service-extension shepherd-root-service-type
                               lxqt-shepherd-service)
            (service-extension profile-service-type
                               (compose list 
                                        lxqt-package))))
    (default-value (lxqt-desktop-configuration))
    (description "Run the 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-policykit}."
  (service lxqt-desktop-service-type config))


could anyone help on this matter ?