summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--tissue/document.scm10
1 files changed, 9 insertions, 1 deletions
diff --git a/tissue/document.scm b/tissue/document.scm
index 45de014..70a3263 100644
--- a/tissue/document.scm
+++ b/tissue/document.scm
@@ -28,7 +28,8 @@
#:use-module (term ansi-color)
#:use-module (xapian xapian)
#:use-module (tissue utils)
- #:export (object->scm
+ #:export (slot-set
+ object->scm
scm->object
<document>
document-title
@@ -41,6 +42,13 @@
file-document-path
read-gemtext-document))
+(define (slot-set object slot-name value)
+ "Set SLOT-NAME in OBJECT to VALUE. This is a purely functional setter
+that operates on a copy of OBJECT. It does not mutate OBJECT."
+ (let ((clone (shallow-clone object)))
+ (slot-set! clone slot-name value)
+ clone))
+
;; We override the default write to print object slots and values.
(define-method (write (object <object>) port)
"Write OBJECT to PORT."