Ebib: filter recently added entries (updated for Ebib 2.1)

ebib-filter-n-days.el

(defun ebib-filter-n-days (n)
  "Filter entries added in the last n days"

  (let* ((field "timestamp")
         (day-of-year (string-to-number (format-time-string "%j")))
         (n-days-ago (- day-of-year (- n 1)))
         (days-between (number-sequence n-days-ago day-of-year))
         (regexp-days-between (mapconcat (lambda (x)
                                           (concat "\\(" (number-to-string x) "d\\)"))
                                         days-between "\\|")))

    (ebib--execute-when
     ((real-db)
      (ebib-db-set-filter `(contains ,field ,regexp-days-between) ebib--cur-db)
      (ebib--redisplay)))))

(defun ebib-filter-added-nth (key)
  (interactive (list (if (featurep 'xemacs)
                         (event-key last-command-event)
                       last-command-event)))
  (ebib-filter-n-days (- (if (featurep 'xemacs)
                             (char-to-int key)
                           key) 48)))

(mapc #'(lambda (key)
          (define-key ebib-filters-map (format "%d" key)
            'ebib-filter-added-nth))
      '(1 2 3 4 5 6 7 8 9))

This gist is the code from Ebib issue #24.