Paginate collection

  (defn paginate                                                                                                                                              
    ([coll] (paginate 1 coll))                                                                                                                                
    ([n coll] (paginate 25 n coll))                                                                                                                           
    ([per-page n coll]                                                                                                                                        
     (let [partitioned (vec (partition-all per-page coll))                                                                                                    
           page (or n 1)]                                                                                                                                     
       (some-> (get partitioned (dec page))                                                                                                                   
               (with-meta (let [page-count (count partitioned)]                                                                                               
                            #:pagination{:total-count (count coll)                                                                                            
                                         :page-count page-count                                                                                               
                                         :has-next? (< page page-count)                                                                                       
                                         :has-previous? (> page 1)                                                                                            
                                         :current-page page}))))))