TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

import: launchpad: Recognize more URLs.

Browse source 
* guix/import/launchpad.scm (updated-launchpad-url): Recognize more URLs.
This commit is contained in:
Arun Isaac 2020-07-04 23:44:59 +05:30
parent 4322561243
commit 4546c0dd2f
No known key found for this signature in database
GPG key ID: 2E25EE8B61802BB3
1 changed files with 26 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
guix/import/launchpad.scm
View file

@ -46,15 +46,35 @@ (define (updated-url url)
(version (package-version old-package))
(repo (launchpad-repository url)))
(cond
((and
(>= (length (string-split version #\.)) 2)
(string=? (string-append "https://launchpad.net/"
repo "/" (version-major+minor version)
"/" version "/+download/" repo "-" version ext)
url))
((< (length (string-split version #\.)) 2) #f)
((string=? (string-append "https://launchpad.net/"
repo "/" (version-major+minor version)
"/" version "/+download/" repo "-" version ext)
url)
(string-append "https://launchpad.net/"
repo "/" (version-major+minor new-version)
"/" new-version "/+download/" repo "-" new-version ext))
((string=? (string-append "https://launchpad.net/"
repo "/" (version-major+minor version)
"/" version "/+download/" repo "_" version ext)
url)
(string-append "https://launchpad.net/"
repo "/" (version-major+minor new-version)
"/" new-version "/+download/" repo "-" new-version ext))
((string=? (string-append "https://launchpad.net/"
repo "/trunk/" version "/+download/"
repo "-" version ext)
url)
(string-append "https://launchpad.net/"
repo "/trunk/" new-version
"/+download/" repo "-" new-version ext))
((string=? (string-append "https://launchpad.net/"
repo "/trunk/" version "/+download/"
repo "_" version ext)
url)
(string-append "https://launchpad.net/"
repo "/trunk/" new-version
"/+download/" repo "_" new-version ext))
(#t #f))))) ; Some URLs are not recognised.
(match (package-source old-package)