summaryrefslogtreecommitdiff
path: root/skribe-utils.scm
diff options
context:
space:
mode:
Diffstat (limited to 'skribe-utils.scm')
-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)))))