From da4550348ed7176df239b706c52da6b17a61f74a Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sun, 19 Nov 2017 14:04:45 -0800 Subject: [PATCH] gopher.ui: open non-gopher urls using webbrowser vocab. --- extra/gopher/ui/ui.factor | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/extra/gopher/ui/ui.factor b/extra/gopher/ui/ui.factor index f60ad7e245..3e33a92853 100644 --- a/extra/gopher/ui/ui.factor +++ b/extra/gopher/ui/ui.factor @@ -6,7 +6,7 @@ kernel math.vectors models present sequences ui ui.commands ui.gadgets ui.gadgets.editors ui.gadgets.panes ui.gadgets.scrollers ui.gadgets.status-bar ui.gadgets.toolbar ui.gadgets.tracks ui.gadgets.viewports ui.gestures ui.operations ui.tools.browser -ui.tools.browser.history ui.tools.common urls ; +ui.tools.browser.history ui.tools.common urls webbrowser ; IN: gopher.ui @@ -29,12 +29,14 @@ M: gopher-gadget model-changed : show-gopher ( url gopher-gadget -- ) [ [ >url ] [ f ] if* ] dip - [ - 2dup control-value = - [ 2drop ] [ nip history>> add-history ] if - ] - [ set-control-value ] - 2bi ; + over [ protocol>> "gopher" = ] [ t ] if* [ + [ + 2dup control-value = + [ 2drop ] [ nip history>> add-history ] if + ] + [ set-control-value ] + 2bi + ] [ drop open-url ] if ; : ( gopher-gadget -- field ) '[ >url _ show-gopher ] -- 2.34.1