aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThanos Apollo <[email protected]>2024-04-26 12:22:47 +0300
committerThanos Apollo <[email protected]>2024-04-26 12:23:21 +0300
commit7fa320defe53bf4a98c7a8e59af1152514d30709 (patch)
treedf43a48682c99dad511cd0377f4b4fbfec4abc3f
parent1d5bc2fca56b158726626e3e414f4fcf993fc52a (diff)
[fix] Display images properly
-rw-r--r--gnosis.el11
1 files changed, 7 insertions, 4 deletions
diff --git a/gnosis.el b/gnosis.el
index cd02b88..1badcd2 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -162,6 +162,9 @@ Seperate the question/stem from options."
:type 'string
:group 'gnosis)
+(defvar gnosis-due-notes (length (gnosis-review-get-due-notes))
+ "Total due notes.")
+
;;; Faces
(defgroup gnosis-faces nil
@@ -381,11 +384,11 @@ Refer to `gnosis-db-schema-extras' for informations on images stored."
(let* ((img (gnosis-get image 'extras `(= id ,id)))
(path-to-image (expand-file-name (or img "") (file-name-as-directory gnosis-images-dir)))
(image (create-image path-to-image 'png nil :width gnosis-image-width :height gnosis-image-height)))
- (cond ((and img (file-exists-p path-to-image))
+ (cond ((or (not img) (string-empty-p img))
+ (insert "\n\n"))
+ ((and img (file-exists-p path-to-image))
(insert "\n\n")
- (insert-image image))
- ((or (not img) (string-empty-p img))
- (insert "\n\n")))))
+ (insert-image image)))))
(defun gnosis-display-extra (id)
"Display extra information & extra-image for note ID."