summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <davet@gnu.org>2018-03-13 04:10:32 -0400
committerDavid Thompson <davet@gnu.org>2018-03-13 04:10:32 -0400
commit6b83e40852e47305d71c32757ded774199bb9307 (patch)
treed9f7d6d370b3092667db6092058f0df293269c40
parent492e3f50551cefea3c4258f96c4fd1a918974785 (diff)
Delete skribe-utils module.
-rw-r--r--skribe-utils.scm40
1 files changed, 0 insertions, 40 deletions
diff --git a/skribe-utils.scm b/skribe-utils.scm
deleted file mode 100644
index 8120853..0000000
--- a/skribe-utils.scm
+++ /dev/null
@@ -1,40 +0,0 @@
-(define-module (skribe-utils)
- #:use-module (ice-9 match)
- #:use-module (syntax-highlight)
- #:use-module (syntax-highlight scheme)
- #:use-module (syntax-highlight xml)
- #:use-module (syntax-highlight c)
- #:export (image/caption
- scheme-source
- xml-source
- c-source))
-
-(define (image/caption uri caption)
- `((img (@ (class "centered rounded")
- (src ,uri)
- (alt ,caption)))
- (div (@ (class "caption")) ,caption)))
-
-(define (scheme-source source)
- (highlights->sxml
- (highlight lex-scheme
- (match source
- ((source ...)
- (string-concatenate source))
- (_ source)))))
-
-(define (xml-source source)
- (highlights->sxml
- (highlight lex-xml
- (match source
- ((source ...)
- (string-concatenate source))
- (_ source)))))
-
-(define (c-source source)
- (highlights->sxml
- (highlight lex-c
- (match source
- ((source ...)
- (string-concatenate source))
- (_ source)))))