From 706fe6eb4eee13d31dc6c66dcb074d034f6cf07b Mon Sep 17 00:00:00 2001 From: nicolas-p Date: Thu, 30 Jul 2015 22:58:00 +0200 Subject: [PATCH] help: Added arrows in prev/next links --- basis/help/help.factor | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/basis/help/help.factor b/basis/help/help.factor index 6a56a167f2..66c24aec50 100644 --- a/basis/help/help.factor +++ b/basis/help/help.factor @@ -98,18 +98,21 @@ M: word set-article-parent swap "help-parent" set-word-prop ; : ($title) ( topic -- ) [ [ article-title ] [ >link ] bi write-object ] ($block) ; -: $navigation-row ( content element -- ) - prefix 1array , ; +: $navigation-row-prev ( content element -- ) + prefix 1array "<" prefix , ; + +: $navigation-row-next ( content element -- ) + prefix 1array ">" suffix , ; : ($navigation-table) ( element -- ) help-path-style get table-style [ $table ] with-variable ; : ($navigation-prev) ( topic -- ) - [ prev-article [ 1array \ $long-link $navigation-row ] when* ] + [ prev-article [ 1array \ $long-link $navigation-row-prev ] when* ] { } make [ ($navigation-table) ] unless-empty ; : ($navigation-next) ( topic -- ) - [ next-article [ 1array \ $long-link $navigation-row ] when* ] + [ next-article [ 1array \ $long-link $navigation-row-next ] when* ] { } make [ ($navigation-table) ] unless-empty ; : ($navigation-path) ( topic -- )