You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
16 lines
574 B
16 lines
574 B
;;;; 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))
|
|
|