From c9c3db4c0b6656203516c15f2881fae08731c327 Mon Sep 17 00:00:00 2001 From: Gene Pasquet Date: Sun, 26 Jul 2026 10:52:43 +0100 Subject: Fixes --- class.lisp | 20 ++++++++------------ frame.lisp | 2 +- 2 files changed, 9 insertions(+), 13 deletions(-) diff --git a/class.lisp b/class.lisp index 93fc4d9..526418c 100644 --- a/class.lisp +++ b/class.lisp @@ -7,22 +7,18 @@ (defclass book () ((haikus - :initform (list "haiku 1" - "haiku 2" - "haiku 3")) + :initform (list "Old brackets~%laying forgotten~%spring anew." + "The water drop~%falling on the cracked ground~%bounces away." + "Striving for more~%time for contentment~%is gone.")) (current :initform 0))) (defmethod display-haiku ((obj book) stream) (with-slots (haikus current) obj - (format *standard-output* "haiku num: ~a" current) - (princ (nth current haikus) stream))) + (format *error-output* "Refreshing display, current is ~a" current) + (format stream (nth current haikus)))) (defmethod next-haiku ((obj book)) (with-slots (haikus current) obj - (format *standard-output* "increasing current") - (let ((factor (if (= current (length haikus)) 0 1))) - (format *standard-output* "increment factor: ~a" factor) - (finish-output *standard-output*) - (setf current - (+ factor - current))))) + (if (= current (- (length haikus) 1)) + (setf current 0) + (incf current)))) diff --git a/frame.lisp b/frame.lisp index 2f3cc91..a4313c9 100644 --- a/frame.lisp +++ b/frame.lisp @@ -23,4 +23,4 @@ () (with-application-frame (frame) (next-haiku frame) - (redisplay-frame frame))) + (redisplay-frame-pane frame 'app))) -- cgit v1.2.3