Alright, so I shall post news here to reassure whoever is following
that stuff is happening! Actually, its mainly to
state that I'm going to do something and then, as a result of stating
it publicly, actually encouraging me to develop faster. Well one of
them anyways:)
K, so one of my goals is to make developing easier so that it makes
contributing easier. To that goal, i have made, one must make the
supposedly easy rather trivial. This includes key bindings, menu
items, etc. So i have added a preliminary macro abstraction which
generates xml for plugin.xml which I can just paste in. As I now
continue to develop the areas described below, this will expand. Right
now, heres a sample:
;;create xml
(with-xml 2
;;creation of key binding
(ecommand :name "Key Handle" :id "rcp.KeyHandle" :defaultHandler
"rcp.KeyHandle")
(easy-key-bind "Ctrl+R" :window "rcp.KeyHandle")
;;creation of menu and menu item
(ecommand :name "Exit" :id "rcp.exit" :defaultHandler
"rcp.ExitHandle")
(easy-menu "File" ["fileMenu" :main]
("Exit" "rcp.exit" :tooltip "Exit Application")
(separator :visible true)))
;;create classes
(ns rcp.test-handlers
(:import (org.eclipse.ui.handlers HandlerUtil))
(:use rcp.handlers))
(new-handler-class rcp.ExitHandle event
(.close (HandlerUtil/getActiveWorkbenchWindow event)))
(new-handler-class rcp.KeyHandle event
(println event))
Anyways, so the following you should expect very soon (like tomorrow
at night some time:))
-Completion of LispSwankLoader which will basically involve changing
this
http://github.com/jochu/swank-clojure
into a client.
In addition, I have to make some minor changes to the current lisp
loading/swank loading and waiting. Really minor. For those interested,
this is currently what the code is to launch lisp and wait for swank
to load.
(let [lisp (new-lisp :sbcl
"C:/Program Files/Steel Bank Common Lisp/1.0.29/sbcl.exe"
'("--core" "C:/Program Files/Steel Bank Common Lisp/
1.0.29/asdf/sbcl.core")
'("SBCL_HOME" "C:/Program Files/Steel Bank Common Lisp/
1.0.29/"))
swank (new-swank :sbcl "(load \"C:/Seth/slime/swank-loader.lisp
\")" 4040)]
(.join (second (launch lisp swank))))