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.
79 lines
3.3 KiB
79 lines
3.3 KiB
(in-package #:cl-bible.chapter) |
|
|
|
(defclass chapter () |
|
((%verses :initarg :verses |
|
:reader verses))) |
|
|
|
(defgeneric chapter-to-clog (chapter parent &key translation)) |
|
(defgeneric book/chapter-window (canvas title)) |
|
(defgeneric translations-drop-down (div display chapter drop-down)) |
|
(defgeneric display-chapter-or-book (canvas title chapter)) |
|
(defgeneric load-chapter (canvas book chapter)) |
|
(defgeneric load-book (canvas book)) |
|
|
|
(defmethod chapter-to-clog ((chapter chapter) (parent clog:clog-obj) &key (translation :mng)) |
|
(labels ((verse-to-clog (verse) |
|
;;; (clog:set-on-click |
|
(v:verse-to-clog verse parent :translation translation) |
|
;;; (lambda (obj) |
|
;;; (declare (ignore obj)) |
|
;;; (v::show-notes verse parent))) |
|
)) |
|
(mapcar #'verse-to-clog (verses chapter)))) |
|
|
|
(defmethod book/chapter-window (canvas (title string)) |
|
(let* ((win (window-content |
|
(create-gui-window canvas |
|
:title title |
|
:height 400 |
|
:width 500))) |
|
(mbar (create-gui-menu-bar win)) |
|
(drop-down (create-gui-menu-drop-down mbar :content "Translations"))) |
|
(values (create-div win) |
|
drop-down))) |
|
|
|
(defmethod translations-drop-down ((div clog:clog-div) display (chapter chapter) drop-down) |
|
(mapcar |
|
(lambda (translation) |
|
(labels ((callback (obj) |
|
(declare (ignore obj)) |
|
(d:update-bible (third translation)))) |
|
(create-gui-menu-item drop-down |
|
:content (first translation) |
|
:on-click #'callback))) |
|
d:*translations*)) |
|
|
|
(defmethod display-chapter-or-book (canvas (title string) (chapter chapter)) |
|
(multiple-value-bind (div drop-down) |
|
(book/chapter-window canvas title) |
|
(let ((display (chapter-to-clog chapter div :translation d:*translation*))) |
|
(translations-drop-down div display chapter drop-down)))) |
|
|
|
(defmethod load-chapter (canvas (book string) (chapter string)) |
|
(let* ((bk (s:find-book d:*bible* book)) |
|
(verses (if (find #\- chapter) |
|
(loop :for chap :in (uiop:split-string chapter :separator '(#\-)) |
|
:append (s:find-chapter bk chap)) |
|
(s:find-chapter bk chapter)))) |
|
(display-chapter-or-book canvas |
|
(format nil "~A: ~A ~A" |
|
d:*translation* |
|
book |
|
chapter) |
|
(make-instance 'chapter :verses verses)))) |
|
|
|
(defmethod load-book ((canvas clog:clog-body) (book string)) |
|
(display-chapter-or-book canvas |
|
(format nil "~A: ~A" |
|
d:*translation* |
|
book) |
|
(make-instance 'chapter |
|
:verses (s:find-book d:*bible* book)))) |
|
|
|
(defmethod load-position ((canvas clog:clog-body) (pos string)) |
|
(display-chapter-or-book canvas |
|
(format nil "~A: ~A" |
|
d:*translation* |
|
pos) |
|
(make-instance 'chapter |
|
:verses (s:find-verse d:*bible* (s:parse-position pos)))))
|
|
|