(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 build-system gnu)
  #:use-module (guix download)
  #:use-module (guix gexp)
  #:use-module (guix packages)
  #:use-module (guix utils))



(define-public (pkg name version checksum)
  (package
    (name name)
    (version version)
    (source
      (origin
        (method url-fetch)
        (uri
          (string-append
           "https://euandre.org/git/" name "/snapshot/" name "-" version ".tar.xz"))
        (sha256
          (base32 checksum))))
    (build-system gnu-build-system)
    (arguments
      (list
       #:make-flags #~(list (string-append "PREFIX=" #$output))
       #:phases
       #~(modify-phases %standard-phases
           (delete 'configure))))
    (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"))

(define-public cage
  (pkg
   "cage"
   "c0482531fc16a55715b759b695d27d555d927ab8"
   "0laan68dj3s1n2d2alcwpvhnjjc2483kyx5xl384rcwrn3s0kcyl"))

(define-public nicely
  (pkg
   "nicely"
   "6699e732f00d2a8d8c377527dc588824ba3cbece"
   "1j6s7z29m126mxgacqbk0g4lmk8ap526z716d70kbwadh91n1a5v"))

(define-public q
  (pkg
   "q"
   "5e8e65015a77ed7606c6cfbd2d1cedc79e42a6a5"
   "1dramr7p5ncbnna0v3ncaa77rm1c8vzxw5si4n6d3rr0ji2v48ac"))

(define-public syskeep
  (pkg
   "syskeep"
   "01bbdf0541a87a5894ca16622ad2be24ed70985d"
   "0i475l0xlsi0ds3278lvfk7ijimgih78qn66a8f5b5ba16jzv4x7"))

(define-public guile-heredoc
  (package
    (inherit
      (pkg
       "guile-heredoc"
       "065435cdce609604e33b879b9be3e81ab89f3e7b"
       "1y1110bg4ki0dvn8hggxy34wg7ig4r3377nc84isnj3dydqm2vjd"))
    (native-inputs
      (list
       guile-3.0
       texinfo))))



(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 (gopkg name inputs version checksum)
  (package
    (inherit
      (pkg
       name
       version
       checksum))
    (source
      (origin
        (method url-fetch)
        (uri
          (string-append "https://papo.im/git/"
                         name
                         "/snapshot/"
                         name
                         "-"
                         version
                         ".tar.xz"))
        (sha256
          (base32 checksum))))
    (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")))))))


(define-public gobang
  (gopkg
   "gobang"
   '()
   "b1bed38e5e0a261616343c7555962162416c28e2"
   "1h937x3clk3xydvl7876qd3b6plapjsnxmdlyan1iydmh6ym7vg0"))

(define-public golite
  (gopkg
   "golite"
   (normalize-inputs '(sqlite))
   "b31e279bade22276f27f4990b7564a2114f3058a"
   "14q9bhkw1v60mby187balwnnwyz2ig8hi03v5f2nm8p3m8sl5ykd"))

(define-public binder
  (gopkg
   "binder"
   (append (format-inputs     (list gobang eut))
           (normalize-inputs '(socat lsof)))
   "aa44df7545e13f6d2bb5ea088786d14f4a31a04d"
   "15zdcvx1gxlzz3g7gasckna3xfrf0c6yd8pvii169ivgm0rrbpll"))

(define-public wscat
  (gopkg "wscat"
   (append (format-inputs     (list gobang eut))
           (normalize-inputs '()))
   "00f822df8bcecc3b40bdc39f0cd5dfb6d1efc45e"
   "0ypj05w6kh7dd55qn0gfc1fdiyy5kfalypxm5dhsbmqkzk09m3id"))

(define-public glaze
  (gopkg
   "glaze"
   (append (format-inputs     (list gobang eut))
           (normalize-inputs '()))
   "ebe6b2ae31145fd3534a0fb583410ce2cd8e8d69"
   "0r0lsfx5g6crgyrzf8kqid3370lvyq0h573qbcpzl6mcm57nc9hj"))

(define-public untls
  (gopkg
   "untls"
   (append (format-inputs     (list gobang eut))
           (normalize-inputs '()))
   "3833dbae57bcf87a33ecbb38fb877861fb1c8d63"
   "0pxmqhzy4286w3aivq1qykqdr4mcd6b3p7q9frbnwlqmk5gfp36z"))

(define-public papod
  (gopkg
   "papod"
   (append (format-inputs     (list gobang golite eut))
           (normalize-inputs '(sqlite sqlite:static)))
   "db0315223571daaf43ab5e8456bed7f3d7f9dafa"
   "19dr8w1hpi9h8rjad9dwb0s6r41xgj1x4m4j7yndchikwrwg4lgx"))



(list
 remembering
 eut
 cage
 nicely
 q
 syskeep
 guile-heredoc

 gobang
 golite
 binder
 glaze
 untls
 wscat
 papod)