     [ f ] dip <annotation> select-tuple ;
 
 : paste ( id -- paste )
-    [ <paste> select-tuple ]
+    [ <paste-state> select-tuple ]
     [ f <annotation> select-tuples ]
     bi >>annotations ;
 


        [
            [
                "id" value <paste> delete-tuples
                "id" value f <annotation> delete-tuples
            ] with-transaction
            pastebin-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 ;

