diff options
author | N. 'ng0' Gillmann <ngillmann@runbox.com> | 2016-10-06 08:48:21 +0000 |
---|---|---|
committer | N. 'ng0' Gillmann <ngillmann@runbox.com> | 2016-10-06 08:48:21 +0000 |
commit | 16f524720ce08aadb35912731217eaeafc690dba (patch) | |
tree | 02ebaa9915b9cad26cd4e4b084dcf35c8d7aeb77 /guix-env.scm | |
parent | 2392da9f844c8d70a438889e344860edff2dd68d (diff) | |
download | gnunet-16f524720ce08aadb35912731217eaeafc690dba.tar.gz gnunet-16f524720ce08aadb35912731217eaeafc690dba.zip |
revert r38067 .. wasn't working, needs testing
Diffstat (limited to 'guix-env.scm')
-rw-r--r-- | guix-env.scm | 115 |
1 files changed, 50 insertions, 65 deletions
diff --git a/guix-env.scm b/guix-env.scm index caa95fca9..79922b94b 100644 --- a/guix-env.scm +++ b/guix-env.scm | |||
@@ -51,73 +51,56 @@ | |||
51 | ;; Precondition for using this file is that you run Guix and have a | 51 | ;; Precondition for using this file is that you run Guix and have a |
52 | ;; development setup for this setup, which involves a version of Guile in | 52 | ;; development setup for this setup, which involves a version of Guile in |
53 | ;; your PATH. | 53 | ;; your PATH. |
54 | ;; Let us assume you checked out https://gnunet.org/svn/, and you exported | ||
55 | ;; a variable named GNUNET_SVN_PATH="/home/alice/src/gnunet/svn/". | ||
56 | ;; | 54 | ;; |
57 | ;; export GNUNET_SVN_PATH="/home/alice/src/gnunet/svn/" | 55 | ;; Simply run "guix build -f guix-env.scm" |
58 | ;; | 56 | ;; |
59 | ;; A directory in GUILE_LOAD_PATH is a root, this means that the value of | 57 | ;; We'd like to provide advanced functions such as guix environment specific |
60 | ;; GNUNET_SVN_PATH dictates how we call this Guix module. | 58 | ;; gnunet-svn package, but this is subject to tests right now. |
61 | ;; We now have to append $GNUNET_SVN_PATH to GUILE_LOAD_PATH and are almost | ||
62 | ;; ready to go. | ||
63 | ;; | ||
64 | ;; export GUILE_LOAD_PATH="${GNUNET_SVN_PATH}:/home/alice/.guix-profile/share/guile/site/2.0${GUILE_LOAD_PATH:+:}$GUILE_LOAD_PATH" | ||
65 | ;; | ||
66 | ;; Now we make use of the function of Guix to build from expressions: | ||
67 | ;; | ||
68 | ;; guix build --expression="(@ (gnunet guix-env) gnunet-svn)" | ||
69 | ;; | ||
70 | ;; This will build the public exported value gnunet-svn from this file. | ||
71 | ;; See `info guix-build' for more about this magic. | ||
72 | ;; | ||
73 | ;; While this might look complicated, it adds options which will | ||
74 | ;; be added later to this file, for example invoking a development | ||
75 | ;; environment (guix env) etc... | ||
76 | 59 | ||
77 | (define-module (gnunet guix-env) | 60 | (use-modules |
78 | #:use-module (ice-9 popen) | 61 | (ice-9 popen) |
79 | #:use-module (ice-9 match) | 62 | (ice-9 match) |
80 | #:use-module (ice-9 rdelim) | 63 | (ice-9 rdelim) |
81 | #:use-module (guix packages) | 64 | (guix packages) |
82 | #:use-module (guix build-system gnu) | 65 | (guix build-system gnu) |
83 | #:use-module (guix gexp) | 66 | (guix gexp) |
84 | #:use-module ((guix build utils) #:select (with-directory-excursion)) | 67 | ((guix build utils) #:select (with-directory-excursion)) |
85 | #:use-module (gnu packages) | 68 | (gnu packages) |
86 | #:use-module (gnu packages base) | 69 | (gnu packages base) |
87 | #:use-module (gnu packages gnunet) | 70 | (gnu packages gnunet) |
88 | #:use-module (gnu packages file) | 71 | (gnu packages file) |
89 | #:use-module (gnu packages aidc) | 72 | (gnu packages aidc) |
90 | #:use-module (gnu packages autotools) | 73 | (gnu packages autotools) |
91 | #:use-module (gnu packages compression) | 74 | (gnu packages compression) |
92 | #:use-module (gnu packages curl) | 75 | (gnu packages curl) |
93 | #:use-module (gnu packages geeqie) | 76 | (gnu packages geeqie) |
94 | #:use-module (gnu packages gettext) | 77 | (gnu packages gettext) |
95 | #:use-module (gnu packages glib) | 78 | (gnu packages glib) |
96 | #:use-module (gnu packages gnome) | 79 | (gnu packages gnome) |
97 | #:use-module (gnu packages gnupg) | 80 | (gnu packages gnupg) |
98 | #:use-module (gnu packages groff) | 81 | (gnu packages groff) |
99 | #:use-module (gnu packages gtk) | 82 | (gnu packages gtk) |
100 | #:use-module (gnu packages guile) | 83 | (gnu packages guile) |
101 | #:use-module (gnu packages gstreamer) | 84 | (gnu packages gstreamer) |
102 | #:use-module (gnu packages gnuzilla) | 85 | (gnu packages gnuzilla) |
103 | #:use-module (gnu packages libidn) | 86 | (gnu packages libidn) |
104 | #:use-module (gnu packages linux) | 87 | (gnu packages linux) |
105 | #:use-module (gnu packages image) | 88 | (gnu packages image) |
106 | #:use-module (gnu packages libunistring) | 89 | (gnu packages libunistring) |
107 | #:use-module (gnu packages maths) | 90 | (gnu packages maths) |
108 | #:use-module (gnu packages multiprecision) | 91 | (gnu packages multiprecision) |
109 | #:use-module (gnu packages pkg-config) | 92 | (gnu packages pkg-config) |
110 | #:use-module (gnu packages perl) | 93 | (gnu packages perl) |
111 | #:use-module (gnu packages pulseaudio) | 94 | (gnu packages pulseaudio) |
112 | #:use-module (gnu packages python) | 95 | (gnu packages python) |
113 | #:use-module (gnu packages databases) | 96 | (gnu packages databases) |
114 | #:use-module (gnu packages tls) | 97 | (gnu packages tls) |
115 | #:use-module (gnu packages tex) | 98 | (gnu packages tex) |
116 | #:use-module (gnu packages video) | 99 | (gnu packages video) |
117 | #:use-module (gnu packages web) | 100 | (gnu packages web) |
118 | #:use-module (gnu packages xiph) | 101 | (gnu packages xiph) |
119 | #:use-module (gnu packages backup) | 102 | (gnu packages backup) |
120 | #:use-module ((guix licenses) #:prefix license:)) | 103 | ((guix licenses) #:prefix license:)) |
121 | 104 | ||
122 | (define %source-dir (dirname (current-filename))) | 105 | (define %source-dir (dirname (current-filename))) |
123 | 106 | ||
@@ -140,7 +123,7 @@ | |||
140 | (any (cut string-suffix? <> file) files)) | 123 | (any (cut string-suffix? <> file) files)) |
141 | (_ #f))))) | 124 | (_ #f))))) |
142 | 125 | ||
143 | (define-public gnunet-svn | 126 | (define gnunet-svn |
144 | (package | 127 | (package |
145 | (name "gnunet-svn") | 128 | (name "gnunet-svn") |
146 | (version (string-append "0.10.1-" "dev")) | 129 | (version (string-append "0.10.1-" "dev")) |
@@ -229,3 +212,5 @@ an application for secure publication of files, it has grown to include all | |||
229 | kinds of basic applications for the foundation of a GNU internet.") | 212 | kinds of basic applications for the foundation of a GNU internet.") |
230 | (license license:gpl3+) | 213 | (license license:gpl3+) |
231 | (home-page "https://gnunet.org/"))) | 214 | (home-page "https://gnunet.org/"))) |
215 | |||
216 | gnunet-svn | ||