Compare

+ (kernel-arguments (append (list "intel_iommu=on")

+ %default-kernel-arguments))

+ (initrd-modules (cons* "vfio_pci" "vfio" "vfio_iommu_type1"

+ %base-initrd-modules))

+ "40e78353a4699b8edb6600d82df648914c9110b9")

+ "bb184bd0a8f91beec3a00718759e96c7828853de")

+ "58ad8f96b670fd58c474d188be7ae8fa0840b791")

+#!/run/current-system/profile/bin/bash

+

+gather_env() {

+ # Gather needed information

+ echo -n "Type 'e' for encrypted or 'd' for decrypted install: "

+ read install_type

+

+ echo -n "Type system hostname: "

+ read install_hostname

+

+ echo -n "Type device file for ROOT data: "

+ read root_dev

+

+ echo -n "Type device file for BOOT data: "

+ read boot_dev

+

+ echo -n "Type device file for SWAP: "

+ read swap_dev

+

+}

+

+copy_and_prepare() {

+ # Associate devs with uuids

+ root_uuid=`blkid $root_dev | awk -F\" '{print $2}'`

+ boot_uuid=`blkid $boot_dev | awk -F\" '{print $2}'`

+ swap_uuid=`blkid $swap_dev | awk -F\" '{print $2}'`

+ # Let's a go!

+ echo "Information gathered. Deploying Guix on $root_dev ($root_uuid) with boot on $boot_dev ($boot_uuid) and swap on $swap_dev ($swap_uuid)"

+ echo -n "Proceed? (y/n): "

+ read install_choice

+

+ if [ "$install_choice" != "y" ]

+ then

+ echo "Bailing!"

+ exit 1

+ fi

+

+ # We are installing!

+ # Copy template to root of repo

+ if [ "$install_type" == "e" ]

+ then

+ cp ./modules/ryan-config/deploy-templates/HostTemplateEncrypted ./$install_hostname.scm

+ elif [ "$install_type" == "d" ]

+ then

+ cp ./modules/ryan-config/deploy-templates/HostTemplate ./$install_hostname.scm

+ else

+ echo "Invalid install type (not d or e), bailing!"

+ exit 1

+ fi

+

+ # Correct the information

+ sed -i "s/ChangeMe_ROOT/$root_uuid/" ./$install_hostname.scm

+ sed -i "s/ChangeMe_BOOTEFI/$boot_uuid/" ./$install_hostname.scm

+ sed -i "s/ChangeMe_SWAP/$swap_uuid/" ./$install_hostname.scm

+ sed -i "s/ChangeMe_HOST/$install_hostname/" ./$install_hostname.scm

+

+ # Install!

+ echo "Mounting /gnu/store to destination disk..."

+ herd start cow-store /mnt

+

+ # Install the non-guix signing keys

+ echo "Installing non-guix signing keys for substitutes..."

+ curl -o sign-key.pub https://substitutes.nonguix.org/signing-key.pub

+ curl -o sign-key-r.pub http://129.21.94.53:8000/signing-key.pub

+ guix archive --authorize < sign-key.pub

+ guix archive --authorize < sign-key-r.pub

+}

+

+install_system() {

+ echo "Beginning install!"

+ guix time-machine -C ./channels.scm -- system -L ./modules --substitute-urls='http://129.21.94.53:8080/ https://substitutes.nonguix.org https://bordeaux.guix.gnu.org https://ci.guix.gnu.org' init $install_hostname.scm /mnt

+}

+

+install_user_env() {

+ # System should be installed now, we can chroot in and configure the user profile now

+ # NOTE: This assumes the user "ryan" for things, so change the USER var if you change your username

+

+ # Copy some files over to prepare for reboot

+ USER=ryan

+ guix shell git -- git clone https://git.stationery.faith/ryan77627/guix-dotfiles /mnt/home/$USER/.config/guix

+

+ cp ~/guix-dotfiles/$install_hostname.scm /mnt/home/$USER/.config/guix/$install_hostname.scm

+ cp ~/guix-dotfiles/modules/ryan-config/user_first_run.sh /mnt/home/$USER/.bashrc

+

+ chown 1000:1000 -R /mnt/home/ryan

+

+}

