From mboxrd@z Thu Jan  1 00:00:00 1970
From: Ricardo Wurmus <rekado@elephly.net>
Subject: Re: Xorg won't start
Date: Tue, 13 Jun 2017 22:49:55 +0200
Message-ID: <8737b3r4ss.fsf@elephly.net>
References: <alpine.LNX.2.20.1706120944240.26092@localhost>
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: 8bit
Return-path: <help-guix-bounces+gcggh-help-guix=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([2001:4830:134:3::10]:46024)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <rekado@elephly.net>) id 1dKslK-00033T-6E
	for help-guix@gnu.org; Tue, 13 Jun 2017 16:50:07 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <rekado@elephly.net>) id 1dKslH-0003NM-3O
	for help-guix@gnu.org; Tue, 13 Jun 2017 16:50:06 -0400
Received: from sender-of-o51.zoho.com ([135.84.80.216]:21103)
	by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:32)
	(Exim 4.71) (envelope-from <rekado@elephly.net>) id 1dKslG-0003Mt-Rs
	for help-guix@gnu.org; Tue, 13 Jun 2017 16:50:03 -0400
In-reply-to: <alpine.LNX.2.20.1706120944240.26092@localhost>
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: someone@selfhosted.xyz
Cc: help-guix@gnu.org


someone@selfhosted.xyz writes:

>> (define (my-slim-service)
>>         (mlet* %store-monad ((config (xorg-configuration-file
>> ;;              #:drivers '("nouveau" "vesa")
>>                 #:resolutions '((1920 1080) (1366 768) (1024 768))
>> ))
>>                              (startx (xorg-start-command
>>                 #:configuration-file config)))
>>         (slim-service #:startx startx)))
> ..
> (services (cons* (xfce-desktop-service)
>                   (my-slim-service)
>                   %desktop-services))

This probably won’t do what you want.  First, the %desktop-services
contain an implementation of the slim-service-type, so you’ll get two
services that want to start X.

Instead of defining my-slim-service (which looks more complicated than
it should), how about just modifying the service with the
slim-service-type?  Here’s a snippet to append config snippets to the
xorg configuration file:

--8<---------------cut here---------------start------------->8---
  (services (cons* (whatever-service)
                   (modify-services %desktop-services
                     (slim-service-type
                      config => (slim-configuration
                                 (inherit config)
                                 (startx (xorg-start-command
                                          #:configuration-file
                                          (xorg-configuration-file
                                           #:extra-config
                                           (list marble-mouse-settings
                                                 dvorak-evdev)))))))))
--8<---------------cut here---------------end--------------->8---

Hope this helps!

--
Ricardo

GPG: BCA6 89B6 3655 3801 C3C6  2150 197A 5888 235F ACAC
https://elephly.net