how to add hwdb of keyboard

how to add hwdb of keyboard

[Stefan Huchler]

I use a custom keyboard layout on one of my laptops:

https://github.com/spiderbit/emacs-ergo-thinkpad-kb-layout

I use a hwdb which has the advantage that it works on tty and x11 and
that it's keyboard specific so if I connect a external keyboard it does
not swap keys on it.

I would be ok with giving up the keyboard specific part, I could live
with X11 only for a start, but I would like to have it in the config.scm
file configured and not only in some home based modifications.

Any idea how to do that best in guix, patching a custom my-modified-dvorak
keyboard-layout into the xkeyboard-config package maybe?

Re: how to add hwdb of keyboard

[Stefan Huchler]

I build a package for it:

(define-module (x220-hwdb)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (gnu packages compression)
  #:use-module (guix build-system copy)
  #:use-module (guix licenses))

(define-public x220-hwdb
  (package
   (name "x220-hwdb")
   (version "1.0")
   (source (origin
	    (method url-fetch)
	    (uri "https://github.com/spiderbit/emacs-ergo-thinkpad-kb-layout/archive/master.zip")
	    (sha256
	     (base32
	      "0rx791b7mq5visa9ckyf7py4lz5ml51hn4mzz4rmlpnlrcds4x8v"))))
   (build-system copy-build-system)
   (inputs `(("unzip" ,unzip)))
   (synopsis "Bla")
   (description "Bla bla bla")
   (home-page "https://www.gnu.org/blablabla")
   (license gpl3+)))

and tried to link it to the expected location:

(service special-files-service-type
		  `(("/etc/udev/hwdb.d/90-X220-keyboard.hwdb"
		     ,(file-append x220-hwdb "90-X220-keyboard.hwdb"))))

the problem is that the hwdb is compiled but read only, so the file must
basically be there before the eudev package builds this db.

Is there a better way doing this?

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

> I use a custom keyboard layout on one of my laptops:
>
> https://github.com/spiderbit/emacs-ergo-thinkpad-kb-layout
>
> I use a hwdb which has the advantage that it works on tty and x11 and
> that it's keyboard specific so if I connect a external keyboard it does
> not swap keys on it.
>
> I would be ok with giving up the keyboard specific part, I could live
> with X11 only for a start, but I would like to have it in the config.scm
> file configured and not only in some home based modifications.
>
> Any idea how to do that best in guix, patching a custom my-modified-dvorak
> keyboard-layout into the xkeyboard-config package maybe?

Re: how to add hwdb of keyboard

[Stefan Huchler]

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?


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

> I build a package for it:
>
> (define-module (x220-hwdb)
>   #:use-module (guix packages)
>   #:use-module (guix download)
>   #:use-module (gnu packages compression)
>   #:use-module (guix build-system copy)
>   #:use-module (guix licenses))
>
> (define-public x220-hwdb
>   (package
>    (name "x220-hwdb")
>    (version "1.0")
>    (source (origin
> 	    (method url-fetch)
> 	    (uri "https://github.com/spiderbit/emacs-ergo-thinkpad-kb-layout/archive/master.zip")
> 	    (sha256
> 	     (base32
> 	      "0rx791b7mq5visa9ckyf7py4lz5ml51hn4mzz4rmlpnlrcds4x8v"))))
>    (build-system copy-build-system)
>    (inputs `(("unzip" ,unzip)))
>    (synopsis "Bla")
>    (description "Bla bla bla")
>    (home-page "https://www.gnu.org/blablabla")
>    (license gpl3+)))
>
> and tried to link it to the expected location:
>
> (service special-files-service-type
> 		  `(("/etc/udev/hwdb.d/90-X220-keyboard.hwdb"
> 		     ,(file-append x220-hwdb "90-X220-keyboard.hwdb"))))
>
> the problem is that the hwdb is compiled but read only, so the file must
> basically be there before the eudev package builds this db.
>
> Is there a better way doing this?
>
> Stefan Huchler <stefan.huchler@mail.de> writes:
>
>> I use a custom keyboard layout on one of my laptops:
>>
>> https://github.com/spiderbit/emacs-ergo-thinkpad-kb-layout
>>
>> I use a hwdb which has the advantage that it works on tty and x11 and
>> that it's keyboard specific so if I connect a external keyboard it does
>> not swap keys on it.
>>
>> I would be ok with giving up the keyboard specific part, I could live
>> with X11 only for a start, but I would like to have it in the config.scm
>> file configured and not only in some home based modifications.
>>
>> Any idea how to do that best in guix, patching a custom my-modified-dvorak
>> keyboard-layout into the xkeyboard-config package maybe?

Re: how to add hwdb of keyboard

[Ricardo Wurmus]

Hi Stefan,

it took me a while to reply to your original message, because I didn’t
know what hwdb was supposed to mean.  The code snippet in this mail made
it clearer to me.

> 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.  But
let’s take a step back: is it possible to provide this hwdb with the
udev-service?  If not, perhaps we should augment the udev-service to not
only accept udev rules, but also custom hwdb files.

-- 
Ricardo

Re: how to add hwdb of keyboard

[Stefan Huchler]

Hello Ricardo,

doesn't guix system not use eudev, in base.scm I see under
udev-configuration under package udev-configuration-udev (default eudev)

I think that file is very specific and if you have custom rule files why
not custom hwdb files. The problem is that this more a flavor, I use a
japanese keyboard layout and use the many thumbkeys in a "ergonomic"
way. So space as enter and the enter button as end, that is not what
everybody would want with such hardware.

So again in short, yes I think if you can add custom rule files I think
you should also be able to add custom hwdb files.


Ricardo Wurmus <rekado@elephly.net> writes:

> Hi Stefan,
>
> it took me a while to reply to your original message, because I didn’t
> know what hwdb was supposed to mean.  The code snippet in this mail made
> it clearer to me.
>
>> 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.  But
> let’s take a step back: is it possible to provide this hwdb with the
> udev-service?  If not, perhaps we should augment the udev-service to not
> only accept udev rules, but also custom hwdb files.

Re: how to add hwdb of keyboard

[Stefan Huchler]

>> 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))))))))

