more fonts

home-config/alacritty/alacritty.yml

@@ -1,13 +1,13 @@
 font:
   size: 15
   normal:
-    family: "Monofur for Powerline"
+    family: "Monofur Nerd Font Mono"
     style: Regular
 
   bold:
-    family: "Monofur for Powerline"
+    family: "Monofur Nerd Font Mono"
     style: Bold
 
   italic:
-    family: "Monofur for Powerline"
+    family: "Monofur Nerd Font Mono"
     style: Italic

home-config/fonts/AnonymicePro/OFL.txt

@@ -0,0 +1,94 @@
+Copyright (c) 2009, Mark Simonson (http://www.ms-studio.com, mark@marksimonson.com),
+with Reserved Font Name Anonymous Pro.
+
+This Font Software is licensed under the SIL Open Font License, Version 1.1.
+This license is copied below, and is also available with a FAQ at:
+http://scripts.sil.org/OFL
+
+
+-----------------------------------------------------------
+SIL OPEN FONT LICENSE Version 1.1 - 26 February 2007
+-----------------------------------------------------------
+
+PREAMBLE
+The goals of the Open Font License (OFL) are to stimulate worldwide
+development of collaborative font projects, to support the font creation
+efforts of academic and linguistic communities, and to provide a free and
+open framework in which fonts may be shared and improved in partnership
+with others.
+
+The OFL allows the licensed fonts to be used, studied, modified and
+redistributed freely as long as they are not sold by themselves. The
+fonts, including any derivative works, can be bundled, embedded, 
+redistributed and/or sold with any software provided that any reserved
+names are not used by derivative works. The fonts and derivatives,
+however, cannot be released under any other type of license. The
+requirement for fonts to remain under this license does not apply
+to any document created using the fonts or their derivatives.
+
+DEFINITIONS
+"Font Software" refers to the set of files released by the Copyright
+Holder(s) under this license and clearly marked as such. This may
+include source files, build scripts and documentation.
+
+"Reserved Font Name" refers to any names specified as such after the
+copyright statement(s).
+
+"Original Version" refers to the collection of Font Software components as
+distributed by the Copyright Holder(s).
+
+"Modified Version" refers to any derivative made by adding to, deleting,
+or substituting -- in part or in whole -- any of the components of the
+Original Version, by changing formats or by porting the Font Software to a
+new environment.
+
+"Author" refers to any designer, engineer, programmer, technical
+writer or other person who contributed to the Font Software.
+
+PERMISSION & CONDITIONS
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of the Font Software, to use, study, copy, merge, embed, modify,
+redistribute, and sell modified and unmodified copies of the Font
+Software, subject to the following conditions:
+
+1) Neither the Font Software nor any of its individual components,
+in Original or Modified Versions, may be sold by itself.
+
+2) Original or Modified Versions of the Font Software may be bundled,
+redistributed and/or sold with any software, provided that each copy
+contains the above copyright notice and this license. These can be
+included either as stand-alone text files, human-readable headers or
+in the appropriate machine-readable metadata fields within text or
+binary files as long as those fields can be easily viewed by the user.
+
+3) No Modified Version of the Font Software may use the Reserved Font
+Name(s) unless explicit written permission is granted by the corresponding
+Copyright Holder. This restriction only applies to the primary font name as
+presented to the users.
+
+4) The name(s) of the Copyright Holder(s) or the Author(s) of the Font
+Software shall not be used to promote, endorse or advertise any
+Modified Version, except to acknowledge the contribution(s) of the
+Copyright Holder(s) and the Author(s) or with their explicit written
+permission.
+
+5) The Font Software, modified or unmodified, in part or in whole,
+must be distributed entirely under this license, and must not be
+distributed under any other license. The requirement for fonts to
+remain under this license does not apply to any document created
+using the Font Software.
+
+TERMINATION
+This license becomes null and void if any of the above conditions are
+not met.
+
+DISCLAIMER
+THE FONT SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO ANY WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT
+OF COPYRIGHT, PATENT, TRADEMARK, OR OTHER RIGHT. IN NO EVENT SHALL THE
+COPYRIGHT HOLDER BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+INCLUDING ANY GENERAL, SPECIAL, INDIRECT, INCIDENTAL, OR CONSEQUENTIAL
+DAMAGES, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+FROM, OUT OF THE USE OR INABILITY TO USE THE FONT SOFTWARE OR FROM
+OTHER DEALINGS IN THE FONT SOFTWARE.

