Disable ugly pc-speaker sound in Slim auth failure

Disable ugly pc-speaker sound in Slim auth failure

[znavko]

[-- Attachment #1: Type: text/plain, Size: 1531 bytes --]

Hello! Please, what should I use in config.scm for disable pc-speaker sound while authorize in Slim and have an error in password?


$ cat /etc/config.scm
...
(services (cons* 
...
 (modify-services %desktop-services

                                (slim-service-type config =>
                                              (slim-configuration
                                               (inherit config)
                                               (startx
                                                (xorg-start-command
                                                 #:configuration-file
                                                 (xorg-configuration-file
                                                  #:extra-config
                                                  '(
"Section \"InputClass\"
        Identifier \"touchpad\"
        Driver \"libinput\"
        MatchIsTouchpad \"on\"
        Option \"Tapping\" \"on\"
EndSection"
                                 ))))))
)  ;end of modify-services 2nd
...
)

[-- Attachment #2: Type: text/html, Size: 4026 bytes --]

Re: Disable ugly pc-speaker sound in Slim auth failure

[znavko]

[-- Attachment #1: Type: text/plain, Size: 5194 bytes --]

Hi! According to Guix Manual 6.2.11 Initial RAM Disk and Guile Manual 6.6.9.6 List Modification
I added this to config.scm:

(use modules
...
             (gnu system linux-initrd) 
             (gnu packages linux))

(operating-system 
...
  (initrd 
          (base-initrd file-systems
          #:linux-modules '(delq (pcspkr %base-initrd-modules))))
)

But the error occurs:

# guix system reconfigure /etc/config.scm
Backtrace:
          12 (primitive-load "/root/.config/guix/current/bin/guix")
In guix/ui.scm:
  1654:12 11 (run-guix-command _ . _)
In ice-9/boot-9.scm:
    829:9 10 (catch _ _ #<procedure 7f2b8c6409b8 at guix/ui.scm:624…> …)
    829:9  9 (catch _ _ #<procedure 7f2b8c6409d0 at guix/ui.scm:750…> …)
In guix/scripts/system.scm:
   1292:8  8 (_)
In guix/status.scm:
    810:4  7 (call-with-status-report _ _)
In guix/scripts/system.scm:
   1153:6  6 (process-action _ _ _)
In guix/store.scm:
  1737:24  5 (run-with-store _ _ #:guile-for-build _ #:system _ # _)
In guix/scripts/system.scm:
  1166:13  4 (_ _)
    850:9  3 (perform-action reconfigure #<<operating-system> kerne…> …)
In gnu/system.scm:
   950:26  2 (operating-system-bootcfg #<<operating-system> kernel:…> …)
   967:26  1 (operating-system-boot-parameters #<<operating-system>…> …)
In unknown file:
           0 (_ (#<<file-system> device: "/dev/sda1" mount-point: …>) …)

ERROR: Wrong type to apply: #<file-append #<<computed-file> name: "raw-initrd" gexp: #<gexp (begin (use-modules (gnu build linux-initrd)) (mkdir #<gexp-output out>) (call-with-output-file (string-append #<gexp-output out> "/references") (lambda (port) (simple-format port "~A\n" #<gexp-input #<package guile-static-stripped@2.2.4 gnu/packages/make-bootstrap.scm:579 3720180>:out>))) (build-initrd (string-append #<gexp-output out> "/initrd.cpio.gz") #:guile #<gexp-input #<package guile-static-stripped@2.2.4 gnu/packages/make-bootstrap.scm:579 3720180>:out> #:init #<gexp-input #<<program-file> name: "init" gexp: #<gexp  403c0c0> guile: #<package guile-static-stripped@2.2.4 gnu/packages/make-bootstrap.scm:579 3720180> path: ("/gnu/store/1vyq5wcgwzk0vgd9kc8qgp1f5x0b3pki-guix-module-union/share/guile/site/2.2" "/run/current-system/profile/share/guile/site/2.2" "/gnu/store/r658y3cgpnf99nxjxqgjiaizx20ac4k0-guile-2.2.4/share/guile/2.2" "/gnu/store/r658y3cgpnf99nxjxqgjiaizx20ac4k0-guile-2.2.4/share/guile/site/2.2" "/gnu/store/r658y3cgpnf99nxjxqgjiaizx20ac4k0-guile-2.2.4/share/guile/site" "/gnu/store/r658y3cgpnf99nxjxqgjiaizx20ac4k0-guile-2.2.4/share/guile")>:out> #:references-graphs (quote ("closure")) #:gzip (string-append #<gexp-input #<package gzip@1.9 gnu/packages/compression.scm:198 3706c00>:out> "/bin/gzip"))) 403da50> guile: #f options: (#:references-graphs (("closure" #<<program-file> name: "init" gexp: #<gexp  403c0c0> guile: #<package guile-static-stripped@2.2.4 gnu/packages/make-bootstrap.scm:579 3720180> path: ("/gnu/store/1vyq5wcgwzk0vgd9kc8qgp1f5x0b3pki-guix-module-union/share/guile/site/2.2" "/run/current-system/profile/share/guile/site/2.2" "/gnu/store/r658y3cgpnf99nxjxqgjiaizx20ac4k0-guile-2.2.4/share/guile/2.2" "/gnu/store/r658y3cgpnf99nxjxqgjiaizx20ac4k0-guile-2.2.4/share/guile/site/2.2" "/gnu/store/r658y3cgpnf99nxjxqgjiaizx20ac4k0-guile-2.2.4/share/guile/site" "/gnu/store/r658y3cgpnf99nxjxqgjiaizx20ac4k0-guile-2.2.4/share/guile")>)))> "/initrd.cpio.gz">

Let me know what to correct??



Mar 14, 2019, 4:00 AM by znavko@tutanota.com:

> Hello! Please, what should I use in config.scm for disable pc-speaker sound while authorize in Slim and have an error in password?
>
>
> $ cat /etc/config.scm
> ...
> (services (cons* 
> ...
>  (modify-services %desktop-services
>
>                                 (slim-service-type config =>
>                                               (slim-configuration
>                                                (inherit config)
>                                                (startx
>                                                 (xorg-start-command
>                                                  #:configuration-file
>                                                  (xorg-configuration-file
>                                                   #:extra-config
>                                                   '(
> "Section \"InputClass\"
>         Identifier \"touchpad\"
>         Driver \"libinput\"
>         MatchIsTouchpad \"on\"
>         Option \"Tapping\" \"on\"
> EndSection"
>                                  ))))))
> )  ;end of modify-services 2nd
> ...
> )
>


[-- Attachment #2: Type: text/html, Size: 10059 bytes --]

Re: Disable ugly pc-speaker sound in Slim auth failure

[znavko]

[-- Attachment #1: Type: text/plain, Size: 1951 bytes --]

I've found this example: https://github.com/alezost/guix-config/blob/master/system-config/os-main.scm <https://github.com/alezost/guix-config/blob/master/system-config/os-main.scm>

and have typed this for disable pc speaker:


(define %redundant-linux-modules '("pcspkr" "snd_pcsp"))

(operating system
...
 (kernel-arguments
     (list (string-append "modprobe.blacklist="
                          (apply comma-separated
    %redundant-linux-modules)))))


# guix system reconfigure /etc/config.scm
/etc/config.scm:97:26: error: comma-separated: unbound variable
hint: Did you forget a `use-modules' form?

I've downloaded Guix git and found this word but no anywhere declaration of comma-separated function:

$ git clone https://git.savannah.gnu.org/git/guix.git/ <https://git.savannah.gnu.org/git/guix.git/>
$ grep -rl comma-sep .
./etc/completion/fish/guix.fish
./tests/cran.scm
./tests/ui.scm
./doc/guix.texi
./doc/guix.fr.texi
./doc/guix.de.texi
./po/packages/da.po
./po/packages/de.po
./po/packages/es.po
./po/packages/zh_CN.po
./po/packages/fr.po
./po/packages/pl.po
./po/packages/hu.po
./po/doc/guix-manual.fr.po
./po/doc/guix-manual.pot
./po/doc/guix-manual.de.po
./po/guix/pt_BR.po
./po/guix/da.po
./po/guix/sv.po
./po/guix/de.po
./po/guix/es.po
./po/guix/zh_CN.po
./po/guix/fr.po
./po/guix/pl.po
./gnu/packages/music.scm
./gnu/packages/bootstrap/x86_64-linux/xz
./gnu/packages/bootstrap/aarch64-linux/xz
./gnu/packages/bootstrap/mips64el-linux/xz
./gnu/packages/bootstrap/i686-linux/xz
./gnu/packages/bootstrap/armhf-linux/xz
./gnu/packages/perl.scm
./gnu/packages/textutils.scm
./gnu/services/mail.scm
./gnu/services/kerberos.scm
./gnu/build/accounts.scm
./guix/scripts/gc.scm
./guix/ui.scm
./guix/import/cran.scm


How to tell guix how to use comma-separated function??
Mentioned github page has no any use-modules string that can help.

[-- Attachment #2: Type: text/html, Size: 3335 bytes --]

Re: Disable ugly pc-speaker sound in Slim auth failure

[Tobias Geerinckx-Rice]

Zvavko,

znavko wrote:
> # guix system reconfigure /etc/config.scm
> /etc/config.scm:97:26: error: comma-separated: unbound variable
> hint: Did you forget a `use-modules' form?

[…]

> Mentioned github page has no any use-modules string that can 
> help.

Look again.  From system-config/os-main.scm:

   (al utils)

And indeed, guile/modules/al/utils.scm has:

  (define (comma-separated . strings)
    "Return string by concatenating STRINGS with commas."
    (mapconcat identity strings ","))

You can copy the definition to your own configuration, or just 
replace it with the (trivial) MAPCONCAT call directly, or just use 
a comma-separated string to begin with.

Kind regards,

T G-R

Re: Disable ugly pc-speaker sound in Slim auth failure

[znavko]

[-- Attachment #1: Type: text/plain, Size: 1315 bytes --]

Thank you! But I've found another config without this complexity.

Using ddg.gg: guix config pcspkr
I've found  https://gitlab.com/pkill-9/guix-config/blob/master/system-config.scm#L123

(operating-system
...
  (kernel-arguments '("modprobe.blacklist=pcspkr"))
)

And compiled. Guix has built qemu and grub.
 But pc speaker sound rests there. And also after start Xfce some pc speaker noises occurs. So I do not know.
Do you think this config line is incorrect?



Mar 16, 2019, 4:00 PM by somebody@not-sent-or-endorsed-by.tobias.gr:

> Zvavko,
>
> znavko wrote:
>
>> # guix system reconfigure /etc/config.scm
>> /etc/config.scm:97:26: error: comma-separated: unbound variable
>> hint: Did you forget a `use-modules' form?
>>
>
> […]
>
>> Mentioned github page has no any use-modules string that can help.
>>
>
> Look again.  From system-config/os-main.scm:
>
>  (al utils)
>
> And indeed, guile/modules/al/utils.scm has:
>
>  (define (comma-separated . strings)
>  "Return string by concatenating STRINGS with commas."
>  (mapconcat identity strings ","))
>
> You can copy the definition to your own configuration, or just replace it with the (trivial) MAPCONCAT call directly, or just use a comma-separated string to begin with.
>
> Kind regards,
>
> T G-R
>


[-- Attachment #2: Type: text/html, Size: 3417 bytes --]

Re: Disable ugly pc-speaker sound in Slim auth failure

[znavko]

[-- Attachment #1: Type: text/plain, Size: 1789 bytes --]

You know, Tobias! Just for experiment I've add (al utils) and guix cuss out:

(use-modules (gnu) (gnu system nss)
             (gnu system locale) ;;for locale-definition
             (gnu services desktop)
             ;;(gnu services dns) ;;for dnsmasq
             (srfi srfi-1) ;;for remove function
             (gnu services networking) ;;for remove ntp
             (gnu services avahi) ;;for remove avahi
             (gnu services xorg)
             ;;(gnu services databases);;for postgres
             (gnu packages admin) ;;for wpa_supplicant
             (al utils)
)
# guix system reconfigure /etc/config.scm
guix system: error: failed to load '/etc/config.scm':
ice-9/boot-9.scm:2803:6: In procedure resolve-interface:
no code for module (al utils)


What is wrong here? How to use guile modules?


Mar 16, 2019, 4:00 PM by somebody@not-sent-or-endorsed-by.tobias.gr:

> Zvavko,
>
> znavko wrote:
>
>> # guix system reconfigure /etc/config.scm
>> /etc/config.scm:97:26: error: comma-separated: unbound variable
>> hint: Did you forget a `use-modules' form?
>>
>
> […]
>
>> Mentioned github page has no any use-modules string that can help.
>>
>
> Look again.  From system-config/os-main.scm:
>
>  (al utils)
>
> And indeed, guile/modules/al/utils.scm has:
>
>  (define (comma-separated . strings)
>  "Return string by concatenating STRINGS with commas."
>  (mapconcat identity strings ","))
>
> You can copy the definition to your own configuration, or just replace it with the (trivial) MAPCONCAT call directly, or just use a comma-separated string to begin with.
>
> Kind regards,
>
> T G-R
>


[-- Attachment #2: Type: text/html, Size: 4083 bytes --]

Re: Disable ugly pc-speaker sound in Slim auth failure

[znavko]

[-- Attachment #1: Type: text/plain, Size: 2929 bytes --]

Successfully solved with this code in /etc/config.scm:

(operating-system
...
  (kernel-arguments '("modprobe.blacklist=pcspkr,snd_pcsp"))
)

# guix system reconfigure /etc/config.scm
# reboot

PC speaker no longer beeps. Thank you!
I think it's a luck, cause from here 
https://github.com/alezost/guix-config/blob/469db8060235cc6bb7501cfb798f29ede3cc21e6/system-config/os-main.scm#L29 <https://github.com/alezost/guix-config/blob/469db8060235cc6bb7501cfb798f29ede3cc21e6/system-config/os-main.scm#L29>
I've got names of kernel modules, so that not only pcspkr, but also snd_pcsp needs to disable
and from here
https://gitlab.com/pkill-9/guix-config/blob/master/system-config.scm#L123 <https://gitlab.com/pkill-9/guix-config/blob/master/system-config.scm#L123>
I've got that simple line that not breaks my config.scm syntax.
Still do not know why guix does not find `(use modules  (al utils))` module and how to get guile modules work.


Mar 16, 2019, 4:46 PM by znavko@tutanota.com:

> You know, Tobias! Just for experiment I've add (al utils) and guix cuss out:
>
> (use-modules (gnu) (gnu system nss)
>              (gnu system locale) ;;for locale-definition
>              (gnu services desktop)
>              ;;(gnu services dns) ;;for dnsmasq
>              (srfi srfi-1) ;;for remove function
>              (gnu services networking) ;;for remove ntp
>              (gnu services avahi) ;;for remove avahi
>              (gnu services xorg)
>              ;;(gnu services databases);;for postgres
>              (gnu packages admin) ;;for wpa_supplicant
>              (al utils)
> )
>
> # guix system reconfigure /etc/config.scm
> guix system: error: failed to load '/etc/config.scm':
> ice-9/boot-9.scm:2803:6: In procedure resolve-interface:
> no code for module (al utils)
>
> What is wrong here? How to use guile modules?
>
>
> Mar 16, 2019, 4:00 PM by > somebody@not-sent-or-endorsed-by.tobias.gr <mailto:somebody@not-sent-or-endorsed-by.tobias.gr>> :
>
>> Zvavko,
>>
>> znavko wrote:
>>
>>> # guix system reconfigure /etc/config.scm
>>> /etc/config.scm:97:26: error: comma-separated: unbound variable
>>> hint: Did you forget a `use-modules' form?
>>>
>>
>> […]
>>
>>> Mentioned github page has no any use-modules string that can help.
>>>
>>
>> Look again.  From system-config/os-main.scm:
>>
>> (al utils)
>>
>> And indeed, guile/modules/al/utils.scm has:
>>
>> (define (comma-separated . strings)
>> "Return string by concatenating STRINGS with commas."
>> (mapconcat identity strings ","))
>>
>> You can copy the definition to your own configuration, or just replace it with the (trivial) MAPCONCAT call directly, or just use a comma-separated string to begin with.
>>
>> Kind regards,
>>
>> T G-R
>>
>
>


[-- Attachment #2: Type: text/html, Size: 6364 bytes --]

Re: Disable ugly pc-speaker sound in Slim auth failure

[swedebugia]

znavko@tutanota.com skrev: (17 mars 2019 08:31:30 CET)
>Successfully solved with this code in /etc/config.scm:
>
>(operating-system
>...
>  (kernel-arguments '("modprobe.blacklist=pcspkr,snd_pcsp"))
>)
>
># guix system reconfigure /etc/config.scm
># reboot
>
>PC speaker no longer beeps. Thank you!

Great 😃


>Still do not know why guix does not find `(use modules  (al utils))`
>module and how to get guile modules work.

Tobias advised you to copy the procedure into your config.scm, not import the module of Alex.
Modules can be a little tricky to get right, read the details and examples in the guile manual.

>
>
>Mar 16, 2019, 4:46 PM by znavko@tutanota.com:
>
>> You know, Tobias! Just for experiment I've add (al utils) and guix
>cuss out:
>>
>> (use-modules (gnu) (gnu system nss)
>>              (gnu system locale) ;;for locale-definition
>>              (gnu services desktop)
>>              ;;(gnu services dns) ;;for dnsmasq
>>              (srfi srfi-1) ;;for remove function
>>              (gnu services networking) ;;for remove ntp
>>              (gnu services avahi) ;;for remove avahi
>>              (gnu services xorg)
>>              ;;(gnu services databases);;for postgres
>>              (gnu packages admin) ;;for wpa_supplicant
>>              (al utils)
>> )
>>
>> # guix system reconfigure /etc/config.scm
>> guix system: error: failed to load '/etc/config.scm':
>> ice-9/boot-9.scm:2803:6: In procedure resolve-interface:
>> no code for module (al utils)
>>
>> What is wrong here? How to use guile modules?
>>
>>
>> Mar 16, 2019, 4:00 PM by > somebody@not-sent-or-endorsed-by.tobias.gr
><mailto:somebody@not-sent-or-endorsed-by.tobias.gr>> :
>>
>>> Zvavko,
>>>
>>> znavko wrote:
>>>
>>>> # guix system reconfigure /etc/config.scm
>>>> /etc/config.scm:97:26: error: comma-separated: unbound variable
>>>> hint: Did you forget a `use-modules' form?
>>>>
>>>
>>> […]
>>>
>>>> Mentioned github page has no any use-modules string that can help.
>>>>
>>>
>>> Look again.  From system-config/os-main.scm:
>>>
>>> (al utils)
>>>
>>> And indeed, guile/modules/al/utils.scm has:
>>>
>>> (define (comma-separated . strings)
>>> "Return string by concatenating STRINGS with commas."
>>> (mapconcat identity strings ","))
>>>
>>> You can copy the definition to your own configuration, or just
>replace it with the (trivial) MAPCONCAT call directly, or just use a
>comma-separated string to begin with.
>>>
>>> Kind regards,
>>>
>>> T G-R
>>>
>>
>>


-- 
Sent from my k-9 mail for Android.

Re: Disable ugly pc-speaker sound in Slim auth failure

[Tobias Geerinckx-Rice]

Znavko,

I'm glad you found a working solution in my sleep!  I wish I could 
do that.

znavko wrote:
> I've got names of kernel modules, so that not only pcspkr, but 
> also
> snd_pcsp needs to disable

Yep, I've always disabled them in tandem rather than figure out 
the exact difference.

> that simple line that not breaks my config.scm syntax.
> Still do not know why guix does not find `(use modules  (al 
> utils))`
> module and how to get guile modules work.

Your config wasn't broken, you just called an undefined procedure, 
and Guix can't know where to find a module if you don't.  The code 
for (al utils) was in guile/modules/al/utils.scm.

Alex's configuration is actually a great example of writing and 
using your own modules.  It's also pretty complex, and not the 
best candidate for selective copy-pasting.

Kind regards,

T G-R

Re: Disable ugly pc-speaker sound in Slim auth failure

[Tobias Geerinckx-Rice]

Tobias Geerinckx-Rice wrote:
> Your config wasn't broken
             ^
           syntax