diff options
| author | Ludovic Courtès | 2012-05-26 16:36:56 +0200 |
|---|---|---|
| committer | Ludovic Courtès | 2012-05-29 00:01:29 +0200 |
| commit | 2306ab7701aaa26e13423bbd6744bd6c487c598b (patch) | |
| tree | 0a9e17eca19713b93af38ff59e3949c8ad8cc375 /src/guile | |
| parent | 429523231bb3c64b16df3c1ff2d53418be98a199 (diff) | |
| download | skribilo-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.scm | 4 |
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 |