|
| 1 | +(define-module (mangowc) |
| 2 | + #:use-module (guix download) |
| 3 | + #:use-module (guix git-download) |
| 4 | + #:use-module (guix gexp) |
| 5 | + #:use-module (guix packages) |
| 6 | + #:use-module (guix utils) |
| 7 | + #:use-module (gnu packages wm) |
| 8 | + #:use-module (gnu packages freedesktop) |
| 9 | + #:use-module (gnu packages xdisorg) |
| 10 | + #:use-module (gnu packages pciutils) |
| 11 | + #:use-module (gnu packages admin) |
| 12 | + #:use-module (gnu packages pcre) |
| 13 | + #:use-module (gnu packages xorg) |
| 14 | + #:use-module (gnu packages build-tools) |
| 15 | + #:use-module (gnu packages ninja) |
| 16 | + #:use-module (gnu packages pkg-config) |
| 17 | + #:use-module (guix build-system meson) |
| 18 | + #:use-module (guix licenses)) |
| 19 | + |
| 20 | + |
| 21 | +(define-public mangowc-git |
| 22 | + (package |
| 23 | + (name "mangowc") |
| 24 | + (version "git") |
| 25 | + (source (local-file "." "mangowc-checkout" |
| 26 | + #:recursive? #t |
| 27 | + #:select? (or (git-predicate (current-source-directory)) |
| 28 | + (const #t)))) |
| 29 | + (build-system meson-build-system) |
| 30 | + (arguments |
| 31 | + (list |
| 32 | + #:configure-flags |
| 33 | + #~(list (string-append "-Dsysconfdir=" #$output "/etc")) |
| 34 | + #:phases |
| 35 | + #~(modify-phases %standard-phases |
| 36 | + (add-before 'configure 'patch-meson |
| 37 | + (lambda _ |
| 38 | + (substitute* "meson.build" |
| 39 | + (("'-DSYSCONFDIR=\\\"@0@\\\"'.format\\('/etc'\\)") |
| 40 | + "'-DSYSCONFDIR=\"@0@\"'.format(sysconfdir)") |
| 41 | + (("sysconfdir = sysconfdir.substring\\(prefix.length\\(\\)\\)") |
| 42 | + ""))))))) |
| 43 | + (inputs (list wayland |
| 44 | + libinput |
| 45 | + libdrm |
| 46 | + libxkbcommon |
| 47 | + pixman |
| 48 | + libdisplay-info |
| 49 | + libliftoff |
| 50 | + hwdata |
| 51 | + seatd |
| 52 | + pcre2 |
| 53 | + libxcb |
| 54 | + xcb-util-wm |
| 55 | + wlroots |
| 56 | + scenefx)) |
| 57 | + (native-inputs (list pkg-config wayland-protocols)) |
| 58 | + (home-page "https://github.com/DreamMaoMao/mangowc") |
| 59 | + (synopsis "Wayland compositor based on wlroots and scenefx") |
| 60 | + (description "A Wayland compositor based on wlroots and scenefx, |
| 61 | +inspired by dwl but aiming to be more feature-rich.") |
| 62 | + (license gpl3))) |
| 63 | + |
| 64 | +mangowc-git |
0 commit comments