search.lisp

;;;; search.lisp

(in-package #:cl-bible.search)

(defun find-in-bible (bible phrase)
  (remove-if-not (lambda (verse) (search phrase
                                         (v:get-text verse)))
                 bible))

(defun find-book (bible book)
  (remove-if-not (lambda (verse) (search book (v:bname verse))) bible))

(defun find-chapter (book chapter)
  (remove-if-not (lambda (verse) (string= chapter (v:chapter verse))) book))