diff options
| author | Jeffrey H. Kingston <jeff@it.usyd.edu.au> | 2010-09-14 20:38:02 +0000 |
|---|---|---|
| committer | Jeffrey H. Kingston <jeff@it.usyd.edu.au> | 2010-09-14 20:38:02 +0000 |
| commit | 9daa98ce90ceeeaba9e942d28575d8fcfe36db4b (patch) | |
| tree | 94d258acb2a5bdddc318dbdc59b788bb8f52c704 /include/bsf | |
| parent | c89f0bc2209f7f98695e6b94fbac316c84fbf9d4 (diff) | |
| download | lout-9daa98ce90ceeeaba9e942d28575d8fcfe36db4b.tar.gz | |
Lout 3.26.
git-svn-id: http://svn.savannah.nongnu.org/svn/lout/trunk@21 9365b830-b601-4143-9ba8-b4a8e2c3339c
Diffstat (limited to 'include/bsf')
| -rw-r--r-- | include/bsf | 21 |
1 files changed, 17 insertions, 4 deletions
diff --git a/include/bsf b/include/bsf index 8158c22..d27b52a 100644 --- a/include/bsf +++ b/include/bsf @@ -133,8 +133,8 @@ export @CopyRight @TradeMark @Euro @Date @Time @DateTimeFormat @DropCapTwo @DropCapThree @Centre @Right - @NoDotSep @NoDotJoin @Join @Sep @DotSep @DotJoin @DashJoin @NumSep - @OverStrike @Sup @Sub @FullWidthRule @LocalWidthRule + @NoDotSep @NoDotJoin @Join @Sep @DotSep @ColonSep @DotJoin @DashJoin + @NumSep @OverStrike @Sup @Sub @FullWidthRule @LocalWidthRule @Box @CurveBox @ShadowBox @BoundaryMarks @NumberMarker @NumberOf @TitleMarker @TitleOf @PageMarker @PageMark @NoLinkPageMark @PageOf @CrossLink @ExternalLink @@ -588,7 +588,7 @@ def @BasicSetup ########################################################################### # # # @Centre, @Center, @Right, @NoDotSep, @NoDotJoin, @DotSep, # - # @DotJoin, @DashJoin, @NumSep # + # @ColonSep, @DotJoin, @DashJoin, @NumSep # # # ########################################################################### @@ -639,6 +639,19 @@ def @BasicSetup } } + def @ColonSep left x right y + { + x @Case { + {} @Yield y + else @Yield { + y @Case { + {} @Yield x + else @Yield { x: |2s y } + } + } + } + } + def @DotJoin left x right y { x @Case { @@ -1518,7 +1531,7 @@ def @BasicSetup { def sendtag into { @TagPlace&&preceding } { tag } - sendtag // //1vx x + sendtag // //1vxu x } def endlist force into { @EndListPlace&&preceding } {} |