Hello guix!
I'm having issues with polybar. When running it the bar isn't
rendered. It prints out everything just fine if I run it with
--stdout. I tried modifying the package definition to use cario-xcb
incase that was an issue. But same result.
Tested it in GuixSD and on a foreign distro but same issue. The native
built polybar on the foreign distro works.
Has anyone else come a cross this issue?
guix --version
24886c13892551f164aef20375939fc4e85942ab
Attached my config and the manifest I use.
Thanks
--
s/Fred[re]+i[ck]+/Fredrik/g
;-*- mode: scheme; -*-
(specifications->manifest
'(;; Fonts
"font-hack"
"font-dejavu"
;; Base
"rxvt-unicode"
"stow"
"git"
"openssh"
"ncurses"
"feh"
"xrandr"
"bash-completion"
"glibc-utf8-locales"
;; Utils
"the-silver-searcher"
"password-store"
"gnupg"
;; Programs
"icecat"
"graphviz"
"polybar"
;; "ledger"
;; "darktable"
;; emacs
"emacs"
"emacs-pdf-tools"
"emacs-emms"
;; build tools
"make"
"gcc"
"binutils"
"glibc"
"strace"
"gdb"
"global"
"guile"
;; qmk
"avr-gcc"
"avr-toolchain"
"avr-binutils"
"avrdude"
"teensy-loader-cli"
))
;; This is an operating system configuration template
;; for a "desktop" setup without full-blown desktop
;; environments.
(use-modules (gnu)
(gnu packages)
(gnu system nss)
(gnu system locale)
(gnu services nfs)
(ice-9 rdelim)
(ice-9 format))
(use-service-modules desktop networking ssh base xorg)
(use-package-modules wm certs shells xdisorg)
(define plattfot
(user-account
(name "plattfot")
(group "users")
;; Define a G-Expr to find the path of the zsh binary:
;;
https://gitlab.com/rain1/guix-wiki/wikis/FAQ#how-do-i-make-my-login-shell-zsh
;;(shell #~(string-append #$zsh "/bin/zsh"))
(supplementary-groups '("wheel" "netdev" "audio" "video"))
(home-directory "/home/plattfot")))
(define keyboard-conf "
Section \"InputClass\"
Identifier \"system-keyboard\"
MatchIsKeyboard \"on\"
Option \"XkbLayout\" \"us,se\"
Option \"XkbOptions\" \"ctrl:nocaps,grp:sclk_toggle,grp_led:scroll,:2\"
EndSection
")
;; Specify a mapped device for the encrypted root partition.
;; The UUID is that returned by 'cryptsetup luksUUID'.
(define mapped-root
(mapped-device
(source (uuid "ab43f8be-1a18-4999-836d-71dac382dfb5"))
(target "root")
(type luks-device-mapping)))
(define mapped-swap
(mapped-device
(source (uuid "9f04f917-efd3-4036-b3f5-24705fee7ffa"))
(target "swap")
(type luks-device-mapping)))
;; Partion layout for /dev/sda3
;; under __current/
;; | subvol | Mountpoint | Comment | Shared |
;; |-------------+--------------+--------------------+----------|
;; | arch-root | / | root for Arch | no |
;; | guixsd-root | / | root for GuixSD | no |
;; | grub | /boot/grub | grub config | yes |
;; | guix | /var/guix | guix stuff | yes |
;; | gnu | /gnu | Store etc | yes |
;; | home | /home | home partition | yes |
(define btrfs-common-options
'("defaults" "discard" "compress=lzo" "space_cache" "autodefrag"))
(define (btrfs-mount-options subvol)
"Return the btrfs mount options I use.
Where SUBVOL is the subvolume to mount"
(string-join `(,@btrfs-common-options ,(format #f "subvol=~a" subvol)) ","))
(define fs-root
(file-system
(mount-point "/")
(type "btrfs")
(device (file-system-label "root"))
(options (btrfs-mount-options "__current/guixsd-root"))
(needed-for-boot? #t)
(dependencies `(,mapped-root))))
(define fs-grub
(file-system
(mount-point "/boot/grub")
(type "btrfs")
(device (file-system-label "root"))
(options (btrfs-mount-options "__current/grub"))
(needed-for-boot? #t)
(dependencies `(,fs-root))))
(define fs-gnu
(file-system
(mount-point "/gnu")
(type "btrfs")
(device (file-system-label "root"))
(options (btrfs-mount-options "__current/gnu"))
(needed-for-boot? #t)
(dependencies `(,fs-root))))
(define fs-guix
(file-system
(mount-point "/var/guix")
(type "btrfs")
(device (file-system-label "root"))
(options (btrfs-mount-options "__current/guix"))
(needed-for-boot? #t)
(dependencies `(,fs-root))))
(define fs-home
(file-system
(mount-point "/home")
(type "btrfs")
(device (file-system-label "root"))
(options (btrfs-mount-options "__current/home"))
(needed-for-boot? #t)
(dependencies `(,fs-root))))
(define nfs-valhalla
(file-system
(device "fafner:/srv/nfs4/Valhalla")
(mount-point "/media/Valhalla")
(type "nfs4")
(mount? #f)
(check? #f)))
(define menu-arch
(menu-entry
(label "Arch Linux")
(linux "/__current/arch-root/boot/vmlinuz-linux")
(linux-arguments
'("luks.uuid=ab43f8be-1a18-4999-836d-71dac382dfb5"
"luks.name=ab43f8be-1a18-4999-836d-71dac382dfb5=root"
"luks.key=ab43f8be-1a18-4999-836d-71dac382dfb5=/boot/rootkey.bin"
"luks.options=ab43f8be-1a18-4999-836d-71dac382dfb5=discard,luks"
"luks.uuid=9f04f917-efd3-4036-b3f5-24705fee7ffa"
"luks.name=9f04f917-efd3-4036-b3f5-24705fee7ffa=swap"
"luks.key=9f04f917-efd3-4036-b3f5-24705fee7ffa=/boot/swapkey.bin"
"luks.options=9f04f917-efd3-4036-b3f5-24705fee7ffa=swap,discard,luks"
"root=LABEL=root"
"resume=/dev/mapper/swap"
"rootflags=compress=lzo,subvol=__current/arch-root"))
(initrd (string-join '("/__current/arch-root/boot/intel-ucode.img"
"/__current/arch-root/boot/initramfs-linux.img") "
"))))
(operating-system
(host-name "loke")
(timezone "Canada/Pacific")
(locale "en_US.utf8")
(locale-definitions
(list
(locale-definition (name "en_US.utf8") (source "en_US") (charset "UTF-8"))
(locale-definition (name "sv_SE.utf8") (source "sv_SE") (charset "UTF-8"))))
;; Assuming /dev/sda is the target hard disk, and "root"
;; is the label of the target root file system.
(bootloader
(grub-configuration (target "/dev/sda")
(menu-entries `(,menu-arch))))
;; Kernel arguments
(kernel-arguments '("rootflags=compress=lzo,subvol=__current/guixsd-root"))
(mapped-devices (list mapped-root mapped-swap))
(file-systems
(cons*
fs-home
fs-grub
fs-gnu
fs-guix
fs-root
nfs-valhalla
%base-file-systems))
(swap-devices '("/dev/mapper/swap"))
(users (cons plattfot %base-user-accounts))
;; Add a bunch of window managers; we can choose one at
;; the log-in screen with F1.
(packages (cons* i3-wm i3status rofi ;window managers
;;zsh
nss-certs ;for HTTPS access
%base-packages))
;; Use the "desktop" services, which include the X11
;; log-in service, networking with Wicd, and more.
(services
;;%desktop-services
(cons* (service openssh-service-type
(openssh-configuration
(port-number 6060)
(password-authentication? #f)))
(extra-special-file "/bin/env" (file-append coreutils "/bin/env"))
(modify-services %desktop-services
(slim-service-type
config => (slim-configuration
(inherit config)
(startx (xorg-start-command
#:configuration-file
(xorg-configuration-file
#:extra-config
(list keyboard-conf)))))))))
;; Allow resolution of '.local' host names with mDNS.
(name-service-switch %mdns-host-lookup-nss))
