packages.scm: Replace url-fetch with git-fetch

1 files changed, 33 insertions, 29 deletions

diff --git a/src/org/euandre/packages.scm b/src/org/euandre/packages.scm
index 52ce5d9..f166387 100644
--- a/src/org/euandre/packages.scm
+++ b/src/org/euandre/packages.scm
@@ -12,6 +12,7 @@
   #:use-module (guix build-system gnu)
   #:use-module (guix download)
   #:use-module (guix gexp)
+  #:use-module (guix git-download)
   #:use-module (guix least-authority)
   #:use-module (guix packages)
   #:use-module (guix records)
@@ -164,12 +165,16 @@
     (version version)
     (source
       (origin
-        (method url-fetch)
+        (method git-fetch)
         (uri
-          (str
-           "https://euandre.org/git/" name "/snapshot/" name "-" version ".tar.xz"))
+          (git-reference
+            (url
+              (str "git://euandre.org/" name))
+            (commit version)))
         (sha256
-          (base32 checksum))))
+          (base32 checksum))
+        (file-name
+          (git-file-name name version))))
     (build-system gnu-build-system)
     (arguments
       (list
@@ -179,7 +184,7 @@
            (delete 'configure))))
     (synopsis    #f) ;; FIXME: get
     (description #f) ;;        from tarball!
-    (home-page (str "https://euandre.org/git/" name "/"))
+    (home-page (str "https://euandre.org/s/" name "/"))
     (license licenses:agpl3+)))
 
 
@@ -187,43 +192,43 @@
   (pkg
    "remembering"
    "22a7b4f0c8e018077984d58476a0c419b5e11942"
-   "01wnq0vbl70dwxh19pqv258r9kd850kwi4nv1h4q4vmg5iiglhd1"))
+   "0grdfh4bpi8rmrkwcr526prjm67rhxy9bgbgp53bcdjc5y8kxvya"))
 
 (define-public eut
   (pkg
    "eut"
    "c5fbe36d5e71a94589039ad9bc422da543fddf01"
-   "013aayqb64qvafvnpshwg30nndjv5gj69l5xs0li6xvjkhmpsvnw"))
+   "1vn632dl44046w76vwnff912xzzdim2jw98srr7rma9zs3rcyns5"))
 
 (define-public cage
   (pkg
    "cage"
    "c0482531fc16a55715b759b695d27d555d927ab8"
-   "0laan68dj3s1n2d2alcwpvhnjjc2483kyx5xl384rcwrn3s0kcyl"))
+   "1v5m7xqfb14y283mlc2kd714hnih1dwcmjcf4i6j52pphjscilys"))
 
 (define-public nicely
   (pkg
    "nicely"
    "6699e732f00d2a8d8c377527dc588824ba3cbece"
-   "1j6s7z29m126mxgacqbk0g4lmk8ap526z716d70kbwadh91n1a5v"))
+   "10n4i35bmzb5lrnch47cfraf32v75bbxm1i2ryjp7b9rsfzw5ds4"))
 
 (define-public q
   (pkg
    "q"
    "5e8e65015a77ed7606c6cfbd2d1cedc79e42a6a5"
-   "1dramr7p5ncbnna0v3ncaa77rm1c8vzxw5si4n6d3rr0ji2v48ac"))
+   "1cp2na1cwp0hfj9nq19qk9di08kx62mn740l42688zpn7bcx5gxc"))
 
 (define-public syskeep
   (pkg
    "syskeep"
    "7e2476bb5260361d8cab34dac5c400d3ee92ab93"
-   "1brk3dcqcixq7prrf5a6lrwf40gbdypnwbpdrhf53lmcwqfsq4id"))
+   "0zjc353b122paisx79xz23x553w8zf3zxdfs7x116l11z1h66zh7"))
 
 (define-public backupit
   (pkg
    "backupit"
    "3e9c89562d566e72cbaa53db3b1d0dfa8050b1f9"
-   "155x9y7m302i7wyi33n62lixpqffaspwaswv12smp1lm0hc7nhx0"))
+   "0ayfp9564jggf02zniqay1sb0q0ff94zwxp6p7ps1g2ir2bxm4nm"))
 
 (define-public guile-heredoc
   (package
@@ -231,7 +236,7 @@
       (pkg
        "guile-heredoc"
        "065435cdce609604e33b879b9be3e81ab89f3e7b"
-       "1y1110bg4ki0dvn8hggxy34wg7ig4r3377nc84isnj3dydqm2vjd"))
+       "179qq17mgi4kakhj9w1dk26afljh5yad4j9ih9d8wms70x6h211m"))
     (native-inputs
       (list
        guile-3.0
@@ -264,17 +269,16 @@
        checksum))
     (source
       (origin
-        (method url-fetch)
+        (method git-fetch)
         (uri
-          (str "https://papo.im/git/"
-               name
-               "/snapshot/"
-               name
-               "-"
-               version
-               ".tar.xz"))
+          (git-reference
+            (url
+              (str "git://papo.im/" name))
+            (commit version)))
         (sha256
-          (base32 checksum))))
+          (base32 checksum))
+        (file-name
+          (git-file-name name version))))
     (arguments
       (list
        #:strip-binaries? #f
@@ -318,14 +322,14 @@
    "gobang"
    '()
    "b1bed38e5e0a261616343c7555962162416c28e2"
-   "1h937x3clk3xydvl7876qd3b6plapjsnxmdlyan1iydmh6ym7vg0"))
+   "129fq4i3lnnsra34id0w34shvd0x67dljgm46f13jpdcaan1kchz"))
 
 (define-public golite
   (gopkg
    "golite"
    (normalize-inputs '(sqlite))
    "b31e279bade22276f27f4990b7564a2114f3058a"
-   "14q9bhkw1v60mby187balwnnwyz2ig8hi03v5f2nm8p3m8sl5ykd"))
+   "09w0vgkn5qwns29kqlh6ss9zhq4ya1cvcy889lpln9xjpnbl7b2m"))
 
 (define-public binder
   (gopkg
@@ -333,14 +337,14 @@
    (append (format-inputs     (list gobang eut))
            (normalize-inputs '(socat lsof)))
    "aa44df7545e13f6d2bb5ea088786d14f4a31a04d"
-   "15zdcvx1gxlzz3g7gasckna3xfrf0c6yd8pvii169ivgm0rrbpll"))
+   "1cbq0w39v8kyfc94pnx5csls1w95yxlksgmfqsc14csnrp8npqd7"))
 
 (define-public wscat
   (gopkg "wscat"
    (append (format-inputs     (list gobang eut))
            (normalize-inputs '()))
    "00f822df8bcecc3b40bdc39f0cd5dfb6d1efc45e"
-   "0ypj05w6kh7dd55qn0gfc1fdiyy5kfalypxm5dhsbmqkzk09m3id"))
+   "18qbak3yqhp7hzf4d056yl5pc6dfg0vjvb436zhg38yamkp3859m"))
 
 (define-public glaze
   (gopkg
@@ -348,7 +352,7 @@
    (append (format-inputs     (list gobang eut))
            (normalize-inputs '()))
    "ebe6b2ae31145fd3534a0fb583410ce2cd8e8d69"
-   "0r0lsfx5g6crgyrzf8kqid3370lvyq0h573qbcpzl6mcm57nc9hj"))
+   "0p98544r27a6p2znndrj2x7bwwmzhzkaf677lwq07qvpjrvrasi5"))
 
 (define-public untls
   (gopkg
@@ -356,7 +360,7 @@
    (append (format-inputs     (list gobang eut))
            (normalize-inputs '()))
    "3833dbae57bcf87a33ecbb38fb877861fb1c8d63"
-   "0pxmqhzy4286w3aivq1qykqdr4mcd6b3p7q9frbnwlqmk5gfp36z"))
+   "0h2pixc401shxr8796r5113wx9pxwrzhbq4ljhcsvzz06r33n38v"))
 
 (define-public papod
   (gopkg
@@ -364,7 +368,7 @@
    (append (format-inputs     (list gobang golite eut))
            (normalize-inputs '(sqlite sqlite:static)))
    "db0315223571daaf43ab5e8456bed7f3d7f9dafa"
-   "19dr8w1hpi9h8rjad9dwb0s6r41xgj1x4m4j7yndchikwrwg4lgx"))
+   "0nxxyjf9qpc9lmjxmmfdc3qgjn1pdgip4mi3xn20vqzxig2hs1kx"))