Add definition for em-dash.
authorrekado <rekado@elephly.net>
Sun, 14 Feb 2016 20:52:18 +0000 (21:52 +0100)
committerrekado <rekado@elephly.net>
Sun, 14 Feb 2016 20:52:18 +0000 (21:52 +0100)
skribe-utils.scm

index 3bdc2d84d67fe34410a80d7c2285c3428fd6658e..8788c5211c378ba1b63f905934446119b9de4a89 100644 (file)
@@ -3,6 +3,7 @@
   #:use-module (srfi srfi-1)  ; list stuff
   #:export (email
             ~
+            ---
             table
             lyrics
             ref
@@ -19,6 +20,9 @@
   "Non-breaking space."
   (string #\240))
 
+(define (---)
+  "Em dash." "—")
+
 (define* (table #:key (align '()) headers rows)
   "Build HTML tables more easily."
   (let ((alignment (append align