summaryrefslogtreecommitdiff
path: root/modules/ryan-packages/wm.scm
blob: ada3adfce1efca1222164f622281b282643686f4 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
(define-module (ryan-packages wm)
               #:use-module ((guix licenses) #:prefix license:)
               #:use-module (guix download)
               #:use-module (guix packages)
               #:use-module (guix gexp)
               #:use-module (gnu packages)
               #:use-module (guix build-system cmake)
               #:use-module (guix build-system meson)
               #:use-module (gnu packages python)
               #:use-module (gnu packages audio)
               #:use-module (gnu packages glib)
               #:use-module (gnu packages freedesktop)
               #:use-module (gnu packages pkg-config)
               #:use-module (gnu packages gtk)
               #:use-module (gnu packages xdisorg)
               #:use-module (gnu packages xorg)
               #:use-module (gnu packages linux)
               #:use-module (gnu packages gl)
               #:use-module (gnu packages llvm)
               #:use-module (gnu packages gcc)
               #:use-module (gnu packages check)
               #:use-module (guix git-download)
               #:use-module (guix utils)
               #:use-module (rosenthal packages wm)
               #:use-module (ryan-packages gtk)
               #:use-module (gnu packages wm))

(define-public swaylock-effects-new
  (package
    (inherit swaylock-effects)
    (version "1.7.0.0")
    (source (origin
              (method git-fetch)
              (uri (git-reference
                     (url "https://github.com/jirutka/swaylock-effects")
                     (commit (string-append "v" version))))
              (sha256
                (base32
                  "0cgpbzdpxj6bbpa8jwql1snghj21mhryyvj6sk46g66lqvwlrqbj"))))
    (inputs (modify-inputs (package-inputs swaylock-effects) (delete "linux-pam")))))

(define-public swayidle-new
  (package
    (inherit swayidle)
    (version "1.8.0")
    (source
     (origin
       (method git-fetch)
       (uri (git-reference
             (url "https://github.com/swaywm/swayidle")
             (commit version)))
       (file-name (git-file-name "swayidle" version))
       (sha256
        (base32 "0y0qdqzx90kvk6l80darldvizr7p5g65bnblhxlq5a2rgvs9hkpx"))))))

(define-public waybar-new
  (package
    (inherit waybar)
    (name "waybar-new")
    (version "0.10.3")
    (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 "04xd61ycn1nisq1s5ch14zkbsjcfcy6n29nkjn68s2ribmws0iid"))))
    (arguments
      (list
        #:configure-flags #~(list "--wrap-mode=nodownload" "-Dexperimental=true")))))
    ;(inputs (modify-inputs (package-inputs waybar) (delete "gtkmm") (prepend gtkmm-ryan))))) ;(prepend python cava catch2 gtkmm)))))
    ;(native-inputs (modify-inputs (package-native-inputs waybar) (prepend gcc-13)))))

(define cairo-hypr ;;; stolen from rosenthal since it is not exported
  (package
    (inherit cairo)
    (name "cairo")
    (version "1.18.0")
    (source (origin
              (method url-fetch)
              (uri (string-append "https://cairographics.org/releases/cairo-"
                                  version ".tar.xz"))
              (sha256
               (base32
                "0r0by563s75xyzz0d0j1nmjqmdrk2x9agk7r57p3v8vqp4v0ffi4"))))
    (build-system meson-build-system)
    (arguments
     (list #:tests? #f
           #:glib-or-gtk? #t
           #:configure-flags
           #~(list "-Dspectre=disabled")))
    (outputs '("out"))))

(define-public hyprlock
  (let ((commit "d9a6229434fba475ea42b634ee2f03919236798d")
        (revision "1"))
    (package
      (name "hyprlock")
      (version (git-version "0.3.0" revision commit))
      (source
        (origin
          (method git-fetch)
          (uri (git-reference
                 (url "https://github.com/hyprwm/hyprlock")
                 (commit commit)))
          (file-name (git-file-name name version))
          (sha256
            (base32 "19cg8vj4sgz5pxib9m08af1lilay9bckjhlr6h333s014l7y09sw"))))
      (build-system cmake-build-system)
      (arguments
        `(#:tests? #f))
      (native-inputs
        (list gcc-13
              pkg-config
              mesa-headers
              wayland))
      (inputs
        (list cairo
              pango
              libxkbcommon
              hyprlang
              mesa
              libdrm
              libglvnd
              wayland-protocols
              linux-pam))
      (home-page "https://github.com/hyprwm/hyprlock")
      (license license:bsd-3)
      (synopsis "Screen locker for Hyprland")
      (description "Screen locker for hyprland."))))

hyprlock