[jackhill/guix/guix.git] / gnu / packages / compton.scm

;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017 José Miguel Sánchez García <jmi2k@openmailbox.org>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu packages compton)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system gnu)
  #:use-module (gnu packages docbook)
  #:use-module (gnu packages documentation)
  #:use-module (gnu packages gl)
  #:use-module (gnu packages glib)
  #:use-module (gnu packages pkg-config)
  #:use-module (gnu packages python)
  #:use-module (gnu packages textutils)
  #:use-module (gnu packages xdisorg)
  #:use-module (gnu packages xml)
  #:use-module (gnu packages xorg))

(define-public compton
  (let ((upstream-version "0.1_beta2"))
    (package
      (name "compton")
      (version (string-filter (char-set-complement (char-set #\_))
                              upstream-version))
      (source (origin
                (method url-fetch)
                (uri (string-append
                      "https://github.com/chjj/" name "/archive/v"
                      upstream-version ".tar.gz"))
                (sha256
                 (base32
                  "02dhlqqcwnmlf2dxg7rd4lapgqahgndzixdkbpxicq9jawmdb73v"))
                (file-name (string-append name "-" version "-checkout"))))
      (build-system gnu-build-system)
      (inputs
       `(("dbus" ,dbus)
         ("libconfig" ,libconfig)
         ("libx11" ,libx11)
         ("libxcomposite" ,libxcomposite)
         ("libxdamage" ,libxdamage)
         ("libxext" ,libxext)
         ("libxfixes" ,libxfixes)
         ("libxinerama" ,libxinerama)
         ("libxrandr" ,libxrandr)
         ("libxrender" ,libxrender)
         ("mesa" ,mesa)
         ("xprop" ,xprop)
         ("xwininfo" ,xwininfo)))
      (native-inputs
       `(("asciidoc" ,asciidoc)
         ("libdrm" ,libdrm)
         ("pkg-config" ,pkg-config)
         ("python" ,python)
         ("xproto" ,xproto)))
      (arguments
       `(#:make-flags (list
                       "CC=gcc"
                       "NO_REGEX_PCRE=1"          ; pcre makes build fail
                       (string-append "PREFIX=" (assoc-ref %outputs "out")))
         #:tests? #f                              ; no tests
         #:phases
         (modify-phases %standard-phases
           (delete 'configure))))
      (home-page "https://github.com/chjj/compton")
      (synopsis "Compositor for X11")
      (description
       "Compton is a compositor for the Xorg display server and a for of
xcompmgr-dana, which implements some changes like:

@itemize
@item OpenGL backend (@command{--backend glx}), in addition to the old X Render
backend.
@item Inactive window transparency (@command{-i}) and dimming
(@command{--inactive-dim}).
@item Menu transparency (@command{-m}, thanks to Dana).
@item Shadows are now enabled for argb windows, e.g terminals with transparency
@item Removed serverside shadows (and simple compositing) to clean the code,
the only option that remains is clientside shadows.
@item Configuration files (see the man page for more details).
@item Colored shadows (@command{--shadow-[red/green/blue]}).
@item A new fade system.
@item VSync support (not always working).
@item Blur of background of transparent windows, window color inversion (bad in
performance).
@item Some more options...
@end itemize\n")
      (license license:expat))))
Commit	Line	Data
cacf4e9d JMSG	1	;;; GNU Guix --- Functional package management for GNU
	2	;;; Copyright © 2017 José Miguel Sánchez García <jmi2k@openmailbox.org>
	3	;;;
	4	;;; This file is part of GNU Guix.
	5	;;;
	6	;;; GNU Guix is free software; you can redistribute it and/or modify it
	7	;;; under the terms of the GNU General Public License as published by
	8	;;; the Free Software Foundation; either version 3 of the License, or (at
	9	;;; your option) any later version.
	10	;;;
	11	;;; GNU Guix is distributed in the hope that it will be useful, but
	12	;;; WITHOUT ANY WARRANTY; without even the implied warranty of
	13	;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	14	;;; GNU General Public License for more details.
	15	;;;
	16	;;; You should have received a copy of the GNU General Public License
	17	;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
	18
	19	(define-module (gnu packages compton)
	20	#:use-module ((guix licenses) #:prefix license:)
	21	#:use-module (guix packages)
	22	#:use-module (guix download)
	23	#:use-module (guix build-system gnu)
	24	#:use-module (gnu packages docbook)
	25	#:use-module (gnu packages documentation)
	26	#:use-module (gnu packages gl)
	27	#:use-module (gnu packages glib)
	28	#:use-module (gnu packages pkg-config)
	29	#:use-module (gnu packages python)
	30	#:use-module (gnu packages textutils)
	31	#:use-module (gnu packages xdisorg)
	32	#:use-module (gnu packages xml)
	33	#:use-module (gnu packages xorg))
	34
	35	(define-public compton
	36	(let ((upstream-version "0.1_beta2"))
	37	(package
	38	(name "compton")
	39	(version (string-filter (char-set-complement (char-set #\_))
	40	upstream-version))
	41	(source (origin
	42	(method url-fetch)
	43	(uri (string-append
	44	"https://github.com/chjj/" name "/archive/v"
	45	upstream-version ".tar.gz"))
	46	(sha256
	47	(base32
	48	"02dhlqqcwnmlf2dxg7rd4lapgqahgndzixdkbpxicq9jawmdb73v"))
	49	(file-name (string-append name "-" version "-checkout"))))
	50	(build-system gnu-build-system)
	51	(inputs
	52	`(("dbus" ,dbus)
cacf4e9d JMSG	53	("libconfig" ,libconfig)
	54	("libx11" ,libx11)
	55	("libxcomposite" ,libxcomposite)
	56	("libxdamage" ,libxdamage)
	57	("libxext" ,libxext)
	58	("libxfixes" ,libxfixes)
	59	("libxinerama" ,libxinerama)
cacf4e9d JMSG	60	("libxrandr" ,libxrandr)
cacf4e9d JMSG	61	("libxrender" ,libxrender)
cacf4e9d JMSG	62	("mesa" ,mesa)
	63	("xprop" ,xprop)
	64	("xwininfo" ,xwininfo)))
	65	(native-inputs
	66	`(("asciidoc" ,asciidoc)
	67	("libdrm" ,libdrm)
	68	("pkg-config" ,pkg-config)
	69	("python" ,python)
	70	("xproto" ,xproto)))
	71	(arguments
	72	`(#:make-flags (list
	73	"CC=gcc"
	74	"NO_REGEX_PCRE=1" ; pcre makes build fail
	75	(string-append "PREFIX=" (assoc-ref %outputs "out")))
	76	#:tests? #f ; no tests
	77	#:phases
	78	(modify-phases %standard-phases
	79	(delete 'configure))))
	80	(home-page "https://github.com/chjj/compton")
	81	(synopsis "Compositor for X11")
	82	(description
	83	"Compton is a compositor for the Xorg display server and a for of
	84	xcompmgr-dana, which implements some changes like:
	85
	86	@itemize
	87	@item OpenGL backend (@command{--backend glx}), in addition to the old X Render
	88	backend.
	89	@item Inactive window transparency (@command{-i}) and dimming
	90	(@command{--inactive-dim}).
	91	@item Menu transparency (@command{-m}, thanks to Dana).
	92	@item Shadows are now enabled for argb windows, e.g terminals with transparency
	93	@item Removed serverside shadows (and simple compositing) to clean the code,
	94	the only option that remains is clientside shadows.
	95	@item Configuration files (see the man page for more details).
	96	@item Colored shadows (@command{--shadow-[red/green/blue]}).
	97	@item A new fade system.
	98	@item VSync support (not always working).
	99	@item Blur of background of transparent windows, window color inversion (bad in
	100	performance).
	101	@item Some more options...
	102	@end itemize\n")
	103	(license license:expat))))