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

Bugfix

Browse Source
This commit is contained in:
Silas Vedder 2022-06-16 21:54:00 +02:00
parent 1495b41247
commit 0dffd44f75
1 changed files with 17 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
chapter.lisp
View File

@ -11,23 +11,22 @@
(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 translations-drop-down (div display verses drop-down)
(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)
@ -37,7 +36,7 @@
div
:translation d:*translation*)))
(let ((display (mapcar #'verse-to-clog verses)))
(translations-drop-down)))))
(translations-drop-down div display verses drop-down)))))
(defun load-chapter (canvas book chapter)
(display-chapter-or-book canvas