- bknr-cvs@common-lisp.net - mailman3.common-lisp.net

[bknr-cvs] hans changed trunk/thirdparty/slime/contrib/s
by BKNR Commits 05 Sep '08

05 Sep '08

Revision: 3810 Author: hans URL: http://bknr.net/trac/changeset/3810 add new files to slime A trunk/thirdparty/slime/contrib/slime-clipboard.el A trunk/thirdparty/slime/contrib/slime-fontifying-fu.el A trunk/thirdparty/slime/contrib/slime-mdot-fu.el A trunk/thirdparty/slime/contrib/slime-package-fu.el A trunk/thirdparty/slime/contrib/swank-clipboard.lisp A trunk/thirdparty/slime/contrib/swank-package-fu.lisp Change set too large, please see URL above

1 0

[bknr-cvs] hans changed trunk/thirdparty/slime/
by BKNR Commits 05 Sep '08

05 Sep '08

Revision: 3809 Author: hans URL: http://bknr.net/trac/changeset/3809 Update slime, hoping that it fixes SBCL problems. U trunk/thirdparty/slime/CVS/Entries U trunk/thirdparty/slime/ChangeLog U trunk/thirdparty/slime/NEWS U trunk/thirdparty/slime/contrib/CVS/Entries U trunk/thirdparty/slime/contrib/ChangeLog U trunk/thirdparty/slime/contrib/slime-asdf.el U trunk/thirdparty/slime/contrib/slime-fancy.el U trunk/thirdparty/slime/contrib/slime-fuzzy.el U trunk/thirdparty/slime/contrib/slime-indentation.el U trunk/thirdparty/slime/contrib/slime-presentations.el U trunk/thirdparty/slime/contrib/slime-typeout-frame.el U trunk/thirdparty/slime/contrib/swank-arglists.lisp U trunk/thirdparty/slime/contrib/swank-listener-hooks.lisp U trunk/thirdparty/slime/doc/CVS/Entries U trunk/thirdparty/slime/metering.lisp U trunk/thirdparty/slime/slime.el U trunk/thirdparty/slime/swank-abcl.lisp U trunk/thirdparty/slime/swank-allegro.lisp U trunk/thirdparty/slime/swank-backend.lisp U trunk/thirdparty/slime/swank-clisp.lisp U trunk/thirdparty/slime/swank-cmucl.lisp U trunk/thirdparty/slime/swank-ecl.lisp U trunk/thirdparty/slime/swank-gray.lisp U trunk/thirdparty/slime/swank-lispworks.lisp U trunk/thirdparty/slime/swank-loader.lisp U trunk/thirdparty/slime/swank-openmcl.lisp U trunk/thirdparty/slime/swank-sbcl.lisp U trunk/thirdparty/slime/swank-scl.lisp U trunk/thirdparty/slime/swank.lisp U trunk/thirdparty/slime/test.sh Change set too large, please see URL above

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/payment-website/templates/
by BKNR Commits 05 Sep '08

05 Sep '08

