path: root/modules/freya/packages/wm.scm

(define-module (freya packages wm)
               #:use-module ((guix licenses) #:prefix license:)
               #:use-module (gnu packages)
               #:use-module (gnu packages wm)
               #:use-module (gnu packages freedesktop)
               #:use-module (gnu packages cpp)
               #:use-module (gnu packages gcc)
               #:use-module (gnu packages build-tools)
               #:use-module (gnu packages pkg-config)
               #:use-module (gnu packages xdisorg)
               #:use-module (gnu packages gtk)
               #:use-module (gnu packages gl)
               #:use-module (gnu packages linux)
               #:use-module (gnu packages gnome)
               #:use-module (gnu packages compression)
               #:use-module (gnu packages pciutils)
               #:use-module (gnu packages image)
               #:use-module (gnu packages glib)
               #:use-module (gnu packages xml)
               #:use-module (gnu packages web)
               #:use-module (gnu packages version-control)
               #:use-module (gnu packages python)
               #:use-module (gnu packages autotools)
               #:use-module (gnu packages xorg)
               #:use-module (gnu packages freedesktop)
               #:use-module (gnu packages base)
               #:use-module (gnu packages bash)
               #:use-module (gnu packages qt)
               #:use-module (guix download)
               #:use-module (guix packages)
               #:use-module (guix gexp)
               #:use-module (guix git-download)
               #:use-module (guix build-system cmake)
               #:use-module (guix build-system meson)
               #:use-module (guix build-system trivial)
               #:use-module (guix build-system qt)
               #:use-module (guix build-system gnu)
               #:use-module (guix build utils)
               #:use-module (freya packages gl)
               #:use-module (freya packages admin)
               #:use-module (freya packages cmake)
               #:use-module (freya packages freedesktop)
               #:use-module (freya packages assembly)
               #:use-module (guix utils))


(define-public swaylock-effects-new
  (package
    (inherit 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 swaylock-effects) (delete "linux-pam")))))


