me
/
guix
Archived
1
0
Fork 0
Code

gnu: compton: Don't use unstable tarball. 

* gnu/packages/compton.scm (compton)[source]: Use GIT-FETCH and
GIT-FILE-NAME.
master
Tobias Geerinckx-Rice 2018-12-23 11:09:22 +01:00
parent 782b1224ec
commit 9c2b56a377
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
gnu/packages/compton.scm
View File

@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017 José Miguel Sánchez García <jmi2k@openmailbox.org> ;;; Copyright © 2017 José Miguel Sánchez García <jmi2k@openmailbox.org>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -19,7 +20,7 @@
(define-module (gnu packages compton) (define-module (gnu packages compton)
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix download) #:use-module (guix git-download)
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
#:use-module (gnu packages docbook) #:use-module (gnu packages docbook)
#:use-module (gnu packages documentation) #:use-module (gnu packages documentation)
@ -38,15 +39,16 @@
(name "compton") (name "compton")
(version (string-filter (char-set-complement (char-set #\_)) (version (string-filter (char-set-complement (char-set #\_))
upstream-version)) upstream-version))
(source (origin (source
(method url-fetch) (origin
(uri (string-append (method git-fetch)
"https://github.com/chjj/" name "/archive/v" (uri (git-reference
upstream-version ".tar.gz")) (url "https://github.com/chjj/compton.git")
(commit (string-append "v" upstream-version))))
(sha256 (sha256
(base32 (base32
"02dhlqqcwnmlf2dxg7rd4lapgqahgndzixdkbpxicq9jawmdb73v")) "0v65viilhnd2xgvmdpzc1srxszcg8kj1vhi5gy9292j48w0s2fx1"))
(file-name (string-append name "-" version "-checkout")))) (file-name (git-file-name name version))))
(build-system gnu-build-system) (build-system gnu-build-system)
(inputs (inputs
`(("dbus" ,dbus) `(("dbus" ,dbus)