stationery-society/stationery-guix
5
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Compare commits

base: stationery-society:a48b9a0abe9752168aaea1ad3153299ca5a72645
Branches Tags
stationery-society:main
stationery-society:keyring
..
compare: stationery-society:8741647069c9c6b8456002cc310c807470e9344d
Branches Tags
stationery-society:main
stationery-society:keyring

No commits in common. "a48b9a0abe9752168aaea1ad3153299ca5a72645" and "8741647069c9c6b8456002cc310c807470e9344d" have entirely different histories.
a48b9a0abe ... 8741647069

9 changed files with 1 additions and 312 deletions
Show stats Expand all files Collapse all files

6
.guix-authorizations
View file

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

14
.guix-channel
View file

@ -1,14 +0,0 @@
(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"))))))

2
stationery/packages/audio.scm → packages/audio.scm
View file

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

65
stationery/packages/gnome-xyz.scm
View file

@ -1,65 +0,0 @@
(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))))

62
stationery/packages/mozillia.scm
View file

@ -1,62 +0,0 @@
(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))))))

45
stationery/packages/shells.scm
View file

@ -1,45 +0,0 @@
(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)))

50
stationery/packages/vim.scm
View file

@ -1,50 +0,0 @@
(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)))

47
stationery/packages/virtualization.scm
View file

@ -1,47 +0,0 @@
(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))
))
))))))

22
stationery/packages/wm.scm
View file

@ -1,22 +0,0 @@
(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")))))