freya/dotfiles-guix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

867-5309

Browse source
This commit is contained in:
Freya Murphy 2023-09-07 18:52:18 -04:00
parent 2396b0aeb6
commit e192e86738
No known key found for this signature in database
GPG key ID: 988032A5638EE799
5 changed files with 7 additions and 119 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

47
:w
View file

@ -1,47 +0,0 @@
(define-module (home-packages virtualization)
#:use-module (guix packages)
#:use-module (guix utils)
#:use-module (gnu packages)
#:use-module (gnu packages package-management)
#:use-module (gnu packages build-tools)
#:use-module (gnu packages virtualization)
#:use-module (gnu packages firmware)
#:use-module (home-packages firmware)
#:use-module (guix gexp))
(define-public libvirt-new
(package
(inherit libvirt)
(inputs
(modify-inputs (package-inputs libvirt)
(append ovmf-new)))
(arguments
(substitute-keyword-arguments (package-arguments libvirt)
((#:phases phases)
#~(modify-phases #$phases
(add-after 'install 'ovmf
(lambda _
(let ((fmw (string-append #$output "/usr/share/OVMF")))
(mkdir-p fmw)
(copy-recursively #$(file-append ovmf-new "/share/firmware") fmw))
(let ((fmw (string-append #$output "/share/qemu")))
(mkdir-p fmw)
(copy-recursively #$(file-append qemu "/share/qemu") fmw))
))
))))))
(define-public virt-manager-new
(package
(inherit virt-manager)
(name "virt-manager-new")
(arguments
(substitute-keyword-arguments (package-arguments virt-manager)
((#:phases phases)
#~(modify-phases #$phases
(add-after 'install 'ovmf
(lambda _
(let ((fmw (string-append #$output "/usr/share/OVMF")))
(mkdir-p fmw)
(copy-recursively #$(file-append ovmf-new "/share/firmware") fmw)
)))
))))))

2
home-config/sway/config
View file

@ -17,7 +17,7 @@ set $scale 1.5
set $bg ~/.config/sway/nya0.png
# Set Efects
set $radius 0
set $radius 5
set $shadows on
set $shadow_blur 50
set $blur enable

10
home-config/sway/config.d/theme
View file

@ -1,16 +1,18 @@
### Set borders
gaps inner 10
for_window [class="^.*"] border pixel 2
default_border pixel 2
default_floating_border pixel 2
### Colors
# class border backgr. text indicator child_border
client.background #14171d
client.focused #4d4754 #14171d #ffffff #ada0a8 #4d4754
client.focused_inactive #4d4754 #14171d #ffffff #4d4754 #14171d
client.focused #4d4754 #14171d #ffffff #4d4754 #4d4754
client.focused_inactive #4d4754 #14171d #ffffff #14171d #14171d
client.focused_tab_title #4d4754 #14171d #ffffff
client.unfocused #14171d #14171d #ffffff #4d4754 #14171d
client.urgent #cc5c5c #a63a3a #ffffff #cc5c5c #a63a3a
client.unfocused #14171d #14171d #ffffff #14171d #14171d
client.urgent #cc5c5c #a63a3a #ffffff #a63a3a #a63a3a
### SwayFX

26
modules/home-packages/firmware.scm
View file

@ -1,26 +0,0 @@
(define-module (home-packages firmware)
#:use-module (guix packages)
#:use-module (guix utils)
#:use-module (gnu packages)
#:use-module (gnu packages package-management)
#:use-module (gnu packages build-tools)
#:use-module (gnu packages virtualization)
#:use-module (gnu packages firmware)
#:use-module (guix gexp))
(define-public ovmf-new
(package
(inherit ovmf)
(name "ovmf-new")
(arguments
(substitute-keyword-arguments (package-arguments ovmf)
((#:phases phases)
#~(modify-phases #$phases
(replace 'install
(lambda _
(let ((fmw (string-append #$output "/share/firmware")))
(mkdir-p fmw)
(copy-recursively "Build/OvmfX64/RELEASE_GCC49/FV" fmw)
(copy-file "Build/OvmfX64/RELEASE_GCC49/FV/OVMF.fd" (string-append fmw "/OVMF_CODE.fd"))
)))
))))))

41
modules/home-packages/virtualization.scm
View file

@ -6,7 +6,6 @@
#:use-module (gnu packages build-tools)
#:use-module (gnu packages virtualization)
#:use-module (gnu packages firmware)
#:use-module (home-packages firmware)
#:use-module (guix gexp))
(define-public libvirt-new
@ -25,9 +24,6 @@
(let ((fmw (string-append #$output "/share/qemu")))
(mkdir-p fmw)
(copy-recursively #$(file-append qemu "/share/qemu") fmw))
(let ((fmw (string-append #$output "/usr/share/OVMF")))
(mkdir-p fmw)
(copy-recursively #$(file-append ovmf-new "/share/firmware") fmw))
))
))))))
@ -47,42 +43,5 @@
(let ((fmw (string-append #$output "/share/qemu")))
(mkdir-p fmw)
(copy-recursively #$(file-append qemu "/share/firmware") fmw))
(let ((fmw (string-append #$output "/usr/share/OVMF")))
(mkdir-p fmw)
(copy-recursively #$(file-append ovmf-new "/share/firmware") fmw))
))
))))))
;; (define-public libvirt-new
;; (package
;; (inherit libvirt)
;; (inputs
;; (modify-inputs (package-inputs libvirt)
;; (append ovmf-new)))
;; (arguments
;; (substitute-keyword-arguments (package-arguments libvirt)
;; ((#:phases phases)
;; #~(modify-phases #$phases
;; (add-after 'install 'ovmf
;; (lambda _
;; (let ((fmw (string-append #$output "/usr/share/OVMF")))
;; (mkdir-p fmw)
;; (copy-recursively #$(file-append ovmf-new "/share/firmware") fmw))
;; ))
;; ))))))
;; (define-public virt-manager-new
;; (package
;; (inherit virt-manager)
;; (name "virt-manager-new")
;; (arguments
;; (substitute-keyword-arguments (package-arguments virt-manager)
;; ((#:phases phases)
;; #~(modify-phases #$phases
;; (add-after 'install 'ovmf
;; (lambda _
;; (let ((fmw (string-append #$output "/usr/share/OVMF")))
;; (mkdir-p fmw)
;; (copy-recursively #$(file-append ovmf-new "/share/firmware") fmw)
;; )))
;; ))))))