Swankful Software-Individuals

In the starting example linked above, we are activating the demus agent of the Screwlispbot software-individual.

Load the de facto lisp posix thing

(require "asdf")

(it's packaged with asdf, which is mostly always available)

and chdir (change directory):

(uiop:chdir #p"~/leocommunity/Screwlispbot/demus/Process/main/")

since software-individuals picks up who is doing what by the current directory.

Now that we are in the demus agent we want, load the kernel agent named remus by relative path:

(load #p"../../../remus/Startup/cl/acleo.leos")

and enter the expert shell

(cle)

I guess you saw this:

cs-user> (load #p"../../../remus/Startup/cl/acleo.leos")
;; Loading file ../../../remus/Startup/cl/acleo.leos ...
;;  Loading file ../../Startup/cl/bootfuns.leos ...
;;  Loaded file ../../Startup/cl/bootfuns.leos
****************************************************************************
Now starting up a Leonardo session  --  please stand by

Welcome to a session with the Leonardo software individual Pawn-74
The session is done with the individual's agent called demus
This is session number 47 with this agent

Loading of server and communication support failed.
Could not check in with the Registrar since communication facility not operational

This session operates on a Clisp implementation of CommonLisp.
Since Leonardo was initially developed on the Allegro CommonLisp implementation,
some facilities are not available here, and there is still some danger of
remaining bugs due to inconsistencies of the implementations.
The command-line executive will not start automatically; please type (cle) in
order to start it.


;; Loaded file ../../../remus/Startup/cl/acleo.leos
#P"~/leocommunity/Screwlispbot/remus/Startup/cl/acleo.leos"
cs-user> (cle)
Starting or resuming interaction using the CLE command-loop
****************************************************************************

ses.001) 

Okay! Beginning over! This is why I am adding a major mode so that you do not have to personally set anything up yourself in the future.

Add this leodef probably having activated M-x lisp-mode:

(leodef inserto inserto (buffer thing)
	(swank:eval-in-emacs
	 `(let* ((old (current-buffer))
		 (new ,(string buffer)))
	    (set-buffer new)
	    (insert ,(string thing))
	    (set-buffer old))))

So now your file is saved as

---------------------------------------------------------
-- swank

[: type entityfile]
[: latest-written "2025-04-27/03:04.+12"]
[: contents <swank inserto>]
[: changed-since-archived t]
[: nullvalued {has-purpose has-author requires mustload removed-entities leos-extension has-profile overlay-on overlay-types overlay-own leos-use dont-display sections local-ents purpose author latest-archived-entity latest-rearchived}]

---------------------------------------------------------
-- inserto

[: type lispdef]
[: latest-rearchived nil]

(leodef inserto inserto (buffer thing)
(swank:eval-in-emacs
`(let* ((old (current-buffer))
	(new ,(string buffer)))
   (set-buffer new)
   (insert ,(string thing))
   (set-buffer old))))

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooo

Reload the file and try inserto

ses.037) loadfil swank
Load-ef: swank at ../../../demus/Emacs/swank.leo
swank

ses.038) inserto *scratch* "foo bar baz"

ses.039) 

Now my scratch buffer looks like:

;; This buffer is for text that is not saved, and for Lisp evaluation.
;; To create a file, visit it with C-x C-f and enter text in its buffer.

foo bar baz

I'm calling it a success. If we add positioning the cursor (probably just sending it to the end of the buffer) and issuing send-input for whatever mode, I figure Screwlispbot can take the emacs reigns from me.