diff --git a/finito-buffer.el b/finito-buffer.el index bcf7bc3..73a6f00 100644 --- a/finito-buffer.el +++ b/finito-buffer.el @@ -208,7 +208,8 @@ BOOK-ALIST is an alist of the format returned by `finito--create-book-alist'" (finito-insert-started-reading writer .started-reading))) ((eq it 'last-read) (when .last-read (finito-insert-last-read writer .last-read))) - ((eq it 'description) (finito-insert-description writer .description)))))) + ((eq it 'description) (finito-insert-description writer .description)) + ((eq it 'review) (finito-insert-description writer .review)))))) (cl-defmethod finito-insert-title ((_ finito-book-writer) title) "Insert TITLE into the current buffer." diff --git a/finito.el b/finito.el index 2af6d90..a0dd622 100644 --- a/finito.el +++ b/finito.el @@ -396,11 +396,11 @@ request is successful" ((_ _ from-year) (calendar-current-date -30))) (cons (format "%s-01-01" from-year) (format "%s-%02d-%02d" year month day)))) -(defun finito--set-show-attribute-for-collection (alist collection flag) - "Set show the attribute implied by ALIST to FLAG for COLLECTION." +(defun finito--set-show-attribute-for-collection (alist-sym alist collection flag) + "Set show the attribute implied by ALIST and ALIST-SYM to FLAG for COLLECTION." (if (member collection (mapcar #'car alist)) (setf (cdr (assoc finito--collection alist)) flag) - (setq alist `((,collection . ,flag) . ,alist)))) + (set alist-sym `((,collection . ,flag) . ,alist)))) (defun finito--init-summary-buffer (summary-alist) "Create a summary buffer using data from SUMMARY-ALIST." @@ -1038,6 +1038,7 @@ Example: 'equal)))) (cond ((bound-and-true-p finito--collection) (finito--set-show-attribute-for-collection + 'finito-show-description-alist finito-show-description-alist finito--collection (not alist-val))) @@ -1062,6 +1063,7 @@ Example: 'equal)))) (cond ((bound-and-true-p finito--collection) (finito--set-show-attribute-for-collection + 'finito-show-review-alist finito-show-review-alist finito--collection (not alist-val)))