Lisp HUG Maillist Archive

Set the initial package of a listener-pane?

I would like to start a listener-pane in a package other than CL-USER. I imagine the documentation must tell us how to do that, but I'm not finding it.

I'm building a CAPI client UI for a system that provides a console onto a system implemented in Lisp. There's a package that provides a bunch of user conveniences for the console, and of course it's very easy to say (in-package :my-convenience-package), but for customer friendliness, I want to start that listener in the convenience package. 

How do I do that?



_______________________________________________
Lisp Hug - the mailing list for LispWorks users
lisp-hug@lispworks.com
http://www.lispworks.com/support/lisp-hug.html

Re: Set the initial package of a listener-pane?

It’s been a while since I tried this. Used to work, back in the day

- nick

(defadvice (capi::interactive-pane-top-loop set-mumble-package :before) (top-level istream)
  ;; Set this to the package you'd like the listener to come up in, while working
  ;; on your library
  (setf *package* (find-package "MY-PACKAHE”)))

> On 27 Aug 2020, at 17:26, mikel evins (as mevins at me dot com) <lisp-hug@lispworks.com> wrote:
> 
> I would like to start a listener-pane in a package other than CL-USER. I imagine the documentation must tell us how to do that, but I'm not finding it.
> 
> I'm building a CAPI client UI for a system that provides a console onto a system implemented in Lisp. There's a package that provides a bunch of user conveniences for the console, and of course it's very easy to say (in-package :my-convenience-package), but for customer friendliness, I want to start that listener in the convenience package. 
> 
> How do I do that?
> 
> 
> 
> _______________________________________________
> Lisp Hug - the mailing list for LispWorks users
> lisp-hug@lispworks.com
> http://www.lispworks.com/support/lisp-hug.html

_______________________________________________
Lisp Hug - the mailing list for LispWorks users
lisp-hug@lispworks.com
http://www.lispworks.com/support/lisp-hug.html

Re: Set the initial package of a listener-pane?

It’s been a while since I tried this. Used to work, back in the day

- nick

(defadvice (capi::interactive-pane-top-loop set-mumble-package :before) (top-level istream)
 ;; Set this to the package you'd like the listener to come up in, while working
 ;; on your library
 (setf *package* (find-package "MY-PACKAGE”)))

- nick

> On 27 Aug 2020, at 17:54, Nick Levine <nick@nicklevine.org> wrote:
> 
> It’s been a while since I tried this. Used to work, back in the day
> 
> - nick
> 
> (defadvice (capi::interactive-pane-top-loop set-mumble-package :before) (top-level istream)
> ;; Set this to the package you'd like the listener to come up in, while working
> ;; on your library
> (setf *package* (find-package "MY-PACKAHE”)))
> 
>>> On 27 Aug 2020, at 17:26, mikel evins (as mevins at me dot com) <lisp-hug@lispworks.com> wrote:
>> I would like to start a listener-pane in a package other than CL-USER. I imagine the documentation must tell us how to do that, but I'm not finding it.
>> I'm building a CAPI client UI for a system that provides a console onto a system implemented in Lisp. There's a package that provides a bunch of user conveniences for the console, and of course it's very easy to say (in-package :my-convenience-package), but for customer friendliness, I want to start that listener in the convenience package.
>> How do I do that?
>> _______________________________________________
>> Lisp Hug - the mailing list for LispWorks users
>> lisp-hug@lispworks.com
>> http://www.lispworks.com/support/lisp-hug.html

_______________________________________________
Lisp Hug - the mailing list for LispWorks users
lisp-hug@lispworks.com
http://www.lispworks.com/support/lisp-hug.html

Re: Set the initial package of a listener-pane?

I saw the following trick recently:

    (capi:interactive-pane-execute-command listener (format nil "~&~&(in-package :some-package)~%~%"))

It seemed to work fine.

Arthur
---------

On Thu, Aug 27, 2020, at 6:57 PM, Nick Levine wrote:
> It’s been a while since I tried this. Used to work, back in the day
> 
> - nick
> 
> (defadvice (capi::interactive-pane-top-loop set-mumble-package :before) 
> (top-level istream)
>  ;; Set this to the package you'd like the listener to come up in, 
> while working
>  ;; on your library
>  (setf *package* (find-package "MY-PACKAGE”)))
> 
> - nick
> 
> > On 27 Aug 2020, at 17:54, Nick Levine <nick@nicklevine.org> wrote:
> > 
> > It’s been a while since I tried this. Used to work, back in the day
> > 
> > - nick
> > 
> > (defadvice (capi::interactive-pane-top-loop set-mumble-package :before) (top-level istream)
> > ;; Set this to the package you'd like the listener to come up in, while working
> > ;; on your library
> > (setf *package* (find-package "MY-PACKAHE”)))
> > 
> >>> On 27 Aug 2020, at 17:26, mikel evins (as mevins at me dot com) <lisp-hug@lispworks.com> wrote:
> >> I would like to start a listener-pane in a package other than CL-USER. I imagine the documentation must tell us how to do that, but I'm not finding it.
> >> I'm building a CAPI client UI for a system that provides a console onto a system implemented in Lisp. There's a package that provides a bunch of user conveniences for the console, and of course it's very easy to say (in-package :my-convenience-package), but for customer friendliness, I want to start that listener in the convenience package.
> >> How do I do that?
> >> _______________________________________________
> >> Lisp Hug - the mailing list for LispWorks users
> >> lisp-hug@lispworks.com
> >> http://www.lispworks.com/support/lisp-hug.html
> 
> _______________________________________________
> Lisp Hug - the mailing list for LispWorks users
> lisp-hug@lispworks.com
> http://www.lispworks.com/support/lisp-hug.html
>

_______________________________________________
Lisp Hug - the mailing list for LispWorks users
lisp-hug@lispworks.com
http://www.lispworks.com/support/lisp-hug.html

Re: Set the initial package of a listener-pane?

Thanks! I'll try it.

> On Aug 27, 2020, at 12:02 PM, Arthur Lemmens <alemmens@xs4all.nl> wrote:
> 
> I saw the following trick recently:
> 
>    (capi:interactive-pane-execute-command listener (format nil "~&~&(in-package :some-package)~%~%"))
> 
> It seemed to work fine.
> 
> Arthur
> ---------
> 
> On Thu, Aug 27, 2020, at 6:57 PM, Nick Levine wrote:
>> It’s been a while since I tried this. Used to work, back in the day
>> 
>> - nick
>> 
>> (defadvice (capi::interactive-pane-top-loop set-mumble-package :before) 
>> (top-level istream)
>> ;; Set this to the package you'd like the listener to come up in, 
>> while working
>> ;; on your library
>> (setf *package* (find-package "MY-PACKAGE”)))
>> 
>> - nick
>> 
>>> On 27 Aug 2020, at 17:54, Nick Levine <nick@nicklevine.org> wrote:
>>> 
>>> It’s been a while since I tried this. Used to work, back in the day
>>> 
>>> - nick
>>> 
>>> (defadvice (capi::interactive-pane-top-loop set-mumble-package :before) (top-level istream)
>>> ;; Set this to the package you'd like the listener to come up in, while working
>>> ;; on your library
>>> (setf *package* (find-package "MY-PACKAHE”)))
>>> 
>>>>> On 27 Aug 2020, at 17:26, mikel evins (as mevins at me dot com) <lisp-hug@lispworks.com> wrote:
>>>> I would like to start a listener-pane in a package other than CL-USER. I imagine the documentation must tell us how to do that, but I'm not finding it.
>>>> I'm building a CAPI client UI for a system that provides a console onto a system implemented in Lisp. There's a package that provides a bunch of user conveniences for the console, and of course it's very easy to say (in-package :my-convenience-package), but for customer friendliness, I want to start that listener in the convenience package.
>>>> How do I do that?
>>>> _______________________________________________
>>>> Lisp Hug - the mailing list for LispWorks users
>>>> lisp-hug@lispworks.com
>>>> http://www.lispworks.com/support/lisp-hug.html
>> 
>> _______________________________________________
>> Lisp Hug - the mailing list for LispWorks users
>> lisp-hug@lispworks.com
>> http://www.lispworks.com/support/lisp-hug.html
>> 
> 
> _______________________________________________
> Lisp Hug - the mailing list for LispWorks users
> lisp-hug@lispworks.com
> http://www.lispworks.com/support/lisp-hug.html


_______________________________________________
Lisp Hug - the mailing list for LispWorks users
lisp-hug@lispworks.com
http://www.lispworks.com/support/lisp-hug.html

Re: Set the initial package of a listener-pane?

That works for me and is especially convenient. I can do it in the create-callback for the interface containing the listener.

> On Aug 27, 2020, at 12:02 PM, Arthur Lemmens <alemmens@xs4all.nl> wrote:
> 
> I saw the following trick recently:
> 
>    (capi:interactive-pane-execute-command listener (format nil "~&~&(in-package :some-package)~%~%"))
> 
> It seemed to work fine.
> 
> Arthur
> ---------
> 
> On Thu, Aug 27, 2020, at 6:57 PM, Nick Levine wrote:
>> It’s been a while since I tried this. Used to work, back in the day
>> 
>> - nick
>> 
>> (defadvice (capi::interactive-pane-top-loop set-mumble-package :before) 
>> (top-level istream)
>> ;; Set this to the package you'd like the listener to come up in, 
>> while working
>> ;; on your library
>> (setf *package* (find-package "MY-PACKAGE”)))
>> 
>> - nick
>> 
>>> On 27 Aug 2020, at 17:54, Nick Levine <nick@nicklevine.org> wrote:
>>> 
>>> It’s been a while since I tried this. Used to work, back in the day
>>> 
>>> - nick
>>> 
>>> (defadvice (capi::interactive-pane-top-loop set-mumble-package :before) (top-level istream)
>>> ;; Set this to the package you'd like the listener to come up in, while working
>>> ;; on your library
>>> (setf *package* (find-package "MY-PACKAHE”)))
>>> 
>>>>> On 27 Aug 2020, at 17:26, mikel evins (as mevins at me dot com) <lisp-hug@lispworks.com> wrote:
>>>> I would like to start a listener-pane in a package other than CL-USER. I imagine the documentation must tell us how to do that, but I'm not finding it.
>>>> I'm building a CAPI client UI for a system that provides a console onto a system implemented in Lisp. There's a package that provides a bunch of user conveniences for the console, and of course it's very easy to say (in-package :my-convenience-package), but for customer friendliness, I want to start that listener in the convenience package.
>>>> How do I do that?
>>>> _______________________________________________
>>>> Lisp Hug - the mailing list for LispWorks users
>>>> lisp-hug@lispworks.com
>>>> http://www.lispworks.com/support/lisp-hug.html
>> 
>> _______________________________________________
>> Lisp Hug - the mailing list for LispWorks users
>> lisp-hug@lispworks.com
>> http://www.lispworks.com/support/lisp-hug.html
>> 
> 
> _______________________________________________
> Lisp Hug - the mailing list for LispWorks users
> lisp-hug@lispworks.com
> http://www.lispworks.com/support/lisp-hug.html


_______________________________________________
Lisp Hug - the mailing list for LispWorks users
lisp-hug@lispworks.com
http://www.lispworks.com/support/lisp-hug.html

Re: Set the initial package of a listener-pane?

Doesn’t “listener” have to be an editor pane? 

What I did in an init file for LispWorks Personal is

(capi:interactive-pane-execute-command
   (capi:editor-pane
    (capi:find-interface 'lw-tools:listener))
   "(in-package ...)”)

where … is the package name. Is there a simpler way? 

On Aug 27, 2020, at 12:32 PM, mikel evins (as mevins at me dot com) <lisp-hug@lispworks.com> wrote:

That works for me and is especially convenient. I can do it in the create-callback for the interface containing the listener.

On Aug 27, 2020, at 12:02 PM, Arthur Lemmens <alemmens@xs4all.nl> wrote:

I saw the following trick recently:

  (capi:interactive-pane-execute-command listener (format nil "~&~&(in-package :some-package)~%~%"))

It seemed to work fine.

Arthur
---------

On Thu, Aug 27, 2020, at 6:57 PM, Nick Levine wrote:
It’s been a while since I tried this. Used to work, back in the day

- nick

(defadvice (capi::interactive-pane-top-loop set-mumble-package :before) 
(top-level istream)
;; Set this to the package you'd like the listener to come up in, 
while working
;; on your library
(setf *package* (find-package "MY-PACKAGE”)))

- nick

On 27 Aug 2020, at 17:54, Nick Levine <nick@nicklevine.org> wrote:

It’s been a while since I tried this. Used to work, back in the day

- nick

(defadvice (capi::interactive-pane-top-loop set-mumble-package :before) (top-level istream)
;; Set this to the package you'd like the listener to come up in, while working
;; on your library
(setf *package* (find-package "MY-PACKAHE”)))

On 27 Aug 2020, at 17:26, mikel evins (as mevins at me dot com) <lisp-hug@lispworks.com> wrote:
I would like to start a listener-pane in a package other than CL-USER. I imagine the documentation must tell us how to do that, but I'm not finding it.
I'm building a CAPI client UI for a system that provides a console onto a system implemented in Lisp. There's a package that provides a bunch of user conveniences for the console, and of course it's very easy to say (in-package :my-convenience-package), but for customer friendliness, I want to start that listener in the convenience package.
How do I do that?
_______________________________________________
Lisp Hug - the mailing list for LispWorks users
lisp-hug@lispworks.com
https://urldefense.com/v3/__http://www.lispworks.com/support/lisp-hug.html__;!!Dq0X2DkFhyF93HkjWTBQKhk!B_Gnn2BZ5hlB-dIMb2MScOx48gAOi-1OE3ZqL7hW_oTuXNGJnf_3_BtBwSaOH0HkffwTwyG_$ 

_______________________________________________
Lisp Hug - the mailing list for LispWorks users
lisp-hug@lispworks.com
https://urldefense.com/v3/__http://www.lispworks.com/support/lisp-hug.html__;!!Dq0X2DkFhyF93HkjWTBQKhk!B_Gnn2BZ5hlB-dIMb2MScOx48gAOi-1OE3ZqL7hW_oTuXNGJnf_3_BtBwSaOH0HkffwTwyG_$ 


_______________________________________________
Lisp Hug - the mailing list for LispWorks users
lisp-hug@lispworks.com
https://urldefense.com/v3/__http://www.lispworks.com/support/lisp-hug.html__;!!Dq0X2DkFhyF93HkjWTBQKhk!B_Gnn2BZ5hlB-dIMb2MScOx48gAOi-1OE3ZqL7hW_oTuXNGJnf_3_BtBwSaOH0HkffwTwyG_$ 


_______________________________________________
Lisp Hug - the mailing list for LispWorks users
lisp-hug@lispworks.com
https://urldefense.com/v3/__http://www.lispworks.com/support/lisp-hug.html__;!!Dq0X2DkFhyF93HkjWTBQKhk!B_Gnn2BZ5hlB-dIMb2MScOx48gAOi-1OE3ZqL7hW_oTuXNGJnf_3_BtBwSaOH0HkffwTwyG_$

------------------
Christopher Riesbeck (he/him/his)
Associate Professor, Computer Science, 
McCormick School of Engineering, Northwestern

Director, MS in Computer Science
Co-director, The Center for Computer Science and Learning Sciences

Home page: https://users.cs.northwestern.edu/~riesbeck
Calendar: https://users.cs.northwestern.edu/~riesbeck/calendar-weekly.html

Re: Set the initial package of a listener-pane?

Thanks! I'll try it.

> On Aug 27, 2020, at 11:54 AM, Nick Levine <nick@nicklevine.org> wrote:
> 
> It’s been a while since I tried this. Used to work, back in the day
> 
> - nick
> 
> (defadvice (capi::interactive-pane-top-loop set-mumble-package :before) (top-level istream)
>  ;; Set this to the package you'd like the listener to come up in, while working
>  ;; on your library
>  (setf *package* (find-package "MY-PACKAHE”)))
> 
>> On 27 Aug 2020, at 17:26, mikel evins (as mevins at me dot com) <lisp-hug@lispworks.com> wrote:
>> 
>> I would like to start a listener-pane in a package other than CL-USER. I imagine the documentation must tell us how to do that, but I'm not finding it.
>> 
>> I'm building a CAPI client UI for a system that provides a console onto a system implemented in Lisp. There's a package that provides a bunch of user conveniences for the console, and of course it's very easy to say (in-package :my-convenience-package), but for customer friendliness, I want to start that listener in the convenience package. 
>> 
>> How do I do that?
>> 
>> 
>> 
>> _______________________________________________
>> Lisp Hug - the mailing list for LispWorks users
>> lisp-hug@lispworks.com
>> http://www.lispworks.com/support/lisp-hug.html


_______________________________________________
Lisp Hug - the mailing list for LispWorks users
lisp-hug@lispworks.com
http://www.lispworks.com/support/lisp-hug.html

Re: Set the initial package of a listener-pane?

Mike,

Have also forwarded reply to the list. Always useful to share the info!

- nick

> On 27 Aug 2020, at 17:56, mikel evins <mevins@me.com> wrote:
> 
> Thanks! I'll try it.
> 
>> On Aug 27, 2020, at 11:54 AM, Nick Levine <nick@nicklevine.org> wrote:
>> 
>> It’s been a while since I tried this. Used to work, back in the day
>> 
>> - nick
>> 
>> (defadvice (capi::interactive-pane-top-loop set-mumble-package :before) (top-level istream)
>> ;; Set this to the package you'd like the listener to come up in, while working
>> ;; on your library
>> (setf *package* (find-package "MY-PACKAHE”)))
>> 
>>>> On 27 Aug 2020, at 17:26, mikel evins (as mevins at me dot com) <lisp-hug@lispworks.com> wrote:
>>> 
>>> I would like to start a listener-pane in a package other than CL-USER. I imagine the documentation must tell us how to do that, but I'm not finding it.
>>> 
>>> I'm building a CAPI client UI for a system that provides a console onto a system implemented in Lisp. There's a package that provides a bunch of user conveniences for the console, and of course it's very easy to say (in-package :my-convenience-package), but for customer friendliness, I want to start that listener in the convenience package. 
>>> 
>>> How do I do that?
>>> 
>>> 
>>> 
>>> _______________________________________________
>>> Lisp Hug - the mailing list for LispWorks users
>>> lisp-hug@lispworks.com
>>> http://www.lispworks.com/support/lisp-hug.html
> 

_______________________________________________
Lisp Hug - the mailing list for LispWorks users
lisp-hug@lispworks.com
http://www.lispworks.com/support/lisp-hug.html

Updated at: 2020-12-10 08:28 UTC