From mboxrd@z Thu Jan 1 00:00:00 1970 From: Subject: Re: Disable ugly pc-speaker sound in Slim auth failure Date: Sun, 17 Mar 2019 08:31:30 +0100 (CET) Message-ID: References: <87zhpuajwx.fsf@nckx> Mime-Version: 1.0 Content-Type: multipart/alternative; boundary="----=_Part_69148_468689929.1552807891546" Return-path: Received: from eggs.gnu.org ([209.51.188.92]:40249) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1h5QSX-0000cF-G9 for help-guix@gnu.org; Sun, 17 Mar 2019 03:43:54 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1h5QGd-0001IK-17 for help-guix@gnu.org; Sun, 17 Mar 2019 03:31:36 -0400 Received: from w1.tutanota.de ([81.3.6.162]:28718) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1h5QGc-0001HY-4T for help-guix@gnu.org; Sun, 17 Mar 2019 03:31:34 -0400 In-Reply-To: List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-guix-bounces+gcggh-help-guix=m.gmane.org@gnu.org Sender: "Help-Guix" To: Znavko Cc: Tobias Geerinckx-Rice , Help Guix ------=_Part_69148_468689929.1552807891546 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: quoted-printable Successfully solved with this code in /etc/config.scm: (operating-system ... =C2=A0 (kernel-arguments '("modprobe.blacklist=3Dpcspkr,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=20 https://github.com/alezost/guix-config/blob/469db8060235cc6bb7501cfb798f29e= de3cc21e6/system-config/os-main.scm#L29 I've got names of kernel modules, so that not only pcspkr, but also snd_pcs= p 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 o= ut: > > (use-modules (gnu) (gnu system nss) > =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 = (gnu system locale) ;;for locale-definition > =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 = (gnu services desktop) > =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 = ;;(gnu services dns) ;;for dnsmasq > =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 = (srfi srfi-1) ;;for remove function > =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 = (gnu services networking) ;;for remove ntp > =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 = (gnu services avahi) ;;for remove avahi > =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 = (gnu services xorg) > =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 = ;;(gnu services databases);;for postgres > =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 = (gnu packages admin) ;;for wpa_supplicant > =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 = (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? >>> >> >> [=E2=80=A6] >> >>> 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 i= t with the (trivial) MAPCONCAT call directly, or just use a comma-separated= string to begin with. >> >> Kind regards, >> >> T G-R >> > > ------=_Part_69148_468689929.1552807891546 Content-Type: text/html; charset=UTF-8 Content-Transfer-Encoding: quoted-printable
Successfully solved with this code = in /etc/config.scm:

(operating-system
...
  (kernel-arguments '("modprobe.blacklist=3Dpcspkr,snd_p= csp"))
)

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

PC speaker no lo= nger beeps. Thank you!
I think it's a luck, cause from here
I've got names of kernel modules, so that not only pcspkr, but al= so snd_pcsp needs to disable
and from here
I've got that simpl= e 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 P= M by znavko@tutanota.com:
You know, Tobias! Just for experiment I've add (al ut= ils) and guix cuss out:

(use-modules (gnu) (gnu s= ystem nss)
  &nb= sp;          (gnu system local= e) ;;for locale-definition
             (= gnu services desktop)
&nbs= p;            ;;(gnu= services dns) ;;for dnsmasq
            = (srfi srfi-1) ;;for remove function
          &nbs= p;  (gnu services networking) ;;for remove ntp
        &= nbsp;    (gnu services avahi) ;;for remove avahi
      &= nbsp;      (gnu services xorg)
       &nb= sp;     ;;(gnu services databases);;for postgres
     &n= bsp;       (gnu packages admin) ;;for wpa_sup= plicant
   =           (al utils)
=
)

# g= uix system reconfigure /etc/config.scm
guix system: error: failed to load '/etc/config.scm':
ice-9/boot-9.scm:2803:6: In proced= ure resolve-interface:
no = code for module (al utils)

What is wrong here? How to use guile modules?


Zvavko,

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

[=E2=80=A6]
Mentioned github page has no any use-modules string that can h= elp.

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

<= /div>
(al utils)

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

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

You can cop= y the definition to your own configuration, or just replace it with the (tr= ivial) MAPCONCAT call directly, or just use a comma-separated string to beg= in with.

Kind re= gards,

T G-R
=


------=_Part_69148_468689929.1552807891546--