(in-package :kira)

(defclass link (post)
  ())

(defmethod render-in-style ((link link) (style (eql 'html)))
  (whereas ((uri (external-uri link)))
    (html (:li (:a uri (render-title link))))))

(defmethod render-editor :before ((link link))
  (html (:field "URL" (text-field 'external-uri link))))