fix channel file

.guix-authorizations

@@ -0,0 +1,6 @@
+
+(authorizations
+ (version 0)
+ (("4F6B C11C EBB2 F242 14B9  0FAC 9FF6 937B 829E 565A"
+   (name "freya"))))
+

.guix-channel

@@ -0,0 +1,14 @@
+(channel
+  (version 0)
+  (keyring-reference "keyring")
+  (url "https://git.stationery.faith/stationery-society/stationery-guix")
+  (dependencies
+    (channel
+        (name 'nonguix)
+        (url "https://gitlab.com/nonguix/nonguix")
+        (branch "master")
+        (introduction
+          (make-channel-introduction
+            "897c1a470da759236cc11798f4e0a5f7d4d59fbc"
+            (openpgp-fingerprint
+              "2A39 3FFF 68F4 EF7A 3D29  12AF 6F51 20A0 22FB B2D5"))))))

stationery/packages/audio.scm

@@ -1,4 +1,4 @@
-(define-module (packages audio)
+(define-module (stationery packages audio)
                #:use-module ((guix licenses) #:prefix license:)
                #:use-module (guix gexp)
                #:use-module (guix build-system meson)

stationery/packages/gnome-xyz.scm

@@ -0,0 +1,65 @@
+(define-module (stationery packages gnome-xyz)
+               #:use-module ((guix licenses) #:prefix license:)
+               #:use-module (guix gexp)
+               #:use-module (gnu packages base)
+               #:use-module (gnu packages version-control)
+               #:use-module (gnu packages web)
+               #:use-module (gnu packages bash)
+               #:use-module (gnu packages)
+               #:use-module (guix packages)
+               #:use-module (guix git-download)
+               #:use-module (guix download)
+               #:use-module (guix build-system trivial)
+               #:use-module (guix utils))
+
+(define-public lavanda-gtk-theme
+  (let ((commit "44c74ad34d272e07b91f779e62e63b6ef8645655"))
+  (package
+   (name "lavanda-gtk-theme")
+   (version (git-version "" "0" commit))
+   (source
+     (origin
+      (method git-fetch)
+      (uri (git-reference
+             (url "https://github.com/vinceliuice/Lavanda-gtk-theme.git")
+             (commit commit)))
+     (sha256
+       (base32
+         "1q253kl5lw9dpbmwaf715brdjka7b3s3kpl4i6s262dji84pp3dc"))
+     (file-name (git-file-name name version))))
+   (build-system trivial-build-system)
+   (inputs
+     `(("sassc" ,sassc)
+       ("coreutils" ,coreutils)
+       ("sed" ,sed)
+       ("bash" ,bash)))
+   (arguments
+     '(#:modules ((guix build utils))
+       #:builder
+       (begin
+         (use-modules (guix build utils))
+         (let* ((out    (assoc-ref %outputs "out"))
+                (bin    (string-append out "/share/themes"))
+                (bash   (string-append 
+                          (assoc-ref %build-inputs "bash")
+                          "/bin/sh"))
+                (coreutils (string-append
+                          (assoc-ref %build-inputs "coreutils")
+                          "/bin"))
+                (sed    (string-append
+                          (assoc-ref %build-inputs "sed")
+                          "/bin"))
+                (sassc  (string-append
+                          (assoc-ref %build-inputs "sassc")
+                          "/bin"))
+                (source (assoc-ref %build-inputs "source")))
+           (copy-recursively source (getcwd))
+           (setenv "PATH" (string-append (getenv "PATH") ":" coreutils ":" sed ":" sassc))
+           (mkdir-p bin)
+           (invoke bash "build.sh")
+           (invoke bash "install.sh" "-d" bin)))))
+   (home-page "https://github.com/vinceliuice/Lavanda-gtk-theme")
+   (synopsis "Lavanda gtk theme for linux desktops")
+   (description "Lavanda gtk theme for linux desktops")
+   (license license:gpl3))))
+

stationery/packages/mozillia.scm

@@ -0,0 +1,62 @@
+(define-module (stationery packages mozillia)
+  #: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 (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
+  (package
+    (inherit firefox*)
+    (name "firefox-wayland")
+    (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))))))
+

stationery/packages/shells.scm

@@ -0,0 +1,45 @@
+(define-module (stationery packages shells)
+               #:use-module ((guix licenses) #:prefix license:)
+               #:use-module (guix gexp)
+               #:use-module (gnu packages base)
+               #:use-module (gnu packages version-control)
+               #:use-module (gnu packages web)
+               #:use-module (gnu packages bash)
+               #:use-module (gnu packages)
+               #:use-module (guix packages)
+               #:use-module (guix git-download)
+               #:use-module (guix download)
+               #:use-module (guix build-system trivial)
+               #:use-module (guix utils))
+
+(define-public zsh-autosuggestions
+  (package
+   (name "zsh-autosuggestions")
+   (version "0.7.0")
+   (source
+     (origin
+      (method git-fetch)
+      (uri (git-reference
+             (url "https://github.com/zsh-users/zsh-autosuggestions")
+             (commit (string-append "v" version))))
+     (sha256
+       (base32
+         "1g3pij5qn2j7v7jjac2a63lxd97mcsgw6xq6k5p7835q9fjiid98"))
+     (file-name (git-file-name name version))))
+   (build-system trivial-build-system)
+   (arguments
+     '(#:modules ((guix build utils))
+       #:builder
+       (begin
+         (use-modules (guix build utils))
+         (let* ((out    (assoc-ref %outputs "out"))
+                (bin    (string-append out "/share/zsh/zsh-autosuggestions"))
+                (source (assoc-ref %build-inputs "source")))
+           (mkdir-p bin)
+           (copy-recursively source bin)))))
+   (home-page "https://github.com/zsh-users/zsh-autosuggestions")
+   (synopsis "Fish-like autosuggestions for zsh")
+   (description "Fish-like fast/unobtrusive autosuggestions for zsh. It suggests commands as you type based on history and completions.")
+   (license license:expat)))
+
+

stationery/packages/vim.scm

@@ -0,0 +1,50 @@
+(define-module (stationery packages vim)
+               #:use-module ((guix licenses) #:prefix license:)
+               #:use-module (guix packages)
+               #:use-module (gnu packages)
+               #:use-module (guix git-download)
+               #:use-module (guix utils)
+               #:use-module (guix build-system trivial)
+               #:use-module ((gnu packages vim) #:prefix vim:)
+               #:use-module (gnu packages gcc))
+
+(define-public neovim
+  (package
+    (inherit vim:neovim)
+    (name "neovim")
+    (native-inputs
+      (modify-inputs (package-native-inputs neovim)
+             (prepend gcc-12)))))
+
+(define-public vim-plug
+  (package
+   (name "vim-plug")
+   (version "0.11.0")
+   (source
+     (origin
+      (method git-fetch)
+      (uri (git-reference
+             (url "https://github.com/junegunn/vim-plug")
+             (commit version)))
+     (sha256
+       (base32
+         "0bfgadn31n516x0m0kr88jk9x79rl6zllnwij759wpazmw1p0xg8"))
+     (file-name (git-file-name name version))))
+   (build-system trivial-build-system)
+   (arguments
+     '(#:modules ((guix build utils))
+       #:builder
+       (begin
+         (use-modules (guix build utils))
+         (let* ((out    (assoc-ref %outputs "out"))
+                (bin    (string-append out "/share/vim"))
+                (source (assoc-ref %build-inputs "source")))
+           (mkdir-p bin)
+           (chdir source)
+           (install-file "plug.vim" bin)))))
+   (home-page "https://github.com/vinceliuice/Lavanda-gtk-e")
+   (synopsis "Minimalist Vim Plugin Manager")
+   (description "Minimalist Vim Plugin Manager")
+   (license license:expat)))
+
+    

stationery/packages/virtualization.scm

@@ -0,0 +1,47 @@
+(define-module (stationery 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) #:prefix virt:)
+               #:use-module (gnu packages firmware)
+               #:use-module (guix gexp))
+
+(define-public libvirt
+  (package
+    (inherit virt:libvirt)
+    (name "libvirt")
+    (inputs
+      (modify-inputs (package-inputs virt:libvirt)
+                     (append qemu)))
+    (arguments
+      (substitute-keyword-arguments (package-arguments virt:libvirt)
+        ((#:phases phases)
+         #~(modify-phases #$phases
+            (add-after 'install 'install-uefi
+                (lambda _
+                    (let ((fmw (string-append #$output "/share/qemu")))
+                        (mkdir-p fmw)
+                        (copy-recursively #$(file-append qemu "/share/qemu") fmw))
+                ))
+        ))))))
+
+(define-public virt-manager
+    (package
+      (inherit virt:virt-manager)
+      (name "virt-manager")
+      (inputs
+        (modify-inputs (package-inputs virt:virt-manager)
+                     (append qemu)))
+      (arguments
+        (substitute-keyword-arguments (package-arguments virt:virt-manager)
+         ((#:phases phases)
+          #~(modify-phases #$phases
+             (add-after 'install 'install-uefi
+                 (lambda _
+                   (let ((fmw (string-append #$output "/share/qemu")))
+                     (mkdir-p fmw)
+                     (copy-recursively #$(file-append qemu "/share/firmware") fmw))
+                 ))
+        ))))))

stationery/packages/wm.scm

@@ -0,0 +1,22 @@
+(define-module (stationery packages wm)
+               #:use-module (guix download)
+               #:use-module (guix packages)
+               #:use-module (guix gexp)
+               #:use-module (gnu packages)
+               #:use-module (guix git-download)
+               #:use-module (guix utils)
+               #:use-module ((gnu packages wm) #:prefix wm:))
+
+(define-public swaylock-effects
+  (package
+    (inherit wm:swaylock-effects)
+    (version "1.6.11")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                     (url "https://github.com/jirutka/swaylock-effects")
+                     (commit (string-append "v" version))))
+              (sha256
+                (base32
+                  "0j7dxn66xqlf6iv2arqzz7mxlh7nf85anvpyf30d2frcidarda9h"))))
+    (inputs (modify-inputs (package-inputs wm:swaylock-effects) (delete "linux-pam")))))