17 lines
574 B
Common Lisp
17 lines
574 B
Common Lisp
;;;; search.lisp
|
|
|
|
(in-package #:cl-bible.search)
|
|
|
|
(defun find-in-bible (bible phrase)
|
|
(remove-if-not (lambda (verse) (search phrase
|
|
(cdr
|
|
(assoc cl-bible.data:*translation*
|
|
(v:translations 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))
|