(service home-sway-service-type
         (sway-configuration
          (startup-programs
           `(,(with-extensions
               (list
                ((options->transformation
                  '((with-commit . "guile-g-golf=v0.8.0-rc9")))
                 guile-g-golf))
               #~(string-append
                  "guile "
                  #$(scheme-file "launcher.scm"
                     #~(begin
                         (eval-when (expand load eval)
                           (use-modules (oop goops))
                           (default-duplicate-binding-handler
                             '(merge-generics replace
                               warn-override-core warn last))
                           (setenv "GI_TYPELIB_PATH"
                                   #$(file-append
                                      (directory-union
                                       "typelibs"
                                       (list gdk-pixbuf
                                             graphene gtk harfbuzz
                                             pango))
                                      "/lib/girepository-1.0"))
                           (use-modules (g-golf))
                           (g-irepository-require
                            "Gtk" #:version "4.0")
                           (for-each (lambda (name)
                                       (gi-import-by-name "Gtk" name))
                                     '("Application"
                                       "ApplicationWindow"
                                       "Builder")))
                         (use-modules (sxml simple))
                         (define ui
                           '(interface
                             (requires (@ (version 4.0) (lib gtk)))