Basic history; permissive policy

You can now take links to different domains!

Also have prefs with default browser size.

Fixes #8, #6

Also fixed is #9

dub.selections.json

@@ -5,7 +5,7 @@
 		"dyaml": "0.6.3",
 		"gtk-d": "3.7.3",
 		"tinyendian": "0.1.2",
-		"urld": "1.0.0",
+		"urld": "2.1.0",
 		"webkit-d": {"path":"webkit-d"}
 	}
 }

import/ui.glade

@@ -9,6 +9,163 @@
         <property name="visible">True</property>
         <property name="can_focus">False</property>
         <property name="orientation">vertical</property>
+        <child>
+          <object class="GtkMenuBar" id="menubar">
+            <property name="visible">True</property>
+            <property name="can_focus">False</property>
+            <child>
+              <object class="GtkMenuItem" id="menuitem1">
+                <property name="visible">True</property>
+                <property name="can_focus">False</property>
+                <property name="label" translatable="yes">_File</property>
+                <property name="use_underline">True</property>
+                <child type="submenu">
+                  <object class="GtkMenu" id="menu1">
+                    <property name="visible">True</property>
+                    <property name="can_focus">False</property>
+                    <child>
+                      <object class="GtkImageMenuItem" id="imagemenuitem1">
+                        <property name="label">gtk-new</property>
+                        <property name="visible">True</property>
+                        <property name="can_focus">False</property>
+                        <property name="use_underline">True</property>
+                        <property name="use_stock">True</property>
+                      </object>
+                    </child>
+                    <child>
+                      <object class="GtkImageMenuItem" id="imagemenuitem2">
+                        <property name="label">gtk-open</property>
+                        <property name="visible">True</property>
+                        <property name="can_focus">False</property>
+                        <property name="use_underline">True</property>
+                        <property name="use_stock">True</property>
+                      </object>
+                    </child>
+                    <child>
+                      <object class="GtkImageMenuItem" id="imagemenuitem3">
+                        <property name="label">gtk-save</property>
+                        <property name="visible">True</property>
+                        <property name="can_focus">False</property>
+                        <property name="use_underline">True</property>
+                        <property name="use_stock">True</property>
+                      </object>
+                    </child>
+                    <child>
+                      <object class="GtkImageMenuItem" id="imagemenuitem4">
+                        <property name="label">gtk-save-as</property>
+                        <property name="visible">True</property>
+                        <property name="can_focus">False</property>
+                        <property name="use_underline">True</property>
+                        <property name="use_stock">True</property>
+                      </object>
+                    </child>
+                    <child>
+                      <object class="GtkSeparatorMenuItem" id="separatormenuitem1">
+                        <property name="visible">True</property>
+                        <property name="can_focus">False</property>
+                      </object>
+                    </child>
+                    <child>
+                      <object class="GtkImageMenuItem" id="imagemenuitem5">
+                        <property name="label">gtk-quit</property>
+                        <property name="visible">True</property>
+                        <property name="can_focus">False</property>
+                        <property name="use_underline">True</property>
+                        <property name="use_stock">True</property>
+                      </object>
+                    </child>
+                  </object>
+                </child>
+              </object>
+            </child>
+            <child>
+              <object class="GtkMenuItem" id="menuitem2">
+                <property name="visible">True</property>
+                <property name="can_focus">False</property>
+                <property name="label" translatable="yes">_Edit</property>
+                <property name="use_underline">True</property>
+                <child type="submenu">
+                  <object class="GtkMenu" id="menu2">
+                    <property name="visible">True</property>
+                    <property name="can_focus">False</property>
+                    <child>
+                      <object class="GtkImageMenuItem" id="imagemenuitem6">
+                        <property name="label">gtk-cut</property>
+                        <property name="visible">True</property>
+                        <property name="can_focus">False</property>
+                        <property name="use_underline">True</property>
+                        <property name="use_stock">True</property>
+                      </object>
+                    </child>
+                    <child>
+                      <object class="GtkImageMenuItem" id="imagemenuitem7">
+                        <property name="label">gtk-copy</property>
+                        <property name="visible">True</property>
+                        <property name="can_focus">False</property>
+                        <property name="use_underline">True</property>
+                        <property name="use_stock">True</property>
+                      </object>
+                    </child>
+                    <child>
+                      <object class="GtkImageMenuItem" id="imagemenuitem8">
+                        <property name="label">gtk-paste</property>
+                        <property name="visible">True</property>
+                        <property name="can_focus">False</property>
+                        <property name="use_underline">True</property>
+                        <property name="use_stock">True</property>
+                      </object>
+                    </child>
+                    <child>
+                      <object class="GtkImageMenuItem" id="imagemenuitem9">
+                        <property name="label">gtk-delete</property>
+                        <property name="visible">True</property>
+                        <property name="can_focus">False</property>
+                        <property name="use_underline">True</property>
+                        <property name="use_stock">True</property>
+                      </object>
+                    </child>
+                  </object>
+                </child>
+              </object>
+            </child>
+            <child>
+              <object class="GtkMenuItem" id="menuitem3">
+                <property name="visible">True</property>
+                <property name="can_focus">False</property>
+                <property name="label" translatable="yes">_View</property>
+                <property name="use_underline">True</property>
+              </object>
+            </child>
+            <child>
+              <object class="GtkMenuItem" id="menuitem4">
+                <property name="visible">True</property>
+                <property name="can_focus">False</property>
+                <property name="label" translatable="yes">_Help</property>
+                <property name="use_underline">True</property>
+                <child type="submenu">
+                  <object class="GtkMenu" id="menu3">
+                    <property name="visible">True</property>
+                    <property name="can_focus">False</property>
+                    <child>
+                      <object class="GtkImageMenuItem" id="imagemenuitem10">
+                        <property name="label">gtk-about</property>
+                        <property name="visible">True</property>
+                        <property name="can_focus">False</property>
+                        <property name="use_underline">True</property>
+                        <property name="use_stock">True</property>
+                      </object>
+                    </child>
+                  </object>
+                </child>
+              </object>
+            </child>
+          </object>
+          <packing>
+            <property name="expand">False</property>
+            <property name="fill">True</property>
+            <property name="position">0</property>
+          </packing>
+        </child>
         <child>
           <object class="GtkBox" id="box2">
             <property name="visible">True</property>
