From 2306ab7701aaa26e13423bbd6744bd6c487c598b Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Sat, 26 May 2012 16:36:56 +0200
Subject: info: image: Convert the image to a bitmap format.

* src/guile/skribilo/engine/info.scm (image): Convert the image to a
  bitmap format.
---
 src/guile/skribilo/engine/info.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/guile/skribilo/engine/info.scm b/src/guile/skribilo/engine/info.scm
index 364f2cf..3e1bcf7 100644
--- a/src/guile/skribilo/engine/info.scm
+++ b/src/guile/skribilo/engine/info.scm
@@ -32,6 +32,7 @@
   :autoload   (skribilo utils justify) (output-justified make-justifier
                                         with-justification)
   :autoload   (skribilo utils text-table) (table->ascii)
+  :autoload   (skribilo utils images)  (convert-image)
   :autoload   (srfi srfi-1)            (fold)
   :use-module (srfi srfi-8)
   :use-module (srfi srfi-11)
@@ -804,7 +805,8 @@
   :action (lambda (n e)
             (if (markup-option n :url)
                 (skribe-warning/ast 1 n (_ "image URLs not supported"))
-                (let ((f (markup-option n :file))
+                (let ((f (let ((f (markup-option n :file)))
+                           (convert-image f '("png" "gif" "jpg"))))
                       (h (markup-option n :height))
                       (w (markup-option n :width)))
                   ;; The Info mode in Emacs 23+ supports just a few
-- 
cgit v1.2.3