diff options
Diffstat (limited to 'src/guile/skribilo/utils/compat.scm')
-rw-r--r-- | src/guile/skribilo/utils/compat.scm | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/src/guile/skribilo/utils/compat.scm b/src/guile/skribilo/utils/compat.scm index 6ba066b..8ba4a7d 100644 --- a/src/guile/skribilo/utils/compat.scm +++ b/src/guile/skribilo/utils/compat.scm @@ -24,6 +24,7 @@ :use-module (skribilo utils files) :use-module (skribilo parameters) :use-module (skribilo evaluator) + :use-module (skribilo color) :use-module (skribilo lib) :use-module (srfi srfi-1) :autoload (srfi srfi-13) (string-rindex) @@ -216,6 +217,21 @@ ;;; +;;; Colors. +;;; + +(define-public skribe-color->rgb color->rgb) +(define-public (skribe-use-color! c) c) +(define-public (skribe-get-used-colors) + (let ((doc (or (*document-being-output*) + (*document-being-resolved*)))) + (if doc + (document-used-colors doc) + '()))) + + + +;;; ;;; Bibliography. ;;; |