summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--gnosis.el16
1 files changed, 15 insertions, 1 deletions
diff --git a/gnosis.el b/gnosis.el
index 7f7fde4..588b713 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -88,6 +88,20 @@ framework's minibuffer."
:type 'function
:group 'gnosis)
+(defcustom gnosis-image-height nil
+ "Height of image to display during review.
+
+When nil, the image will be displayed at its original size."
+ :type 'integer
+ :group 'gnosis)
+
+(defcustom gnosis-image-width nil
+ "Width of image to display during review.
+
+When nil, the image will be displayed at its original size."
+ :type 'integer
+ :group 'gnosis)
+
(defvar gnosis-images-dir (expand-file-name "images" gnosis-dir)
"Gnosis images directory.")
@@ -320,7 +334,7 @@ If FALSE t, use gnosis-face-false face"
"Display image for note ID."
(let* ((img (gnosis-get 'images '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 500 :height 300)))
+ (image (create-image path-to-image 'png nil :width gnosis-image-width :height gnosis-image-height)))
(when img
(insert "\n\n")
(insert-image image))))