[slime-devel] Allegro Doc Lookup

This is a (dirty) little hack to open the allegro docs from within Slime:

(defun allegro-doc-lookup (symbol) (interactive (list (slime-read-symbol-name "Allegro Doc for: "))) (slime-eval-async `(cg:eval-in-listener-thread '(cl:let ((wnd (cl:make-instance 'cg:text-edit-window :name :get-help :owner (cg:screen cg:*system*) :state :shrunk :border :frame))) (cl:format (cg:frame-child wnd) "~a" ',symbol) (devel::windows-help-command wnd) (cl:close wnd)))))

I didn't know where to integrate this in Slime (if even) so I thought this would be the best place to post it to.

-ts