+# --- world-brief PLANET ---
+#
+# Return a very brief summary string for PLANET.
+
+proc world-brief {s} {
+ global gv ec
+ elite-worldinfo p $s
+ return [format "%-8s (%s, %s, %2d)" \
+ $p(name) $ec($p(economy)) $gv($p(government)) $p(techlevel)]
+}
+