Clean up.

SvenMichaelKlose · Jan 21, 2025 · c3d51c2 · c3d51c2
1 parent 5fb454f
commit c3d51c2
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 10 deletions.
diff --git a/modules/lml/autoform.lisp b/modules/lml/autoform.lisp
@@ -6,9 +6,7 @@
          *autoform-widgets*))
 
 (defmacro def-editable-autoform-widget (args predicate &body body)
-  `(push {:predicate ,predicate
-          :maker     #'(,args ,@body)}
-         *autoform-widgets*))
+  `(def-autoform-widget ,args ,predicate ,@body))
 
 (macro autoform-fn (name (schema data &optional key) &rest body)
   `(progn
@@ -55,15 +53,11 @@
                               :widgets  ,widgets)]
           data)))
 
-(fn autoform-i18n (x)
-  (? (json-object? x)
-     x.en
-     x))
-
 (autoform-fn autoform-property (schema data)
   (!= (aref schema.properties props.key)
     `(label :class "autoform-property"
-       (span ,(| (autoform-i18n !.title) props.key))
+       (span ,(| (i18n !.title)
+                 props.key))
        (autoform-field :key      ,props.key
                        :schema   ,!
                        :data     ,data

diff --git a/modules/lml/i18n.lisp b/modules/lml/i18n.lisp
@@ -1,4 +1,4 @@
 (fn i18n (x)
   (? (object? x)
-     (ref x (downcase (symbol-name *language*)))
+     (ref x (downcase (symbol-name (car (ensure-list *language*)))))
      x))