1
0
Fork 0

Compare commits

...

4 Commits

5 changed files with 25 additions and 5 deletions

3
autoconfig.sh Executable file
View File

@ -0,0 +1,3 @@
#!/bin/sh
autoreconf -vif

View File

@ -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?)

View File

@ -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

View File

@ -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")

5
manifest.scm Normal file
View File

@ -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"))