diff options
author | David Thompson <davet@gnu.org> | 2018-03-13 04:10:32 -0400 |
---|---|---|
committer | David Thompson <davet@gnu.org> | 2018-03-13 04:10:32 -0400 |
commit | 6b83e40852e47305d71c32757ded774199bb9307 (patch) | |
tree | d9f7d6d370b3092667db6092058f0df293269c40 | |
parent | 492e3f50551cefea3c4258f96c4fd1a918974785 (diff) |
Delete skribe-utils module.
-rw-r--r-- | skribe-utils.scm | 40 |
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))))) |