diff options
Diffstat (limited to 'src/guile/skribilo/package/pie.scm')
| -rw-r--r-- | src/guile/skribilo/package/pie.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/guile/skribilo/package/pie.scm b/src/guile/skribilo/package/pie.scm index 8ccf858..c5ae84a 100644 --- a/src/guile/skribilo/package/pie.scm +++ b/src/guile/skribilo/package/pie.scm @@ -251,7 +251,7 @@ the string \"hello\". Implement `sliceweight' markups too." "\n") `("colors: " ,@colors "\n"))))) -(markup-writer 'pie (find-engine 'base) +(markup-writer 'pie (lookup-engine-class 'base) :action (lambda (node engine) (let* ((fmt (select-output-format engine)) (pie-file (string-append (markup-ident node) "." @@ -291,12 +291,12 @@ the string \"hello\". Implement `sliceweight' markups too." "A Pie Chart")) engine)))) -(markup-writer 'slice (find-engine 'base) +(markup-writer 'slice (lookup-engine-class 'base) :action (lambda (node engine) ;; Nothing to do here (error "slice: this writer should never be invoked"))) -(markup-writer 'sliceweight (find-engine 'base) +(markup-writer 'sliceweight (lookup-engine-class 'base) :action (lambda (node engine) ;; Nothing to do here. (error "sliceweight: this writer should never be invoked"))) @@ -306,7 +306,7 @@ the string \"hello\". Implement `sliceweight' markups too." ;;; Initialization. ;;; -(when-engine-is-loaded 'lout +(when-engine-class-is-loaded 'lout (lambda () (resolve-module '(skribilo package pie lout)))) |