Re: how to add hwdb of keyboard

[Ricardo Wurmus]

Stefan Huchler <stefan.huchler@mail.de> writes:

>>> I forked now the eudev definition to add my hwdb data:
>>>
>>> (add-before 'build-hwdb 'add-my-hwdb-file
>>>                  (lambda* (#:key outputs #:allow-other-keys)
>>>                    (let ((out (assoc-ref outputs "out")))
>>>                      (call-with-output-file
>>>                          (string-append out 
>>> "/etc/udev/hwdb.d/90-X220-keyboard.hwdb")
>>>                        (lambda (port)
>>>                          (display
>>>                           
>>> "keyboard:dmi:bvn*:bvr*:bd*:svnLENOVO*:pn*:pvrThinkPadX220*\n" port)
>>>                          (display "KEYBOARD_KEY_7b=compose\n" port)
>>>                          (display "KEYBOARD_KEY_39=enter\n" port)
>>>                          (display "KEYBOARD_KEY_79=space\n" port)
>>>                          (display "KEYBOARD_KEY_70=tab\n" port)
>>>                          (display "KEYBOARD_KEY_0f=backspace\n" port)
>>>                          (display "KEYBOARD_KEY_3a=home\n" port)
>>>                          (display "KEYBOARD_KEY_1c=end\n" port)
>>>                          (display "KEYBOARD_KEY_0e=backspace\n" port)
>>>                          (display "KEYBOARD_KEY_7d=backspace\n"
>>>                  port))))))
>>>
>>> Is there a way to make guix system priotise my modified eudev over the
>>> upstream one?
>>
>> No, you would need to rebuild with your eudev as a replacement.  
>
>
> When I try to do that:
>
> (define udev-service-type
>   (service-type (name 'udev)
>                 (extensions
>                  (list (service-extension shepherd-root-service-type
>                                           udev-shepherd-service)))
>                 (compose concatenate)       ;concatenate the list of rules
>                 (extend (lambda (config rules)
>                           (match config
>                             (($ <udev-configuration> udev initial-rules)
>                              (udev-configuration
>                               (udev my-eudev)   ;the udev package to use
>                               (rules initial-rules))))))))

Why not use modify-services?  All you want to do is change the
configuration of an existing service, no?

-- 
Ricardo