guix dxkb graft

(define dxkb (local-file "/home/alex/daselt/d-xkb/dxkb" "dxkb"))

(define xkeyboard-config-with-dxkb
        (package
         (inherit xkeyboard-config)
         (name "xkeyboard-config-with-dxkb")
         (arguments
          (list
           #:phases
           #~(modify-phases %standard-phases
                            (add-after 'install 'install-dxkb
                                       (lambda* (#:key outputs #:allow-other-keys)
                                                (let* ((out (assoc-ref outputs "out"))
                                                       (symbols-dir (string-append out "/share/X11/xkb/symbols/")))
                                                  (copy-file
                                                   ;; "/home/alex/daselt/d-xkb/dxkb"
                                                   #$dxkb
                                                   (string-append symbols-dir "dxkb"))))))))))

(define xkeyboard-config
        (package
         (inherit xkeyboard-config)
         (replacement xkeyboard-config-with-dxkb)))