home-config/fonts/AnonymicePro/readme.md

@@ -0,0 +1,8 @@
+
+# Nerd Fonts
+
+This is an archived font from a Nerd Fonts release.
+
+For more information see:
+* https://github.com/ryanoasis/nerd-fonts/
+* https://github.com/ryanoasis/nerd-fonts/releases/latest/

home-config/fonts/MonofurNerdFont/LICENSE.txt

@@ -0,0 +1,20 @@
+------------------------------------------------------------------------
+The monofur typeface by tobias b koehler (unci@tigerden.com)
+------------------------------------------------------------------------
+
+This is a monospaced geometric rounded sans serif font based on the
+eurofurence typeface family.
+
+The character set includes Roman, Greek and Cyrillic characters as well
+as box drawing characters. File format is TrueType for PC (under 
+Windows, Linux etc).
+
+These fonts are freeware and can be distributed as long as they are
+together with this text file. I would appreciate it though if you could
+contact me at unci@tigerden.com if you put them on a server. Free
+samples from commercial users are always very welcome. :)
+
+For more information, please see the uncifonts WWW page at:
+http://mercurio.iet.unipi.it/users/tobias/uncifonts.html
+
+Have fun!                                   tobias b koehler, 2000-04-02

home-config/fonts/MonofurNerdFont/readme.md

@@ -0,0 +1,8 @@
+
+# Nerd Fonts
+
+This is an archived font from a Nerd Fonts release.
+
+For more information see:
+* https://github.com/ryanoasis/nerd-fonts/
+* https://github.com/ryanoasis/nerd-fonts/releases/latest/

home-config/home-configuration.scm

@@ -16,7 +16,8 @@
              (gnu home services desktop)
              (gnu home services gnupg)
              (gnu home services)
-             (ryan-services pipewire))
+             (ryan-services pipewire)
+             (ryan-packages freedesktop))
 
 (define my-neovim
   (package
@@ -91,7 +92,7 @@
                                                     "git"
                                                     "node"
                                                     "git-lfs"))
-                    (list my-neovim)))
+                    (list my-neovim wl-mirror)))
 
   ;; Below is the list of Home services.  To search for available
   ;; services, run 'guix home search KEYWORD' in a terminal.

home-config/waybar/config

