Option to show full URL when hovering on a link

The URL is shown in the bottom of the page.

IssueID #64

2 files changed, 11 insertions, 2 deletions

diff --git a/src/ui/documentwidget.c b/src/ui/documentwidget.c
index 78624c7a..9d284840 100644
--- a/src/ui/documentwidget.c
+++ b/src/ui/documentwidget.c
@@ -3194,6 +3194,15 @@ static void draw_DocumentWidget_(const iDocumentWidget *d) {
                        tmBackground_ColorId);
     }
     drawSideElements_DocumentWidget_(d);
+    if (prefs_App()->hoverLink && d->hoverLink) {
+        const int      font     = uiLabel_FontId;
+        const iRangecc linkUrl  = range_String(linkUrl_GmDocument(d->doc, d->hoverLink->linkId));
+        const iInt2    size     = measureRange_Text(font, linkUrl);
+        const iRect    linkRect = { addY_I2(bottomLeft_Rect(bounds), -size.y),
+                                    addX_I2(size, 2 * gap_UI) };
+        fillRect_Paint(&ctx.paint, linkRect, tmBackground_ColorId);
+        drawRange_Text(font, addX_I2(topLeft_Rect(linkRect), gap_UI), tmParagraph_ColorId, linkUrl);
+    }
     draw_Widget(w);
 }
 
diff --git a/src/ui/util.c b/src/ui/util.c
index fd297ce2..6615a454 100644
--- a/src/ui/util.c
+++ b/src/ui/util.c
@@ -1043,8 +1043,8 @@ iWidget *makePreferences_Widget(void) {
         appendTwoColumnPage_(tabs, "General", '1', &headings, &values);
         addChild_Widget(headings, iClob(makeHeading_Widget("Downloads folder:")));
         setId_Widget(addChild_Widget(values, iClob(new_InputWidget(0))), "prefs.downloads");
-        /*addChild_Widget(headings, iClob(makeHeading_Widget("Outline on scrollbar:")));
-        addChild_Widget(values, iClob(makeToggle_Widget("prefs.hoveroutline")));*/
+        addChild_Widget(headings, iClob(makeHeading_Widget("Full link on hover:")));
+        addChild_Widget(values, iClob(makeToggle_Widget("prefs.hoverlink")));
         addChild_Widget(headings, iClob(makeHeading_Widget("Smooth scrolling:")));
         addChild_Widget(values, iClob(makeToggle_Widget("prefs.smoothscroll")));
         addChild_Widget(headings, iClob(makeHeading_Widget("Load image on scroll:")));