From 3bffcb30e7607a98d80a5a066707cee32a779cab Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Thu, 25 Jun 2020 22:36:59 +0200 Subject: Minor changes to vcomponent base. --- module/vcomponent/base.scm | 10 ++++++++++ 1 file changed, 10 insertions(+) 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! + + (lambda (v p) + (format p "#< 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))) -- cgit v1.2.3