aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorLudovic Courtès2008-12-13 19:13:38 +0100
committerLudovic Courtès2008-12-13 19:13:38 +0100
commita96c272a0bc29eb37a67c2ca5ef2ca7465d114aa (patch)
tree572febf0b5279f1144cb8cc13f0e40a32ae96541 /src
parent839203d749de348ad6bf0ca2d1f6357df0208b49 (diff)
downloadskribilo-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.scm14
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 "`" "'")))
;*---------------------------------------------------------------------*/