aboutsummaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
authorLudovic Courtès2012-05-26 16:36:56 +0200
committerLudovic Courtès2012-05-29 00:01:29 +0200
commit2306ab7701aaa26e13423bbd6744bd6c487c598b (patch)
tree0a9e17eca19713b93af38ff59e3949c8ad8cc375 /src/guile
parent429523231bb3c64b16df3c1ff2d53418be98a199 (diff)
downloadskribilo-2306ab7701aaa26e13423bbd6744bd6c487c598b.tar.gz
skribilo-2306ab7701aaa26e13423bbd6744bd6c487c598b.tar.lz
skribilo-2306ab7701aaa26e13423bbd6744bd6c487c598b.zip
info: image: Convert the image to a bitmap format.
* src/guile/skribilo/engine/info.scm (image): Convert the image to a bitmap format.
Diffstat (limited to 'src/guile')
-rw-r--r--src/guile/skribilo/engine/info.scm4
1 files changed, 3 insertions, 1 deletions
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