diff options
author | Nils Gillmann <ng0@n0.is> | 2018-05-27 13:51:07 +0000 |
---|---|---|
committer | Nils Gillmann <ng0@n0.is> | 2018-05-27 13:51:07 +0000 |
commit | 39ba161d724adf7f5003da872aeb2f5378eb8582 (patch) | |
tree | f498689130485618377909abb5c379878d4885ee /contrib | |
parent | 4b8ed8fd1560491f60481fef6c1da660ce7d54fe (diff) | |
download | gnunet-39ba161d724adf7f5003da872aeb2f5378eb8582.tar.gz gnunet-39ba161d724adf7f5003da872aeb2f5378eb8582.zip |
add TODO notes in doc/documentation
Signed-off-by: Nils Gillmann <ng0@n0.is>
Diffstat (limited to 'contrib')
-rw-r--r-- | contrib/scripts/documentation/gnunet-doc.scm | 184 |
1 files changed, 184 insertions, 0 deletions
diff --git a/contrib/scripts/documentation/gnunet-doc.scm b/contrib/scripts/documentation/gnunet-doc.scm new file mode 100644 index 000000000..d8c16fdb3 --- /dev/null +++ b/contrib/scripts/documentation/gnunet-doc.scm | |||
@@ -0,0 +1,184 @@ | |||
1 | ;;; This file is part of GNUnet. | ||
2 | ;;; Copyright (C) 2016, 2017 GNUnet e.V. | ||
3 | ;;; | ||
4 | ;;; GNUnet is free software; you can redistribute it and/or modify | ||
5 | ;;; it under the terms of the GNU General Public License as published | ||
6 | ;;; by the Free Software Foundation; either version 3, or (at your | ||
7 | ;;; option) any later version. | ||
8 | ;;; | ||
9 | ;;; GNUnet is distributed in the hope that it will be useful, but | ||
10 | ;;; WITHOUT ANY WARRANTY; without even the implied warranty of | ||
11 | ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | ||
12 | ;;; General Public License for more details. | ||
13 | ;;; | ||
14 | ;;; You should have received a copy of the GNU General Public License | ||
15 | ;;; along with GNUnet; see the file COPYING. If not, write to the | ||
16 | ;;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, | ||
17 | ;;; Boston, MA 02110-1301, USA. | ||
18 | ;;; | ||
19 | |||
20 | (use-modules | ||
21 | (ice-9 popen) | ||
22 | (ice-9 match) | ||
23 | (ice-9 rdelim) | ||
24 | (guix packages) | ||
25 | (guix build-system gnu) | ||
26 | (guix gexp) | ||
27 | ((guix build utils) #:select (with-directory-excursion)) | ||
28 | (guix git-download) | ||
29 | (guix utils) ; current-source-directory | ||
30 | (gnu packages) | ||
31 | (gnu packages aidc) | ||
32 | (gnu packages autotools) | ||
33 | (gnu packages backup) | ||
34 | (gnu packages base) | ||
35 | (gnu packages compression) | ||
36 | (gnu packages curl) | ||
37 | (gnu packages databases) | ||
38 | (gnu packages file) | ||
39 | (gnu packages gettext) | ||
40 | (gnu packages glib) | ||
41 | (gnu packages gnome) | ||
42 | (gnu packages gnunet) | ||
43 | (gnu packages gnupg) | ||
44 | (gnu packages gnuzilla) | ||
45 | (gnu packages groff) | ||
46 | (gnu packages gstreamer) | ||
47 | (gnu packages gtk) | ||
48 | (gnu packages guile) | ||
49 | (gnu packages graphviz) | ||
50 | (gnu packages image) | ||
51 | (gnu packages image-viewers) | ||
52 | (gnu packages libidn) | ||
53 | (gnu packages libunistring) | ||
54 | (gnu packages linux) | ||
55 | (gnu packages maths) | ||
56 | (gnu packages multiprecision) | ||
57 | (gnu packages perl) | ||
58 | (gnu packages pkg-config) | ||
59 | (gnu packages pulseaudio) | ||
60 | (gnu packages python) | ||
61 | (gnu packages tex) | ||
62 | (gnu packages texinfo) | ||
63 | (gnu packages tex) | ||
64 | (gnu packages tls) | ||
65 | (gnu packages video) | ||
66 | (gnu packages web) | ||
67 | (gnu packages xiph) | ||
68 | ;;(gnunet packages texlive) ;GNUnet module including texlive-2012 WIP | ||
69 | ((guix licenses) #:prefix license:)) | ||
70 | |||
71 | ;;(define %source-dir (string-append (current-source-directory) | ||
72 | ;; "/../../../")) | ||
73 | (define %source-dir (dirname (current-filename))) | ||
74 | |||
75 | (define gnunet-doc | ||
76 | (let* ((revision "2") | ||
77 | (select? (delay (or (git-predicate | ||
78 | (string-append (current-source-directory) | ||
79 | "/../../../")) | ||
80 | source-file?)))) | ||
81 | (package | ||
82 | (name "gnunet-doc") | ||
83 | (version (string-append "0.10.1-" revision "." "dev")) | ||
84 | (source | ||
85 | (local-file ;;"../../.." | ||
86 | ;;%source-dir | ||
87 | ;;(string-append (getcwd) "/../../../") | ||
88 | (string-append (getcwd)) ;drrty hack and this assumes one static position FIXME! | ||
89 | #:recursive? #t)) | ||
90 | ;;#:select? (git-predicate %source-dir))) | ||
91 | ;;#:select? (force select?))) | ||
92 | (build-system gnu-build-system) | ||
93 | (inputs | ||
94 | `(("glpk" ,glpk) | ||
95 | ("gnurl" ,gnurl) | ||
96 | ("gstreamer" ,gstreamer) | ||
97 | ("gst-plugins-base" ,gst-plugins-base) | ||
98 | ("gnutls/dane" ,gnutls/dane) | ||
99 | ("libextractor" ,libextractor) | ||
100 | ("libgcrypt" ,libgcrypt) | ||
101 | ("libidn" ,libidn) | ||
102 | ("libmicrohttpd" ,libmicrohttpd) | ||
103 | ("libltdl" ,libltdl) | ||
104 | ("libunistring" ,libunistring) | ||
105 | ("openssl" ,openssl) | ||
106 | ("opus" ,opus) | ||
107 | ("pulseaudio" ,pulseaudio) | ||
108 | ("sqlite" ,sqlite) | ||
109 | ("postgresql" ,postgresql) | ||
110 | ("mysql" ,mysql) | ||
111 | ("zlib" ,zlib) | ||
112 | ("perl" ,perl) | ||
113 | ("python-2" ,python-2) ; tests and gnunet-qr | ||
114 | ("jansson" ,jansson) | ||
115 | ("nss" ,nss) | ||
116 | ("glib" ,glib "bin") | ||
117 | ("gmp" ,gmp) | ||
118 | ("bluez" ,bluez) ; for optional bluetooth feature | ||
119 | ("glib" ,glib) | ||
120 | ;;("texlive-minimal" ,texlive-minimal) ; optional. | ||
121 | ("texlive" ,texlive) ;TODO: Stabilize Texlive-2012 package | ||
122 | ("libogg" ,libogg))) | ||
123 | (native-inputs | ||
124 | `(("pkg-config" ,pkg-config) | ||
125 | ("autoconf" ,autoconf) | ||
126 | ("automake" ,automake) | ||
127 | ("gnu-gettext" ,gnu-gettext) | ||
128 | ("graphviz" ,graphviz) ; dot | ||
129 | ("texinfo-5" ,texinfo-5) ; Debian stable | ||
130 | ("which" ,which) | ||
131 | ("libtool" ,libtool))) | ||
132 | (arguments | ||
133 | `(#:configure-flags | ||
134 | (list "--enable-documentation") | ||
135 | #:tests? #f ;Don't run tests | ||
136 | #:phases | ||
137 | (modify-phases %standard-phases | ||
138 | (add-after 'unpack 'autoconf | ||
139 | (lambda _ | ||
140 | (substitute* "bootstrap" | ||
141 | (("contrib/pogen.sh") "sh contrib/pogen.sh")) | ||
142 | (for-each (lambda (f) (chmod f #o755)) | ||
143 | (find-files "po" "")) | ||
144 | (zero? (system* "sh" "bootstrap")))) | ||
145 | (add-after 'build 'run-gendocs | ||
146 | (lambda _ | ||
147 | (chdir "doc/documentation") | ||
148 | ;;(zero? (system* "make" "dev-build")))) | ||
149 | (zero? (system* "sh" "run-gendocs.sh")))) | ||
150 | ;; (zero? (system* "make" "pdf")) | ||
151 | ;; (zero? (system* "make" "html")) | ||
152 | ;; (zero? (system* "make" "info")))) | ||
153 | ;;(zero? (system* "make" "doc-all-give-me-the-noise")))) | ||
154 | (replace 'install | ||
155 | (lambda _ | ||
156 | (zero? (system* "make" "doc-gendoc-install"))))))) | ||
157 | ;;(lambda* (#:key outputs #:allow-other-keys) | ||
158 | ;; (let* ((out (assoc-ref outputs "out")) | ||
159 | ;; (doc (string-append out "/share/doc/gnunet"))) | ||
160 | ;; (mkdir-p doc) | ||
161 | ;; (copy-recursively "images" | ||
162 | ;; (string-append doc | ||
163 | ;; "/images")) | ||
164 | ;; (mkdir-p (string-append doc "/gnunet")) | ||
165 | ;; (install-file "gnunet.pdf" doc) | ||
166 | ;; (install-file "gnunet.info" doc) | ||
167 | ;; (install-file "gnunet.log" doc) ;TODO: Move to 'dev' output? | ||
168 | ;; (copy-recursively "gnunet" | ||
169 | ;; (string-append doc | ||
170 | ;; "/gnunet")) | ||
171 | ;; (install-file "gnunet-c-tutorial.pdf" doc) | ||
172 | ;; (install-file "gnunet-c-tutorial.info" doc) | ||
173 | ;; (install-file "gnunet-c-tutorial.log" doc) ;TODO: Move to 'dev' output? | ||
174 | ;; (copy-recursively "gnunet-c-tutorial" | ||
175 | ;; (string-append doc | ||
176 | ;; "/gnunet-c-tutorial"))) | ||
177 | ;; #t))))) | ||
178 | (synopsis "Documentation of GNUnet") | ||
179 | (description | ||
180 | "GNUnet documentation build") | ||
181 | (license (list license:fdl1.3+ license:gpl3+)) | ||
182 | (home-page "https://gnunet.org/")))) | ||
183 | |||
184 | gnunet-doc | ||