packages.scm (2124B)

      1 (define-module (mt packages)
      2   #:use-module (guix gexp)
      3   #:use-module ((guix licenses) #:prefix license:)
      4   #:use-module (guix packages)
      5   #:use-module (guix git-download)
      6   #:use-module (guix build-system meson)
      7   #:use-module (gnu packages)
      8   #:use-module (gnu packages freedesktop)
      9   #:use-module (gnu packages pkg-config))
     10 
     11 ;; This file is used for defining things useful for packaging and/or packages that
     12 ;; have not yet been categorized.
     13 
     14 (define-public wlr-apps
     15   (let ((commit "2e70ab38c3671e0b28c36c8208560f45cc46f36a")
     16         (revision "1"))
     17     (package
     18       (name "wlr-apps")
     19       (version (git-version "0.3" revision commit))
     20       (source (origin
     21                 (method git-fetch)
     22                 (uri (git-reference
     23                       (url "https://github.com/Light034/wlr-apps/")
     24                       (commit commit)))
     25                 (file-name (git-file-name name version))
     26                 ;; The patch makes it output only minimized windows
     27                 (patches (list (local-file "packages/patches/wlr-apps.diff")))
     28                 (sha256
     29                  (base32
     30                   "1pz4gb98q6ncxxbwzank09xf2038d6jmh5phrd5k9918spf9ly79"))))
     31       (build-system meson-build-system)
     32       (arguments
     33        `(#:phases
     34          (modify-phases %standard-phases
     35            (add-after 'unpack 'fix-hardcoded-paths
     36              (lambda* (#:key inputs outputs #:allow-other-keys)
     37                (substitute* "meson.build"
     38                  (("/usr") (assoc-ref inputs "wlr-protocols"))))))))
     39       (native-inputs
     40        (list pkg-config))
     41       (inputs
     42        (list wayland
     43              wayland-protocols
     44              wlr-protocols))
     45       (home-page "https://github.com/Light034/wlr-apps/")
     46       (synopsis "Outputs JSON info using `wlr-foreign-toplevel-management`")
     47       (description
     48        "This program intends to be a simple way to use
     49 wlr-foreign-toplevel-management to retrieve information directly from the compositor
     50 and print it out in json format. Its main purpose is to be used with eww to create a
     51 widget that displays the current active toplevels.")
     52       (license license:expat))))