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 (defattribute integer-attribute (number-attribute integer-field)
  13   ()
  14   (:in-layer editor)
  15   (:default-initargs
  16       :default-value ""
  17     :default-value-predicate (complement #'numberp))
  18   (:type-name integer))
  19
  20
  21 (define-layered-method (setf attribute-value) ((value string) object (attribute integer-attribute))
  22   (let ((*read-eval* nil))
  23     (unless (string= "" value)
  24       (let ((value (read-from-string value)))
  25         (when (numberp value)
  26           (setf (attribute-value object attribute) value))))))
  27
  28 ;;;; REALS
  29
  30 (defattribute real-attribute (number-attribute)
  31   ()
  32   (:type-name real))
  33
  34 (define-layered-method (setf attribute-value) ((value string) object (attribute real-attribute))
  35   (let ((*read-eval* nil))
  36     (unless (string= "" value)
  37       (let ((value (read-from-string value)))
  38         (when (numberp value)
  39           (setf (attribute-value object attribute) value))))))
  40
  41
  42 ;;;; Currency
  43 (defattribute currency-attribute (real-attribute)
  44   ()
  45   (:type-name currency))
  46
  47
  48 (defdisplay :in-layer editor
  49    ((currency currency-attribute) object)
  50     (<:as-html "$")
  51     (<:input
  52      :type "text"
  53      :id (id currency)
  54      :name (callback currency)
  55      :value (format nil "~$" (or (attribute-value object currency) ""))))