1 files changed, 157 insertions, 4 deletions
diff --git a/src/org/euandre/packages.scm b/src/org/euandre/packages.scm
index e30cce4..98459f0 100644
--- a/src/org/euandre/packages.scm
+++ b/src/org/euandre/packages.scm
@@ -1,11 +1,16 @@
 (define-module (org euandre packages)
+  #:use-module ((guix licenses) #:prefix licenses:)
+  #:use-module ((org euandre queue) #:prefix q:)
+  #:use-module (gnu packages)
   #:use-module (gnu packages guile)
   #:use-module (gnu packages texinfo)
-  #:use-module ((guix licenses) #:prefix licenses:)
+  #:use-module (guix build-system gnu)
+  #:use-module (guix download)
   #:use-module (guix gexp)
   #:use-module (guix packages)
-  #:use-module (guix download)
-  #:use-module (guix build-system gnu))
+  #:use-module (guix utils))
+
+
 
 (define-public git-permalink-0-1-0
   (package
@@ -200,6 +205,145 @@ file in the repository.")
    "5e8e65015a77ed7606c6cfbd2d1cedc79e42a6a5"
    "1dramr7p5ncbnna0v3ncaa77rm1c8vzxw5si4n6d3rr0ji2v48ac"))
 
+(define-public syskeep
+  (pkg
+    "syskeep"
+    "41ff39d838d8ad44c9da24f8b4cfc2e71a5ed739"
+    "0an4i8682jjqazw95lkxb0vr98y2cn0bbqm53vr585s7j0n6zi6r"))
+
+
+
+(define (format-inputs l)
+  (map (lambda (p)
+         (list (package-name p)
+               p
+               "out"))
+       l))
+
+(define (normalize-inputs l)
+  (map (compose (lambda (l)
+                  (cons (package-name (car l))
+                        l))
+                list
+                specification->package+output
+                symbol->string)
+       l))
+
+(define (go-package name inputs version checksum)
+  (package
+    (name name)
+    (version version)
+    (source
+      (origin
+        (method url-fetch)
+        (uri
+          (string-append "https://papo.im/git/"
+                         name
+                         "/snapshot/"
+                         name
+                         "-"
+                         version
+                         ".tar.xz"))
+        (sha256
+          (base32 checksum))))
+    (build-system gnu-build-system)
+    (arguments
+      (list
+       #:strip-binaries? #f
+       #:make-flags
+       #~(list
+          "-e"
+          (string-append "PREFIX=" #$output)
+          (string-append "VERSION=" #$version)
+          (string-append "CC=" #$(cc-for-target)))
+       #:phases
+       #~(modify-phases %standard-phases
+           (delete 'configure)
+           (add-before 'build 'setenv-golang
+             (lambda _
+               (define (path->flags option)
+                 (let ((search-path (getenv "GOLIBPACKPATH")))
+                   (string-join
+                    (map (lambda (path)
+                           (string-append option " " path))
+                         (if search-path
+                           (string-split search-path #\:)
+                           '()))
+                    " ")))
+               (setenv "GOCFLAGS"  (path->flags "-I"))
+               (setenv "GOLDFLAGS" (path->flags "-L")))))))
+    (native-inputs
+      (append
+       (format-inputs
+        (list q:go-full))
+       inputs))
+    (native-search-paths
+      (list
+       (search-path-specification
+         (variable "GOLIBPACKPATH")
+         (files
+           (list "lib/go")))))
+    (synopsis    #f) ;; FIXME: get
+    (description #f) ;;        from
+    (home-page   #f) ;;        tarball!
+    (license licenses:agpl3+)))
+
+
+(define-public gobang
+  (go-package
+   "gobang"
+   '()
+   "b1bed38e5e0a261616343c7555962162416c28e2"
+   "1h937x3clk3xydvl7876qd3b6plapjsnxmdlyan1iydmh6ym7vg0"))
+
+(define-public golite
+  (go-package
+   "golite"
+   (normalize-inputs '(sqlite))
+   "b31e279bade22276f27f4990b7564a2114f3058a"
+   "14q9bhkw1v60mby187balwnnwyz2ig8hi03v5f2nm8p3m8sl5ykd"))
+
+(define-public binder
+  (go-package
+   "binder"
+   (append (format-inputs     (list gobang))
+           (normalize-inputs '(eut socat lsof)))
+   "aa44df7545e13f6d2bb5ea088786d14f4a31a04d"
+   "15zdcvx1gxlzz3g7gasckna3xfrf0c6yd8pvii169ivgm0rrbpll"))
+
+(define-public wscat
+  (go-package "wscat"
+   (append (format-inputs     (list gobang))
+           (normalize-inputs '(eut)))
+   "00f822df8bcecc3b40bdc39f0cd5dfb6d1efc45e"
+   "0ypj05w6kh7dd55qn0gfc1fdiyy5kfalypxm5dhsbmqkzk09m3id"))
+
+(define-public glaze
+  (go-package
+   "glaze"
+   (append (format-inputs     (list gobang))
+           (normalize-inputs '(eut)))
+   "ebe6b2ae31145fd3534a0fb583410ce2cd8e8d69"
+   "0r0lsfx5g6crgyrzf8kqid3370lvyq0h573qbcpzl6mcm57nc9hj"))
+
+(define-public untls
+  (go-package
+   "untls"
+   (append (format-inputs     (list gobang))
+           (normalize-inputs '(eut)))
+   "3833dbae57bcf87a33ecbb38fb877861fb1c8d63"
+   "0pxmqhzy4286w3aivq1qykqdr4mcd6b3p7q9frbnwlqmk5gfp36z"))
+
+(define-public papod
+  (go-package
+   "papod"
+   (append (format-inputs     (list gobang golite))
+           (normalize-inputs '(sqlite sqlite:static)))
+   "db0315223571daaf43ab5e8456bed7f3d7f9dafa"
+   "19dr8w1hpi9h8rjad9dwb0s6r41xgj1x4m4j7yndchikwrwg4lgx"))
+
+
+
 (list
  git-permalink-0-1-0
  git-permalink-0-2-0
@@ -209,4 +353,13 @@ file in the repository.")
  cage
  nicely
  q
- guile-heredoc)
+ syskeep
+ guile-heredoc
+
+ gobang
+ golite
+ binder
+ glaze
+ untls
+ wscat
+ papod)