From 244bb89c73d6829c68e2e7c3270d146493981fbc Mon Sep 17 00:00:00 2001
From: Gene Pasquet <dev@etenil.net>
Date: Sun, 26 Jul 2026 01:00:46 +0100
Subject: First working version

---
 frame.lisp | 23 +++++++++++++++--------
 1 file changed, 15 insertions(+), 8 deletions(-)

(limited to 'frame.lisp')

diff --git a/frame.lisp b/frame.lisp
index f8555e1..b65c631 100644
--- a/frame.lisp
+++ b/frame.lisp
@@ -1,19 +1,26 @@
 (uiop:define-package
-    :simple-text-clim-frame/frame
+    :solar-short/frame
     (:export)
-  (:mix-reexport :simple-text-clim-frame/class)
+  (:mix-reexport :solar-short/class)
   (:mix :clim :clim-lisp))
 
-(in-package :simple-text-clim-frame/frame)
+(in-package :solar-short/frame)
 
 (define-application-frame
-    my-frame
-    (my-class standard-application-frame)
+    read-haiku
+    (book standard-application-frame)
   ()
   (:panes
-   (title :title :display-string "My title")
-   (app :application :display-function 'my-display))
+   (title :title :display-string "Solar short")
+   (app :application :display-function 'display-haiku)
+   (action-next :push-button :label "Next"))
   (:layouts
    (default
-    (vertically () title app))))
+    (vertically () title app action-next))))
     
+;; (define-read-haiku-command (com-next :name t)
+;;     ((book 'book))
+;;   (with-application-frame (frame)
+;;     (let ((book (book frame)))
+;;       (when book
+;; 	(next-haiku book)))))
-- 
cgit v1.2.3