diff options
| author | Ludovic Courtès | 2008-12-13 19:13:38 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2008-12-13 19:13:38 +0100 |
| commit | a96c272a0bc29eb37a67c2ca5ef2ca7465d114aa (patch) | |
| tree | 572febf0b5279f1144cb8cc13f0e40a32ae96541 /src | |
| parent | 839203d749de348ad6bf0ca2d1f6357df0208b49 (diff) | |
| download | skribilo-a96c272a0bc29eb37a67c2ca5ef2ca7465d114aa.tar.gz skribilo-a96c272a0bc29eb37a67c2ca5ef2ca7465d114aa.tar.lz skribilo-a96c272a0bc29eb37a67c2ca5ef2ca7465d114aa.zip | |
info: Add space markups and `tt'.
* src/guile/skribilo/engine/info.scm (~, breakable-space): New.
(%ornaments): Add `tt'.
Diffstat (limited to 'src')
| -rw-r--r-- | src/guile/skribilo/engine/info.scm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/src/guile/skribilo/engine/info.scm b/src/guile/skribilo/engine/info.scm index 8647db3..ef2d448 100644 --- a/src/guile/skribilo/engine/info.scm +++ b/src/guile/skribilo/engine/info.scm @@ -341,6 +341,19 @@ (output (markup-body n) e)))))) ;*---------------------------------------------------------------------*/ +;* ~ ... */ +;*---------------------------------------------------------------------*/ +(markup-writer '~ + ;; FIXME: This isn't actually breakable. + :action (lambda (n e) (output-justified " "))) + +;*---------------------------------------------------------------------*/ +;* breakable-space ... */ +;*---------------------------------------------------------------------*/ +(markup-writer 'breakable-space + :action (lambda (n e) (output-justified " "))) + +;*---------------------------------------------------------------------*/ ;* *ornaments* ... */ ;*---------------------------------------------------------------------*/ (define %ornaments @@ -353,6 +366,7 @@ (sup "^" "") (sub "_" "") (code "`" "'") + (tt "`" "'") (samp "`" "'"))) ;*---------------------------------------------------------------------*/ |