Fix paste order
							parent
							
								
									a2a1a51765
								
							
						
					
					
						commit
						bb9d24c18a
					
				| 
						 | 
				
			
			@ -2,8 +2,8 @@
 | 
			
		|||
! See http://factorcode.org/license.txt for BSD license.
 | 
			
		||||
USING: namespaces assocs sorting sequences kernel accessors
 | 
			
		||||
hashtables sequences.lib db.types db.tuples db combinators
 | 
			
		||||
calendar calendar.format math.parser syndication urls xml.writer
 | 
			
		||||
xmode.catalog validators
 | 
			
		||||
calendar calendar.format math.parser math.order syndication urls
 | 
			
		||||
xml.writer xmode.catalog validators
 | 
			
		||||
html.forms
 | 
			
		||||
html.components
 | 
			
		||||
html.templates.chloe
 | 
			
		||||
| 
						 | 
				
			
			@ -58,7 +58,9 @@ TUPLE: paste < entity annotations ;
 | 
			
		|||
        swap >>id ;
 | 
			
		||||
 | 
			
		||||
: pastes ( -- pastes )
 | 
			
		||||
    f <paste> select-tuples ;
 | 
			
		||||
    f <paste> select-tuples
 | 
			
		||||
    [ [ date>> ] compare ] sort
 | 
			
		||||
    reverse ;
 | 
			
		||||
 | 
			
		||||
TUPLE: annotation < entity parent ;
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			@ -111,7 +113,7 @@ M: annotation entity-url
 | 
			
		|||
    <feed-action>
 | 
			
		||||
        [ pastebin-url ] >>url
 | 
			
		||||
        [ "Factor Pastebin" ] >>title
 | 
			
		||||
        [ pastes <reversed> ] >>entries ;
 | 
			
		||||
        [ pastes ] >>entries ;
 | 
			
		||||
 | 
			
		||||
! ! !
 | 
			
		||||
! PASTES
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue