| Paste number 56187: | web-server.lisp |
| Pasted by: | Cin |
| 7 months, 2 weeks ago | |
| #lispcafe | Context in IRC logs | |
| Paste contents: |
| (list* (list "Overall" *pastes* (- (paste-universal-time (first *pastes*)) (paste-universal-time (car (last *pastes*))))) (list "Last 30 days" (remove-if #'(lambda (e) (< (paste-universal-time e) (- (get-universal-time) (* 60 60 24 30)))) *pastes*) (* 60 60 24 30)) (list "Last week" (remove-if #'(lambda (e) (< (paste-universal-time e) (- (get-universal-time) (* 60 60 24 7)))) *pastes*) (* 60 60 24 7)) (list "Last day" (remove-if #'(lambda (e) (< (paste-universal-time e) (- (get-universal-time) (* 60 60 24)))) *pastes*) (* 60 60 24)) |
Annotations for this paste:
| Annotation number 1: | pfst |
| Pasted by: | Cin |
| 7 months, 2 weeks ago | |
| Context in IRC logs | |
| Paste contents: |
| (let* ((remove/time (lambda (t) (remove-if #'(lambda (e) (< (paste-universal-time e) (- (get-universal-time) t))))) (day (* 60 60 24)) (week (* day 7)) (30-days (* day 30)) (overall (list "Overall" *pastes* ;; etc.. (last-30-days (list "Last 30 days" (remove/time 30-days) 30-days)) (last-week (list "Last week" (remove/time week) week)) (last-day (list "Last day" (remove/time day) day))) (list* overall last-day last-week last-30-days)) |