diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-25 22:36:59 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-25 22:36:59 +0200 |
| commit | 3bffcb30e7607a98d80a5a066707cee32a779cab (patch) | |
| tree | e6f76e657991594d45306ec737f8c38f84c61596 /module/vcomponent/base.scm | |
| parent | Add xcal output! (diff) | |
| download | calp-3bffcb30e7607a98d80a5a066707cee32a779cab.tar.gz calp-3bffcb30e7607a98d80a5a066707cee32a779cab.tar.xz | |
Minor changes to vcomponent base.
Diffstat (limited to 'module/vcomponent/base.scm')
| -rw-r--r-- | module/vcomponent/base.scm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/module/vcomponent/base.scm b/module/vcomponent/base.scm index 51f284cf..2748e8be 100644 --- a/module/vcomponent/base.scm +++ b/module/vcomponent/base.scm @@ -2,6 +2,7 @@ :use-module (util) :use-module (srfi srfi-1) :use-module (srfi srfi-9) + :use-module (srfi srfi-9 gnu) :use-module (srfi srfi-17) :use-module (ice-9 hash-table) :use-module ((ice-9 optargs) :select (define*-public)) @@ -21,6 +22,14 @@ (export vline-key) +(set-record-type-printer! + <vline> + (lambda (v p) + (format p "#<<vline> key: ~s value: ~s parameters: ~s>" + (vline-key v) + (get-vline-value v) + (hash-map->list list (get-vline-parameters v))))) + (define-public vline-source (make-procedure-with-setter get-source set-source!)) @@ -130,6 +139,7 @@ ;; Returns the properties of attribute as an assoc list. ;; @code{(map car <>)} leads to available properties. +;; TODO shouldn't this be called parameters? (define-public (properties attrptr) (hash-map->list list (get-vline-parameters attrptr))) |