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

15
chapter.lisp
View File

@ -11,23 +11,22 @@
(values (create-div win) (values (create-div win)
drop-down))) drop-down)))
(defmacro translations-drop-down () (defun translations-drop-down (div display verses drop-down)
`(progn (mapcar
,@(mapcar
(lambda (translation) (lambda (translation)
`(labels ((verse-to-clog (verse) (labels ((verse-to-clog (verse)
(v:verse-to-clog verse (v:verse-to-clog verse
div div
:translation ,(second translation))) :translation (second translation)))
(hide-verse (verse) (setf (hiddenp verse) t)) (hide-verse (verse) (setf (hiddenp verse) t))
(callback (obj) (callback (obj)
(declare (ignore obj)) (declare (ignore obj))
(mapc #'hide-verse display) (mapc #'hide-verse display)
(setf display (mapcar #'verse-to-clog verses)))) (setf display (mapcar #'verse-to-clog verses))))
(create-gui-menu-item drop-down (create-gui-menu-item drop-down
:content ,(first translation) :content (first translation)
:on-click #'callback))) :on-click #'callback)))
d:*translations*))) d:*translations*))
(defun display-chapter-or-book (canvas title verses) (defun display-chapter-or-book (canvas title verses)
(multiple-value-bind (div drop-down) (multiple-value-bind (div drop-down)
@ -37,7 +36,7 @@
div div
:translation d:*translation*))) :translation d:*translation*)))
(let ((display (mapcar #'verse-to-clog verses))) (let ((display (mapcar #'verse-to-clog verses)))
(translations-drop-down))))) (translations-drop-down div display verses drop-down)))))
(defun load-chapter (canvas book chapter) (defun load-chapter (canvas book chapter)
(display-chapter-or-book canvas (display-chapter-or-book canvas