diff --git a/basis/ui/tools/browser/browser.factor b/basis/ui/tools/browser/browser.factor index 5c92bad264..0e0c3943da 100644 --- a/basis/ui/tools/browser/browser.factor +++ b/basis/ui/tools/browser/browser.factor @@ -43,7 +43,7 @@ CONSTANT: next 1 : $navigation-arrow ( content element direction -- ) [ prefix 1array ] dip add-navigation-arrow , ; -:: ($navigation) ( topic direction -- ) +:: $navigation ( topic direction -- ) help-path-style get [ topic [ direction prev/next-article @@ -51,17 +51,12 @@ CONSTANT: next 1 ] { } make [ ($navigation-table) ] unless-empty ] with-style ; -: $navigation ( topic direction -- ) - title-style get [ ($navigation) ] with-style ; - : $title ( topic -- ) - title-style get clone page-color over delete-at dup + title-style get clone page-color over delete-at [ - [ - [ ($title) ] - [ ($navigation-path) ] bi - ] with-nesting - ] with-style ; + [ ($title) ] + [ ($navigation-path) ] bi + ] with-nesting ; : ( browser-gadget -- gadget ) model>> [ '[ _ $title ] try ] ;