I get the message:
hint: Did you forget `(use-modules (gnu services base))'?

Even I have the use-module of that in there:
(use-modules (nongnu packages linux)
             (nongnu system linux-initrd)
	     (gnu services base)
	     (gnu system linux-initrd)
	     (gnu services shepherd)
	     (eudev)
	     (gnu))

Another annoying thing is that I have to use the -I parameter from guix:
guix system reconfigure /etc/config.scm -L guix-packages/

I set that to .bashrc:

export GUIX_PACKAGE_PATH="~/guix-packages"

Why do I have to use the -L parameter when I already have defined that
path?

Any ideas?

Re: how to add hwdb of keyboard

[Ricardo Wurmus]

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

> Another annoying thing is that I have to use the -I parameter from guix:
> guix system reconfigure /etc/config.scm -L guix-packages/
>
> I set that to .bashrc:
>
> export GUIX_PACKAGE_PATH="~/guix-packages"
>
> Why do I have to use the -L parameter when I already have defined that
> path?

You should not have to.  I assume ~/guix-packages is a set of custom
modules.  GUIX_PACKAGE_PATH affects all of Guix.  But it won’t be
available when you use “sudo” unless you tell “sudo” to keep the
currently set environment (e.g. with “sudo -E”).

“guix system reconfigure” must run with root permissions.

-- 
Ricardo

Re: how to add hwdb of keyboard

[Stefan Huchler]

I don't use sudo I loged in as root and the path is set the bashrc is loaded.

Ricardo Wurmus <rekado@elephly.net> writes:

> Stefan Huchler <stefan.huchler@mail.de> writes:
>
>> Another annoying thing is that I have to use the -I parameter from guix:
>> guix system reconfigure /etc/config.scm -L guix-packages/
>>
>> I set that to .bashrc:
>>
>> export GUIX_PACKAGE_PATH="~/guix-packages"
>>
>> Why do I have to use the -L parameter when I already have defined that
>> path?
>
> You should not have to.  I assume ~/guix-packages is a set of custom
> modules.  GUIX_PACKAGE_PATH affects all of Guix.  But it won’t be
> available when you use “sudo” unless you tell “sudo” to keep the
> currently set environment (e.g. with “sudo -E”).
>
> “guix system reconfigure” must run with root permissions.

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

Re: how to add hwdb of keyboard

[Stefan Huchler]

Because I am a Guix Noob, that's my first attempt to modify some guix
stuff and also while I am good with elisp I am not experienced with
Guile, but yes mostly it's about me beeing a guix noob, also that would
enable me to have a notebook with a good guix environment, have not even
really good access to the emacs guix tools which makes development even
more difficult.

That seemed the best quick / dirty way, that I have to update my eudev
package each update upstream and that that sucks I know and such
solution would then the next step, but if you can give me the code for
it I would be very happy :)

Ricardo Wurmus <rekado@elephly.net> writes:

> 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?