<element-button> ( atomic-number/f -- element )

Vocabulary

periodic-table

Inputs

atomic-number/f

an object

Outputs

element

an object

Definition

USING: kernel math sequences ui.gadgets.buttons webbrowser ;

IN: periodic-table

: <element-button> ( atomic-number/f -- element )
    [ <element> ] keep [
        1 - elements nth
        second "https://en.wikipedia.org/wiki/" prepend
        [ [ drop ] ] dip [ open-url ] curry compose
        <roll-button>
    ] when* ;