bug#44621: closed ([PATCH] services: Add 'xorg-server-service-type'.)

[GNU bug Tracking System]

Your message dated Thu, 11 Feb 2021 17:31:46 +0800
with message-id 
<OSZP286MB0664F39B8F3940B09D4E9C77A38C9@OSZP286MB0664.JPNP286.PROD.OUTLOOK.COM>
and subject line Re: [bug#44621] [PATCH] services: Add 
'xorg-server-service-type'.
has caused the debbugs.gnu.org bug report #44621,
regarding [PATCH] services: Add 'xorg-server-service-type'.
to be marked as done.

(If you believe you have received this mail in error, please contact
help-debbugs@gnu.org.)


-- 
44621: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=44621
GNU Bug Tracking System
Contact help-debbugs@gnu.org with problems
> --- Begin Message ---
>
>
>
> Subject: 
>
> [PATCH] services: Add 'xorg-server-service-type'.
>
>
>
>
> Date: 
>
> Fri, 13 Nov 2020 22:00:33 +0800
>
>
>
>
> From: 宋文武 <iyzsong@member.fsf.org>
>
> * gnu/services/xorg.scm (xorg-server-service-type): New service type.
> (xorg-server-profile-service): New procedure.
> ---
>  gnu/services/xorg.scm | 36 ++++++++++++++++++++++++++++++++++++
>  1 file changed, 36 insertions(+)
>
> diff --git a/gnu/services/xorg.scm b/gnu/services/xorg.scm
> index 4590709187..33c3102514 100644
> --- a/gnu/services/xorg.scm
> +++ b/gnu/services/xorg.scm
> @@ -45,6 +45,7 @@
>    #:use-module (gnu packages admin)
>    #:use-module (gnu packages bash)
>    #:use-module (gnu system shadow)
> +  #:use-module (guix build-system trivial)
>    #:use-module (guix gexp)
>    #:use-module (guix store)
>    #:use-module (guix packages)
> @@ -70,6 +71,7 @@
>              xorg-wrapper
>              xorg-start-command
>              xinitrc
> +            xorg-server-service-type
>  
>              %default-slim-theme
>              %default-slim-theme-name
> @@ -483,6 +485,40 @@ a `service-extension', as used by 
> `set-xorg-configuration'."
>                        (xorg-configuration xorg-configuration))
>                       config)))))))
>  
> +(define (xorg-server-profile-service config)
> +  ;; XXX: profile-service-type only accepts <package> objects.
> +  (list
> +   (package
> +     (name "xorg-wrapper")
> +     (version (package-version xorg-server))
> +     (source (xorg-wrapper config))
> +     (build-system trivial-build-system)
> +     (arguments
> +      '(#:modules ((guix build utils))
> +        #:builder
> +        (begin
> +          (use-modules (guix build utils))
> +          (let* ((source (assoc-ref %build-inputs "source"))
> +                 (out (assoc-ref %outputs "out"))
> +                 (bin (string-append out "/bin")))
> +            (mkdir-p bin)
> +            (symlink source (string-append bin "/X"))
> +            #t))))
> +     (home-page (package-home-page xorg-server))
> +     (synopsis (package-synopsis xorg-server))
> +     (description (package-description xorg-server))
> +     (license (package-license xorg-server)))))
> +
> +(define xorg-server-service-type
> +  (service-type
> +   (name 'xorg-server)
> +   (extensions
> +    (list (service-extension profile-service-type
> +                             xorg-server-profile-service)))
> +   (default-value (xorg-configuration))
> +   (description "Add @command{X} to the system profile, to be used with
> +@command{startx}.")))
> +
>  
>  ;;;
>  ;;; SLiM log-in manager.
> -- 
> 2.29.1
>
>
>
>
> --- End Message ---
> --- Begin Message ---
>
>
>
> Subject: 
>
> Re: [bug#44621] [PATCH] services: Add 'xorg-server-service-type'.
>
>
>
>
> Date: 
>
> Thu, 11 Feb 2021 17:31:46 +0800
>
>
>
>
> User-agent: 
>
> Gnus/5.13 (Gnus v5.13) Emacs/27.1 (gnu/linux)
>
>
>
>
> Pushed, close now.
>
>
> --- End Message ---