+

+if [[ $* == *-p ]]

+then

+ echo "Installing non-guix signing keys for substitutes..."

+ curl -o sign-key.pub https://substitutes.nonguix.org/signing-key.pub

+ curl -o sign-key-r.pub http://129.21.94.53:8000/signing-key.pub

+ guix archive --authorize < sign-key.pub

+ guix archive --authorize < sign-key-r.pub

+ guix time-machine -C ./channels.scm -- pull

+ exit 0

+elif [[ $* == *-i ]]

+then

+ gather_env

+ # Associate devs with uuids

+ root_uuid=`blkid $root_dev | awk -F\" '{print $2}'`

+ boot_uuid=`blkid $boot_dev | awk -F\" '{print $2}'`

+ swap_uuid=`blkid $swap_dev | awk -F\" '{print $2}'`

+ # Let's a go!

+ echo "Information gathered. Deploying Guix on $root_dev ($root_uuid) with boot on $boot_dev ($boot_uuid) and swap on $swap_dev ($swap_uuid)"

+ echo -n "Proceed? (y/n): "

+ read install_choice

+

+ if [ "$install_choice" != "y" ]

+ then

+ echo "Bailing!"

+ exit 1

+ fi

+

+ # We are installing!

+ # Copy template to root of repo

+ if [ "$install_type" == "e" ]

+ then

+ cp ./modules/ryan-config/deploy-templates/HostTemplateEncrypted ./$install_hostname.scm

+ elif [ "$install_type" == "d" ]

+ then

+ cp ./modules/ryan-config/deploy-templates/HostTemplate ./$install_hostname.scm

+ else

+ echo "Invalid install type (not d or e), bailing!"

+ exit 1

+ fi

+

+ # Correct the information

+ sed -i "s/ChangeMe_ROOT/$root_uuid/" ./$install_hostname.scm

+ sed -i "s/ChangeMe_BOOTEFI/$boot_uuid/" ./$install_hostname.scm

+ sed -i "s/ChangeMe_SWAP/$swap_uuid/" ./$install_hostname.scm

+ sed -i "s/ChangeMe_HOST/$install_hostname/" ./$install_hostname.scm

+

+ # Install!

+ echo "Mounting /gnu/store to destination disk..."

+ herd start cow-store /mnt

+ install_system

+ install_user_env

+ exit 0

+fi

+

+gather_env

+copy_and_prepare

+install_system

+install_user_env

+

+# Reboot the machine at this point!

+#reboot

+spinner = '/,-,\,|'

+

+window:

+ opacity: 0.70

+ family: "Monofur Nerd Font Mono"

+ family: "Monofur Nerd Font Mono"

+ family: "Monofur Nerd Font Mono"

+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.

+

+# 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/

+------------------------------------------------------------------------

+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

+

+# 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/

+ (ryan-services pipewire)

+ (ryan-packages freedesktop)

+ (ryan-packages mozilla))

+ "gnunet"

+ "cloc"

+ "netcat"

+ "password-store"

+ (list my-neovim wl-mirror firefox-wayland-new)))

+ ("nvim/after/ftplugin/mail/custom.vim" ,(local-file "nvim/config/after/ftplugin/mail/custom.vim"))

