From: Rudi Grinberg <me@rgrinberg.com>
Date: Mon, 25 Oct 2021 03:35:42 +0000 (-0600)
Subject: feature(browser): shortcut to focus search bar
X-Git-Tag: 0.99~2252
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=d7a262b5344f1187120ac96a660ef0bec5344d09

feature(browser): shortcut to focus search bar

Signed-off-by: Rudi Grinberg <me@rgrinberg.com>
---

diff --git a/basis/ui/tools/browser/browser.factor b/basis/ui/tools/browser/browser.factor
index 0abc1af2e0..f73c739ef6 100644
--- a/basis/ui/tools/browser/browser.factor
+++ b/basis/ui/tools/browser/browser.factor
@@ -179,6 +179,8 @@ M: browser-gadget focusable-child* search-field>> ;
 
 : com-forward ( browser -- ) history>> go-forward ;
 
+: browser-focus-search ( browser -- ) search-field>> request-focus ;
+
 : com-home ( browser -- ) "help.home" swap show-help ;
 
 : browser-help ( -- ) "ui-browser" com-browse ;
@@ -214,6 +216,7 @@ browser-gadget "navigation" "Commands for navigating in the article hierarchy" {
     { T{ key-down f ${ os macosx? M+ A+ ? } "n" } com-next }
     { T{ key-down f ${ os macosx? M+ A+ ? } "k" } com-show-outgoing-links }
     { T{ key-down f ${ os macosx? M+ A+ ? } "K" } com-show-incoming-links }
+    { T{ key-down f ${ os macosx? M+ A+ ? } "f" } browser-focus-search }
 } os macosx? [ {
     { T{ key-down f { M+ } "[" } com-back }
     { T{ key-down f { M+ } "]" } com-forward }