Revision: 3808 Author: ksprotte URL: http://bknr.net/trac/changeset/3808 updated satmap text in de and en (da displays en) U trunk/projects/bos/payment-website/templates/da/satmap.xml U trunk/projects/bos/payment-website/templates/de/satmap.xml U trunk/projects/bos/payment-website/templates/en/satmap.xml Modified: trunk/projects/bos/payment-website/templates/da/satmap.xml =================================================================== --- trunk/projects/bos/payment-website/templates/da/satmap.xml 2008-09-05 13:14:20 UTC (rev 3807) +++ trunk/projects/bos/payment-website/templates/da/satmap.xml 2008-09-05 13:37:11 UTC (rev 3808) @@ -56,9 +56,12 @@ </tr> <tr> <td colspan="3"> - Wenn die <a href='http://earth.google.de/' target='_blank' shape='rect' class='titlegreen'>Google Earth Software</a> - auf Ihrem Computer installiert ist, können Sie sich das Projektgebiet mit einer Auswahl verschiedener - Satelliten Bilder (aus dem Zeitraum 2000 - 2007) und vielen weiteren Informationen anschauen. + If the Google Earth Software + <a href='http://earth.google.de/' target='_blank' shape='rect' class='titlegreen'>http://earth.google.de/</a> + is installed on your computer, you can view the project area with + satellite images from 2002 and 2007 plus a lot of additional + information. For an optimal viewing experience, you can also use the + above link to upgrade your Google Earth installation if needed. </td> </tr> <tr> Modified: trunk/projects/bos/payment-website/templates/de/satmap.xml =================================================================== --- trunk/projects/bos/payment-website/templates/de/satmap.xml 2008-09-05 13:14:20 UTC (rev 3807) +++ trunk/projects/bos/payment-website/templates/de/satmap.xml 2008-09-05 13:37:11 UTC (rev 3808) @@ -56,9 +56,13 @@ </tr> <tr> <td colspan="3"> - Wenn die <a href='http://earth.google.de/' target='_blank' shape='rect' class='titlegreen'>Google Earth Software</a> - auf Ihrem Computer installiert ist, können Sie sich das Projektgebiet mit einer Auswahl verschiedener - Satelliten Bilder (aus dem Zeitraum 2000 - 2007) und vielen weiteren Informationen anschauen. + Wenn die Google Earth Software + <a href='http://earth.google.de/' target='_blank' shape='rect' class='titlegreen'>http://earth.google.de/</a> + auf Ihrem Computer installiert ist, können Sie sich das + Projektgebiet mit Satelliten-Bildern aus dem Jahr 2002 und + 2007 sowie vielen weiteren Informationen anschauen. Für + eine optimale Darstellung, können Sie Google Earth über + den gleichen Link gegebenenfalls auch updaten. </td> </tr> <tr> Modified: trunk/projects/bos/payment-website/templates/en/satmap.xml =================================================================== --- trunk/projects/bos/payment-website/templates/en/satmap.xml 2008-09-05 13:14:20 UTC (rev 3807) +++ trunk/projects/bos/payment-website/templates/en/satmap.xml 2008-09-05 13:37:11 UTC (rev 3808) @@ -56,9 +56,12 @@ </tr> <tr> <td colspan="3"> - Wenn die <a href='http://earth.google.de/' target='_blank' shape='rect' class='titlegreen'>Google Earth Software</a> - auf Ihrem Computer installiert ist, können Sie sich das Projektgebiet mit einer Auswahl verschiedener - Satelliten Bilder (aus dem Zeitraum 2000 - 2007) und vielen weiteren Informationen anschauen. + If the Google Earth Software + <a href='http://earth.google.de/' target='_blank' shape='rect' class='titlegreen'>http://earth.google.de/</a> + is installed on your computer, you can view the project area with + satellite images from 2002 and 2007 plus a lot of additional + information. For an optimal viewing experience, you can also use the + above link to upgrade your Google Earth installation if needed. </td> </tr> <tr>

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/web/kml-
by BKNR Commits 05 Sep '08

05 Sep '08

Revision: 3807 Author: ksprotte URL: http://bknr.net/trac/changeset/3807 added a look-at key to kml-network-link that seems to work more reliably U trunk/projects/bos/web/kml-handlers.lisp U trunk/projects/bos/web/kml-utils.lisp Modified: trunk/projects/bos/web/kml-handlers.lisp =================================================================== --- trunk/projects/bos/web/kml-handlers.lisp 2008-09-05 13:00:13 UTC (rev 3806) +++ trunk/projects/bos/web/kml-handlers.lisp 2008-09-05 13:14:20 UTC (rev 3807) @@ -246,7 +246,15 @@ :hide-children nil) (kml-network-link (format nil "http://~a/country-stats?lang=~A" (website-host) lang) :name (dictionary-entry "Country-Stats" lang) - :hide-children nil)))))) + :hide-children nil + :look-at (lambda () + (with-element "LookAt" + (with-element "longitude" (text "8.297592139883164")) + (with-element "latitude" (text "49.89989439494514")) + (with-element "altitude" (text "0")) + (with-element "range" (text "5400715.913126094")) + (with-element "tilt" (text "0")) + (with-element "heading" (text "0")))))))))) (defmethod handle-object ((handler kml-root-dynamic-handler) (object sponsor)) (write-root-kml handler object)) @@ -273,14 +281,7 @@ :root-element "kml") (with-query-params ((lang "en")) (with-element "Document" - (with-element "name" (text "Country-Stats")) - (with-element "LookAt" - (with-element "longitude" (text "8.297592139883164")) - (with-element "latitude" (text "49.89989439494514")) - (with-element "altitude" (text "0")) - (with-element "range" (text "5400715.913126094")) - (with-element "tilt" (text "0")) - (with-element "heading" (text "0"))) + (with-element "name" (text "Country-Stats")) (with-element "Style" (attribute "id" "countryStatsStyle") (with-element "IconStyle" Modified: trunk/projects/bos/web/kml-utils.lisp =================================================================== --- trunk/projects/bos/web/kml-utils.lisp 2008-09-05 13:00:13 UTC (rev 3806) +++ trunk/projects/bos/web/kml-utils.lisp 2008-09-05 13:14:20 UTC (rev 3807) @@ -276,11 +276,13 @@ (with-element "bgColor" (text "00ffffff"))))) (defun kml-network-link (href &key rect lod name - fly-to-view hide-children) + fly-to-view hide-children + look-at) ;; http-query could be added to &key args (with-element "NetworkLink" (when name (with-element "name" (text name))) (when rect (kml-region rect lod)) + (when look-at (funcall look-at)) (when hide-children (kml-hide-children-style)) (when fly-to-view (with-element "flyToView" (text "1")))

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/web/kml-utils.lisp
by BKNR Commits 05 Sep '08

