mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

swank server start

Browse source
This commit is contained in:
David Botton 2024-05-01 13:45:13 -04:00
parent dacb43e9ce
commit e408e39983
1 changed files with 13 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

13
tools/clog-builder.lisp
View file

@ -402,6 +402,19 @@ clog-builder window.")
(declare (ignore obj))
(setf *open-external-with-emacs* (not *open-external-with-emacs*))
(setf (text-value exter) (exter-text))))))
(create-gui-menu-item opts :content "Start SWANK Server Once" :on-click
(lambda (obj)
(let ((*default-title-class* *builder-title-class*)
(*default-border-class* *builder-border-class*))
(input-dialog obj "Port ID"
(lambda (result)
(swank:create-server :port (js-to-integer result) :dont-close nil)
(let ((*default-title-class* *builder-title-class*)
(*default-border-class* *builder-border-class*))
(alert-dialog obj (format nil "Use slime-connect on emacs or on a REPL to port ~A"
result)
:title "SWANK Started (One time connect)")))
:placeholder-value "4005" :default-value "4005" :title "Start SWANK Server"))))
(create-gui-menu-item opts :content "Update CLOG Builder" :on-click 'on-update-clog)
;; Menu -> Windows
(create-gui-menu-item win :content "Maximize" :on-click