@@ -110,7 +267,7 @@
                   <object class="GtkImage" id="image4">
                     <property name="visible">True</property>
                     <property name="can_focus">False</property>
-                    <property name="stock">gtk-preferences</property>
+                    <property name="stock">gtk-justify-fill</property>
                   </object>
                 </child>
               </object>

source/app.d

@@ -1,5 +1,7 @@
 import std.stdio;
 
+import etc.linux.memoryerror;
+
 import gtk.Builder;
 import gtk.Application;
 import gio.Application : GApp = Application;
@@ -12,16 +14,33 @@ import webkit2.WebView;
 
 int main(string[] args)
 {
+    registerMemoryErrorHandler();
+    prefs = new Prefs;
     writeln("Edit source/app.d to start your project.");
     auto app = new Application("org.ikeran.browser", GApplicationFlags.FLAGS_NONE);
     app.addOnActivate((a) { new BrowseWindow(app).show(); });
     return app.run(args);
 }
 
+struct Size
+{
+    int width, height;
+}
+
+class Prefs
+{
+    Size windowSize = Size(1024, 768);
+}
+
+__gshared Prefs prefs;
+
 class BrowseWindow
 {
     this(Application app, string uri = "about:blank")
     {
+        import gtk.Button;
+        import gtk.MenuBar;
+
         auto builder = new Builder();
         if (!builder.addFromString(import("ui.glade")))
         {
@@ -31,8 +50,25 @@ class BrowseWindow
         win = cast(Window)builder.getObject("browseWindow");
         addressBar = cast(Entry)builder.getObject("addressBar");
         notebook = cast(Notebook)builder.getObject("tabs");
+        auto back = cast(Button)builder.getObject("btnBack");
+        auto forward = cast(Button)builder.getObject("btnForward");
+        auto refresh = cast(Button)builder.getObject("btnRefresh");
+
+        back.addOnClicked((b) { currentPage.goBack; });
+        forward.addOnClicked((b) { currentPage.goForward; });
+        refresh.addOnClicked((b) { currentPage.reload; });
+        MenuBar menu = cast(MenuBar)builder.getObject("menubar");
+        menu.hide();
 
         win.setApplication(app);
+        win.setSizeRequest(prefs.windowSize.width, prefs.windowSize.height);
+        win.addOnSizeAllocate((a, w)
+        {
+            prefs.windowSize = Size(a.width, a.height);
+        });
+        import gtk.AccelGroup;
+        auto accelGroup = new AccelGroup;
+        win.addAccelGroup(accelGroup);
 
         addressBar.addOnActivate((e) => navigate(addressBar.getText()));
 
@@ -42,28 +78,53 @@ class BrowseWindow
         }
 
         auto web = new WebView;
+        web.addOnDecidePolicy(&decidePolicy);
         notebook.appendPage(web, "Webby!");
         navigate(uri);
     }
 
+    WebView currentPage()
+    {
+        return cast(WebView)notebook.getNthPage(notebook.getCurrentPage());
+    }
+
+
+    import webkit2.PolicyDecision : PolicyDecision;
+    import webkit2.c.types : WebKitPolicyDecisionType;
+
+    bool decidePolicy(PolicyDecision decision, WebKitPolicyDecisionType type, WebView view)
+    {
+        with (WebKitPolicyDecisionType)
+        final switch (type)
+        {
+            case NAVIGATION_ACTION:
+                decision.use();
+                break;
+            case NEW_WINDOW_ACTION:
+                decision.use();
+                break;
+            case RESPONSE:
+                decision.use();
+                break;
+        }
+        return false;
+    }
+
     void navigate(string uri)
     {
         import std.string : startsWith;
-        if (!uri.startsWith("about:"))
+        auto web = cast(WebView) notebook.getNthPage(notebook.getCurrentPage());
+        web.grabFocus();
+        if (uri.startsWith("about:"))
+        {
+            web.loadHtml(`<html><head><title>New tab</title></head><body></body></html>`, uri);
+        }
+        else
         {
             // This does some normalization.
             uri = uri.parseURL.toString;
             addressBar.setText(uri);
-        }
-        auto web = cast(WebView) notebook.getNthPage(notebook.getCurrentPage());
-        web.grabFocus();
-        switch (uri)
-        {
-            case "about:blank":
-                web.loadHtml(`<html><head><title>New tab</title></head><body></body></html>`, uri);
-                break;
-            default:
-                web.loadUri(uri);
+            web.loadUri(uri);
         }
     }