url completion allows current text as a completion option

whatever the user has typed, it should be allowable as a
URL otherwise we can only visit locations we've already been to

command.fnl

@@ -47,14 +47,16 @@
    #$1.buffer.name]
   [:url
    (fn [term]
-     (if (> (# term) 2)
-         (icollect [v (_G.history:find-distinct term)]
-           (let [label (.. v.url " " (or v.title ""))]
-             (completion { :text v.url
-                           :widget (Gtk.Button { : label })
-                           :value v.url
-                           })))
-         []))
+     (let [from-history
+           (if (> (# term) 2)
+               (icollect [v (_G.history:find-distinct term)]
+                 (let [label (.. v.url " " (or v.title ""))]
+                   (completion { :text v.url
+                                 :widget (Gtk.Button { : label })
+                                 :value v.url
+                                 })))
+               [])]
+       (lume.unique (lume.concat from-history [(completion {:text term})]))))
    #($1.buffer:location)]
   ]
  (fn [{:url url :buffer buffer}]