X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?a=blobdiff_plain;f=src%2Fmain%2Fextensions%2Fcli%2Fcli.lisp;h=9faddaaed1c76286dca40facfa93358ea38d7a32;hb=5a407301f8b9d2826b23630d8df65096374d5079;hp=6d24da7fd941542af047f7054a6ebaa73a3ebc1d;hpb=92fae8cd60b7c5a66098d6e6044803c4a8a8c17a;p=clnl

diff --git a/src/main/extensions/cli/cli.lisp b/src/main/extensions/cli/cli.lisp
index 6d24da7..9faddaa 100644
--- a/src/main/extensions/cli/cli.lisp
+++ b/src/main/extensions/cli/cli.lisp
@@ -1,22 +1,15 @@
 (in-package #:clnl-extension-cli)
 
-(defun prims ()
- "PRIMS => PRIMS
-
-ARGUMENTS AND VALUES:
-
-  PRIMS: Primitives defined for this extension
-
-DESCRIPTION:
-
-  PRIMS returns the primitives used in the CLI extension."
+(defmethod clnl-extensions:prims ((extension (eql :cli)))
  (list
   (list :name :q :type :command :func #'shut-down)
   (list :name :load :type :command :args '(t) :func #'load-file)
-  (list :name :help :type :command :args '((:token :optional)) :precedence 20 :func #'help)))
+  (list :name :help :type :command :args '((:token :optional)) :precedence 20 :func #'help)
+  (list
+   :name :button :type :command :args '(:string (:optional :number))
+   :precedence 20 :func #'clnl-model:execute-button)))
 
 (defun shut-down ()
- (cl-charms/low-level:endwin)
  (sb-ext:exit :abort t))
 
 (defun load-file (file)
@@ -31,5 +24,5 @@ DESCRIPTION:
     (:|:LOAD|
      (concatenate 'string
       ":load <filename> loads up a model into the current clnl instance."
-      " Try :load \"resources/models/Wolf Sheep Predation.nlogo\""))
+      " Try :load \"Wolf Sheep Predation.nlogo\""))
     (t (format nil "Don't have help for ~S" token))))))