05 Sep '08

Revision: 3806 Author: ksprotte URL: http://bknr.net/trac/changeset/3806 bugfix: <?xml version="1.0" encoding="UTF-8"?> U trunk/projects/bos/web/kml-utils.lisp Modified: trunk/projects/bos/web/kml-utils.lisp =================================================================== --- trunk/projects/bos/web/kml-utils.lisp 2008-09-05 11:12:38 UTC (rev 3805) +++ trunk/projects/bos/web/kml-utils.lisp 2008-09-05 13:00:13 UTC (rev 3806) @@ -255,10 +255,11 @@ (defun kml-format-color (color &optional (opacity 255)) (format nil "~2,'0X~{~2,'0X~}" opacity (reverse color))) -(defmethod kml-link ((href string) &key http-query) +(defmethod kml-link ((href string) &key refresh-on-region http-query) (with-element "Link" (with-element "href" (text href)) - (with-element "viewRefreshMode" (text "onRegion")) + (when refresh-on-region + (with-element "viewRefreshMode" (text "onRegion"))) (when http-query (with-element "httpQuery" (text http-query))))) @@ -283,7 +284,7 @@ (when hide-children (kml-hide-children-style)) (when fly-to-view (with-element "flyToView" (text "1"))) - (kml-link href))) + (kml-link href :refresh-on-region (and rect t)))) (defun kml-lat-lon-box (rect &optional (element "LatLonBox")) (bind-nsew (bounding-box-lon-lat rect)

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/m2/m2.lisp
by BKNR Commits 05 Sep '08

05 Sep '08

Revision: 3805 Author: ksprotte URL: http://bknr.net/trac/changeset/3805 setf contract-download-only: ensure that we set it to either T or NIL U trunk/projects/bos/m2/m2.lisp Modified: trunk/projects/bos/m2/m2.lisp =================================================================== --- trunk/projects/bos/m2/m2.lisp 2008-09-05 10:27:56 UTC (rev 3804) +++ trunk/projects/bos/m2/m2.lisp 2008-09-05 11:12:38 UTC (rev 3805) @@ -330,6 +330,10 @@ (deftransaction contract-set-download-only-p (contract newval) (setf (contract-download-only contract) newval)) +(defmethod (setf contract-download-only) :around (newval (obj contract)) + "Ensures that NEWVAL is either T or NIL." + (call-next-method (if newval t nil) obj)) + (defmethod contract-fdf-pathname ((contract contract) &key language print) (when (and print (contract-download-only-p contract))

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/web/contract-tree.lisp
by BKNR Commits 05 Sep '08

05 Sep '08

Revision: 3804 Author: ksprotte URL: http://bknr.net/trac/changeset/3804 fixed: KML/Google Earth: Doppelklick auf m2-Gebiet links: Ausschnitt auf Bounding Rectangle der verkauften m2s - not dynamically computed, though. U trunk/projects/bos/web/contract-tree.lisp Modified: trunk/projects/bos/web/contract-tree.lisp =================================================================== --- trunk/projects/bos/web/contract-tree.lisp 2008-09-05 09:57:08 UTC (rev 3803) +++ trunk/projects/bos/web/contract-tree.lisp 2008-09-05 10:27:56 UTC (rev 3804) @@ -170,6 +170,14 @@ (rmcid (when rmcid (parse-integer rmcid))) (rmcpath (parse-path rmcpath))) (with-element "Document" + (when (null path) + ;; for the toplevel + (with-element "LookAt" + (with-element "longitude" (text "116.987378")) + (with-element "latitude" (text "-1.045410")) + (with-element "range" (text "2531")) + (with-element "tilt" (text "0")) + (with-element "heading" (text "0")))) (with-element "Style" (attribute "id" "contractPlacemarkIcon") (with-element "IconStyle"

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/web/kml-handlers.lisp
by BKNR Commits 05 Sep '08

