many changes, mostly migrations to using shepherd home services

This commit is contained in:
Ryan 2023-05-18 01:57:03 -04:00
parent 232a9f91d2
commit 3d495ba0b5
Signed by: ryan77627
GPG key ID: 81B0E222A3E2308E
5 changed files with 35 additions and 16 deletions

View file

@ -41,6 +41,6 @@ alias cat='bat --paging=never'
export XDG_DATA_DIRS=$XDG_DATA_DIRS:/var/lib/flatpak/exports/share:/home/ryan/.local/share/flatpak/exports/share export XDG_DATA_DIRS=$XDG_DATA_DIRS:/var/lib/flatpak/exports/share:/home/ryan/.local/share/flatpak/exports/share
# GPG SETUP FOR SSH # GPG SETUP FOR SSH
export SSH_AUTH_SOCK=$(gpgconf --list-dirs agent-ssh-socket) #export SSH_AUTH_SOCK=$(gpgconf --list-dirs agent-ssh-socket)
gpgconf --launch gpg-agent #gpgconf --launch gpg-agent
export GPG_TTY=$(tty) export GPG_TTY=$(tty)

View file

@ -8,11 +8,15 @@
(gnu packages) (gnu packages)
(gnu packages vim) (gnu packages vim)
(gnu packages gcc) (gnu packages gcc)
(gnu packages gnupg)
(gnu services) (gnu services)
(guix packages) (guix packages)
(guix gexp) (guix gexp)
(gnu home services shells) (gnu home services shells)
(gnu home services)) (gnu home services desktop)
(gnu home services gnupg)
(gnu home services)
(ryan-services pipewire))
(define my-neovim (define my-neovim
(package (package
@ -52,7 +56,7 @@
"texlive-amsfonts" "texlive-amsfonts"
"texlive-lm" "texlive-lm"
"texlive-lm-math" "texlive-lm-math"
"texlive-generic-iftex" "texlive-iftex"
"texlive-unicode-math" "texlive-unicode-math"
"texlive-fontspec" "texlive-fontspec"
"texlive-xcolor" "texlive-xcolor"
@ -97,6 +101,13 @@
(service home-files-service-type (service home-files-service-type
`((".local/share/nvim/site/autoload/plug.vim" ,(local-file "nvim/plugin-manager/plug.vim")) `((".local/share/nvim/site/autoload/plug.vim" ,(local-file "nvim/plugin-manager/plug.vim"))
(".ssh/config" ,(local-file "ssh/config")) (".ssh/config" ,(local-file "ssh/config"))
(".gnupg/sshcontrol" ,(local-file "gnupg/sshcontrol")) ;(".gnupg/sshcontrol" ,(local-file "gnupg/sshcontrol"))
(".gnupg/gpg-agent.conf" ,(local-file "gnupg/gpg-agent.conf")) ;(".gnupg/gpg-agent.conf" ,(local-file "gnupg/gpg-agent.conf"))
(".fonts" ,(local-file "fonts" #:recursive? #t)) ))))) (".fonts" ,(local-file "fonts" #:recursive? #t))))
(service home-pipewire-service-type)
(service home-dbus-service-type)
(service home-gpg-agent-service-type
(home-gpg-agent-configuration
(pinentry-program
(file-append pinentry "/bin/pinentry"))
(ssh-support? #t))) )))

View file

@ -24,7 +24,7 @@
exec sh ~/.profile exec sh ~/.profile
# Load up the user session dbus # Load up the user session dbus
exec dbus-daemon --session --address=unix:path=$XDG_RUNTIME_DIR/bus #exec dbus-daemon --session --address=unix:path=$XDG_RUNTIME_DIR/bus
# #
# Logo key. Use Mod1 for Alt. # Logo key. Use Mod1 for Alt.
@ -280,14 +280,14 @@ exec hash dbus-update-activation-environment 2>/dev/null && dbus-update-activati
# Numlock on startup # Numlock on startup
input * xkb_numlock enabled input * xkb_numlock enabled
# Bluetooth
exec blueman-applet
# Audio Server # Audio Server
#exec pipewire #exec pipewire
#exec wireplumber #exec wireplumber
#exec pipewire-pulse #exec pipewire-pulse
# Bluetooth
exec blueman-applet
# Spotifyd # Spotifyd
#exec spotifyd #exec spotifyd

View file

@ -1,4 +1,4 @@
(define-module (home-configuration pipewire) (define-module (ryan-services pipewire)
#:use-module (gnu packages) #:use-module (gnu packages)
#:use-module (gnu packages linux) #:use-module (gnu packages linux)
#:use-module (gnu services) #:use-module (gnu services)
@ -37,7 +37,7 @@
(start #~(make-forkexec-constructor (start #~(make-forkexec-constructor
(list #$(file-append pipewire "/bin/pipewire-pulse")) (list #$(file-append pipewire "/bin/pipewire-pulse"))
#:log-file (string-append #:log-file (string-append
(or (getend "XDG_LOG_HOME") (or (getenv "XDG_LOG_HOME")
(format #f "~a/.local/var/log" (format #f "~a/.local/var/log"
(getenv "HOME"))) (getenv "HOME")))
"/pipewire-pulse.log") "/pipewire-pulse.log")
@ -71,7 +71,7 @@
">\n<" ">\n<"
#$(file-append #$(file-append
pipewire "/share/alsa/alsa.conf.d/99-pipewire-default.conf") pipewire "/share/alsa/alsa.conf.d/99-pipewire-default.conf")
">/n" ">\n"
" "
pcm_type.pipewire { pcm_type.pipewire {
lib " #$(file-append pipewire "/lib/alsa-lib/libasound_module_pcm_pipewire.so") lib " #$(file-append pipewire "/lib/alsa-lib/libasound_module_pcm_pipewire.so")

View file

@ -19,7 +19,7 @@
(use-modules (gnu packages tls)) (use-modules (gnu packages tls))
(use-modules (srfi srfi-1)) (use-modules (srfi srfi-1))
(use-package-modules security-token) (use-package-modules security-token)
(use-service-modules cups desktop networking xorg ssh sound security-token docker) (use-service-modules cups desktop networking xorg ssh sound security-token docker virtualization)
; Define package that installs my root ca public keys ; Define package that installs my root ca public keys
(define my-ca-certs (define my-ca-certs
@ -94,7 +94,7 @@
(group "users") (group "users")
;(shell (file-append zsh "/bin/zsh")) ;(shell (file-append zsh "/bin/zsh"))
(home-directory "/home/ryan") (home-directory "/home/ryan")
(supplementary-groups '("wheel" "netdev" "audio" "video" "lp" "plugdev" "docker"))) (supplementary-groups '("wheel" "netdev" "audio" "video" "lp" "plugdev" "docker" "libvirt" "kvm")))
%base-user-accounts)) %base-user-accounts))
;; Packages installed system-wide. Users can also install packages ;; Packages installed system-wide. Users can also install packages
@ -120,11 +120,16 @@
"wl-clipboard" "wl-clipboard"
"bluez" "bluez"
"blueman" "blueman"
"ldacbt"
"libfreeaptx"
"libfdk"
"opendoas" "opendoas"
"xdg-desktop-portal-wlr" "xdg-desktop-portal-wlr"
"xdg-desktop-portal" "xdg-desktop-portal"
"pipewire" "pipewire"
"docker" "docker"
"libvirt"
"virt-manager"
"wireplumber" "wireplumber"
"zsh")) "zsh"))
(list my-ca-certs) (list my-ca-certs)
@ -140,6 +145,9 @@
(service openssh-service-type) (service openssh-service-type)
(service pcscd-service-type) (service pcscd-service-type)
(service docker-service-type) (service docker-service-type)
(service libvirt-service-type
(libvirt-configuration
(unix-sock-group "libvirt")))
(service bluetooth-service-type) (service bluetooth-service-type)
(udev-rules-service 'fido2 libfido2 #:groups '("plugdev"))) (udev-rules-service 'fido2 libfido2 #:groups '("plugdev")))