src/standard-attributes.lisp

   1 (in-package :lisp-on-lines)
   2
   3 (defattribute image ()
   4   ())
   5
   6 (defdisplay (:description (image image))
   7   (<:img
   8    :class (or (getp :class) "lol-image")
   9    :src (arnesi:strcat
  10          (or (getp :prefix) "images/")
  11          (escape-as-uri
  12           (attribute-value object image)))))
  13
  14
  15
  16
  17
  18