silasfox/cl-bible
1
0
Fork 0
Code Issues 3 Pull Requests Projects 1 Releases Wiki Activity

You can change translations of a displayed chapter text.

Browse Source
This commit is contained in:
Silas Vedder 2022-06-16 21:46:47 +02:00
parent 26fca1d1e3
commit 1495b41247
7 changed files with 108 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
chapter.lisp Normal file
View File

@ -0,0 +1,57 @@
(in-package #:cl-bible.chapter)
(defun book/chapter-window (canvas title)
(let* ((win (window-content
(create-gui-window canvas
:title title
:height 400
:width 650)))
(mbar (create-gui-menu-bar win))
(drop-down (create-gui-menu-drop-down mbar :content "Translations")))
(values (create-div win)
drop-down)))
(defmacro translations-drop-down ()
`(progn
,@(mapcar
(lambda (translation)
`(labels ((verse-to-clog (verse)
(v:verse-to-clog verse
div
:translation ,(second translation)))
(hide-verse (verse) (setf (hiddenp verse) t))
(callback (obj)
(declare (ignore obj))
(mapc #'hide-verse display)
(setf display (mapcar #'verse-to-clog verses))))
(create-gui-menu-item drop-down
:content ,(first translation)
:on-click #'callback)))
d:*translations*)))
(defun display-chapter-or-book (canvas title verses)
(multiple-value-bind (div drop-down)
(book/chapter-window canvas title)
(flet ((verse-to-clog (verse)
(v:verse-to-clog verse
div
:translation d:*translation*)))
(let ((display (mapcar #'verse-to-clog verses)))
(translations-drop-down)))))
(defun load-chapter (canvas book chapter)
(display-chapter-or-book canvas
(format nil "~A: ~A ~A"
d:*translation*
book
chapter)
(s:find-chapter
(s:find-book d:*bible* book)
chapter)))
(defun load-book (canvas book)
(display-chapter-or-book canvas
(format nil "~A: ~A"
d:*translation*
book)
(s:find-book d:*bible* book)))

1
cl-bible.asd
View File

@ -8,6 +8,7 @@
:serial t
:depends-on (#:str #:clog)
:components ((:file "package")
(:file "chapter")
(:file "verse")
(:file "search")
(:file "lift-search")

4
cl-bible.lisp
View File

@ -3,7 +3,9 @@
(in-package #:cl-bible)
(defun start ()
(initialize #'c:on-new-window)
(initialize (lambda (body)
(setf cl-bible.clog::body body)
(c:on-new-window body)))
(open-browser))
(defun main ()

52
clog.lisp
View File

@ -2,6 +2,8 @@
(in-package #:cl-bible.clog)
(defvar *body*)
(defun lift-search-window (body search)
(let ((result (mapcar #'car (l:lift-search search)))
(win (create-gui-window body)))
@ -13,6 +15,24 @@
(defun ergebnis/se (n)
(format nil "~A Ergebnis~A" n (if (= n 1) "" "se")))
(defun test (canvas)
(create-gui-window canvas :title "Test"
:height 400
:width 300))
(defun test (canvas)
(let* ((win (window-content
(create-gui-window canvas :title "Test"
:height 300
:width 400)))
(button (create-button win :content "click me!"))
(div (create-div win)))
(create-p div :content "foo")
(set-on-click button (lambda (obj)
(declare (ignore obj))
(format t "Clicked button!")))
div))
(defun search-in-bible (phrase bible canvas)
(let* ((win (window-content
(create-gui-window canvas
@ -83,35 +103,8 @@
(let* ((book (cadr (assoc "book" data :test #'string=)))
(chapter (cadr (assoc "chapter" data :test #'string=))))
(if (string= chapter "")
(load-book canvas book)
(load-chapter canvas book chapter)))))
(defun book/chapter-window (canvas title)
(create-div
(window-content
(create-gui-window canvas
:title title
:height 400
:width 650))))
(defun load-book (canvas book)
(let ((div (book/chapter-window canvas
(format nil "~A: ~A"
d:*translation*
book))))
(mapc (lambda (verse)
(v:verse-to-clog verse div :translation d:*translation*))
(s:find-book d:*bible* book))))
(defun load-chapter (canvas book chapter)
(let ((div (book/chapter-window canvas
(format nil "~A: ~A ~A"
d:*translation*
book
chapter))))
(mapc (lambda (verse)
(v:verse-to-clog verse div :translation d:*translation*))
(s:find-chapter (s:find-book d:*bible* book) chapter))))
(ch:load-book canvas book)
(ch:load-chapter canvas book chapter)))))
(defun get-chapter (window body)
(lambda (obj)
@ -162,6 +155,7 @@
(d:load-bibles)))))
(defun on-new-window (body)
(setf *body* body)
(setf (title (html-document body)) "Bible")
(clog-gui-initialize body)
(setup-menu-bar body (setup-window body)))

11
data.lisp
View File

@ -2,6 +2,17 @@
(in-package #:cl-bible.data)
(defvar *translations* '(("Menge" :mng)
("King James Version" :kjv)
("Vulgata" :vul)
("Greek Bible" :grb)
("Elberfelder Übersetzung 1871" :elb1871)
("NEÜ" :neue)
("Luther 1545" :luth1545)
("Luther 1912" :luth1912)
("Schlachter 1951" :sch1951)
("Ukrainische Version" :ukr)))
(defun load-bible (filename)
(v:from-sexp
(read-from-string

12
package.lisp
View File

@ -29,6 +29,7 @@
(:export update-bible
*bible*
*translation*
*translations*
persist
load-bibles))
@ -39,12 +40,21 @@
(#:d #:cl-bible.data))
(:export lift-search))
(defpackage #:cl-bible.chapter
(:use #:cl #:clog #:clog-gui)
(:local-nicknames (#:d #:cl-bible.data)
(#:s #:cl-bible.search)
(#:v #:cl-bible.verse))
(:export load-chapter
load-book))
(defpackage #:cl-bible.clog
(:use #:cl #:clog #:clog-gui)
(:local-nicknames (#:l #:cl-bible.lift-search)
(#:d #:cl-bible.data)
(#:s #:cl-bible.search)
(#:v #:cl-bible.verse))
(#:v #:cl-bible.verse)
(#:ch #:cl-bible.chapter))
(:export on-new-window))
(defpackage #:cl-bible

3
verse.lisp
View File

@ -118,7 +118,8 @@
(clog:set-on-click display
(lambda (obj)
(declare (ignore obj))
(show-notes verse parent)))))
(show-notes verse parent)))
display))
(defgeneric to-sexp (verse))
(defmethod to-sexp ((verse verse))