packages.scm: Remove old package versions

1 files changed, 43 insertions, 174 deletions

diff --git a/src/org/euandre/packages.scm b/src/org/euandre/packages.scm
index a73f21b..0831903 100644
--- a/src/org/euandre/packages.scm
+++ b/src/org/euandre/packages.scm
@@ -12,151 +12,6 @@
 
 
 
-(define-public git-permalink-0-1-0
-  (package
-    (name "git-permalink")
-    (version "0.1.0")
-    (source
-      (origin
-        (method url-fetch)
-        (uri "https://euandre.org/git/git-permalink/snapshot/git-permalink-v0.1.0.tar.xz")
-        (sha256
-          (base32 "07waci3y0xdlbr8gl1lzdbsiz0csnrshcm6f18cdzn7y97irhb15"))))
-    (build-system gnu-build-system)
-    (native-inputs
-      (list))
-    (inputs
-      (list))
-    (arguments
-      (list
-       #:make-flags #~(list (string-append "PREFIX=" #$output))
-       #:phases
-       #~(modify-phases %standard-phases
-           (delete 'configure))))
-    (synopsis "Git extension to generate web permalinks of files in a repository")
-    (description
-      "It knows about many of the existing code forges, but allows for URL
-template overrides to be used on custom domains or deployments via git
-config.")
-    (home-page "https://euandre.org/s/git-permalink/")
-    (license licenses:agpl3+)))
-
-(define-public git-permalink-0-2-0
-  (package
-    (name "git-permalink")
-    (version "0.2.0")
-    (source
-      (origin
-        (method url-fetch)
-        (uri "https://euandre.org/git/git-permalink/snapshot/git-permalink-v0.2.0.tar.xz")
-        (sha256
-          (base32 "10qiigp29jamb23mdrf1yp0gqmihlsg931ibpiqpf4pn28l5d9ly"))))
-    (build-system gnu-build-system)
-    (native-inputs
-      (list))
-    (inputs
-      (list))
-    (arguments
-      (list
-       #:make-flags #~(list (string-append "PREFIX=" #$output))
-       #:phases
-       #~(modify-phases %standard-phases
-           (delete 'configure))))
-    (synopsis "Git extension to generate web permalinks of files in a repository")
-    (description
-      "It knows about many of the existing code forges, but allows for URL
-template overrides to be used on custom domains or deployments via git
-config.")
-    (home-page "https://euandre.org/s/git-permalink/")
-    (license licenses:agpl3+)))
-
-(define-public remembering-0-1-2
-  (package
-    (name "remembering")
-    (version "0.1.2")
-    (source
-      (origin
-        (method url-fetch)
-        (uri "https://euandre.org/git/remembering/snapshot/remembering-v0.1.2.tar.xz")
-        (sha256
-          (base32 "1syzn41w4f754ihblwxcv3wn653lh92cgg6g06db1qrx3m2zvw5v"))))
-    (build-system gnu-build-system)
-    (native-inputs
-      (list))
-    (inputs
-      (list))
-    (arguments
-      (list
-       #:make-flags #~(list (string-append "PREFIX=" #$output))
-       #:phases
-       #~(modify-phases %standard-phases
-           (delete 'configure))))
-    (synopsis "Add memory to dmenu, fzf and similar tools")
-    (description
-      "It can wrap such tools to accumulate preferences over time, and
-re-arrange the input according to common picks.")
-    (home-page "https://euandre.org/s/remembering/")
-    (license licenses:agpl3+)))
-
-(define-public td
-  (package
-    (name "td")
-    (version "4a8a7a2662c94b2581f587e9a4b81feba4f5e7d8")
-    (source
-      (origin
-        (method url-fetch)
-        (uri "https://euandre.org/git/td/snapshot/td-4a8a7a2662c94b2581f587e9a4b81feba4f5e7d8.tar.xz")
-        (sha256
-          (base32 "01g1vnlz1kch8j9zzaxyixih04azdvrfabfzg7xqny32h2p62md2"))))
-    (build-system gnu-build-system)
-    (native-inputs
-      (list))
-    (inputs
-      (list))
-    (arguments
-      (list
-       #:make-flags #~(list (string-append "PREFIX=" #$output))
-       #:phases
-       #~(modify-phases %standard-phases
-           (delete 'configure))))
-    (synopsis "Minimalistic bug tracker CLI")
-    (description
-      "Create and maintain a TODOs.md files as a bug database.
-
-It is a tool for distributed, offline issue tracking, reified as a simple text
-file in the repository.")
-    (home-page "https://euandre.org/s/td/")
-    (license licenses:agpl3+)))
-
-(define-public guile-heredoc
-  (package
-    (name "guile-heredoc")
-    (version "065435cdce609604e33b879b9be3e81ab89f3e7b")
-    (source
-      (origin
-        (method url-fetch)
-        (uri "https://euandre.org/git/guile-heredoc/snapshot/guile-heredoc-065435cdce609604e33b879b9be3e81ab89f3e7b.tar.xz")
-        (sha256
-          (base32 "1y1110bg4ki0dvn8hggxy34wg7ig4r3377nc84isnj3dydqm2vjd"))))
-    (build-system gnu-build-system)
-    (native-inputs
-      (list
-       texinfo))
-    (inputs
-      (list
-       guile-3.0))
-    (arguments
-      (list
-       #:make-flags #~(list (string-append "PREFIX=" #$output))
-       #:phases
-       #~(modify-phases %standard-phases
-           (delete 'configure))))
-    (synopsis "Guile heredoc syntax")
-    (description
-      "Guile heredoc syntax long.")
-    (home-page "https://euandre.org/s/guile-heredoc/")
-    (license licenses:agpl3+)))
-
 (define-public (pkg name version checksum)
   (package
     (name name)
@@ -176,16 +31,23 @@ file in the repository.")
        #:phases
        #~(modify-phases %standard-phases
            (delete 'configure))))
-    (synopsis    "")
-    (description "")
-    (home-page (string-append "https://euandre.org/s/" name "/"))
+    (synopsis    #f) ;; FIXME: get
+    (description #f) ;;        from tarball!
+    (home-page (string-append "https://euandre.org/git/" name "/"))
     (license licenses:agpl3+)))
 
+
+(define-public remembering
+  (pkg
+   "remembering"
+   "22a7b4f0c8e018077984d58476a0c419b5e11942"
+   "01wnq0vbl70dwxh19pqv258r9kd850kwi4nv1h4q4vmg5iiglhd1"))
+
 (define-public eut
   (pkg
-    "eut"
-    "c5fbe36d5e71a94589039ad9bc422da543fddf01"
-    "013aayqb64qvafvnpshwg30nndjv5gj69l5xs0li6xvjkhmpsvnw"))
+   "eut"
+   "c5fbe36d5e71a94589039ad9bc422da543fddf01"
+   "013aayqb64qvafvnpshwg30nndjv5gj69l5xs0li6xvjkhmpsvnw"))
 
 (define-public cage
   (pkg
@@ -207,9 +69,21 @@ file in the repository.")
 
 (define-public syskeep
   (pkg
-    "syskeep"
-    "41ff39d838d8ad44c9da24f8b4cfc2e71a5ed739"
-    "0an4i8682jjqazw95lkxb0vr98y2cn0bbqm53vr585s7j0n6zi6r"))
+   "syskeep"
+   "41ff39d838d8ad44c9da24f8b4cfc2e71a5ed739"
+   "0an4i8682jjqazw95lkxb0vr98y2cn0bbqm53vr585s7j0n6zi6r"))
+
+(define-public guile-heredoc
+  (package
+    (inherit
+      (pkg
+       "guile-heredoc"
+       "065435cdce609604e33b879b9be3e81ab89f3e7b"
+       "1y1110bg4ki0dvn8hggxy34wg7ig4r3377nc84isnj3dydqm2vjd"))
+    (native-inputs
+      (list
+       guile-3.0
+       texinfo))))
 
 
 
@@ -229,10 +103,13 @@ file in the repository.")
                 symbol->string)
        l))
 
-(define (go-package name inputs version checksum)
+(define (gopkg name inputs version checksum)
   (package
-    (name name)
-    (version version)
+    (inherit
+      (pkg
+       name
+       version
+       checksum))
     (source
       (origin
         (method url-fetch)
@@ -246,7 +123,6 @@ file in the repository.")
                          ".tar.xz"))
         (sha256
           (base32 checksum))))
-    (build-system gnu-build-system)
     (arguments
       (list
        #:strip-binaries? #f
@@ -282,29 +158,25 @@ file in the repository.")
        (search-path-specification
          (variable "GOLIBPACKPATH")
          (files
-           (list "lib/go")))))
-    (synopsis    #f) ;; FIXME: get
-    (description #f) ;;        from
-    (home-page   #f) ;;        tarball!
-    (license licenses:agpl3+)))
+           (list "lib/go")))))))
 
 
 (define-public gobang
-  (go-package
+  (gopkg
    "gobang"
    '()
    "b1bed38e5e0a261616343c7555962162416c28e2"
    "1h937x3clk3xydvl7876qd3b6plapjsnxmdlyan1iydmh6ym7vg0"))
 
 (define-public golite
-  (go-package
+  (gopkg
    "golite"
    (normalize-inputs '(sqlite))
    "b31e279bade22276f27f4990b7564a2114f3058a"
    "14q9bhkw1v60mby187balwnnwyz2ig8hi03v5f2nm8p3m8sl5ykd"))
 
 (define-public binder
-  (go-package
+  (gopkg
    "binder"
    (append (format-inputs     (list gobang eut))
            (normalize-inputs '(socat lsof)))
@@ -312,14 +184,14 @@ file in the repository.")
    "15zdcvx1gxlzz3g7gasckna3xfrf0c6yd8pvii169ivgm0rrbpll"))
 
 (define-public wscat
-  (go-package "wscat"
+  (gopkg "wscat"
    (append (format-inputs     (list gobang eut))
            (normalize-inputs '()))
    "00f822df8bcecc3b40bdc39f0cd5dfb6d1efc45e"
    "0ypj05w6kh7dd55qn0gfc1fdiyy5kfalypxm5dhsbmqkzk09m3id"))
 
 (define-public glaze
-  (go-package
+  (gopkg
    "glaze"
    (append (format-inputs     (list gobang eut))
            (normalize-inputs '()))
@@ -327,7 +199,7 @@ file in the repository.")
    "0r0lsfx5g6crgyrzf8kqid3370lvyq0h573qbcpzl6mcm57nc9hj"))
 
 (define-public untls
-  (go-package
+  (gopkg
    "untls"
    (append (format-inputs     (list gobang eut))
            (normalize-inputs '()))
@@ -335,7 +207,7 @@ file in the repository.")
    "0pxmqhzy4286w3aivq1qykqdr4mcd6b3p7q9frbnwlqmk5gfp36z"))
 
 (define-public papod
-  (go-package
+  (gopkg
    "papod"
    (append (format-inputs     (list gobang golite eut))
            (normalize-inputs '(sqlite sqlite:static)))
@@ -345,10 +217,7 @@ file in the repository.")
 
 
 (list
- git-permalink-0-1-0
- git-permalink-0-2-0
- remembering-0-1-2
- td
+ remembering
  eut
  cage
  nicely