select-display-size ( select -- n )

Vocabulary

html5

Inputs

select

an object

Outputs

n

an object

Definition

USING: accessors assocs kernel math.parser sequences
sequences.extras strings ;

IN: html5

: select-display-size ( select -- n )
    attributes>> "size" of [
        [ html-space? ] trim-head dup ?first 43 = [ rest ] when
        [ ascii-digit? ] take-while >string string>number
    ] [ f ] if* [ ] [ 1 ] if* ;