From: Lars Magne Ingebrigtsen <larsi@gnus.org>
To: emacs-devel@gnu.org
Subject: Alignment and images
Date: Tue, 28 Jun 2016 15:32:26 +0200 [thread overview]
Message-ID: <m3wpl9qw0l.fsf@gnus.org> (raw)
I wanted to implement a file browser for image files, and I wanted to
display them in a grid.
But images have different widths, so I need some magic to line them up
like this:
[ ] [ ] [ ]
[ ] [ ] [ ]
[ ] [ ] [ ]
I want the user to be able to use normal navigation commands to traverse
the grid, so no special commands.
My first attempt was a loop like this:
(unless (bolp)
(insert (propertize " " 'display
`(space :align-to (,(* (mod i width) pixels)))
'intangible t)))
(insert-image (create-image file 'imagemagick nil
:max-width pixels
:max-height pixels)
" ")
This gives me a nice grid visually, but when moving around in the grid,
every other <right> lands me on the align-to space thing, which doesn't
feel very nice. I thought that the 'intangible should make that effect
disappear, but it didn't. Is that a bug? Or am I doing something
wrong?
The second attempt was to add both the image and the align-to to the
same display property. Kinda like this:
(insert (propertize " " 'display
`(,(create-image file 'imagemagick nil
:max-width pixels
:max-height pixels)
:align-to (,(* (mod i width) pixels)))))
That didn't work at all, but I didn't really expect it to. :-)
Does anybody have any thoughts on this?
--
(domestic pets only, the antidote for overdose, milk.)
bloggy blog: http://lars.ingebrigtsen.no
next reply other threads:[~2016-06-28 13:32 UTC|newest]
Thread overview: 20+ messages / expand[flat|nested] mbox.gz Atom feed top
2016-06-28 13:32 Lars Magne Ingebrigtsen [this message]
2016-06-28 16:24 ` Alignment and images Eli Zaretskii
2016-06-28 16:28 ` Lars Magne Ingebrigtsen
2016-06-28 16:39 ` Eli Zaretskii
2016-06-28 16:50 ` Lars Magne Ingebrigtsen
2016-06-28 17:43 ` Eli Zaretskii
2016-06-28 17:51 ` Lars Magne Ingebrigtsen
2016-06-28 18:12 ` Eli Zaretskii
2016-06-28 18:17 ` Lars Magne Ingebrigtsen
2016-06-28 18:23 ` Eli Zaretskii
2016-06-30 15:14 ` Ted Zlatanov
2016-06-30 15:40 ` Lars Magne Ingebrigtsen
2016-09-01 18:10 ` Alp Aker
2016-06-28 17:44 ` Eli Zaretskii
2016-06-28 17:53 ` Lars Magne Ingebrigtsen
2016-06-28 21:17 ` Glenn Morris
2016-06-28 22:00 ` Lars Magne Ingebrigtsen
2016-08-30 13:01 ` Mathias Dahl
2016-09-01 15:43 ` Lars Ingebrigtsen
2016-09-01 16:18 ` Drew Adams
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=m3wpl9qw0l.fsf@gnus.org \
--to=larsi@gnus.org \
--cc=emacs-devel@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.