diff options
| -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))))) |