From: Pierre Neidhardt <ambrevar@gmail.com>
To: Leo Famulari <leo@famulari.name>
Cc: help-guix <help-guix@gnu.org>
Subject: Re: Multiple pulseaudio process after re-loging
Date: Tue, 24 Apr 2018 12:03:00 +0530 [thread overview]
Message-ID: <87604hw1ur.fsf@gmail.com> (raw)
In-Reply-To: <20180423184306.GC27672@jasmine.lan>
[-- Attachment #1.1: Type: text/plain, Size: 287 bytes --]
I'm not doing anything to start Pulseaudio since it starts
on demand. I can't think of anything wrong with how I start my
user session. I run EXWM via ~/.xsession. See my dotfiles:
https://github.com/ambrevar/dotfiles
Find my config.scm attached.
--
Pierre Neidhardt
[-- Attachment #1.2: config.scm --]
[-- Type: application/octet-stream, Size: 5935 bytes --]
;; This is an operating system configuration template
;; for a "desktop" setup without full-blown desktop
;; environments.
(use-modules (gnu)
(gnu packages linux)
(gnu packages tls)
(gnu system nss)
(guix build-system trivial)
(guix download)
(guix git-download)
(gnu services xorg)
(gnu services networking)
(gnu packages admin)
((guix licenses) #:prefix license:)
(guix packages)
(srfi srfi-1))
(use-service-modules desktop)
(use-package-modules bootloaders certs suckless ;; xorg
)
(define (linux-nonfree-urls version)
"Return a list of URLs for Linux-Nonfree VERSION."
(list (string-append
"https://www.kernel.org/pub/linux/kernel/v4.x/"
"linux-" version ".tar.xz")))
(define-public linux-nonfree
(package
(inherit linux-libre)
(name "linux-nonfree")
(version "4.14.33")
(source
(origin
(method url-fetch)
(uri (linux-nonfree-urls version))
(sha256
(base32 "0c88p5vly63jsz62ff7971zl6vqzzbv5q519gi8z17ld66sf5063" ; 4.14.33
;; "1hv00176njm4g9m1aj92lvhwqn75c46qwsglsmx95ivbr9qc58av" ; 4.16.1
))))))
(define-public linux-nonfree-firmware
(let ((version "0.0.0")
(commit "6d5131107f2ba67a13f469ac770a55f101ba654d"))
(package
(name "linux-nonfree-firmware")
(version version)
(source (origin
(method git-fetch)
(uri (git-reference
(url "git://git.kernel.org/pub/scm/linux/kernel/git/firmware/linux-firmware.git")
(commit commit)))
(sha256
(base32
"0nql7rqkx064lsw5bh6n29yfdxmp3hl4nqgp1fxdb4ys76awchg3"))))
(build-system trivial-build-system)
(arguments
`(#:modules ((guix build utils))
#:builder (begin
(use-modules (guix build utils))
(let ((source (assoc-ref %build-inputs "source"))
(destination (string-append %output "/lib/firmware")))
(mkdir-p destination)
(copy-recursively source destination #:follow-symlinks? #t)
#t))))
(home-page "")
(synopsis "Non-free firmware for the Linux kernel")
(description "Non-free firmware for the Linux kernel")
(license #f))))
;; Allow members of the "video" group to change the screen brightness.
(define %backlight-udev-rule
(udev-rule
"90-backlight.rules"
(string-append "ACTION==\"add\", SUBSYSTEM==\"backlight\", "
"RUN+=\"/run/current-system/profile/bin/chgrp video /sys/class/backlight/%k/brightness\""
"\n"
"ACTION==\"add\", SUBSYSTEM==\"backlight\", "
"RUN+=\"/run/current-system/profile/bin/chmod g+w /sys/class/backlight/%k/brightness\"")))
;; (define my-xorg-modules
;; ;; Everything but Nouveau.
;; (delete xf86-video-nouveau %default-xorg-modules))
;; Use the "desktop" services, which include the X11
;; log-in service, networking with Wicd, and more.
(define %my-services
(modify-services
%desktop-services
(udev-service-type config =>
(udev-configuration
(inherit config)
(rules (append (udev-configuration-rules config)
(list %backlight-udev-rule)))))
(slim-service-type config =>
(slim-configuration
(inherit config)
(auto-login? #f)
;; (startx (xorg-start-command #:modules my-xorg-modules))
;; TODO: Can't slim pre-fill the username?
(default-user "ambrevar")))))
(operating-system
(host-name "mimimi")
(timezone "Asia/Kolkata")
(locale "en_US.utf8")
;; Use the UEFI variant of GRUB with the EFI System
;; Partition mounted on /boot/efi.
;; If generating an image to a USB stick, use -bios- instead.
(bootloader (bootloader-configuration
(bootloader grub-efi-bootloader)
(timeout 1)
(target "/boot/efi")))
(kernel linux-nonfree)
(kernel-arguments '("modprobe.blacklist=pcspkr"))
;; (kernel-arguments '("modprobe.blacklist=nouveau"))
;; (kernel-arguments '("pcie_port_pm=off"))
(firmware (cons* linux-nonfree-firmware %base-firmware))
(initrd-modules (append (list "shpchp")
%base-initrd-modules))
;; Assume the target root file system is labelled "guixsd",
;; and the EFI System Partition is specified by its UUID.
(file-systems (cons* (file-system
(device "guixsd")
(title 'label)
(mount-point "/")
(type "ext4"))
(file-system
(device "home")
(title 'label)
(mount-point "/home")
(type "ext4"))
(file-system
(device (uuid "8AC2-4252" 'fat))
(title 'uuid)
(mount-point "/boot/efi")
(type "vfat"))
%base-file-systems))
(users (cons* (user-account
(name "ambrevar")
(group "users")
(supplementary-groups '("wheel" "netdev" ; netdev is needed for networking.
"audio" "video"))
(home-directory "/home/ambrevar"))
%base-user-accounts))
(packages (cons* nss-certs ;for HTTPS access
%base-packages))
(services %my-services)
;; Allow resolution of '.local' host names with mDNS.
(name-service-switch %mdns-host-lookup-nss))
[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 487 bytes --]
next prev parent reply other threads:[~2018-04-24 6:33 UTC|newest]
Thread overview: 10+ messages / expand[flat|nested] mbox.gz Atom feed top
2018-04-23 6:40 Multiple pulseaudio process after re-loging Pierre Neidhardt
2018-04-23 18:43 ` Leo Famulari
2018-04-24 6:33 ` Pierre Neidhardt [this message]
2018-04-27 3:43 ` Chris Marusich
2018-05-20 12:55 ` Pierre Neidhardt
2018-05-20 13:43 ` Pierre Neidhardt
2018-06-03 1:07 ` Chris Marusich
2018-06-03 12:41 ` Pierre Neidhardt
2018-06-06 9:33 ` Oleg Pykhalov
2018-06-06 9:37 ` Pierre Neidhardt
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87604hw1ur.fsf@gmail.com \
--to=ambrevar@gmail.com \
--cc=help-guix@gnu.org \
--cc=leo@famulari.name \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/guix.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.