[clim-desktop-cvs] CVS clim-desktop

[thenriksen]

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))