 ;;(clojure.string/replace (join "," row) #"(.*),(.*?$)" "$1 $2"))
 
 (defn handle-multimodplldisplay4
-  "In this version pivot/keyset can be generalized beyond png any col (eventually any sequence of cols) between col-1 and token column. Need to find out hosw to 'presort' cols before initial display."
+  "In this version pivot/keyset can be generalized beyond png any col (eventually any sequence of cols) between col-1 and token column. (Need to find out how to 'presort' cols before initial display?)"
   [pdgms headerset2 pdgmstr2 pivotname]
   (let [pnamestr (clojure.string/replace pdgms #"[\[\]\"]" "")
         pnames (split pnamestr #" ")

      "goog.require('webapp.core');"])))

(defn pstring2map2
  "Takes pivot property out of comma-separated properties in pdgm string, and arranges the rest as a set of {:property-list 'token'} maps"
  [pdgm pivot]
  (let [pdgm1 (clojure.string/replace pdgm #"^\\r\\n.*?," "") ;; initial pivot out
        pdgm2 (clojure.string/replace pdgm1 #"(\\r\\n).*?," "$1") ;; other pivots out

     [:body
      [:h3 "Parallel Display of Paradigms:" ]
      [:p "Click on column to sort (multiple sort by holding down shift key). Columns can be dragged by clicking and holding on 'drag-bar' at top of column."]
     [:p "Paradigms:"
      [:ol
      (for [pname pnames]
