src/attributes/numbers.lisp

   1 (in-package :lisp-on-lines)
   2
   3 (defattribute number-attribute (base-attribute)
   4   ()
   5   (:type-name number))
   6
   7 ;;;; INTEGER
   8 (defattribute integer-attribute (number-attribute)
   9   ()
  10   (:type-name integer))
  11
  12
  13 (define-layered-method (setf attribute-value) ((value string) object (attribute integer-attribute))
  14   (let ((*read-eval* nil))
  15     (unless (string= "" value)
  16       (let ((value (read-from-string value)))
  17         (when (numberp value)
  18           (setf (attribute-value object attribute) value))))))
  19
  20 ;;;; REALS
  21
  22 (defattribute real-attribute (number-attribute)
  23   ()
  24   (:type-name real))
  25
  26 (define-layered-method (setf attribute-value) ((value string) object (attribute real-attribute))
  27   (let ((*read-eval* nil))
  28     (unless (string= "" value)
  29       (let ((value (read-from-string value)))
  30         (when (numberp value)
  31           (setf (attribute-value object attribute) value))))))
  32
  33
  34 ;;;; Currency
  35 (defattribute currency-attribute (real-attribute)
  36   ()
  37   (:type-name currency))
  38
  39 (defdisplay
  40    ((currency currency-attribute) object)
  41  (<:as-html "$")
  42  (call-next-method))
  43
  44 (defdisplay :in-layer editor
  45    ((currency currency-attribute) object)
  46     (<:as-html "$")
  47     (<:input
  48      :type "text"
  49      :id (id currency)
  50      :name (callback currency)
  51      :value (format nil "~$" (or (attribute-value object currency) ""))))