|  | @@ -125,15 +125,12 @@
 | 
	
		
			
				|  |  |    (let [*ref-pages (::ref-pages state)
 | 
	
		
			
				|  |  |          page-id (:db/id page-entity)
 | 
	
		
			
				|  |  |          ref-blocks (db/get-referenced-blocks page-id)
 | 
	
		
			
				|  |  | -        _ (prn :debug :ref-blocks ref-blocks)
 | 
	
		
			
				|  |  |          aliases (db/page-alias-set repo page-id)
 | 
	
		
			
				|  |  |          aliases-exclude-self (set (remove #{page-id} aliases))
 | 
	
		
			
				|  |  |          top-level-blocks (filter (fn [b] (some aliases (set (map :db/id (:block/refs b))))) ref-blocks)
 | 
	
		
			
				|  |  |          top-level-blocks-ids (set (map :db/id top-level-blocks))
 | 
	
		
			
				|  |  |          filtered-ref-blocks (->> (block-handler/filter-blocks ref-blocks filters)
 | 
	
		
			
				|  |  |                                   (block-handler/get-filtered-ref-blocks-with-parents ref-blocks))
 | 
	
		
			
				|  |  | -        _ (prn :debug :ref-blocks ref-blocks
 | 
	
		
			
				|  |  | -               :filtered-ref-blocks filtered-ref-blocks)
 | 
	
		
			
				|  |  |          total (count top-level-blocks)
 | 
	
		
			
				|  |  |          filtered-top-blocks (filter (fn [b] (top-level-blocks-ids (:db/id b))) filtered-ref-blocks)
 | 
	
		
			
				|  |  |          filter-n (count filtered-top-blocks)
 |