forked from vv/gib-gab-gob
Compare commits
4 Commits
5a62a67b61
...
58032e42af
Author | SHA1 | Date |
---|---|---|
TakeV | 58032e42af | |
TakeV | a0e7b1e71a | |
TakeV | 268050a479 | |
Vivianne | e4a9dda6cd |
|
@ -0,0 +1,3 @@
|
|||
#!/bin/sh
|
||||
|
||||
autoreconf -vif
|
|
@ -50,7 +50,8 @@
|
|||
(define init-sref (string->ocapn-id addr))
|
||||
(define initiator ($ mycapn 'enliven init-sref))
|
||||
(define joiner (spawn ^game-joiner initiator ^game-controller))
|
||||
(<- initiator 'register-opponent joiner ($ joiner 'get-sealed-pick)))
|
||||
(on (<- initiator 'register-opponent joiner ($ joiner 'get-sealed-pick))
|
||||
(lambda (_) (<- initiator 'try-transition))))
|
||||
|
||||
(define (^game-joiner bcom initiator ^game-controller)
|
||||
(define-values (seal-pick unseal-pick my-pick?)
|
||||
|
|
13
guix.scm
13
guix.scm
|
@ -3,17 +3,26 @@
|
|||
((guix licenses) #:prefix license:)
|
||||
(guix download)
|
||||
(guix build-system gnu)
|
||||
(guix gexp)
|
||||
(gnu packages)
|
||||
(gnu packages autotools)
|
||||
(gnu packages guile)
|
||||
(gnu packages guile-xyz)
|
||||
(gnu packages pkg-config)
|
||||
(gnu packages texinfo))
|
||||
(gnu packages texinfo)
|
||||
(srfi srfi-1))
|
||||
|
||||
(define (keep-file? file stat)
|
||||
(not (any (lambda (my-string)
|
||||
(string-contains file my-string))
|
||||
(list ".git" ".dir-locals.el" "guix.scm"))))
|
||||
|
||||
(package
|
||||
(name "gib-gab-gob")
|
||||
(version "0.1")
|
||||
(source "./gib-gab-gob-0.1.tar.gz")
|
||||
(source (local-file (dirname (current-filename))
|
||||
#:recursive? #t
|
||||
#:select? keep-file?))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
`(#:modules
|
||||
|
|
6
hall.scm
6
hall.scm
|
@ -30,9 +30,11 @@
|
|||
(in-file "make-initiator")
|
||||
(text-file "make-initiator")
|
||||
(text-file "make-joiner")))))
|
||||
(documentation ((org-file "README")))
|
||||
(documentation
|
||||
((text-file "COPYING") (org-file "README")))
|
||||
(infrastructure
|
||||
((in-file "pre-inst-env")
|
||||
((scheme-file "guix")
|
||||
(in-file "pre-inst-env")
|
||||
(directory
|
||||
"build-aux"
|
||||
((tex-file "texinfo")
|
||||
|
|
|
@ -0,0 +1,5 @@
|
|||
;; What follows is a "manifest" equivalent to the command line you gave.
|
||||
;; You can store it in a file that you may then pass to any 'guix' command
|
||||
;; that accepts a '--manifest' (or '-m') option.
|
||||
|
||||
(specifications->manifest (list "tor"))
|
Loading…
Reference in New Issue