(define-public waybar-new
  (package
    (inherit waybar)
    (name "waybar-new")
    (version "0.10.4")
    (source
     (origin
       (method git-fetch)
       (uri (git-reference
             (url "https://github.com/Alexays/Waybar")
             (commit version)))
       (file-name (git-file-name name version))
       (sha256
        (base32 "0liiyz6212pmyhpsrb6773qf5b9b4kb76nggizygr9abfidbg5gw"))))
    (arguments
      (list
        #:configure-flags #~(list "--wrap-mode=nodownload" "-Dexperimental=true")))))


(define-public libliftoff
  (package
    (name "libliftoff")
    (version "0.1.0")
    (source (origin
              (method url-fetch)
              (uri (string-append "https://github.com/emersion/libliftoff"
                                  "/archive/refs/tags/v" version ".tar.gz"))
              (sha256
               (base32
                "17ssbjbv8njgvfha8zsx4nixpi5xxl1rwvk0lcacgqk0nmjyb23s"))))
    (build-system meson-build-system)
    (native-inputs (list gcc-13
                         pkg-config
                         cmake-minimal-3.27.0
                         libdrm))
    (home-page "https://github.com/emersion/libliftoff")
    (synopsis "Lightweight KMS plane library")
    (description "")
    (license license:expat)))


(define-public wayland-protocols-1.36
  (package
    (inherit wayland-protocols)
    (name "wayland-protocols")
    (version "1.36")
    (source (origin
              (method url-fetch)
              (uri (string-append
                    "https://gitlab.freedesktop.org/wayland/wayland-protocols"
                    "/-/releases/" version "/downloads/"
                    "wayland-protocols-" version ".tar.xz"))
              (sha256
               (base32
                "14kyxywpfkgpjpkrybs28q1s2prnz30k1b4zap5a3ybrbvh4vzbi"))))))


(define-public hyprlang
  (package
    (name "hyprlang")
    (version "0.5.2")
    (source (origin
              (method git-fetch)
              (uri (git-reference
                    (url "https://github.com/hyprwm/hyprlang")
                    (commit (string-append "v" version))))
              (file-name (git-file-name name version))
              (sha256
               (base32
                "17i0372yv0fcwnyki36crz7afw8c5f3j985m083p7rjbh4fn3br6"))))
    (build-system cmake-build-system)
    (native-inputs (list gcc-13))
    (home-page "https://hyprland.org/hyprlang/")
    (synopsis "Official implementation library for hypr config language")
    (description
     "This package provides the official implementation for hypr configuration
language used in @code{hyprland}.")
    (license license:gpl3+)))


(define-public hyprcursor
  (package
    (name "hyprcursor")
    (version "0.1.9")
    (source (origin
              (method git-fetch)
              (uri (git-reference
                    (url "https://github.com/hyprwm/hyprcursor")
                    (commit (string-append "v" version))))
              (file-name (git-file-name name version))
              (sha256
               (base32
                "0z3ar580n630145nq80qw0p8v0kai6knvhi6nr9z0y1jrb07b0ql"))))
    (build-system cmake-build-system)
    (arguments (list #:tests? #f))
    (inputs (list cairo hyprlang librsvg libzip tomlplusplus))
    (native-inputs (list gcc-13 pkg-config))
    (home-page "https://hyprland.org/")
    (synopsis "Hyprland cursor format, library and utilities")
    (description
     "This package provides Hyprland cursor format, library and utilities.")
    (license license:bsd-3)))


(define-public hyprland-protocols
  (package
    (name "hyprland-protocols")
    (version "0.3.0")
    (source (origin
              (method git-fetch)
              (uri (git-reference
                    (url "https://github.com/hyprwm/hyprland-protocols")
                    (commit (string-append "v" version))))
              (file-name (git-file-name name version))
              (sha256
               (base32
                "01j5hc8qnjzqiiwryfawx1wzrhkn0m794knphyc0vsxwkcmjaj8x"))))
    (build-system meson-build-system)
    (home-page "https://hyprland.org")
    (synopsis "Wayland protocol extensions for Hyprland")
    (description
     "This package provides Wayland protocol extensions for Hyprland and it
exists in an effort to bridge the gap between Hyprland and KDE/Gnome's
functionality.  Since @code{wlr-protocols} is closed for new submissions, and
@code{wayland-protocols} is very slow with changes, this package will hold
protocols used by Hyprland to bridge the aforementioned gap.")
    (license license:bsd-3)))


(define-public hyprwayland-scanner
  (package
    (name "hyprwayland-scanner")
    (version "0.4.0")
    (source (origin
              (method git-fetch)
              (uri (git-reference
                    (url "https://github.com/hyprwm/hyprwayland-scanner")
                    (commit (string-append "v" version))))
              (file-name (git-file-name name version))
              (sha256
               (base32
                "1xc2xcxpq61lg964ihk0wbfzqqvibw20iz09g0p33ym51gwlpxr4"))))
    (build-system cmake-build-system)
    (arguments (list #:tests? #f))
    (inputs (list pugixml))
    (native-inputs (list gcc-13 pkg-config))
    (home-page "https://github.com/hyprwm/hyprwayland-scanner")
    (synopsis "hyprland implementation of wayland-scanner, in and for c++")
    (description
     "this package provides a hyprland implementation of wayland-scanner, in and
for c++.")
    (license license:bsd-3)))


(define-public hyprutils
  (package
    (name "hyprutils")
    (version "0.2.1")
    (source (origin
              (method git-fetch)
              (uri (git-reference
                    (url "https://github.com/hyprwm/hyprutils")
                    (commit (string-append "v" version))))
              (file-name (git-file-name name version))
              (sha256
               (base32
                "0nxx5yb5k9726x95n8gi27xyxyzwb0ma0nj3czpb51sda1k0hz0g"))))
    (build-system cmake-build-system)
    (arguments (list #:tests? #f))
    (native-inputs (list gcc-13 pkg-config))
    (propagated-inputs (list pixman))
    (home-page "https://github.com/hyprwm/hyprutils")
    (synopsis "Hyprland utilities library used across the ecosystem ")
    (description
     "this package provides hyprutils")
    (license license:bsd-3)))


(define hwdata-for-hyprland
  (package
    (inherit hwdata)
    (arguments
     (substitute-keyword-arguments (package-arguments hwdata)
       ((#:phases _) #~%standard-phases)))
    (outputs '("out"))))


(define-public aquamarine
  (package
    (name "aquamarine")
    (version "0.2.0")
    (source (origin
              (method git-fetch)
              (uri (git-reference
                    (url "https://github.com/hyprwm/aquamarine")
                    (commit (string-append "v" version))))
  				    (patches (list
                (local-file "patches/aquamarine-fix-cmake.patch")))
              (file-name (git-file-name name version))
              (sha256
               (base32
                "061shgk8lvbk4f35cf057hl4jh36aahd6l3si6ga91rzl184b9sh"))))
    (build-system cmake-build-system)
    (arguments
      (list #:tests? #f))
    (native-inputs
      (list gcc-13
            pkg-config
            mesa-headers
            hyprwayland-scanner
            hwdata-for-hyprland))
    (propagated-inputs
      (list mesa-libglvnd
            libglvnd
            libseat-0.8.0
            libinput-minimal-1.26.1
            libxkbcommon
            libdisplay-info
            libxcb
            libxinerama
            libxcursor
            xcb-util
            xcb-util-errors
            xcb-util-keysyms
            xcb-util-wm
            wayland
            wayland-protocols-1.36))
    (inputs
      (list hyprutils))
    (home-page "https://hyprland.org")
    (synopsis "Aquamarine is a very light linux rendering backend library ")
    (description "") ;; TODO: this
    (license license:bsd-3)))


(define xorg-server-xwayland-for-hyprland
  (package
    (inherit xorg-server-xwayland)
    (arguments
      (substitute-keyword-arguments (package-arguments xorg-server-xwayland)
        ((#:phases phases)
         #~(modify-phases #$phases
            (add-after 'install 'install-headers
                (lambda _
                    (let ((fmw (string-append #$output "/include")))
                        (mkdir-p fmw)
                        (copy-recursively "include" fmw))
                ))
        ))))))


(define-public hyprland
  (let ((commit "0e86808e5912823f1c6bea1b6d5fcae297fc9f57")
        (revision "1"))
    (package
      (name "hyprland")
      (version (git-version "0.42.0" revision commit))
      (source
        (origin
          (method git-fetch)
          (uri (git-reference
                 (url "https://github.com/hyprwm/Hyprland")
                 (commit commit)))
  				(patches (list
            (local-file "patches/hyprland-fix-cmake.patch")))
          (modules '((guix build utils)))
          (snippet
            '(begin
              (for-each delete-file-recursively
                '("hyprpm"
                  "subprojects"))))
          (file-name (git-file-name name version))
          (sha256
            (base32 "10fiipxxkdvwxqgll5q5sa8sl5hm323gshx9bmlmlry07r0mk3mx"))))
      (build-system cmake-build-system)
      (arguments
       (list #:tests? #f
             #:build-type "release"
             #:cmake cmake-minimal-3.27.0
             #:phases
             #~(modify-phases %standard-phases
                (add-after 'unpack 'fix-path
                  (lambda* (#:key inputs #:allow-other-keys)
                    (substitute* (find-files "src" "\\.cpp$")
                      (("/usr/local(/bin/Hyprland)" _ path)
                        (string-append #$output path))
                      (("/usr") #$output)
                      (("(execAndGet\\(\")\\<(cat|fc-list|lspci)\\>"
                        _ pre cmd)
                        (string-append
                          pre (search-input-file
                                inputs (string-append "bin/" cmd))))
                      (("\\<cc\\>") (search-input-file inputs "bin/gcc"))
                      ;; NOTE: Add binutils to inputs will override ld-wrapper.
                      (("(execAndGet\\(\\(\")\\<nm\\>" _ pre)
                        (string-append pre #$binutils "/bin/nm"))
                      (("\\<(addr2line|objcopy)\\>" _ cmd)
                        (string-append #$binutils "/bin/" cmd)))
                    (substitute* "CMakeLists.txt"
                      (("libudis86") "udis86"))
                    ))
                (add-after 'fix-path 'fix-protocols
                  (lambda* (#:key inputs outputs #:allow-other-keys)
                    (let ((protocols (string-append
                                       (getcwd)
                                       "/subprojects/hyprland-protocols/protocols")))
                      (mkdir-p protocols)
                      (copy-recursively
                        (search-input-directory inputs "share/hyprland-protocols/protocols")
                        protocols))))
                (add-after 'install 'wrap-program
                  (lambda* (#:key inputs outputs #:allow-other-keys)
                    (let ((out (assoc-ref outputs "out"))
                          (mesa (assoc-ref inputs "mesa")))
                      (wrap-program (string-append out "/bin/Hyprland")
                        `("__EGL_VENDOR_LIBRARY_DIRS" prefix ,(list (string-append mesa "/share/glvnd/egl_vendor.d")))))))
                )))
      (native-inputs
        (list gcc-13
              jq
              pkg-config
              hyprwayland-scanner
              hwdata-for-hyprland))
      (inputs
       (list gcc-13

             cairo
             pango
             pciutils
             libliftoff
             udis86

             aquamarine
             hyprcursor
             hyprland-protocols
             hyprlang
             hyprutils

             xorg-server-xwayland-for-hyprland))
      (home-page "https://hyprland.org")
      (synopsis "Dynamic tiling Wayland compositor based on wlroots")
      (description
       "Hyprland is a dynamic tiling Wayland compositor based on @code{wlroots}
that   doesn't sacrifice on its looks.  It supports multiple layouts, fancy
effe  cts, has a very flexible IPC model allowing for a lot of customization, and
more  .")
      (license license:bsd-3))))


(define-public hyprpaper
  (package
    (name "hyprpaper")
    (version "0.7.0")
    (source (origin
              (method url-fetch)
              (uri (string-append "https://github.com/hyprwm/hyprpaper"
                                  "/archive/refs/tags/v" version ".tar.gz"))
              (sha256
               (base32
                "1d23nsj5hzyxwvhkg9a7x1b8jgyqwzad91zb1894jnxr2d844h28"))))
    (build-system cmake-build-system)
    (arguments
      `(#:tests? #f))
      (native-inputs
        (list gcc-13
              pkg-config))
      (inputs
        (list hyprlang
              wayland-protocols-1.36
              wayland
              cairo
              libjpeg-turbo
              libwebp
              mesa
              pango
              libglvnd))
      (home-page "https://github.com/hyprwm/hyprpaper")
      (license license:bsd-3)
      (synopsis "Hyprpaper is a blazing fast wayland wallpaper utility with IPC controls.")
      (description "Hyprpaper is a blazing fast wayland wallpaper utility with IPC controls.")))


(define-public hypridle
  (package
    (name "hypridle")
    (version "0.1.2")
    (source (origin
              (method url-fetch)
              (uri (string-append "https://github.com/hyprwm/hypridle"
                                  "/archive/refs/tags/v" version ".tar.gz"))
              (sha256
               (base32
                "0ybwip7yq9q569naz5bnrvcdz99648c4pln2zi30z21y333hpas0"))))
    (build-system cmake-build-system)
    (arguments
      `(#:tests? #f))
      (native-inputs
        (list gcc-13
              pkg-config))
      (inputs
        (list hyprlang
              wayland-protocols-1.36
              wayland
              sdbus-c++))
      (home-page "https://github.com/hyprwm/hypridle")
      (license license:bsd-3)
      (synopsis "Hyprland's idle daemon ")
      (description "Hyprland's idle daemon ")))


(define-public hyprlock
  (package
    (name "hyprlock")
    (version "0.4.1")
    (source (origin
              (method url-fetch)
              (uri (string-append "https://github.com/hyprwm/hyprlock"
                                  "/archive/refs/tags/v" version ".tar.gz"))
              (sha256
               (base32
                "0q5smah3zmg8vwipfd74n664mavkgzrqjn0i57gwmbwc111illw7"))))
    (build-system cmake-build-system)
    (arguments
      (list
        #:tests? #f
        #:phases
        #~(modify-phases %standard-phases
            (add-after 'install 'wrap-program
              (lambda* (#:key inputs outputs #:allow-other-keys)
                (let ((out (assoc-ref outputs "out"))
                      (mesa (assoc-ref inputs "mesa")))
                  (wrap-program (string-append out "/bin/hyprlock")
                    `("__EGL_VENDOR_LIBRARY_DIRS" prefix ,(list (string-append mesa "/share/glvnd/egl_vendor.d"))))))))))
    (native-inputs
      (list gcc-13
            pkg-config
            mesa-headers
            wayland))
    (inputs
      (list cairo
            pango
            libxkbcommon
            hyprlang
            hyprutils
            mesa-libglvnd
            libdrm
            libglvnd
            wayland-protocols-1.36
            libjpeg-turbo
            libwebp
            linux-pam))
    (home-page "https://github.com/hyprwm/hyprlock")
    (license license:bsd-3)
    (synopsis "Screen locker for Hyprland")
    (description "Screen locker for hyprland.")))


(define-public xdg-desktop-portal-hyprland
  (package
    (name "xdg-desktop-portal-hyprland")
    (version "1.3.1")
    (source (origin
              (method git-fetch)
              (uri (git-reference
                    (url "https://github.com/hyprwm/xdg-desktop-portal-hyprland")
                    (commit (string-append "v" version))))
              (file-name (git-file-name name version))
              (sha256
               (base32
                "0fdbzxanmmzrvb9wfzg1pdsnlg7dl6v5k8bl44w10n48s7bbbzn0"))))
    (build-system qt-build-system)
    (arguments
     (list #:tests? #f                  ;No tests
           #:qtbase qtbase
           #:phases
           #~(modify-phases %standard-phases
               (add-after 'unpack 'fix-path
                 (lambda* (#:key inputs #:allow-other-keys)
                   (substitute* (find-files "." "\\.cp?*$")
                     (("/bin/sh") "sh")
                     (("\\<(sh|grim|hyprctl|slurp)\\>" _ cmd)
                      (search-input-file inputs (string-append "/bin/" cmd)))
                     (("\\<(hyprland-share-picker)\\>" _ cmd)
                      (string-append #$output "/bin/" cmd))))))))
    (native-inputs
     (list gcc-13
           pkg-config
           wayland))
    (inputs
     (list bash-minimal
           grim
           hyprland
           hyprland-protocols
           wayland-protocols-1.36
           hyprlang
           mesa
           pipewire
           qtwayland
           sdbus-c++
           slurp))
    (home-page "https://github.com/hyprwm/xdg-desktop-portal-hyprland")
    (synopsis "XDG Desktop Portal backend for Hyprland")
    (description
     "This package provides @code{xdg-desktop-portal-hyprland}, which extends
@code{xdg-desktop-portal-wlr} for Hyprland with support for
@code{xdg-desktop-portal} screenshot and casting interfaces, while adding a few
extra portals specific to Hyprland, mostly for window sharing.")
    (license license:bsd-3)))


(define-public hyprland-plugin-hy3
  (let ((commit "93759c8032995eb566008537389543b3e1b4a65c")
        (revision "1"))
    (package
      (name "hyprland-plugin-hy3")
        (version (git-version "0.42.0" revision commit))
      (source (origin
                (method git-fetch)
                (uri (git-reference
                   (url "https://github.com/outfoxxed/hy3.git")
                   (commit commit)))
                (sha256
                 (base32
                  "0g59zd5724ply38h14r6hafklb8mh0xwb81i0jzzh3xz0r9pmv3s"))))
      (build-system cmake-build-system)
      (arguments
        (list #:tests? #f
              #:cmake cmake-minimal-3.27.0
              #:configure-flags #~(list "DCMAKE_BUILD_TYPE=Release")))
      (native-inputs
        (list gcc-13
              pkg-config
              hyprwayland-scanner))
      (inputs
        (list gcc-13
              aquamarine
              pango
              gcc-13
              hyprland-protocols
              hyprland
              hyprlang
              hyprutils
              libdrm))
      (license license:gpl3)
      (home-page "https://github.com/outfoxxed/hy3")
      (synopsis "i3 / sway like layout for hyprland.")
      (description "Hyprland plugin for an i3 / sway like manual tiling layout"))))


(define-syntax hyprland-plugin-impl
  (syntax-rules ()
    ((_ plugin)
      (let ((commit "4fcb4038f23e5273af9a5684f3ee10b0652b3bab")
            (revision "1"))
        (package
          (name (string-append "hyprland-plugin-" plugin))
          (version (git-version "0.42.0" revision commit))
          (source
            (origin
            (method git-fetch)
            (uri (git-reference
                   (url "https://github.com/hyprwm/hyprland-plugins.git")
                   (commit commit)))
            (sha256
              (base32
                "1i1924a2kmjbp6c6y443hdv53nganj4g6dci20v9imrja21vc6s3"))
            (file-name (git-file-name name version))))
          (build-system cmake-build-system)
          (arguments
            (list #:tests? #f
                  #:cmake cmake-minimal-3.27.0
                  #:phases
                  #~(modify-phases %standard-phases
                      (add-after 'unpack 'chdir
                        (lambda _ (chdir (string-append "../source/" plugin "/")))))))
          (native-inputs
            (list pkg-config
                  gcc-13
                  hyprwayland-scanner))
          (inputs
            (list gcc-13
                  aquamarine
                  pango
                  hyprland-protocols
                  hyprland
                  hyprlang
                  hyprutils
                  libdrm))
          (license license:bsd-3)
          (home-page "https://github.com/hyprwm/hyprland-plugins")
          (synopsis (string-append "official " plugin " plugin for hyprland"))
          (description (string-append "official " plugin " plugin for hyprland")))))))


(define-public hyprland-plugins
  (package
    (name "hyprland-plugins")
    (version "0.42.0")
    (source #f)
    (build-system trivial-build-system)
    (arguments '(#:builder (begin (mkdir %output) #t)))
    (license license:bsd-3)
    (home-page "https://github.com/hyprwm/hyprland-plugins")
    (synopsis "A collection of all the official hyprland plugins")
    (description "A metapackage containing inputs for each official plugin")
    (propagated-inputs
      (list (hyprland-plugin-impl "borders-plus-plus")
            (hyprland-plugin-impl "csgo-vulkan-fix")
            (hyprland-plugin-impl "hyprbars")
            (hyprland-plugin-impl "hyprexpo")
            (hyprland-plugin-impl "hyprtrails")
            (hyprland-plugin-impl "hyprwinwrap")))))