05 Sep '08

Revision: 3803 Author: ksprotte URL: http://bknr.net/trac/changeset/3803 fixed: KML/Google Earth: Beide Sat-Ebenen gleichzeitig anw?\195?\164hlbar (checkbox statt radio) U trunk/projects/bos/web/kml-handlers.lisp Modified: trunk/projects/bos/web/kml-handlers.lisp =================================================================== --- trunk/projects/bos/web/kml-handlers.lisp 2008-09-05 09:50:47 UTC (rev 3802) +++ trunk/projects/bos/web/kml-handlers.lisp 2008-09-05 09:57:08 UTC (rev 3803) @@ -220,9 +220,6 @@ (with-element "Folder" (attribute "name" (dictionary-entry "Sat-Images" lang)) (attribute "open" "1") - (with-element "Style" - (with-element "ListStyle" - (with-element "listItemType" (text "radioFolder")))) (dolist (sat-layer (sort (copy-list (class-instances 'sat-layer)) #'< :key #'year)) (kml-network-link (format nil "http://~a/sat-root-kml?name=~A" (website-host) (name sat-layer))

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/web/kml-handlers.lisp
by BKNR Commits 05 Sep '08

05 Sep '08

Revision: 3802 Author: ksprotte URL: http://bknr.net/trac/changeset/3802 fixed: KML/Google Earth: Anflugkoordinaten so einstellen, da?\195?\159 in 11km H?\195?\182he ?\195?\188ber dem Projektgebiet begonnen wird U trunk/projects/bos/web/kml-handlers.lisp Modified: trunk/projects/bos/web/kml-handlers.lisp =================================================================== --- trunk/projects/bos/web/kml-handlers.lisp 2008-09-05 09:07:28 UTC (rev 3801) +++ trunk/projects/bos/web/kml-handlers.lisp 2008-09-05 09:50:47 UTC (rev 3802) @@ -211,12 +211,12 @@ (when contract (write-personalized-contract-placemark-kml contract lang)) (with-element "LookAt" - (with-element "longitude" (text "116.988156014724")) - (with-element "latitude" (text "-1.045791509671129")) + (with-element "longitude" (text "116.975859")) + (with-element "latitude" (text "-1.044691")) (with-element "altitude" (text "0")) - (with-element "range" (text "1134.262777389377")) + (with-element "range" (text "11000")) (with-element "tilt" (text "0")) - (with-element "heading" (text "1.391362238653075"))) + (with-element "heading" (text "0"))) (with-element "Folder" (attribute "name" (dictionary-entry "Sat-Images" lang)) (attribute "open" "1")

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/web/kml-handlers.lisp
by BKNR Commits 05 Sep '08

05 Sep '08

Revision: 3801 Author: ksprotte URL: http://bknr.net/trac/changeset/3801 fixed regexp in REPLACE-ALL-URL-HOSTS to also match a port if it is present U trunk/projects/bos/web/kml-handlers.lisp Modified: trunk/projects/bos/web/kml-handlers.lisp =================================================================== --- trunk/projects/bos/web/kml-handlers.lisp 2008-09-05 08:54:41 UTC (rev 3800) +++ trunk/projects/bos/web/kml-handlers.lisp 2008-09-05 09:07:28 UTC (rev 3801) @@ -89,7 +89,7 @@ (defun replace-all-url-hosts (string new-host) "Replaces all hostnames in STRING by NEW-HOST." - (ppcre:regex-replace-all #?r"((?:https?|ftp)://)\w+(?:\.\w+)*" string #?r"\1${new-host}")) + (ppcre:regex-replace-all #?r"((?:https?|ftp)://)\w+(?:\.\w+)*(?::\d+)?" string #?r"\1${new-host}")) (defun replace-lang-query-params (string new-lang) (ppcre:regex-replace-all #?r"(?i)(lang=)[a-z]{2,2}" string #?r"\1${new-lang}"))

1 0