more hyprland plugins, bluetooth fixes, etc

This commit is contained in:
Freya Murphy 2024-06-23 22:15:59 -04:00
parent 69b6c71951
commit 608d0859d3
Signed by: freya
GPG key ID: 744AB800E383AE52
9 changed files with 129 additions and 57 deletions

View file

@ -28,3 +28,4 @@ bind = $mod SHIFT, s, exec, grim -g "$(slurp)" - | wl-copy -t image/png && notif
bind = , Print, exec, grim - | wl-copy -t iamge/png && notify-send -t 3000 "Hyprland" "Full screen copied to clipboard"
bind = SHIFT, Print, exec, slurp -p | grim -g - - | convert - txt:- | tail -n 1 | awk '{print $3}' | wl-copy
bind = $mod, tab, hyprexpo:expo, toggle

View file

@ -1,2 +1,3 @@
exec-once = hyprctl plugin load /run/current-system/profile/lib/libhy3.so
exec-once = hyprctl plugin load /run/current-system/profile/lib/libhyprbars.so
exec-once = hyprctl plugin load /run/current-system/profile/lib/libhyprexpo.so

View file

@ -0,0 +1,3 @@
[preferred]
default=hyprland;gtk
org.freedesktop.impl.portal.FileChooser=gtk

View file