@@ -36,10 +36,10 @@
         "bat":"BAT1"
     },
     "bluetooth": {
-        "format": "",
-        "format-disabled": "",
-        "format-connected": "",
-        "format-connected-battery": " {device_battery_percentage}%",
+        "format": "󰂯",
+        "format-disabled": "󰂲",
+        "format-connected": "󰂯",
+        "format-connected-battery": "󰂱 {device_battery_percentage}%",
         "on-click": "blueman-manager",
         "tooltip-format": "{controller_alias}\t{controller_address}\n\n{num_connections} connected",
 	    "tooltip-format-connected": "{controller_alias}\t{controller_address}\n\n{num_connections} connected\n\n{device_enumerate}",
@@ -75,9 +75,9 @@
         "interval": 2,
         "return-type": "json",
         "exec": "~/.config/waybar/modules/spotify.sh",
-        "exec-if": "pgrep spotifyd",
+        "exec-if": "~/.config/waybar/modules/check-for-music.sh",
         "escape": true,
-        "on-click": "~/.config/waybar/modules/spotify-play-pause.sh play-pause"
+        "on-click": "playerctl play-pause"
     },
     "custom/storage": {
         "format-alt": "{} ",

home-config/waybar/modules/check-for-music.sh

@@ -0,0 +1,7 @@
+#!/bin/sh
+
+if [[ $(playerctl metadata --format '{{lc(status)}}' | grep playing) -eq 0 ]]; then
+    exit 0
+else
+    exit 1
+fi

home-config/waybar/modules/spotify.sh

@@ -1,12 +1,12 @@
 #!/bin/sh
 
-class=$(playerctl metadata --player=spotifyd --format '{{lc(status)}}')
-icon=""
+class=$(playerctl metadata --format '{{lc(status)}}')
+icon="󰎆"
 
 if [[ $class == "playing" ]]; then
-  info=$(playerctl metadata --player=spotifyd --format '{{artist}} - {{title}}')
+  info=$(playerctl metadata --format '{{artist}} - {{title}}')
   if [[ ${#info} > 40 ]]; then
-    info=$(echo $info | cut -c1-40)"..."
+    info=$(playerctl metadata --format '{{title}}' | cut -c1-40)"..."
   fi
   text=$info" "$icon
 elif [[ $class == "paused" ]]; then

home-config/waybar/style.css

@@ -1,7 +1,7 @@
 * {
     border:        none;
     border-radius: 0;
-    font-family:   Sans;
+    font-family:   AnonymicePro Nerd Font;
     font-size:     15px;
     box-shadow:    none;
     text-shadow:   none;

modules/ryan-config/base-system.scm

@@ -173,7 +173,10 @@
                               (libvirt libvirt-ovmf)
                               (unix-sock-group "libvirt")))
                    (service virtlog-service-type)
-                   (service bluetooth-service-type)
+                   (service bluetooth-service-type
+                            (bluetooth-configuration
+                              (experimental #t)
+                              (fast-connectable? #t)))
                    (udev-rules-service 'fido2 libfido2 #:groups '("plugdev")))
 
              ;; This is the default list of services we

modules/ryan-packages/freedesktop.scm

@@ -4,6 +4,9 @@
                 #:use-module (guix gexp)
                 #:use-module (guix build-system meson)
                 #:use-module (guix build-system qt)
+                #:use-module (guix build-system cmake)
+                #:use-module (guix build utils)
+                #:use-module (guix build glib-or-gtk-build-system)
                 #:use-module (guix packages)
                 #:use-module (guix git-download)
                 #:use-module (guix utils)
@@ -15,6 +18,8 @@
                 #:use-module (gnu packages cmake)
                 #:use-module (gnu packages pkg-config)
                 #:use-module (gnu packages freedesktop)
+                #:use-module (gnu packages xorg)
+                #:use-module (gnu packages man)
                 #:use-module (rosenthal packages wm)
                 #:use-module (gnu packages wm))
 
@@ -97,4 +102,34 @@
     (description "test")
     (license license:bsd-3)))
 
-xdg-desktop-portal-hyprland
+(define-public wl-mirror
+  (package
+    (name "wl-mirror")
+    (version "0.13.2")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                     (url "https://github.com/Ferdi265/wl-mirror")
+                     (commit (string-append "v" version))
+                     (recursive? #t)))
+              (file-name (git-file-name name version))
+              (sha256
+                (base32
+                  "0vkd73x5r2585s3w1ckvslc2mq9qbzrm5xkwg8gpy9ydaxhn8hmp"))))
+    (inputs (list wayland egl-wayland mesa))
+    (native-inputs (list pkg-config scdoc wayland-protocols))
+    (build-system cmake-build-system)
+    (arguments (list
+                 #:tests? #f
+                 #:phases
+                 #~(modify-phases %standard-phases
+                    (add-before 'configure 'touch
+                      (lambda _
+                        (invoke "touch" "proto/wayland-protocols/.git")
+                        (invoke "touch" "proto/wlr-protocols/.git"))))))
+    (home-page "bleh")
+    (synopsis "mirror displays")
+    (description "mirror displays")
+    (license license:expat)))
+
+wl-mirror