 
 ;;; Code:
 
-(require 'cl)
+(require 'cl-lib)
 (require 'json)
 (require 'simple-httpd)
 (require 'elfeed-db)

       (when (elfeed-search-filter filter entry feed)
         (setf (cdr tail) (list entry)
               tail (cdr tail))
         (when (< (decf count) 0)
           (elfeed-db-return))))
     (princ (json-encode
             (coerce (mapcar #'elfeed-web-for-json (cdr results)) 'vector))))))

(defvar elfeed-web-waiting ()
  "Clients waiting for an update.")

            (when (string= webid (elfeed-web-make-webid entry))
              (setf (gethash webid elfeed-web-webid-map)
                    (elfeed-db-return entry))))
          (cl-loop for feed hash-values of elfeed-db-feeds
                   when (string= (elfeed-web-make-webid feed) webid)
                   return (setf (gethash webid elfeed-web-webid-map) feed))))))

(defun elfeed-web-for-json (thing)
  "Prepare THING for JSON serialization."
  (cl-etypecase thing
    (elfeed-entry
     (list :webid        (elfeed-web-make-webid thing)
           :title        (elfeed-entry-title thing)
