16/19: gnu: Add boost-static.

[guix-commits]

efraim pushed a commit to branch master
in repository guix.

commit 31872b3e75da777c3f02b7544808d30849a56d7b
Author: Efraim Flashner <address@hidden>
Date:   Mon Nov 25 09:36:32 2019 +0200

    gnu: Add boost-static.
    
    * gnu/packages/boost.scm (boost-static): New variable.
---
 gnu/packages/boost.scm | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/gnu/packages/boost.scm b/gnu/packages/boost.scm
index 2ef0591..0a2a5c5 100644
--- a/gnu/packages/boost.scm
+++ b/gnu/packages/boost.scm
@@ -178,6 +178,23 @@ across a broad spectrum of applications.")
                              (symlink "libboost_python37.so" 
"libboost_python3.so"))
                            #t)))))))))
 
+(define-public boost-static
+  (package
+    (inherit boost)
+    (name "boost-static")
+    (arguments
+     (substitute-keyword-arguments (package-arguments boost)
+       ((#:make-flags flags)
+        `(cons "link=static" (delete "link=shared" ,flags)))
+       ((#:phases phases)
+        `(modify-phases ,phases
+           (replace 'provide-libboost_python
+             (lambda* (#:key outputs #:allow-other-keys)
+               (let ((out (assoc-ref outputs "out")))
+                 (with-directory-excursion (string-append out "/lib")
+                   (symlink "libboost_python27.a" "libboost_python.a"))
+                 #t)))))))))
+
 (define-public boost-for-mysql
   ;; Older version for MySQL 5.7.23.
   (package