+ ("mpv" ,(local-file "mpv" #:recursive? #t))

+bind = $mainMod SHIFT, Return, pin, active

+# Change color of pinned windows

+windowrulev2 = bordercolor rgba(bf0000ee) rgba(ab00adee) 45deg,pinned:1

+

+local msg = require('mp.msg')

+local assdraw = require('mp.assdraw')

+

+local script_name = "easycrop"

+

+-- Number of crop points currently chosen (0 to 2)

+local points = {}

+-- True if in cropping selection mode

+local cropping = false

+-- Original value of osc property

+local osc_prop = false

+

+-- Helper that converts two points to top-left and bottom-right

+local swizzle_points = function (p1, p2)

+ if p1.x > p2.x then p1.x, p2.x = p2.x, p1.x end

+ if p1.y > p2.y then p1.y, p2.y = p2.y, p1.y end

+end

+

+local clamp = function (val, min, max)

+ assert(min <= max)

+ if val < min then return min end

+ if val > max then return max end

+ return val

+end

+

+local video_space_from_screen_space = function (ssp)

+ -- Video native dimensions and screen size

+ local vid_w = mp.get_property("width")

+ local vid_h = mp.get_property("height")

+ local osd_w = mp.get_property("osd-width")

+ local osd_h = mp.get_property("osd-height")

+

+ -- Factor by which the video is scaled to fit the screen

+ local scale = math.min(osd_w/vid_w, osd_h/vid_h)

+

+ -- Size video takes up in screen

+ local vid_sw, vid_sh = scale*vid_w, scale*vid_h

+

+ -- Video offset within screen

+ local off_x = math.floor((osd_w - vid_sw)/2)

+ local off_y = math.floor((osd_h - vid_sh)/2)

+

+ local vsp = {}

+

+ -- Move the point to within the video

+ vsp.x = clamp(ssp.x, off_x, off_x + vid_sw)

+ vsp.y = clamp(ssp.y, off_y, off_y + vid_sh)

+

+ -- Convert screen-space to video-space

+ vsp.x = math.floor((vsp.x - off_x) / scale)

+ vsp.y = math.floor((vsp.y - off_y) / scale)

+

+ return vsp

+end

+

+local screen_space_from_video_space = function (vsp)

+ -- Video native dimensions and screen size

+ local vid_w = mp.get_property("width")

+ local vid_h = mp.get_property("height")

+ local osd_w = mp.get_property("osd-width")

+ local osd_h = mp.get_property("osd-height")

+

+ -- Factor by which the video is scaled to fit the screen

+ local scale = math.min(osd_w/vid_w, osd_h/vid_h)

+

+ -- Size video takes up in screen

+ local vid_sw, vid_sh = scale*vid_w, scale*vid_h

+

+ -- Video offset within screen

+ local off_x = math.floor((osd_w - vid_sw)/2)

+ local off_y = math.floor((osd_h - vid_sh)/2)

+

+ local ssp = {}

+ ssp.x = vsp.x * scale + off_x

+ ssp.y = vsp.y * scale + off_y

+ return ssp

+end

+

+-- Wrapper that converts RRGGBB / RRGGBBAA to ASS format

+local ass_set_color = function (idx, color)

+ assert(color:len() == 8 or color:len() == 6)

+ local ass = ""

+

+ -- Set alpha value (if present)

+ if color:len() == 8 then

+ local alpha = 0xff - tonumber(color:sub(7, 8), 16)

+ ass = ass .. string.format("\\%da&H%X&", idx, alpha)

+ end

+

+ -- Swizzle RGB to BGR and build ASS string

+ color = color:sub(5, 6) .. color:sub(3, 4) .. color:sub(1, 2)

+ return "{" .. ass .. string.format("\\%dc&H%s&", idx, color) .. "}"

+end

+

+local draw_rect = function (p1, p2)

+ local osd_w, osd_h = mp.get_property("osd-width"), mp.get_property("osd-height")

+

+ ass = assdraw.ass_new()

+

+ -- Draw overlay over surrounding unselected region

+

+ ass:draw_start()

+ ass:pos(0, 0)

+

+ ass:append(ass_set_color(1, "000000aa"))

+ ass:append(ass_set_color(3, "00000000"))

+

+ local l = math.min(p1.x, p2.x)

+ local r = math.max(p1.x, p2.x)

+ local u = math.min(p1.y, p2.y)

+ local d = math.max(p1.y, p2.y)

+

+ ass:rect_cw(0, 0, l, osd_h)

+ ass:rect_cw(r, 0, osd_w, osd_h)

+ ass:rect_cw(l, 0, r, u)

+ ass:rect_cw(l, d, r, osd_h)

+

+ ass:draw_stop()

+

+ -- Draw border around selected region

+

+ ass:new_event()

+ ass:draw_start()

+ ass:pos(0, 0)

+

+ ass:append(ass_set_color(1, "00000000"))

+ ass:append(ass_set_color(3, "000000ff"))

+ ass:append("{\\bord2}")

+

+ ass:rect_cw(p1.x, p1.y, p2.x, p2.y)

+

+ ass:draw_stop()

+

+ mp.set_osd_ass(osd_w, osd_h, ass.text)

+end

+

+local draw_fill = function ()

+ local osd_w, osd_h = mp.get_property("osd-width"), mp.get_property("osd-height")

+

+ ass = assdraw.ass_new()

+ ass:draw_start()

+ ass:pos(0, 0)

+

+ ass:append(ass_set_color(1, "000000aa"))

+ ass:append(ass_set_color(3, "00000000"))

+ ass:rect_cw(0, 0, osd_w, osd_h)

+

+ ass:draw_stop()

+ mp.set_osd_ass(osd_w, osd_h, ass.text)

+end

+

+local draw_clear = function ()

+ local osd_w, osd_h = mp.get_property("osd-width"), mp.get_property("osd-height")

+ mp.set_osd_ass(osd_w, osd_h, "")

+end

+

+local draw_cropper = function ()

+ if #points == 1 then

+ local p1 = screen_space_from_video_space(points[1])

+ local p2 = {}

+ p2.x, p2.y = mp.get_mouse_pos()

+ draw_rect(p1, p2)

+ end

+end

+

+local uncrop = function ()

+ mp.command("no-osd vf del @" .. script_name .. ":crop")

+end

+

+local crop = function(p1, p2)

+ swizzle_points(p1, p2)

+

+ local w = p2.x - p1.x

+ local h = p2.y - p1.y

+ local ok, err = mp.command(string.format(

+ "no-osd vf add @%s:crop=%s:%s:%s:%s", script_name, w, h, p1.x, p1.y))

+

+ if not ok then

+ mp.osd_message("Cropping failed")

+ points = {}

+ end

+end

+

+local easycrop_stop = function ()

+ mp.set_property("osc", osc_prop)

+ cropping = false

+ mp.remove_key_binding("easycrop_mouse_btn0")

+ draw_clear()

+end

+

+local mouse_btn0_cb = function ()

+ if not cropping then

+ return

+ end

+

+ local mx, my = mp.get_mouse_pos()

+ table.insert(points, video_space_from_screen_space({ x = mx, y = my }))

+

+ if #points == 2 then

+ crop(points[1], points[2])

+ easycrop_stop()

+ end

+end

+

+local easycrop_start = function ()

+ -- Cropping requires swdec or hwdec with copy-back

+ local hwdec = mp.get_property("hwdec-current")

+ if hwdec == nil then

+ return mp.msg.error("Cannot determine current hardware decoder mode")

+ end

+ -- Check whitelist of ok values

+ local valid_hwdec = {

+ ["no"] = true, -- software decoding

+ -- Taken from mpv manual

+ ["videotoolbox-co"] = true,

+ ["vaapi-copy"] = true,

+ ["dxva2-copy"] = true,

+ ["d3d11va-copy"] = true,

+ ["mediacodec"] = true

+ }

+ if not valid_hwdec[hwdec] then

+ return mp.osd_message("Cropping requires swdec or hwdec with copy-back (see mpv manual)")

+ end

+

+ -- Just clear the current crop and return, if there is one

+ if #points ~= 0 then

+ uncrop()

+ points = {}

+ return

+ end

+

+ -- Hide OSC

+ osc_prop = mp.get_property("osc")

+ mp.set_property("osc", "no")

+

+ cropping = true

+ mp.add_forced_key_binding("mouse_btn0", "easycrop_mouse_btn0", mouse_btn0_cb)

+ draw_fill()

+end

+

+local easycrop_activate = function ()

+ if cropping then

+ easycrop_stop()

+ else

+ easycrop_start()

+ end

+end

+

+mp.add_key_binding("mouse_move", draw_cropper)

+mp.observe_property("osd-width", "native", draw_cropper)

+mp.observe_property("osd-height", "native", draw_cropper)

+

+mp.add_key_binding("c", "easy_crop", easycrop_activate)

+ #pass

+ rustup

+ gcc

+ pkg-config

+setlocal tw=0

+setlocal lbr

+set cursorline

+set cc=79

+ "modules-left": ["hyprland/workspaces", "hyprland/submap"],

+ "hyprland/workspaces": {

+ "format": "{id}",

+ "all-outputs": false,

+ "format": "󰂯",

+ "format-disabled": "󰂲",

+ "format-connected": "󰂯",

+ "format-connected-battery": "󰂱 {device_battery_percentage}%",

+icon="󰎆"

+ font-family: AnonymicePro Nerd Font;

+ (append (list "https://substitutes.nonguix.org" "http://129.21.94.53:8080")

+ )" )

+ (plain-file "ryan-key.pub"

+ "(public-key

+ (ecc

+ (curve Ed25519)

+ (q #24ED64A7C001DAC05D47F586623EAC4C1F4BD2D267686D5781A9098808160ADC#)))" ) %default-authorized-guix-keys))))

+(use-modules (ryan-config base-system)

+ (gnu))

+

+(operating-system

+ (inherit base-operating-system)

+ (host-name "ChangeMe_HOST")

+ (file-systems (cons* (file-system

+ (mount-point "/")

+ (device (uuid "ChangeMe_ROOT"

+ 'ext4))

+ (type "ext4"))

+ (file-system

+ (mount-point "/boot/efi")

+ (device (uuid "ChangeMe_BOOTEFI"

+ 'fat32))

+ (type "vfat")) %base-file-systems))

+ (swap-devices

+ (list

+ (swap-space (target (uuid "ChangeMe_SWAP"))))))

+(use-modules (ryan-config base-system)

+ (gnu))

+

+(operating-system

+ (inherit base-operating-system)

+ (host-name "ChangeMe_HOST")

+ (mapped-devices (list (mapped-device

+ (source (uuid

+ "ChangeMe_ROOT"))

+ (target "sysroot")

+ (type luks-device-mapping))))

+ (file-systems (cons* (file-system

+ (mount-point "/")

+ (device "/dev/mapper/sysroot")

+ (type "ext4")

+ (dependencies mapped-devices))

+ (file-system

+ (mount-point "/boot/efi")

+ (device (uuid "ChangeMe_BOOTEFI"

+ 'fat32))

+ (type "vfat")) %base-file-systems))

+ (swap-devices

+ (list

+ (swap-space (target (uuid "ChangeMe_SWAP"))))))

+#!/run/current-system/profile/bin/bash

+

+# This should run on user first logon, so let's a go!

+# First, we should run a guix pull

+

+guix pull

+

+hash guix

+

+guix home -L ~/.config/guix/modules reconfigure ~/.config/guix/home-config/home-configuration.scm

+

+sudo herd restart nix-daemon

+

+nix-channel --update

+

+nix-shell '<home-manager>' -A install

+

+source ~/.bashrc

+

+home-manager switch

+ #:use-module (guix build-system cmake)

+ #:use-module (guix build utils)

+ #:use-module (guix build glib-or-gtk-build-system)

+ #:use-module (gnu packages xorg)

+ #:use-module (gnu packages man)

+(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

+(define-module (ryan-packages mozilla)

+ #:use-module (gnu)

+ #:use-module (guix download)

+ #:use-module (guix packages)

+ #:use-module ((guix licenses) #:prefix license:)

+ #:use-module (gnu packages bash)

+ #:use-module (gnu packages linux)

+ #:use-module (nonguix build-system binary)

+ #:use-module (guix build-system trivial)

+ #:use-module (nongnu packages mozilla))

+

+(define firefox*

+ (package/inherit

+ firefox

+ (inputs

+ (modify-inputs

+ (package-inputs firefox)

+ (delete "pipewire")

+ (append pipewire)))))

+

+(define-public firefox-wayland-new

+ (package

+ (inherit firefox*)

+ (name "firefox-wayland-new")

+ (native-inputs '())

+ (inputs

+ `(("bash" ,bash-minimal)

+ ("pipewire" ,pipewire)

+ ("firefox" ,firefox*)))

+ (build-system trivial-build-system)

+ (arguments

+ '(#:modules ((guix build utils))

+ #:builder

+ (begin

+ (use-modules (guix build utils))

+ (let* ((bash (assoc-ref %build-inputs "bash"))

+ (firefox (assoc-ref %build-inputs "firefox"))

+ (pipewire (assoc-ref %build-inputs "pipewire"))

+ (out (assoc-ref %outputs "out"))

+ (exe (string-append out "/bin/firefox")))

+ (mkdir-p (dirname exe))

+

+ (call-with-output-file exe

+ (lambda (port)

+ ;; NOTE: added "export LD_LIBRARY_PATH=pipewire"

+ ;; maybe this can be done better with `wrap-programm'

+ (format port "#!~a \n

+export LD_LIBRARY_PATH=~a \n

+export MOZ_ENABLE_WAYLAND=1 \n

+exec ~a $@\n"

+ (string-append bash "/bin/bash")

+ (string-append pipewire "/lib")

+ (string-append firefox "/bin/firefox"))))

+ (chmod exe #o555)

+

+ ;; Provide the manual and .desktop file.

+ (copy-recursively (string-append firefox "/share")

+ (string-append out "/share"))

+ (substitute* (string-append

+ out "/share/applications/firefox.desktop")

+ ((firefox) out))

+ #t))))))

+(define-module (ryan-packages web-server)

+ #:use-module (guix download)

+ #:use-module (guix packages)

+ #:use-module (guix gexp)

+ #:use-module (gnu packages)

+ #:use-module ((guix licenses) #:prefix license:)

+ #:use-module (guix build-system go)

+ #:use-module (guix git-download)

+ #:use-module (gnu packages golang)

+ #:use-module (guix utils))

+

+(define-public go-github-com-caddy-certmagic

+ (package

+ (name "certmagic")

+ (version "0.19.2")

+ (source (origin

+ (method git-fetch)

+ (uri (git-reference

+ (url "https://github.com/caddyserver/certmagic")

+ (commit (string-append "v" version))))

+ (sha256

+ (base32

+ "0jgbkj0azkbs828vsd3gycpab8pycgf55vrxkvnfmwfjpdiq1551"))))

+ (build-system go-build-system)

+ (arguments

+ (list #:tests? #f

+ #:go go-1.20

+ #:import-path "github.com/caddyserver/certmagic"))

+ (home-page "https://github.com/caddyserver/certmagic")

+ (synopsis "Certbot ACME")

+ (description "Automagic certificate management in Caddy")

+ (license license:expat)))

+

+(define-public caddy

+ (package

+ (name "Caddy")

+ (version "2.7.4")

+ (source (origin

+ (method git-fetch)

+ (uri (git-reference

+ (url "https://github.com/caddyserver/caddy")

+ (commit (string-append "v" version))))

+ (sha256

+ (base32

+ "0jgbkj0azkbs828vsd3gycpab8pycgf55vrxkvnfmwfjpdiq1551"))))

+ (build-system go-build-system)

+ (native-inputs (list go-github-com-google-uuid

+ go-go-uber-org-zap

+ go-github-com-caddy-certmagic

+ go-github-com-prometheus-client-golang

+ go-golang-org-x-term

+ go-golang-org-x-sys))

+ (arguments

+ (list #:tests? #f

+ #:go go-1.20

+ ;#:unpack-path "github.com/caddyserver/caddy"

+ #:import-path "github.com/caddyserver/caddy"))

+ (home-page "https://github.com/caddyserver/caddy")

+ (synopsis "Web server")

+ (description "This package serves the web")

+ (license license:expat)))

+

+caddy