dunlin

commit 561c717609b3043b8b9f412cb506bde39ee053d5
parent 9775e0054590486a740b33d1ae801c4154caca9c
Author: Daniel Barlow <dan@telent.net>
Date:   Sun,  1 Jan 2023 22:32:50 +0000

rename on-activate as on-input-finished

it's just too easily confused with "active" as in commander state.active

Diffstat:
M
command.fnl
 | 
19
++++++++++---------

1 file changed, 10 insertions(+), 9 deletions(-)
diff --git a/command.fnl b/command.fnl
@@ -98,7 +98,7 @@
             state)
       )))
 
-(fn on-activate [self str]
+(fn on-input-finished [self str]
   (let [s (next-action self str)
         param (if s.active (. (. s.command :params) s.this-param))]
     (set self.state s)
@@ -126,11 +126,12 @@
           completions (completer str)]
       (parent:foreach #(parent:remove $1))
       (each [text _w (pairs completions)]
-        (parent:add (Gtk.Button {
-                                 :label text
-                                 :on_clicked
-                                 #(update-widget-state self (self:on-activate text))
-                                 })))
+        (parent:add
+         (Gtk.Button {
+                      :label text
+                      :on_clicked
+                      #(update-widget-state self (self:on-input-finished text))
+                      })))
       (parent:show_all)
       )))
 
@@ -160,7 +161,7 @@
            :collected-params supplied-params
            }]
     (set self.state s)
-    (let [r (self:on-activate nil)]
+    (let [r (self:on-input-finished nil)]
       (update-widget-state self r)
       (self.entry:grab_focus)
       r)))
@@ -181,7 +182,7 @@
               : deactivate
               :active? (fn [self] self.state.active)
               : on-input
-              : on-activate
+              : on-input-finished
               : invoke-interactively
               : entry
               :widget box
@@ -198,7 +199,7 @@
             (self:on-input event.text)))
     (tset entry :on_activate
           (fn [event]
-            (let [result  (self:on-activate event.text)]
+            (let [result (self:on-input-finished event.text)]
               (update-widget-state self result))))
     self))