@ -131,6 +131,7 @@
("desktop-common" ,(local-file "config/desktop-common" #:recursive? #t))
("mimeapps.list" ,(local-file "config/xdg/mimeapps.list" #:recursive? #t))
("user-dirs.dirs" ,(local-file "config/xdg/user-dirs.dirs" #:recursive? #t))
("xdg-desktop-portal/portals.conf" ,(local-file "config/xdg/portals.conf"))
("starship.toml" ,(local-file "config/starship/starship.toml" #:recursive? #t))
("home-manager/home.nix" ,(local-file "home.nix" #:recursive? #t)) ))
@ -142,6 +143,7 @@
(".local/share/fonts" ,(local-file "local/fonts" #:recursive? #t))
(".local/share/applications" ,(local-file "local/applications" #:recursive? #t))
(".local/share/icons" ,(local-file "local/icons" #:recursive? #t))
(".local/share/dbus-1/services" ,(local-file "local/dbus/services" #:recursive? #t))
(".nix-channels" ,(local-file "nix-channels"))
(".gitconfig" ,(local-file "config/git/gitconfig"))))

View file

@ -0,0 +1,34 @@
(define-module (freya packages linux)
#:use-module (guix download)
#:use-module (guix packages)
#:use-module (guix gexp)
#:use-module (gnu packages)
#:use-module (gnu packages linux)
#:use-module (gnu packages python-xyz)
#:use-module (guix git-download)
#:use-module (guix utils))
(define-public bluez-new
(package
(inherit bluez)
(version "5.72")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://kernel.org/linux/bluetooth/bluez-"
version ".tar.xz"))
(sha256
(base32
"0vjk4ihywzv8k07bxq7clqgi2afrw54nfp0gcnxw35m98nipz7a9"))))
(arguments
(list
#:configure-flags
#~(list "--sysconfdir=/etc"
"--localstatedir=/var"
"--enable-library"
"--disable-manpages"
"--disable-systemd"
"--enable-hid2hci"
(string-append "--with-dbusconfdir=" #$output "/etc")
(string-append "--with-udevdir=" #$output "/lib/udev"))))))

View file

@ -0,0 +1,16 @@
(define-module (freya packages networking)
#:use-module (guix gexp)
#:use-module (guix packages)
#:use-module (gnu packages)
#:use-module (gnu packages networking)
#:use-module (freya packages linux)
#:use-module (guix utils))
(define-public blueman-new
(package
(inherit blueman)
(inputs
(modify-inputs
(package-inputs blueman)
(delete "bluez")
(prepend bluez-new)))))

View file

@ -20,6 +20,7 @@
#:use-module (guix git-download)
#:use-module (guix build-system cmake)
#:use-module (guix build-system meson)
#:use-module (guix build-system trivial)
#:use-module (guix build utils)
#:use-module (rosenthal packages wm)
#:use-module (rosenthal packages freedesktop)
@ -201,47 +202,67 @@
(synopsis "i3 / sway like layout for hyprland.")
(description "Hyprland plugin for an i3 / sway like manual tiling layout")))
(define-syntax hyprland-plugin-impl
(syntax-rules ()
((_ plugin)
(let ((commit "fd133914bf1921db2a26627698f914478f6a9471")
(revision "1"))
(package
(name (string-append "hyprland-plugin-" plugin))
(version (git-version "0.40.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/hyprwm/hyprland-plugins.git")
(commit commit)))
(sha256
(base32
"0518ggbam7rllf9xfzhfn9fp364rbiycsrkag74jscy5br5cyl4g"))
(file-name (git-file-name name version))))
(build-system meson-build-system)
(arguments
`(#:tests? #f
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'chdir
(lambda _ (chdir (string-append "../source/" plugin "/")))))))
(native-inputs
(list pkg-config
gcc-13))
(inputs
(list gcc-13
pango
libinput
hyprland-protocols
hyprwayland-scanner
hyprland
hyprlang
wayland
wlroots-for-hyprland))
(license license:bsd-3)
(home-page "https://github.com/hyprwm/hyprland-plugins")
(synopsis (string-append "official " plugin " plugin for hyprland"))
(description (string-append "official " plugin " plugin for hyprland")))))))
(define-public hyprland-plugin-hyprbars
(let ((commit "fd133914bf1921db2a26627698f914478f6a9471")
(revision "1"))
(package
(name "hyprland-plugin-hyprbars")
(version (git-version "0.40.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/hyprwm/hyprland-plugins.git")
(commit commit)))
(sha256
(base32
"0518ggbam7rllf9xfzhfn9fp364rbiycsrkag74jscy5br5cyl4g"))
(file-name (git-file-name name version))))
(build-system meson-build-system)
(arguments
`(#:tests? #f
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'chdir
(lambda _ (chdir "../source/hyprbars/"))))))
(native-inputs
(list pkg-config))
(inputs
(list pango
gcc-13
libinput
hyprland-protocols
hyprwayland-scanner
hyprlang
hyprland
wayland
wlroots-for-hyprland))
(license license:bsd-3)
(home-page "https://github.com/hyprwm/hyprland-plugins")
(synopsis "adds simple title bars to windows")
(description "adds simple title bars to windows"))))
(define-public hyprland-plugins
(package
(name "hyprland-plugins")
(version "0.40.0")
(source #f)
(build-system trivial-build-system)
(arguments '(#:builder (begin (mkdir %output) #t)))
(license license:bsd-3)
(home-page "https://github.com/hyprwm/hyprland-plugins")
(synopsis "A collection of all the official hyprland plugins")
(description "A metapackage containing inputs for each official plugin")
(propagated-inputs
(list (hyprland-plugin-impl "borders-plus-plus")
(hyprland-plugin-impl "csgo-vulkan-fix")
(hyprland-plugin-impl "hyprbars")
(hyprland-plugin-impl "hyprexpo")
(hyprland-plugin-impl "hyprtrails")
(hyprland-plugin-impl "hyprwinwrap")))))
(define-public hyprlock
(let ((commit "d9a6229434fba475ea42b634ee2f03919236798d")

View file

@ -31,6 +31,8 @@
#:use-module (srfi srfi-1)
#:use-module (freya packages wm)
#:use-module (freya packages certs)
#:use-module (freya packages linux)
#:use-module (freya packages networking)
#:use-module (freya packages virtualization))
(define %my-base-packages
@ -118,7 +120,8 @@
; xdg
"xdg-utils"
"xdg-desktop-portal"
"xdg-desktop-portal-wlr"
;"xdg-desktop-portal-wlr"
"xdg-desktop-portal-gtk"
"xdg-desktop-portal-hyprland"
; firmware
@ -159,8 +162,6 @@
"pinentry"
"light"
"brightnessctl"
"bluez"
"blueman"
"wireguard-tools"
"fprintd"
"wireplumber"
@ -176,10 +177,12 @@
virt-manager-new
freya-ca-certs
hyprland-plugin-hy3
hyprland-plugin-hyprbars
hyprland-plugins
hyprlock
hyprpaper
hypridle)
hypridle
bluez-new
blueman-new)
%my-base-packages))
;; Below is the list of system services. TO search for available
@ -213,8 +216,9 @@
(service virtlog-service-type)
(service bluetooth-service-type
(bluetooth-configuration
(experimental #t)
(fast-connectable? #t)))
(bluez bluez-new)
(experimental #t)
(fast-connectable? #t)))
(service pam-limits-service-type)
(service fprintd-service-type)
(udev-rules-service 'fido2 libfido2 #:groups '("plugdev")))

10
node_modules/.yarn-integrity generated vendored
View file

@ -1,10 +0,0 @@
{
"systemParams": "linux-x64-64",
"modulesFolders": [],
"flags": [],
"linkedModules": [],
"topLevelPatterns": [],
"lockfileEntries": {},
"files": [],
"artifacts": {}
}