Gnus development mailing list
 help / color / mirror / Atom feed
* shr.el: add linebreaks to mouse-over tooltips (title attributes)
@ 2014-12-12 21:29 Adam Sjøgren
  2014-12-13 15:24 ` Lars Magne Ingebrigtsen
  0 siblings, 1 reply; 2+ messages in thread
From: Adam Sjøgren @ 2014-12-12 21:29 UTC (permalink / raw)
  To: emacs-devel; +Cc: ding

When reading nntp+news.gwene.org:gwene.com.xkcd there are often long
title attributes on the comic image, and when shown on one line, the
text does not fit on my tiny screen.

I guess the correct solution would be for Emacs to wrap the "help-echo"
to fit the screen automatically.

The second best thing would be if shr.el wrapped the text to fit the
screen.

And here is what I crudely whipped up, a regex to sort-of-wrap at 72
chars:

--- shr.el.orig	2014-12-12 22:21:34.271477782 +0100
+++ shr.el	2014-12-12 22:20:44.652962400 +0100
@@ -1248,10 +1248,13 @@
 	  (put-text-property start (point) 'image-displayer
 			     (shr-image-displayer shr-content-function))
 	  (put-text-property start (point) 'help-echo
-			     (or (cdr (assq :title cont))
-				 alt)))
+			     (shr-linebreak (or (cdr (assq :title cont))
+				 alt))))
 	(setq shr-state 'image)))))
 
+(defun shr-linebreak (line)
+  (replace-regexp-in-string "\\(.\\{72\\}\s\\)" "\\1\n" line))
+
 (defun shr-tag-pre (cont)
   (let ((shr-folding-mode 'none))
     (shr-ensure-newline)

-- 
 "If you don't run, you rust."                                Adam Sjøgren
                                                         asjo@koldfront.dk




^ permalink raw reply	[flat|nested] 2+ messages in thread

* Re: shr.el: add linebreaks to mouse-over tooltips (title attributes)
  2014-12-12 21:29 shr.el: add linebreaks to mouse-over tooltips (title attributes) Adam Sjøgren
@ 2014-12-13 15:24 ` Lars Magne Ingebrigtsen
  0 siblings, 0 replies; 2+ messages in thread
From: Lars Magne Ingebrigtsen @ 2014-12-13 15:24 UTC (permalink / raw)
  To: Adam Sjøgren; +Cc: ding, emacs-devel

asjo@koldfront.dk (Adam Sjøgren) writes:

> When reading nntp+news.gwene.org:gwene.com.xkcd there are often long
> title attributes on the comic image, and when shown on one line, the
> text does not fit on my tiny screen.
>
> I guess the correct solution would be for Emacs to wrap the "help-echo"
> to fit the screen automatically.
>
> The second best thing would be if shr.el wrapped the text to fit the
> screen.
>
> And here is what I crudely whipped up, a regex to sort-of-wrap at 72
> chars:

Thanks; I've now committed something similar, but which make it fold
between words.

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no



^ permalink raw reply	[flat|nested] 2+ messages in thread

end of thread, other threads:[~2014-12-13 15:24 UTC | newest]

Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2014-12-12 21:29 shr.el: add linebreaks to mouse-over tooltips (title attributes) Adam Sjøgren
2014-12-13 15:24 ` Lars Magne Ingebrigtsen

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).