From 198fcf265413929632580504ab91abc7460e6f31 Mon Sep 17 00:00:00 2001 From: Gene Pasquet Date: Sun, 26 Jul 2026 10:23:43 +0100 Subject: Fixes --- frame.lisp | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'frame.lisp') diff --git a/frame.lisp b/frame.lisp index b65c631..2f3cc91 100644 --- a/frame.lisp +++ b/frame.lisp @@ -13,14 +13,14 @@ (:panes (title :title :display-string "Solar short") (app :application :display-function 'display-haiku) - (action-next :push-button :label "Next")) + (action-next :push-button :label "Next" + :activate-callback (lambda (gadget) (com-next)))) (:layouts (default (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))))) + +(define-read-haiku-command (com-next :name "Next") + () + (with-application-frame (frame) + (next-haiku frame) + (redisplay-frame frame))) -- cgit v1.2.3