bug#34799: font breakage, square boxes, font-terminus

2019-03-16 Thread Bradley Haggerty
Tobias Geerinckx-Rice wrote:
>  $ guix pull
>  $ guix package -i font-terminus:pcf-8bit
>  $ fc-cache -fr
>
>verify that the above command worked:
>
>   $ fc-list | grep ter-116b
>  …are/fonts/terminus/ter-116b.pcf.gz: Terminus:style=Bold
>
>and see if your font situation improves?

It all looks good now! Thanks for the fix.

Here is the output showing that the font is installed properly:
brad@kazuki:~/ > fc-list | grep ter-116b
/home/brad/.guix-profile/share/fonts/terminus/ter-116b.pcf.gz:
Terminus:style=Bold

So now will I be all set or will there be another packaging change to look
out for now?


bug#34884: guix describe fails with --format=json and --format=recutils

2019-03-16 Thread Oleg Pykhalov
Hello Pierre,

Good catch!  I prepared a patch in the attachement bellow to fix this.

Also the patch changes behavior of '--format=channels' for
'GUIX_PACKAGE_PATH' warning.  It will print to STDERR instead of STDOUT.

Pierre Neidhardt  writes:

>> guix describe --format=json
> [{"name":"guix","url":"https://git.savannah.gnu.org/git/guix.git","commit":"77f3d3036406b1d1ceaeba8017ae5f597f2a0fb4"}]
> Backtrace:
>4 (primitive-load "/home/ambrevar/.config/guix/current/bin/guix")
> In guix/ui.scm:
>   1654:12  3 (run-guix-command _ . _)
> In ice-9/boot-9.scm:
> 829:9  2 (catch srfi-34 # 
> # _)
> 829:9  1 (catch system-error # guix/scripts/describe.scm:203:4 ()> # guix/ui.scm:750:6 (key proc format-string format-args . rest)> _)
> In guix/scripts/describe.scm:
>  83:5  0 (display-package-search-path json)
>
> guix/scripts/describe.scm:83:5: In procedure display-package-search-path:
> Throw to key `match-error' with args `("match" "no matching pattern" json)'.

JSON format:
--8<---cut here---start->8---
oleg@guixsd ~/src/guix$ ./pre-inst-env env 
GUIX_PACKAGE_PATH=$HOME/src/guix-wigust:/tmp/noexist:/tmp/noexist:/tmp/noexist:/tmp/noexist:/tmp/noexist:/tmp/noexist:/tmp/noexist:/tmp/noexist:/tmp/noexist:/tmp/noexist:/tmp/noexist:/tmp/noexist:/tmp/noexist:/tmp/noexist:/tmp/noexist:/tmp/noexist:/tmp/noexist:/tmp/noexist
 guix describe -p ~/.config/guix/current --format=json
[{"name":"guix","url":"https://gitlab.wugi.info/guix/guix.git","commit":"4161deb4549c39b7d4801cc8aa63c365d19fc649"},{"name":"guix-wigust","url":"https://gitlab.wugi.info/guix/guix-wigust.git","commit":"f6dfa5fc08824ebe5bdc42ea35ff0e040245c8c0"}]
{"name":"GUIX_PACKAGE_PATH","paths":["/home/oleg/src/guix-wigust","/tmp/noexist","/tmp/noexist","/tmp/noexist","/tmp/noexist","/tmp/noexist","/tmp/noexist","/tmp/noexist","/tmp/noexist","/tmp/noexist","/tmp/noexist","/tmp/noexist","/tmp/noexist","/tmp/noexist","/tmp/noexist","/tmp/noexist","/tmp/noexist","/tmp/noexist","/tmp/noexist"]}
--8<---cut here---end--->8---

>> guix describe -f recutils
> name: guix
> url: https://git.savannah.gnu.org/git/guix.git
> commit: 77f3d3036406b1d1ceaeba8017ae5f597f2a0fb4
>
> Backtrace:
>4 (primitive-load "/home/ambrevar/.config/guix/current/bin/guix")
> In guix/ui.scm:
>   1654:12  3 (run-guix-command _ . _)
> In ice-9/boot-9.scm:
> 829:9  2 (catch srfi-34 # 
> # _)
> 829:9  1 (catch system-error # guix/scripts/describe.scm:203:4 ()> # guix/ui.scm:750:6 (key proc format-string format-args . rest)> _)
> In guix/scripts/describe.scm:
>  83:5  0 (display-package-search-path recutils)
>
> guix/scripts/describe.scm:83:5: In procedure display-package-search-path:
> Throw to key `match-error' with args `("match" "no matching pattern" 
> recutils)'.

recutils format:
--8<---cut here---start->8---
oleg@guixsd ~/src/guix$ ./pre-inst-env env 
GUIX_PACKAGE_PATH=$HOME/src/guix-wigust:/tmp/noexist:/tmp/noexist:/tmp/noexist:/tmp/noexist:/tmp/noexist:/tmp/noexist:/tmp/noexist:/tmp/noexist:/tmp/noexist:/tmp/noexist:/tmp/noexist:/tmp/noexist:/tmp/noexist:/tmp/noexist:/tmp/noexist:/tmp/noexist:/tmp/noexist:/tmp/noexist
 guix describe -p ~/.config/guix/current --format=recutils
name: guix
url: https://gitlab.wugi.info/guix/guix.git
commit: 4161deb4549c39b7d4801cc8aa63c365d19fc649

name: guix-wigust
url: https://gitlab.wugi.info/guix/guix-wigust.git
commit: f6dfa5fc08824ebe5bdc42ea35ff0e040245c8c0

name: GUIX_PACKAGE_PATH
paths: /home/oleg/src/guix-wigust /tmp/noexist /tmp/noexist /tmp/noexist 
/tmp/noexist
+ /tmp/noexist /tmp/noexist /tmp/noexist /tmp/noexist /tmp/noexist /tmp/noexist 
/tmp/noexist
+ /tmp/noexist /tmp/noexist /tmp/noexist /tmp/noexist /tmp/noexist /tmp/noexist 
/tmp/noexist

--8<---cut here---end--->8---

From 4f911d60f96f088876e6bcbed1883cff637507c2 Mon Sep 17 00:00:00 2001
From: Oleg Pykhalov 
Date: Sat, 16 Mar 2019 16:56:34 +0300
Subject: [PATCH] describe: Handle JSON and recutils formats for
 'GUIX_PACKAGE_PATH'.

Fixes .
Reported by Pierre Neidhardt .

* guix/scripts/describe.scm (display-package-search-path): Handle JSON and
recutils formats.
---
 guix/scripts/describe.scm | 26 +++---
 1 file changed, 23 insertions(+), 3 deletions(-)

diff --git a/guix/scripts/describe.scm b/guix/scripts/describe.scm
index 7d0ecb0a4d..fbc142426e 100644
--- a/guix/scripts/describe.scm
+++ b/guix/scripts/describe.scm
@@ -1,6 +1,6 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2018 Ludovic Courtès 
-;;; Copyright © 2018 Oleg Pykhalov 
+;;; Copyright © 2018, 2019 Oleg Pykhalov 
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -77,6 +77,16 @@ Display information about the channels currently in use.\n"))
 
 (define (display-package-search-path fmt)
   "Display GUIX_PACKAGE_PATH, if it is set, according to FMT."
+  (define* (pat

bug#33703: Status: youtube-dl man page is not complete

2019-03-16 Thread Pierre Neidhardt
Fixed with 30785.





bug#31201: Status: A flaw concerning CCL

2019-03-16 Thread Pierre Neidhardt
The latest builds of CCL on both x86 and x86_64 seem to address this issue.
Re-open if there is anything else.
Closing.





bug#34886: [Web page] Screenshot alignment (and listing?)

2019-03-16 Thread Tobias Geerinckx-Rice

Guix,

The full-sized screenshots at 
https://www.gnu.org/software/guix/screenshots/gnome/ look 
awkwardly left-aligned to me[0].


Is this intentional?  A browser bug?  This is in Icecat 60.5.1 on 
Guix System.


Bonus wishlist bug(?): I was going to link to just 
https://www.gnu.org/software/guix/screenshots/ above, but that 
gives me an Apache directory index.


Now I'm a fan of sites that don't blanket-404 directories for 
whatever misguided reason, but this should probably be its own 
(pretty) page.


Kind regards,

T G-R

[0]: https://www.tobias.gr/far-left-guix.png





bug#34890: guix system: error: failed to install bootloader

2019-03-16 Thread Jack Hill

Hi Guix,

Today after a guix pull to commit 
e3545ffcf95bffbbd967efd852715f4f0a9be290, guix system reconfigure fails to 
install grub (bios grub on x86_64) with


guix system: error: failed to install bootloader 
/gnu/store/45myfaqas69fnp3mfbqlsf9lafm30cl0-bootloader-installer

/gnu/store/45myfaqas69fnp3mfbqlsf9lafm30cl0-bootloader-installer is

(eval-when (expand load eval) (set! %load-path (cons 
"/gnu/store/wa7bn283y9pg2h5g75j1fmqbp1m5js7w-module-import" (append (map 
(lambda (extension) (string-append extension "/share/guile/site/" 
(effective-version))) (quote ())) %load-path))) (set! %load-compiled-path 
(cons "/gnu/store/w5a1xk656i0sw15mqj7bz8zp130c8m27-module-import-compiled" 
(append (map (lambda (extension) (string-append extension "/lib/guile/" 
(effective-version) "/site-ccache")) (quote ())) 
%load-compiled-path(begin (use-modules (gnu build bootloader) (guix 
build utils) (ice-9 binary-ports) (srfi srfi-34) (srfi srfi-35)) (guard (c 
((message-condition? c) (format (current-error-port) "error: ~a~%" 
(condition-message c)) (exit 1))) ((lambda (bootloader device mount-point) 
(let ((grub (string-append bootloader "/sbin/grub-install")) (install-dir 
(string-append mount-point "/boot"))) (setenv "GRUB_ENABLE_CRYPTODISK" 
"y") (invoke/quiet grub "--no-floppy" "--target=i386-pc" 
"--boot-directory" install-dir device))) 
"/gnu/store/shbswxl2g7n6fvi6gq45bvan4saygkv2-grub-2.02" "/dev/sda" "/") 
(format #t "bootloader successfully installed on '~a'~%" device)))


Unfortunately, I don't remember the last commit for which I successfully 
reconfigured and installed gurb. My operating system definition is below.


Best,
Jack

;; This is an operating system configuration template
;; for a "desktop" setup with GNOME and Xfce where the
;; root partition is encrypted with LUKS.

(use-modules (gnu) (gnu system nss) (gnu services xorg))
(use-service-modules desktop)
(use-package-modules certs gnome scanner)

(operating-system
  (host-name "alperton")
  (timezone "America/New_York")
  (locale "en_US.utf8")

  (bootloader (bootloader-configuration
(bootloader grub-bootloader)
(target "/dev/sda")))

  ;; Specify a mapped device for the encrypted root partition.
  ;; The UUID is that returned by 'cryptsetup luksUUID'.
  (mapped-devices
   (list (mapped-device
  (source (uuid "f7776767-70c9-44e3-9973-c1334d301348"))
  (target "alperton_root")
  (type luks-device-mapping

  (file-systems (cons*
   ;; (file-system
   ;;  (device (file-system-label "boot"))
   ;;  (mount-point "/boot")
   ;;  (type "ext4"))
   (file-system
(device (file-system-label "alperton_root"))
(mount-point "/")
(type "ext4")
(dependencies mapped-devices))
  %base-file-systems))

  (users (cons (user-account
(name "jackhill")
(comment "Jack Hill")
(group "users")
(supplementary-groups '("wheel" "netdev"
"audio" "video"))
(home-directory "/home/jackhill"))
   %base-user-accounts))

  ;; This is where we specify system-wide packages.
  (packages (cons* nss-certs ;for HTTPS access
   gvfs  ;for user mounts
   network-manager-openvpn
   %base-packages))

  ;; Add GNOME and/or Xfce---we can choose at the log-in
  ;; screen with F1.  Use the "desktop" services, which
  ;; include the X11 log-in service, networking with
  ;; NetworkManager, and more.
  (services (cons* (gnome-desktop-service)
   (service gdm-service-type)
   (simple-service 'sane-udev-rules udev-service-type (list 
sane-backends))
   (filter (lambda (x)
 (not (eq? (service-kind x) slim-service-type))) 
%desktop-services)))

  ;; Allow resolution of '.local' host names with mDNS.
  (name-service-switch %mdns-host-lookup-nss))






bug#34890: guix system: error: failed to install bootloader

2019-03-16 Thread Brett Gilio


Jack Hill writes:

> Hi Guix,
>
> Today after a guix pull to commit
> e3545ffcf95bffbbd967efd852715f4f0a9be290, guix system reconfigure
> fails to install grub (bios grub on x86_64) with
>
> guix system: error: failed to install bootloader 
> /gnu/store/45myfaqas69fnp3mfbqlsf9lafm30cl0-bootloader-installer
>
> /gnu/store/45myfaqas69fnp3mfbqlsf9lafm30cl0-bootloader-installer is
>
> (eval-when (expand load eval) (set! %load-path (cons
> "/gnu/store/wa7bn283y9pg2h5g75j1fmqbp1m5js7w-module-import" (append
> (map (lambda (extension) (string-append extension "/share/guile/site/"
> (effective-version))) (quote ())) %load-path))) (set!
> %load-compiled-path (cons
> "/gnu/store/w5a1xk656i0sw15mqj7bz8zp130c8m27-module-import-compiled"
> (append (map (lambda (extension) (string-append extension
> "/lib/guile/" (effective-version) "/site-ccache")) (quote ()))
> %load-compiled-path(begin (use-modules (gnu build bootloader)
> (guix build utils) (ice-9 binary-ports) (srfi srfi-34) (srfi srfi-35))
> (guard (c ((message-condition? c) (format (current-error-port) "error:
> ~a~%" (condition-message c)) (exit 1))) ((lambda (bootloader device
> mount-point) (let ((grub (string-append bootloader
> "/sbin/grub-install")) (install-dir (string-append mount-point
> "/boot"))) (setenv "GRUB_ENABLE_CRYPTODISK" "y") (invoke/quiet grub
> "--no-floppy" "--target=i386-pc" "--boot-directory" install-dir
> device))) "/gnu/store/shbswxl2g7n6fvi6gq45bvan4saygkv2-grub-2.02"
> "/dev/sda" "/") (format #t "bootloader successfully installed on
> '~a'~%" device)))
>

I can replicate this bug, however it is still successfully installing a
new system configuration. The error printout seems erroneous (pun
intended).

I am sure there is a regression somewhere, but it does not seem to
adversely effect the method in question.





bug#34890: guix system: error: failed to install bootloader

2019-03-16 Thread Jack Hill

On Sat, 16 Mar 2019, Brett Gilio wrote:


I can replicate this bug, however it is still successfully installing a
new system configuration. The error printout seems erroneous (pun
intended).


Indeed, I also do get a new system configuration reflecting my changes. 
However, I'm not sure if the output is just erroneous of if grub is really 
failing to be installed. By that I mean that the grub-install call is 
failing, resulting in this output. Since grub has been previously 
installed to my disk, most of the time I don't need to install the 
bootloader binary again, so this failure doesn't cause problems.



I am sure there is a regression somewhere, but it does not seem to
adversely effect the method in question.


I wonder if Ludovic's recent work [0][1] on handeling the bootloader 
messages could be the cause.


[0] 22f95e028f038cee342f455dfc55bd32b804907c
[1] f0cc5e7e1e4c03af29c5d4855dc5962502c49147