01/01: gnu: fastcap: Fix 'fix-doc phase.

[Federico Beffa]

beffa pushed a commit to branch master
in repository guix.

commit 1f7ffd6ff7eef41fb1bc29fb23a70c5feb6ea2c5
Author: Federico Beffa <address@hidden>
Date:   Sat Oct 17 18:11:49 2015 +0200

    gnu: fastcap: Fix 'fix-doc phase.
    
    * gnu/packages/engineering.scm (fastcap): Adapt documentation generation to
      change in TeXLive 2015.
---
 gnu/packages/engineering.scm |   14 ++++++++++++--
 1 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/engineering.scm b/gnu/packages/engineering.scm
index 54e43ef..3738596 100644
--- a/gnu/packages/engineering.scm
+++ b/gnu/packages/engineering.scm
@@ -265,8 +265,18 @@ optimizer; and it can produce photorealistic and design 
review images.")
                          
(("\\\\special\\{psfile=([^,]*),.*scale=([#0-9.]*).*\\}"
                            all file scale)
                           (string-append "\\includegraphics[scale=" scale "]{"
-                                         file "}")))
-                       (substitute* '("doc/mtt.tex" "doc/tcad.tex")
+                                         file "}"))
+                         
(("\\\\psfig\\{figure=([^,]*),.*width=([#0-9.]*in).*\\}"
+                           all file width)
+                          (string-append "\\includegraphics[width=" width "]{"
+                                         file "}"))
+                         
(("\\\\psfig\\{figure=([^,]*),.*height=([#0-9.]*in).*\\}"
+                           all file height)
+                          (string-append "\\includegraphics[height=" height 
"]{"
+                                         file "}"))
+                         (("\\\\psfig\\{figure=([^,]*)\\}" all file)
+                          (string-append "\\includegraphics{" file "}")))
+                       (substitute* '("doc/mtt.tex" "doc/tcad.tex" 
"doc/ug.tex")
                          (("^\\\\documentstyle\\[(.*)\\]\\{(.*)\\}"
                            all options class)
                           (string-append "\\documentclass[" options "]{"