Skip to content
Snippets Groups Projects
Unverified Commit 956607e3 authored by Ludovic Courtès's avatar Ludovic Courtès
Browse files

services: xorg: Remove unused #:guile parameter.

* gnu/services/xorg.scm (xorg-wrapper): Remove #:guile, which was unused.
(xorg-start-command): Likewise.
(xinitrc): Likewise.
parent 8d058e7b
No related branches found
No related tags found
No related merge requests found
......@@ -13352,7 +13352,7 @@ type @code{<sddm-configuration>}.
@end example
@end deffn
 
@deffn {Scheme Procedure} xorg-start-command [#:guile] @
@deffn {Scheme Procedure} xorg-start-command @
[#:modules %default-xorg-modules] @
[#:fonts %default-xorg-fonts] @
[#:configuration-file (xorg-configuration-file @dots{})] @
......
......@@ -261,7 +261,6 @@ (define files
#t))))
(define* (xorg-wrapper #:key
(guile (canonical-package guile-2.0))
(modules %default-xorg-modules)
(configuration-file (xorg-configuration-file
#:modules modules))
......@@ -287,7 +286,6 @@ (define exp
(program-file "X-wrapper" exp))
(define* (xorg-start-command #:key
(guile (canonical-package guile-2.0))
(modules %default-xorg-modules)
(fonts %default-xorg-fonts)
(configuration-file
......@@ -300,8 +298,7 @@ (define* (xorg-start-command #:key
@code{xorg-wrapper} for more details on the arguments. The result should be
used in place of @code{startx}."
(define X
(xorg-wrapper #:guile guile
#:configuration-file configuration-file
(xorg-wrapper #:configuration-file configuration-file
#:modules modules
#:xorg-server xorg-server))
(define exp
......@@ -312,9 +309,7 @@ (define exp
(program-file "startx" exp))
(define* (xinitrc #:key
(guile (canonical-package guile-2.0))
fallback-session)
(define* (xinitrc #:key fallback-session)
"Return a system-wide xinitrc script that starts the specified X session,
which should be passed to this script as the first argument. If not, the
@var{fallback-session} will be used or, if @var{fallback-session} is false, a
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment