Update of /project/clim-desktop/cvsroot/clim-desktop In directory clnet:/tmp/cvs-serv22906

Modified Files: packages.lisp closure.lisp clhs-lookup.lisp Log Message: Fixed Closure patch and added symbol documentation lookup for CLX.

--- /project/clim-desktop/cvsroot/clim-desktop/packages.lisp 2006/07/27 21:59:35 1.2 +++ /project/clim-desktop/cvsroot/clim-desktop/packages.lisp 2006/07/28 10:56:51 1.3 @@ -7,7 +7,8 @@ (:export :symbol-lookup :populate-table :spec-lookup - :climspec-lookup)) + :climspec-lookup + :clxdoc-lookup))

(cl:defpackage :abbrev (:use :cl :split-sequence) --- /project/clim-desktop/cvsroot/clim-desktop/closure.lisp 2006/07/27 21:59:36 1.2 +++ /project/clim-desktop/cvsroot/clim-desktop/closure.lisp 2006/07/28 10:56:51 1.3 @@ -44,7 +44,10 @@ (url (or (clhs-lookup:spec-lookup name) (when (eq (symbol-package symbol) (find-package :clim)) - (clhs-lookup:climspec-lookup symbol))))) + (clhs-lookup:climspec-lookup symbol)) + (when (eq (symbol-package symbol) + (find-package :xlib)) + (clhs-lookup:clxdoc-lookup symbol))))) (if (null url) (esa:display-message "Symbol not found.") (closure:visit url)))) @@ -84,7 +87,9 @@ proxyp) (not (member :host header :test #'string-equal :key #'car))) ;; FIX: - (list (cons "Host" (format nil "~A:~A" host (url:url-port url)))) + (if (and (numberp (url:url-port url)) (not (= (url:url-port url) 80))) + (list (cons "Host" (format nil "~A:~A" host (url:url-port url)))) + (list (cons "Host" host))) nil) (if *referer* (list (cons "Referer" (if (url:url-p *referer*) --- /project/clim-desktop/cvsroot/clim-desktop/clhs-lookup.lisp 2006/07/27 21:59:36 1.4 +++ /project/clim-desktop/cvsroot/clim-desktop/clhs-lookup.lisp 2006/07/28 10:56:51 1.5 @@ -241,5 +241,9 @@ ;; HACK: Unclean. Just opens the apropos page. (format nil "http://bauhh.dyndns.org:8000/clim-spec/edit/apropos?q=~A" term))

+(defun clxdoc-lookup (term) + ;; HACK: Unclean. Just opens the apropos page. + (format nil "~A~A" "http://www.stud.uni-karlsruhe.de/~unk6/clxman/doc-index.cgi?q=" term)) + (defun symbol-lookup (term) (spec-lookup term :type :symbol))