On 10 August 2015 at 23:16, Thompson, David <[email protected]>
wrote:

> I believe this is because the return value of
> 'xorg-configuration-file' is a monadic value, and thus it needs to
> "unwrapped" in order to pass the configuration file to
> 'xorg-start-command'.
>
> Try this:
>
>     (mlet %store-monad ((config
>                          (xorg-configuration-file #:drivers '("radeon"
> "vesa")
>                                                   #:resolutions '((1366
> 768)
>                                                                   (1024
> 768)))))
>       (slim-service #:startx (xorg-start-command #:configuration-file
> config)))
>

I've found another possible solution:

https://lists.gnu.org/archive/html/guix-devel/2015-05/msg00395.html

  (define input-class
    "Section \"InputClass" ...")

  (define (my-slim-service)
    (mlet %store-monad ((config (xorg-configuration-file
                                 #:extra-config (list input-class)))
                        (startx (xorg-start-command
                                 #:configuration-file config)))
      (slim-service #:startx startx)))

  (operating-system
    ;; ...
    (services (cons (my-slim-service) ...)))

I'll try it later.

Dmitry

Reply via email to