gnu/packages/compton.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2017 José Miguel Sánchez García <jmi2k@openmailbox.org>
   3 ;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
   4 ;;; Copyright © 2019 Alexandru-Sergiu Marton <brown121407@member.fsf.org>
   5 ;;; Copyright © 2019 Brett Gilio <brettg@gnu.org>
   6 ;;;
   7 ;;; This file is part of GNU Guix.
   8 ;;;
   9 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  10 ;;; under the terms of the GNU General Public License as published by
  11 ;;; the Free Software Foundation; either version 3 of the License, or (at
  12 ;;; your option) any later version.
  13 ;;;
  14 ;;; GNU Guix is distributed in the hope that it will be useful, but
  15 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  16 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17 ;;; GNU General Public License for more details.
  18 ;;;
  19 ;;; You should have received a copy of the GNU General Public License
  20 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  21
  22 (define-module (gnu packages compton)
  23   #:use-module ((guix licenses) #:prefix license:)
  24   #:use-module (guix packages)
  25   #:use-module (guix git-download)
  26   #:use-module (guix build-system gnu)
  27   #:use-module (guix build-system meson)
  28   #:use-module (gnu packages datastructures)
  29   #:use-module (gnu packages docbook)
  30   #:use-module (gnu packages documentation)
  31   #:use-module (gnu packages freedesktop)
  32   #:use-module (gnu packages gl)
  33   #:use-module (gnu packages glib)
  34   #:use-module (gnu packages libevent)
  35   #:use-module (gnu packages pcre)
  36   #:use-module (gnu packages pkg-config)
  37   #:use-module (gnu packages python)
  38   #:use-module (gnu packages textutils)
  39   #:use-module (gnu packages xdisorg)
  40   #:use-module (gnu packages xml)
  41   #:use-module (gnu packages xorg))
  42
  43 (define-public compton
  44   (let ((upstream-version "0.1_beta2"))
  45     (package
  46       (name "compton")
  47       (version (string-filter (char-set-complement (char-set #\_))
  48                               upstream-version))
  49       (source
  50        (origin
  51          (method git-fetch)
  52          (uri (git-reference
  53                (url "https://github.com/chjj/compton")
  54                (commit (string-append "v" upstream-version))))
  55          (sha256
  56           (base32
  57            "0v65viilhnd2xgvmdpzc1srxszcg8kj1vhi5gy9292j48w0s2fx1"))
  58          (file-name (git-file-name name version))))
  59       (build-system gnu-build-system)
  60       (inputs
  61        `(("dbus" ,dbus)
  62          ("libconfig" ,libconfig)
  63          ("libx11" ,libx11)
  64          ("libxcomposite" ,libxcomposite)
  65          ("libxdamage" ,libxdamage)
  66          ("libxext" ,libxext)
  67          ("libxfixes" ,libxfixes)
  68          ("libxinerama" ,libxinerama)
  69          ("libxrandr" ,libxrandr)
  70          ("libxrender" ,libxrender)
  71          ("mesa" ,mesa)
  72          ("xprop" ,xprop)
  73          ("xwininfo" ,xwininfo)))
  74       (native-inputs
  75        `(("asciidoc" ,asciidoc)
  76          ("libdrm" ,libdrm)
  77          ("pkg-config" ,pkg-config)
  78          ("python" ,python)
  79          ("xorgproto" ,xorgproto)))
  80       (arguments
  81        `(#:make-flags (list
  82                        "CC=gcc"
  83                        "NO_REGEX_PCRE=1"          ; pcre makes build fail
  84                        (string-append "PREFIX=" (assoc-ref %outputs "out")))
  85          #:tests? #f                              ; no tests
  86          #:phases
  87          (modify-phases %standard-phases
  88            (delete 'configure))))
  89       (home-page "https://github.com/chjj/compton")
  90       (synopsis "Compositor for X11")
  91       (description
  92        "Compton is a compositor for the Xorg display server and a for of
  93 xcompmgr-dana, which implements some changes like:
  94
  95 @itemize
  96 @item OpenGL backend (@command{--backend glx}), in addition to the old X Render
  97 backend.
  98 @item Inactive window transparency (@command{-i}) and dimming
  99 (@command{--inactive-dim}).
 100 @item Menu transparency (@command{-m}, thanks to Dana).
 101 @item Shadows are now enabled for argb windows, e.g terminals with transparency
 102 @item Removed serverside shadows (and simple compositing) to clean the code,
 103 the only option that remains is clientside shadows.
 104 @item Configuration files (see the man page for more details).
 105 @item Colored shadows (@command{--shadow-[red/green/blue]}).
 106 @item A new fade system.
 107 @item VSync support (not always working).
 108 @item Blur of background of transparent windows, window color inversion (bad in
 109 performance).
 110 @item Some more options...
 111 @end itemize\n")
 112       (license license:expat))))
 113
 114 (define-public picom
 115   (package
 116     (name "picom")
 117     (version "8.2")
 118     (source
 119      (origin
 120        (method git-fetch)
 121        (uri (git-reference
 122              (url "https://github.com/yshui/picom")
 123              (commit (string-append "v" version))))
 124        (sha256
 125         (base32
 126          "0gjksayz2xpmgglvw17ppsan2imrd1fijs579kbf27xwp503xgfl"))
 127        (file-name (string-append "picom-" version))))
 128     (build-system meson-build-system)
 129     (inputs
 130      `(("dbus" ,dbus)
 131        ("libconfig" ,libconfig)
 132        ("libx11" ,libx11)
 133        ("libxext" ,libxext)
 134        ("libev" ,libev)
 135        ("mesa" ,mesa)
 136        ("xprop" ,xprop)
 137        ("xcb-util-renderutil" ,xcb-util-renderutil)
 138        ("xcb-util-image" ,xcb-util-image)
 139        ("pixman" ,pixman)
 140        ("uthash" ,uthash)
 141        ("libxdg-basedir" ,libxdg-basedir)
 142        ("pcre" ,pcre)))
 143     (native-inputs
 144      `(("asciidoc" ,asciidoc)
 145        ("pkg-config" ,pkg-config)
 146        ("xorgproto" ,xorgproto)))
 147     (arguments
 148      `(#:build-type "release"
 149        #:configure-flags '("-Dwith_docs=true")))
 150     (home-page "https://github.com/yshui/picom")
 151     (synopsis "Compositor for X11, forked from Compton")
 152     (description
 153      "Picom is a standalone compositor for Xorg, suitable for use
 154 with window managers that do not provide compositing.
 155
 156 Picom is a fork of compton, which is a fork of xcompmgr-dana,
 157 which in turn is a fork of xcompmgr.")
 158     (license (list license:expat      ; The original compton license.
 159                    license:mpl2.0)))) ; License used by new picom files.