Subject: [PATCH v2 8/9] gnu: monero-core: Use git-fetch.

From: Theodoros Foradis <[email-masked]>
Date: Sun, 8 Jul 2018 20:39:31 +0300

* gnu/packages/finance.scm (monero-core)[source]: Use git-fetch for
deterministic hash.
---
 gnu/packages/finance.scm | 149 ++++++++++++++++++++++++-----------------------
 1 file changed, 76 insertions(+), 73 deletions(-)

diff --git a/gnu/packages/finance.scm b/gnu/packages/finance.scm
index 94e7756e6..85d95c140 100644
--- a/gnu/packages/finance.scm
+++ b/gnu/packages/finance.scm
@@ -473,80 +473,83 @@ Monero command line client and daemon.")
       (license license:bsd-3))))
 
 (define-public monero-core
-  (package
-    (name "monero-core")
-    (version "0.12.2.0")
-    (source
-     (origin
-       (method url-fetch)
-       (uri (string-append "https://github.com/monero-project/monero-core/archive/v"
-                           version ".tar.gz"))
-       (file-name (string-append name "-" version ".tar.gz"))
-       (sha256
-        (base32
-         "0lhq8ki91qmq3mll2hc96g6wm9b1biw1dalqw116b3yn78plvy7w"))))
-    (build-system gnu-build-system)
-    (native-inputs
-     `(("doxygen" ,doxygen)
-       ("graphviz" ,graphviz)
-       ("pkg-config" ,pkg-config)))
-    (inputs
-     `(("boost" ,boost)
-       ("libunwind" ,libunwind)
-       ("openssl" ,openssl)
-       ("qt" ,qt)
-       ("readline" ,readline)
-       ("unbound" ,unbound)))
-    (propagated-inputs
-     `(("monero" ,monero)))
-    (arguments
-     `(#:phases
-       (modify-phases %standard-phases
-         (delete 'configure)
-         (delete 'check)
-         (add-before 'build 'fix-makefile-vars
-           (lambda _
-             (substitute* "src/zxcvbn-c/makefile"
-               (("\\?=") "="))
-             #t))
-         (add-after 'fix-makefile-vars 'fix-library-paths
-           (lambda* (#:key inputs #:allow-other-keys)
-             (substitute* "monero-wallet-gui.pro"
-               (("-L/usr/local/lib") "")
-               (("-L/usr/local/opt/openssl/lib")
-                (string-append "-L"
-                               (assoc-ref inputs "openssl")
-                               "/lib"))
-               (("-L/usr/local/opt/boost/lib")
-                (string-append "-L"
-                               (assoc-ref inputs "boost")
-                               "/lib")))
-             #t))
-         (add-after 'fix-library-paths 'fix-monerod-path
-           (lambda* (#:key inputs #:allow-other-keys)
-             (substitute* "src/daemon/DaemonManager.cpp"
-               (("QApplication::applicationDirPath\\(\\) \\+ \"/monerod")
-                (string-append "\""(assoc-ref inputs "monero")
-                               "/bin/monerod")))
-             #t))
-         (replace 'build
-           (lambda _
-             (invoke "./build.sh")))
-         (add-after 'build 'fix-install-path
-           (lambda* (#:key outputs #:allow-other-keys)
-             (substitute* "build/Makefile"
-               (("/opt/monero-wallet-gui")
-                (assoc-ref outputs "out")))
-             #t))
-         (add-before 'install 'change-dir
-           (lambda _
-             (chdir "build"))))))
-    (home-page "https://getmonero.org/")
-    (synopsis "Graphical user interface for the Monero currency")
-    (description
-     "Monero is a secure, private, untraceable currency.  This package provides the
+  (let ((revision "0")
+        (commit "d85f3eae7cefad70affb83c56a532feb8e6db151"))
+    (package
+      (name "monero-core")
+      (version (string-append "0.12.2.0-" revision "."
+                              (string-take commit 7)))
+      (source (origin
+                (method git-fetch)
+                (uri (git-reference
+                      (url "https://github.com/monero-project/monero-core")
+                      (commit commit)))
+                (sha256
+                 (base32
+                  "1cnrkwh7kp64lnzz1xfmkf1mhsgm5gls292gpqai3jr8jydpkahl"))
+                (file-name (string-append name "-" version "-checkout"))))
+      (build-system gnu-build-system)
+      (native-inputs
+       `(("doxygen" ,doxygen)
+         ("graphviz" ,graphviz)
+         ("pkg-config" ,pkg-config)))
+      (inputs
+       `(("boost" ,boost)
+         ("libunwind" ,libunwind)
+         ("openssl" ,openssl)
+         ("qt" ,qt)
+         ("readline" ,readline)
+         ("unbound" ,unbound)))
+      (propagated-inputs
+       `(("monero" ,monero)))
+      (arguments
+       `(#:phases
+         (modify-phases %standard-phases
+           (delete 'configure)
+           (delete 'check)
+           (add-before 'build 'fix-makefile-vars
+             (lambda _
+               (substitute* "src/zxcvbn-c/makefile"
+                 (("\\?=") "="))
+               #t))
+           (add-after 'fix-makefile-vars 'fix-library-paths
+             (lambda* (#:key inputs #:allow-other-keys)
+               (substitute* "monero-wallet-gui.pro"
+                 (("-L/usr/local/lib") "")
+                 (("-L/usr/local/opt/openssl/lib")
+                  (string-append "-L"
+                                 (assoc-ref inputs "openssl")
+                                 "/lib"))
+                 (("-L/usr/local/opt/boost/lib")
+                  (string-append "-L"
+                                 (assoc-ref inputs "boost")
+                                 "/lib")))
+               #t))
+           (add-after 'fix-library-paths 'fix-monerod-path
+             (lambda* (#:key inputs #:allow-other-keys)
+               (substitute* "src/daemon/DaemonManager.cpp"
+                 (("QApplication::applicationDirPath\\(\\) \\+ \"/monerod")
+                  (string-append "\""(assoc-ref inputs "monero")
+                                 "/bin/monerod")))
+               #t))
+           (replace 'build
+             (lambda _
+               (invoke "./build.sh")))
+           (add-after 'build 'fix-install-path
+             (lambda* (#:key outputs #:allow-other-keys)
+               (substitute* "build/Makefile"
+                 (("/opt/monero-wallet-gui")
+                  (assoc-ref outputs "out")))
+               #t))
+           (add-before 'install 'change-dir
+             (lambda _
+               (chdir "build"))))))
+      (home-page "https://getmonero.org/")
+      (synopsis "Graphical user interface for the Monero currency")
+      (description
+       "Monero is a secure, private, untraceable currency.  This package provides the
 Monero GUI client.")
-    (license license:bsd-3)))
+      (license license:bsd-3))))
 
 (define-public python-trezor-agent
   (package
-- 
2.16.2