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

You can change translations of a displayed chapter text.

master
Silas Vedder 2 years ago
parent
26fca1d1e3
commit
1495b41247
7 changed files with 108 additions and 32 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 57
      chapter.lisp
  2. 1
      cl-bible.asd
  3. 4
      cl-bible.lisp
  4. 52
      clog.lisp
  5. 11
      data.lisp
  6. 12
      package.lisp
  7. 3
      verse.lisp

57
chapter.lisp
Unescape 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
Unescape 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
Unescape 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
Unescape 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
Unescape 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
Unescape 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
Unescape 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))

Write Preview
Loading…
Cancel
Save