1 /* modest-tny-msg-view.c */
3 /* insert (c)/licensing information) */
5 #include "modest-tny-msg-view.h"
6 #include "modest-tny-stream-gtkhtml.h"
7 #include "modest-tny-msg-actions.h"
9 #include <tny-text-buffer-stream.h>
13 #include <glib/gi18n.h>
14 #include <gtkhtml/gtkhtml.h>
15 #include <gtkhtml/gtkhtml-stream.h>
17 /* 'private'/'protected' functions */
18 static void modest_tny_msg_view_class_init (ModestTnyMsgViewClass *klass);
19 static void modest_tny_msg_view_init (ModestTnyMsgView *obj);
20 static void modest_tny_msg_view_finalize (GObject *obj);
23 static GSList* get_url_matches (GString *txt);
24 static gboolean fill_gtkhtml_with_txt (ModestTnyMsgView *self, GtkHTML* gtkhtml, const gchar* txt, TnyMsgIface *msg);
26 static gboolean on_link_clicked (GtkWidget *widget, const gchar *uri,
27 ModestTnyMsgView *msg_view);
28 static gboolean on_url_requested (GtkWidget *widget, const gchar *uri,
29 GtkHTMLStream *stream,
30 ModestTnyMsgView *msg_view);
31 static gchar *construct_virtual_filename(const gchar *filename, const gint position, const gchar *id, const gboolean active);
32 static gchar *construct_virtual_filename_from_mime_part(TnyMsgMimePartIface *msg, const gint position);
33 gint virtual_filename_get_pos(const gchar *filename);
35 * we need these regexps to find URLs in plain text e-mails
37 typedef struct _UrlMatchPattern UrlMatchPattern;
38 struct _UrlMatchPattern {
44 #define MAIL_VIEWER_URL_MATCH_PATTERNS {\
45 { "(file|http|ftp|https)://[-A-Za-z0-9_$.+!*(),;:@%&=?/~#]+[-A-Za-z0-9_$%&=?/~#]",\
47 { "www\\.[-a-z0-9.]+[-a-z0-9](:[0-9]*)?(/[-A-Za-z0-9_$.+!*(),;:@%&=?/~#]*[^]}\\),?!;:\"]?)?",\
49 { "ftp\\.[-a-z0-9.]+[-a-z0-9](:[0-9]*)?(/[-A-Za-z0-9_$.+!*(),;:@%&=?/~#]*[^]}\\),?!;:\"]?)?",\
51 { "(voipto|callto|chatto|jabberto|xmpp):[-_a-z@0-9.\\+]+", \
53 { "mailto:[-_a-z0-9.\\+]+@[-_a-z0-9.]+", \
55 { "[-_a-z0-9.\\+]+@[-_a-z0-9.]+",\
67 typedef struct _ModestTnyMsgViewPrivate ModestTnyMsgViewPrivate;
68 struct _ModestTnyMsgViewPrivate {
73 #define MODEST_TNY_MSG_VIEW_GET_PRIVATE(o) (G_TYPE_INSTANCE_GET_PRIVATE((o), \
74 MODEST_TYPE_TNY_MSG_VIEW, \
75 ModestTnyMsgViewPrivate))
77 static GtkContainerClass *parent_class = NULL;
79 /* uncomment the following if you have defined any signals */
80 /* static guint signals[LAST_SIGNAL] = {0}; */
83 modest_tny_msg_view_get_type (void)
85 static GType my_type = 0;
87 static const GTypeInfo my_info = {
88 sizeof(ModestTnyMsgViewClass),
90 NULL, /* base finalize */
91 (GClassInitFunc) modest_tny_msg_view_class_init,
92 NULL, /* class finalize */
93 NULL, /* class data */
94 sizeof(ModestTnyMsgView),
96 (GInstanceInitFunc) modest_tny_msg_view_init,
98 my_type = g_type_register_static (GTK_TYPE_SCROLLED_WINDOW,
106 modest_tny_msg_view_class_init (ModestTnyMsgViewClass *klass)
108 GObjectClass *gobject_class;
109 gobject_class = (GObjectClass*) klass;
111 parent_class = g_type_class_peek_parent (klass);
112 gobject_class->finalize = modest_tny_msg_view_finalize;
114 g_type_class_add_private (gobject_class, sizeof(ModestTnyMsgViewPrivate));
118 modest_tny_msg_view_init (ModestTnyMsgView *obj)
120 ModestTnyMsgViewPrivate *priv;
122 priv = MODEST_TNY_MSG_VIEW_GET_PRIVATE(obj);
126 priv->gtkhtml = gtk_html_new();
130 gtk_html_set_editable (GTK_HTML(priv->gtkhtml), FALSE);
131 gtk_html_allow_selection (GTK_HTML(priv->gtkhtml), TRUE);
132 gtk_html_set_caret_mode (GTK_HTML(priv->gtkhtml), FALSE);
133 gtk_html_set_blocking (GTK_HTML(priv->gtkhtml), FALSE);
134 gtk_html_set_images_blocking (GTK_HTML(priv->gtkhtml), FALSE);
136 g_signal_connect (G_OBJECT(priv->gtkhtml), "link_clicked",
137 G_CALLBACK(on_link_clicked), obj);
139 g_signal_connect (G_OBJECT(priv->gtkhtml), "url_requested",
140 G_CALLBACK(on_url_requested), obj);
145 modest_tny_msg_view_finalize (GObject *obj)
151 modest_tny_msg_view_new (TnyMsgIface *msg, ModestConf *conf)
154 ModestTnyMsgView* self;
155 ModestTnyMsgViewPrivate *priv;
157 obj = G_OBJECT(g_object_new(MODEST_TYPE_TNY_MSG_VIEW, NULL));
158 self = MODEST_TNY_MSG_VIEW(obj);
159 priv = MODEST_TNY_MSG_VIEW_GET_PRIVATE (self);
161 gtk_scrolled_window_set_policy(GTK_SCROLLED_WINDOW(self),
162 GTK_POLICY_AUTOMATIC,
163 GTK_POLICY_AUTOMATIC);
166 gtk_container_add (GTK_CONTAINER(obj), priv->gtkhtml);
169 modest_tny_msg_view_set_message (self, msg);
173 return GTK_WIDGET(self);
179 on_link_clicked (GtkWidget *widget, const gchar *uri,
180 ModestTnyMsgView *msg_view)
183 if (g_str_has_prefix(uri, "attachment:")) {
184 /* save or open attachment */
187 g_message ("link clicked: %s", uri); /* FIXME */
193 static TnyMsgMimePartIface *
194 find_cid_image (TnyMsgIface *msg, const gchar *cid)
196 TnyMsgMimePartIface *part = NULL;
199 g_return_val_if_fail (msg, NULL);
200 g_return_val_if_fail (cid, NULL);
202 parts = (GList*) tny_msg_iface_get_parts (msg);
203 while (parts && !part) {
204 const gchar *part_cid;
205 part = TNY_MSG_MIME_PART_IFACE(parts->data);
206 part_cid = tny_msg_mime_part_iface_get_content_id (part);
207 printf("CMP:%s:%s\n", cid, part_cid);
208 if (part_cid && strcmp (cid, part_cid) == 0)
209 return part; /* we found it! */
219 static TnyMsgMimePartIface *
220 find_attachment_by_filename (TnyMsgIface *msg, const gchar *fn)
222 TnyMsgMimePartIface *part = NULL;
227 g_return_val_if_fail (msg, NULL);
228 g_return_val_if_fail (fn, NULL);
230 parts = (GList*) tny_msg_iface_get_parts (msg);
231 pos = virtual_filename_get_pos(fn);
233 g_return_val_if_fail(((pos >= 0) && (pos < g_list_length(parts))), NULL);
235 part = g_list_nth_data(parts, pos);
237 dummy = construct_virtual_filename_from_mime_part(part, pos);
238 if (strcmp(dummy, fn) == 0) {
249 on_url_requested (GtkWidget *widget, const gchar *uri,
250 GtkHTMLStream *stream,
251 ModestTnyMsgView *msg_view)
254 ModestTnyMsgViewPrivate *priv;
255 priv = MODEST_TNY_MSG_VIEW_GET_PRIVATE (msg_view);
257 g_message ("url requested: %s", uri);
259 if (g_str_has_prefix (uri, "cid:")) {
260 /* +4 ==> skip "cid:" */
262 TnyMsgMimePartIface *part = find_cid_image (priv->msg, uri + 4);
264 g_message ("%s not found", uri + 4);
265 gtk_html_stream_close (stream, GTK_HTML_STREAM_ERROR);
267 TnyStreamIface *tny_stream =
268 TNY_STREAM_IFACE(modest_tny_stream_gtkhtml_new(stream));
269 tny_msg_mime_part_iface_decode_to_stream (part,tny_stream);
270 gtk_html_stream_close (stream, GTK_HTML_STREAM_OK);
272 } else if (g_str_has_prefix (uri, "Attachment:")) {
273 TnyMsgMimePartIface *part = find_attachment_by_filename (priv->msg, uri);
275 g_message ("%s not found", uri);
276 gtk_html_stream_close (stream, GTK_HTML_STREAM_ERROR);
278 TnyStreamIface *tny_stream =
279 TNY_STREAM_IFACE(modest_tny_stream_gtkhtml_new(stream));
280 tny_msg_mime_part_iface_decode_to_stream (part,tny_stream);
281 gtk_html_stream_close (stream, GTK_HTML_STREAM_OK);
299 construct_virtual_filename(const gchar *filename, const gint position, const gchar *id, const gboolean active)
302 g_return_val_if_fail((position >= 0), "AttachmentInvalid");
304 s = g_string_new("");
306 g_string_append(s, "Attachment:");
308 g_string_append(s, "attachment:");
309 g_string_append_printf(s, "%d:", position);
311 g_string_append(s, id);
312 g_string_append_c(s, ':');
314 g_string_append(s, filename);
315 g_string_append_c(s, ':');
316 return g_string_free(s, FALSE);
321 construct_virtual_filename_from_mime_part(TnyMsgMimePartIface *msg, const gint position)
323 const gchar *id, *filename;
324 const gboolean active = TRUE;
326 filename = tny_msg_mime_part_iface_get_filename(
327 TNY_MSG_MIME_PART_IFACE(msg));
329 filename = "[unknown]";
330 id = tny_msg_mime_part_iface_get_content_id(
331 TNY_MSG_MIME_PART_IFACE(msg));
333 return construct_virtual_filename(filename, position, id, active);
337 get_next_token(const gchar *s, gint *len)
354 /* maybe I should use libregexp */
356 virtual_filename_get_pos(const gchar *filename)
358 const gchar *i1, *i2;
366 i2 = get_next_token(i2, &len);
367 if (strncmp(i1, "Attachment", len) != 0)
372 i2 = get_next_token(i2, &len);
375 dummy = g_string_new_len(i1, len);
376 pos = atoi(dummy->str);
377 g_string_free(dummy, FALSE);
383 attachments_as_html(ModestTnyMsgView *self, TnyMsgIface *msg)
385 ModestTnyMsgViewPrivate *priv;
386 gboolean attachments_found = FALSE;
388 const GList *attachment_list, *attachment;
389 const gchar *content_type, *filename, *id;
390 gchar *virtual_filename;
391 gboolean show_attachments_inline;
396 priv = MODEST_TNY_MSG_VIEW_GET_PRIVATE (self);
398 /* CLEANUP: starting a new HTML may be unsupported */
399 appendix = g_string_new("<HTML><BODY>\n<hr><h5>Attachments:</h5>\n");
401 attachment_list = tny_msg_iface_get_parts(msg);
402 attachment = attachment_list;
405 content_type = tny_msg_mime_part_iface_get_content_type(
406 TNY_MSG_MIME_PART_IFACE(attachment->data));
407 g_return_val_if_fail(content_type, NULL);
408 if ( tny_msg_mime_part_iface_content_type_is(
409 TNY_MSG_MIME_PART_IFACE(attachment->data),
411 || tny_msg_mime_part_iface_content_type_is(
412 TNY_MSG_MIME_PART_IFACE(attachment->data),
414 filename = tny_msg_mime_part_iface_get_filename(
415 TNY_MSG_MIME_PART_IFACE(attachment->data));
417 filename = "[unknown]";
419 attachments_found = TRUE;
420 id = tny_msg_mime_part_iface_get_content_id(
421 TNY_MSG_MIME_PART_IFACE(attachment->data));
422 show_attachments_inline = modest_conf_get_bool(priv->conf, MODEST_CONF_MSG_VIEW_SHOW_ATTACHMENTS_INLINE, NULL);
423 virtual_filename = construct_virtual_filename(filename,
424 g_list_position((GList *)attachment_list, (GList *) attachment),
425 id, show_attachments_inline);
426 printf("VF:%s\n", virtual_filename);
427 if (show_attachments_inline) {
428 g_string_append_printf(appendix, "<IMG src=\"%s\">\n<BR>", virtual_filename);
430 g_string_append_printf(appendix, "<A href=\"attachment:%s\">%s</A>: %s<BR>\n", filename, filename, content_type);
431 g_free(virtual_filename);
433 attachment = attachment->next;
435 g_string_append(appendix, "</BODY></HTML>");
436 if (!attachments_found)
437 g_string_assign(appendix, "");
438 return g_string_free(appendix, FALSE);
442 hyperlinkify_plain_text (GString *txt)
445 GSList *match_list = get_url_matches (txt);
447 /* we will work backwards, so the offsets stay valid */
448 for (cursor = match_list; cursor; cursor = cursor->next) {
450 url_match_t *match = (url_match_t*) cursor->data;
451 gchar *url = g_strndup (txt->str + match->offset, match->len);
452 gchar *repl = NULL; /* replacement */
454 /* the prefix is NULL: use the one that is already there */
455 repl = g_strdup_printf ("<a href=\"%s%s\">%s</a>",
456 match->prefix ? match->prefix : "", url, url);
458 /* replace the old thing with our hyperlink
459 * replacement thing */
460 g_string_erase (txt, match->offset, match->len);
461 g_string_insert (txt, match->offset, repl);
466 g_free (cursor->data);
469 g_slist_free (match_list);
475 convert_to_html (const gchar *data)
478 gboolean first_space = TRUE;
486 html = g_string_sized_new (len + 100); /* just a guess... */
488 g_string_append_printf (html,
491 "<meta http-equiv=\"content-type\""
492 " content=\"text/html; charset=utf8\">"
496 /* replace with special html chars where needed*/
497 for (i = 0; i != len; ++i) {
501 case 0: break; /* ignore embedded \0s */
502 case '<' : g_string_append (html, "<"); break;
503 case '>' : g_string_append (html, ">"); break;
504 case '&' : g_string_append (html, """); break;
505 case '\n': g_string_append (html, "<br>\n"); break;
508 g_string_append (html, first_space ? " " : " ");
510 } else if (kar == '\t')
511 g_string_append (html, " ");
515 /* optimization trick: accumulate 'normal' chars, then copy */
517 kar = data [++charnum + i];
519 } while ((i + charnum < len) &&
520 (kar > '>' || (kar != '<' && kar != '>'
521 && kar != '&' && kar != ' '
522 && kar != '\n' && kar != '\t')));
523 g_string_append_len (html, &data[i], charnum);
529 g_string_append (html, "</tt></body></html>");
530 hyperlinkify_plain_text (html);
532 return g_string_free (html, FALSE);
539 cmp_offsets_reverse (const url_match_t *match1, const url_match_t *match2)
541 return match2->offset - match1->offset;
547 * check if the match is inside an existing match... */
549 chk_partial_match (const url_match_t *match, int* offset)
551 if (*offset >= match->offset && *offset < match->offset + match->len)
556 get_url_matches (GString *txt)
559 int rv, i, offset = 0;
560 GSList *match_list = NULL;
562 static UrlMatchPattern patterns[] = MAIL_VIEWER_URL_MATCH_PATTERNS;
563 const size_t pattern_num = sizeof(patterns)/sizeof(UrlMatchPattern);
565 /* initalize the regexps */
566 for (i = 0; i != pattern_num; ++i) {
567 patterns[i].preg = g_new0 (regex_t,1);
568 g_assert(regcomp (patterns[i].preg, patterns[i].regex,
569 REG_ICASE|REG_EXTENDED|REG_NEWLINE) == 0);
571 /* find all the matches */
572 for (i = 0; i != pattern_num; ++i) {
576 if ((rv = regexec (patterns[i].preg, txt->str + offset, 1, &rm, 0)) != 0) {
577 g_assert (rv == REG_NOMATCH); /* this should not happen */
578 break; /* try next regexp */
583 /* FIXME: optimize this */
584 /* to avoid partial matches on something that was already found... */
585 /* check_partial_match will put -1 in the data ptr if that is the case */
586 test_offset = offset + rm.rm_so;
587 g_slist_foreach (match_list, (GFunc)chk_partial_match, &test_offset);
589 /* make a list of our matches (<offset, len, prefix> tupels)*/
590 if (test_offset != -1) {
591 url_match_t *match = g_new (url_match_t,1);
592 match->offset = offset + rm.rm_so;
593 match->len = rm.rm_eo - rm.rm_so;
594 match->prefix = patterns[i].prefix;
595 match_list = g_slist_prepend (match_list, match);
601 for (i = 0; i != pattern_num; ++i) {
602 regfree (patterns[i].preg);
603 g_free (patterns[i].preg);
604 } /* don't free patterns itself -- it's static */
606 /* now sort the list, so the matches are in reverse order of occurence.
607 * that way, we can do the replacements starting from the end, so we don't need
608 * to recalculate the offsets
610 match_list = g_slist_sort (match_list,
611 (GCompareFunc)cmp_offsets_reverse);
616 fill_gtkhtml_with_txt (ModestTnyMsgView *self, GtkHTML* gtkhtml, const gchar* txt, TnyMsgIface *msg)
619 gchar *html_attachments;
621 g_return_val_if_fail (gtkhtml, FALSE);
622 g_return_val_if_fail (txt, FALSE);
624 html = g_string_new(convert_to_html (txt));
625 html_attachments = attachments_as_html(self, msg);
626 g_string_append(html, html_attachments);
628 gtk_html_load_from_string (gtkhtml, html->str, html->len);
629 g_string_free (html, TRUE);
630 g_free(html_attachments);
638 set_html_message (ModestTnyMsgView *self, TnyMsgMimePartIface *tny_body, TnyMsgIface *msg)
640 gchar *html_attachments;
641 TnyStreamIface *gtkhtml_stream;
642 ModestTnyMsgViewPrivate *priv;
644 g_return_val_if_fail (self, FALSE);
645 g_return_val_if_fail (tny_body, FALSE);
647 priv = MODEST_TNY_MSG_VIEW_GET_PRIVATE(self);
650 TNY_STREAM_IFACE(modest_tny_stream_gtkhtml_new
651 (gtk_html_begin(GTK_HTML(priv->gtkhtml))));
653 tny_stream_iface_reset (gtkhtml_stream);
654 tny_msg_mime_part_iface_decode_to_stream (tny_body, gtkhtml_stream);
655 html_attachments = attachments_as_html(self, msg);
657 gtkhtml_write(gtkhtml_stream, html_attachments, strlen(html_attachments));
658 tny_stream_iface_reset (gtkhtml_stream);
660 g_object_unref (G_OBJECT(gtkhtml_stream));
661 g_free (html_attachments);
667 /* this is a hack --> we use the tny_text_buffer_stream to
668 * get the message text, then write to gtkhtml 'by hand' */
670 set_text_message (ModestTnyMsgView *self, TnyMsgMimePartIface *tny_body, TnyMsgIface *msg)
673 GtkTextIter begin, end;
674 TnyStreamIface* txt_stream;
676 ModestTnyMsgViewPrivate *priv;
678 g_return_val_if_fail (self, FALSE);
679 g_return_val_if_fail (tny_body, FALSE);
681 priv = MODEST_TNY_MSG_VIEW_GET_PRIVATE(self);
683 buf = gtk_text_buffer_new (NULL);
684 txt_stream = TNY_STREAM_IFACE(tny_text_buffer_stream_new (buf));
686 tny_stream_iface_reset (txt_stream);
687 tny_msg_mime_part_iface_decode_to_stream (tny_body, txt_stream);
688 tny_stream_iface_reset (txt_stream);
690 gtk_text_buffer_get_bounds (buf, &begin, &end);
691 txt = gtk_text_buffer_get_text (buf, &begin, &end, FALSE);
693 fill_gtkhtml_with_txt (self, GTK_HTML(priv->gtkhtml), txt, msg);
695 g_object_unref (G_OBJECT(txt_stream));
696 g_object_unref (G_OBJECT(buf));
703 modest_tny_msg_view_get_selected_text (ModestTnyMsgView *self)
705 ModestTnyMsgViewPrivate *priv;
711 g_return_val_if_fail (self, NULL);
712 priv = MODEST_TNY_MSG_VIEW_GET_PRIVATE(self);
713 html = priv->gtkhtml;
715 /* I'm sure there is a better way to check for selected text */
716 sel = gtk_html_get_selection_html(GTK_HTML(html), &len);
722 clip = gtk_widget_get_clipboard(html, GDK_SELECTION_PRIMARY);
723 return gtk_clipboard_wait_for_text(clip);
727 modest_tny_msg_view_set_message (ModestTnyMsgView *self, TnyMsgIface *msg)
729 TnyMsgMimePartIface *body;
730 ModestTnyMsgViewPrivate *priv;
732 g_return_if_fail (self);
734 priv = MODEST_TNY_MSG_VIEW_GET_PRIVATE(self);
738 fill_gtkhtml_with_txt (self, GTK_HTML(priv->gtkhtml), "", msg);
743 body = modest_tny_msg_actions_find_body_part (msg, "text/html");
745 set_html_message (self, body, msg);
749 body = modest_tny_msg_actions_find_body_part (msg, "text/plain");
751 set_text_message (self, body, msg);
756 fill_gtkhtml_with_txt (self, GTK_HTML(priv->gtkhtml),
757 _("Unsupported message type"), msg);
761 modest_tny_msg_view_redraw (ModestTnyMsgView *self)
763 ModestTnyMsgViewPrivate *priv;
765 g_return_if_fail (self);
766 priv = MODEST_TNY_MSG_VIEW_GET_PRIVATE(self);
767 modest_tny_msg_view_set_message(self, priv->msg);