| 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 | (define-module (gnu packages compton)
|
| 26 | #:use-module ((guix licenses) #:prefix license:)
|
| 27 | #:use-module (guix packages)
|
| 28 | #:use-module (guix gexp)
|
| 29 | #:use-module (guix git-download)
|
| 30 | #:use-module (guix build-system gnu)
|
| 31 | #:use-module (guix build-system meson)
|
| 32 | #:use-module (gnu packages datastructures)
|
| 33 | #:use-module (gnu packages docbook)
|
| 34 | #:use-module (gnu packages documentation)
|
| 35 | #:use-module (gnu packages freedesktop)
|
| 36 | #:use-module (gnu packages gl)
|
| 37 | #:use-module (gnu packages glib)
|
| 38 | #:use-module (gnu packages libevent)
|
| 39 | #:use-module (gnu packages pcre)
|
| 40 | #:use-module (gnu packages pkg-config)
|
| 41 | #:use-module (gnu packages python)
|
| 42 | #:use-module (gnu packages textutils)
|
| 43 | #:use-module (gnu packages xdisorg)
|
| 44 | #:use-module (gnu packages xml)
|
| 45 | #:use-module (gnu packages xorg)
|
| 46 | #:use-module (gnu packages ruby-xyz))
|
| 47 |
|
| 48 | (define-public compton
|
| 49 | (let ((upstream-version "0.1_beta2"))
|
| 50 | (package
|
| 51 | (name "compton")
|
| 52 | (version (string-filter (char-set-complement (char-set #\_))
|
| 53 | upstream-version))
|
| 54 | (source
|
| 55 | (origin
|
| 56 | (method git-fetch)
|
| 57 | (uri (git-reference
|
| 58 | (url "https://github.com/chjj/compton")
|
| 59 | (commit (string-append "v" upstream-version))))
|
| 60 | (sha256
|
| 61 | (base32
|
| 62 | "0v65viilhnd2xgvmdpzc1srxszcg8kj1vhi5gy9292j48w0s2fx1"))
|
| 63 | (file-name (git-file-name name version))))
|
| 64 | (build-system gnu-build-system)
|
| 65 | (inputs
|
| 66 | (list dbus
|
| 67 | libconfig
|
| 68 | libx11
|
| 69 | libxcomposite
|
| 70 | libxdamage
|
| 71 | libxext
|
| 72 | libxfixes
|
| 73 | libxinerama
|
| 74 | libxrandr
|
| 75 | libxrender
|
| 76 | mesa
|
| 77 | xprop
|
| 78 | xwininfo))
|
| 79 | (native-inputs
|
| 80 | (list asciidoc libdrm pkg-config python xorgproto))
|
| 81 | (arguments
|
| 82 | `(#:make-flags (list
|
| 83 | "CC=gcc"
|
| 84 | "NO_REGEX_PCRE=1" |
| 85 | (string-append "PREFIX=" (assoc-ref %outputs "out")))
|
| 86 | #:tests? #f |
| 87 | #:phases
|
| 88 | (modify-phases %standard-phases
|
| 89 | (delete 'configure))))
|
| 90 | (home-page "https://github.com/chjj/compton")
|
| 91 | (synopsis "Compositor for X11")
|
| 92 | (description
|
| 93 | "Compton is a compositor for the Xorg display server and a for of
|
| 94 | xcompmgr-dana, which implements some changes like:
|
| 95 |
|
| 96 | @itemize
|
| 97 | @item OpenGL backend (@command{--backend glx}), in addition to the old X Render
|
| 98 | backend.
|
| 99 | @item Inactive window transparency (@command{-i}) and dimming
|
| 100 | (@command{--inactive-dim}).
|
| 101 | @item Menu transparency (@command{-m}, thanks to Dana).
|
| 102 | @item Shadows are now enabled for argb windows, e.g terminals with transparency
|
| 103 | @item Removed serverside shadows (and simple compositing) to clean the code,
|
| 104 | the only option that remains is clientside shadows.
|
| 105 | @item Configuration files (see the man page for more details).
|
| 106 | @item Colored shadows (@command{--shadow-[red/green/blue]}).
|
| 107 | @item A new fade system.
|
| 108 | @item VSync support (not always working).
|
| 109 | @item Blur of background of transparent windows, window color inversion (bad in
|
| 110 | performance).
|
| 111 | @item Some more options...
|
| 112 | @end itemize\n")
|
| 113 | (license license:expat))))
|
| 114 |
|
| 115 | (define-public picom
|
| 116 | (package
|
| 117 | (name "picom")
|
| 118 | (version "13")
|
| 119 | (source
|
| 120 | (origin
|
| 121 | (method git-fetch)
|
| 122 | (uri (git-reference
|
| 123 | (url "https://github.com/yshui/picom")
|
| 124 | (commit (string-append "v" version))))
|
| 125 | (sha256
|
| 126 | (base32
|
| 127 | "0x81m06fhkgrl6vzm4a3cqxcldkq223q0jzlkkhd8kpjmrqaprw3"))
|
| 128 | (file-name (git-file-name name version))))
|
| 129 | (build-system meson-build-system)
|
| 130 | (inputs
|
| 131 | (list dbus
|
| 132 | libconfig
|
| 133 | libepoxy
|
| 134 | libev
|
| 135 | libx11
|
| 136 | libxext
|
| 137 | mesa
|
| 138 | pcre2
|
| 139 | pixman
|
| 140 | uthash
|
| 141 | xcb-util
|
| 142 | xcb-util-renderutil
|
| 143 | xcb-util-image
|
| 144 | xprop))
|
| 145 | (native-inputs
|
| 146 | (append
|
| 147 | (list pkg-config python-minimal-wrapper xorgproto)
|
| 148 | (if (supported-package? ruby-asciidoctor/minimal)
|
| 149 | (list ruby-asciidoctor/minimal)
|
| 150 | '())))
|
| 151 | (arguments
|
| 152 | (list #:build-type "release"
|
| 153 | #:configure-flags
|
| 154 | (if (this-package-native-input "ruby-asciidoctor")
|
| 155 | #~'("-Dwith_docs=true")
|
| 156 | #~'("-Dwith_docs=false"))
|
| 157 | #:phases
|
| 158 | #~(modify-phases %standard-phases
|
| 159 | |
| 160 | |
| 161 | |
| 162 | |
| 163 | |
| 164 | (add-after 'unpack 'patch-autostart-files
|
| 165 | (lambda _
|
| 166 | (substitute* "picom.desktop"
|
| 167 | (("Exec=")
|
| 168 | (string-append "Exec=" #$output "/bin/"))))))))
|
| 169 | (home-page "https://picom.app/")
|
| 170 | (synopsis "Compositor for X11, forked from Compton")
|
| 171 | (description
|
| 172 | "Picom is a standalone compositor for Xorg, suitable for use
|
| 173 | with window managers that do not provide compositing.
|
| 174 |
|
| 175 | Picom is a fork of compton, which is a fork of xcompmgr-dana,
|
| 176 | which in turn is a fork of xcompmgr.")
|
| 177 | (license (list license:expat |
| 178 | license:mpl2.0)))) |