#3 Auxlists mostly working

Problems: generating some wrong fieldnames in HugSQL, apparently through not using (safe-name x :sql); not using the right views where multiple links from one entity to another; not getting distinction between many-to-many and one-to-many right.

src/adl/to_hugsql_queries.clj

@@ -298,7 +298,7 @@
                farkey (-> % :attrs :farkey)
                link-type (-> % :attrs :type)
                link-field (-> % :attrs :name)
-               query-name (list-related-query-name entity far-entity)
+               query-name (list-related-query-name far-entity entity)
                signature ":? :*"]
            (hash-map
              (keyword query-name)

src/adl/to_selmer_routes.clj

@@ -132,12 +132,13 @@
                                 :entity
                                 #(= (-> % :attrs :name) f-name))]
     (if (and (entity? entity) (entity? farside))
+      (list 'if (list 'all-keys-present? 'params (set (key-names entity true)))
             (hash-map
              (keyword (auxlist-data-name auxlist))
              (list
               (symbol (str "db/" (list-related-query-name entity farside)))
               'db/*db*
-        {:id (list :id 'params)}))
+              {:id (list :id 'params)})))
       (do
         (if-not
           (entity? entity)

src/adl/to_selmer_templates.clj

@@ -66,7 +66,6 @@
 
 (defn emit-content
   ([content]
-   (do-or-warn
      (cond
        (nil? content)
        nil
@@ -78,8 +77,7 @@
        (seq? content)
        (map emit-content (remove nil? content))
        true
-       (str "<!-- don't know what to do with '" content "' -->"))
+       (str "<!-- don't know what to do with '" content "' -->")))
-    (str "Failed while writing " content)))
   ([filename application k]
    (emit-content filename nil nil application k))
   ([filename spec entity application k]
@@ -375,6 +373,20 @@
                   "{% endif %}")))})
 
 
+(defn get-size-for-widget
+  "Return, as an integer, the fieldwidth for the input widget for this
+  `property`."
+  [property]
+  (let [s (try
+            (read-string
+             (:size (:attrs property)))
+            (catch Exception _ 16))]
+  (if
+   (not (integer? s))
+   16
+   s)))
+
+
 (defn compose-input-widget-para
   "Generate an input widget for this `field-or-property` of this `form` for
   this `entity` taken from within this `application`, in context of a para
@@ -391,17 +403,8 @@
                :name widget-name
                :type w-type
                :value (str "{{record." widget-name "}}")
-               :maxlength (:size (:attrs property))
+               :maxlength (str (max (get-size-for-widget property) 16))
-               :size (cond
+               :size (str (min (get-size-for-widget property) 60))}
-                      (nil? (:size (:attrs property)))
-                      "16"
-                      (try
-                        (> (read-string
-                            (:size (:attrs property))) 60)
-                        (catch Exception _ false))
-                      "60"
-                      true
-                      (:size (:attrs property)))}
               ;; TODO: should match pattern from typedef
               (if
                 (:minimum (:attrs typedef))
@@ -480,10 +483,12 @@
 
 
 (defn edit-link
-  [entity application parameters]
+  [source entity application parameters]
   (str
     "{{servlet-context}}/"
-    (editor-name entity application)
+    (or
+     (-> source :attrs :onselect)
+     (editor-name entity application))
     "?"
     (s/join
       "&amp;"
@@ -495,7 +500,7 @@
 
 (defn list-tbody
   "Return a table body element for the list view for this `list-spec` of
-  this `entity` within this `application`, using data from this source."
+  this `entity` within this `application`, using data from this `source`."
   [source list-spec entity application]
   {:tag :tbody
    :content
@@ -504,6 +509,8 @@
      :content
      (apply
       vector
+      (remove
+       nil?
        (concat
         (map
          (fn [field]
@@ -525,7 +532,11 @@
                 (= (:type (:attrs p)) "entity")
                 [{:tag :a
                   :attrs {:href (edit-link
-                                  e
+                                 source
+                                 (child-with-tag
+                                  application
+                                  :entity
+                                  #(= (-> % :attrs :name)(-> p :attrs :entity)))
                                  application
                                  (list (:name (:attrs p))))}
                   :content [(str "{{ record." s "_expanded }}")]}]
@@ -533,10 +544,14 @@
          (children-with-tag list-spec :field))
         [{:tag :td
           :content
-          [{:tag :a
+          [(if
+             (or (= (:tag list-spec) :form)
+                 (-> list-spec :attrs :onselect))
+             {:tag :a
               :attrs
-     {:href (edit-link entity application (key-names entity))}
+              {:href (edit-link source entity application (key-names entity))}
-     :content ["View"]}]}]))}
+              :content ["View"]}
+             "&nbsp;")]}])))}
     "{% endfor %}"]})
 
 
@@ -559,7 +574,17 @@
       {:tag :div
        :attrs {:class "auxlist"}
        :content
-       [{:tag :h2
+       (apply
+        vector
+        (remove
+         nil?
+         (flatten
+          (list
+           ;; only show auxlists if we've got keys
+           (str "{% if all "
+                (s/join " " (map #(str "params." %) (key-names entity)))
+                " %}")
+          {:tag :h2
            :content [(prompt auxlist form entity application)]}
           {:tag :table
            :content
@@ -569,6 +594,8 @@
                :content
                (apply
                 vector
+                (remove
+                 nil?
                  (flatten
                   (list
                    (map
@@ -576,12 +603,25 @@
                       :tag :th
                       :content [(prompt % form entity application)])
                     (children-with-tag auxlist :field))
-                   {:tag :th :content ["&nbsp;"]})))}]}
+                   {:tag :th :content ["&nbsp;"]}))))}]}
             (list-tbody
              (auxlist-data-name auxlist)
              auxlist
              farside
-           application)]}]})))
+             application)]}
+          (if
+            (= (-> auxlist :attrs :canadd) "true")
+            (wrap-in-if-member-of
+             (big-link (str
+                        "Add a new "
+                        (pretty-name property))
+                       (editor-name farside application))
+             :writeable
+             farside
+             application)
+            )
+           "{% endif %}"
+            ))))})))
 
 
 (defn compose-form-auxlists
@@ -1031,11 +1071,12 @@
          (if
            (pos? *verbosity*)
            (*warn* "\tGenerated " filepath))
-         (str filepath))))))
+         (str filepath))
+       (str "While generating " filepath)))))
 
 
 ;; (def a (x/parse "../youyesyet/youyesyet.canonical.adl.xml"))
-;; (def e (child-with-tag a :entity))
+;; (def e (child-with-tag a :entity #(= (-> % :attrs :name) "teams")))
 ;; (def f (child-with-tag e :form))
 ;; (write-template-file "froboz" (form-to-template f e a) a)
 ;; (def t (form-to-template f e a))