 
         [
             [
-                "id" value <paste> delete-tuples
+                "id" value <paste-state> delete-tuples
                 "id" value f <annotation> delete-tuples
             ] with-transaction
             pastebin-url <redirect>

        ] >>validate

        [
            f <paste>
            [ deposit-entity-slots ]
            [ insert-tuple ]
            [ id>> paste-url <redirect> ]


M: entity feed-entry-url entity-url ;

TUPLE: paste-state < entity annotations ;

\ paste-state "PASTES" { } define-persistent

: <paste-state> ( id -- paste )
    \ paste-state new
        swap >>id ;

: pastes ( -- pastes )
    f <paste-state> select-tuples
    [ date>> ] sort-with
    reverse ;

