1(define-module (nmeum packages desktop)
2 #:use-module (guix)
3 #:use-module (guix gexp)
4 #:use-module (guix git-download)
5 #:use-module (guix build-system gnu)
6 #:use-module (guix build-system zig)
7 #:use-module ((guix licenses) #:prefix license:)
8 #:use-module (gnu packages zig)
9 #:use-module (gnu packages freedesktop)
10 #:use-module (gnu packages linux)
11 #:use-module (gnu packages xdisorg)
12 #:use-module (gnu packages pkg-config)
13 #:use-module (gnu packages fontutils)
14 #:use-module (gnu packages textutils))
15
16(define-public dumb-runtime-dir
17 (package
18 (name "dumb-runtime-dir")
19 (version "1.0.4")
20 (source
21 (origin
22 (method git-fetch)
23 (uri (git-reference
24 (url "https://github.com/ifreund/dumb_runtime_dir")
25 (commit (string-append "v" version))))
26 (file-name (git-file-name name version))
27 (sha256
28 (base32 "0nrxhvbh3bs4pi4f5h03zw1p1ys19qmmlx263ysly8302wkxk1m4"))))
29 (build-system gnu-build-system)
30 (arguments
31 (list
32 #:tests? #f
33 #:make-flags #~(list (string-append "CC="
34 #$(cc-for-target))
35 (string-append "PREFIX=")
36 (string-append "DESTDIR="
37 #$output))
38 #:phases #~(modify-phases %standard-phases
39 (delete 'configure))))
40 (inputs (list linux-pam))
41 (native-inputs (list pkg-config))
42 (home-page "https://github.com/ifreund/dumb_runtime_dir")
43 (synopsis "Creates an XDG_RUNTIME_DIR via PAM")
44 (description
45 "Provides a acronym{PAM, Pluggable Authentication Module} for
46creating a primitve @code{XDG_RUNTIME_DIR} that is never removed. This
47is useful in conjuction with simple seat managers like @code{seatd}
48which do not set @code{XDG_RUNTIME_DIR}.")
49 (license license:bsd-0)))
50
51(define-public creek
52 (package
53 (name "creek")
54 (version "0.2.0")
55 (source
56 (origin
57 (method git-fetch)
58 (uri (git-reference
59 (url "https://github.com/nmeum/creek")
60 (commit (string-append "v" version))
61 (recursive? #t)))
62 (file-name (git-file-name name version))
63 (sha256
64 (base32 "08v8f39wxpalifib0760nkckl1xbbxqcjcmv68348w9b8367kzx6"))))
65 (build-system zig-build-system)
66 (arguments
67 (list
68 #:zig-release-type "safe"
69 #:tests? #f))
70 (native-inputs
71 (list
72 pixman
73 fcft
74 pkg-config
75 wayland
76 wayland-protocols
77 zig))
78 (home-page "https://github.com/nmeum/leeve")
79 (synopsis "A minimalistic and malleable status bar for the River compositor.")
80 (description "A fork of the creek status bar which intended to be
81more mallable then the original version. For example,
82supporting custom status bar information via stdin.")
83 (license license:expat)))