Change: (ement-room--format-m.image) Relief, margin, pointer

This looks a bit nicer, and it conveys that the image is clickable.
This commit is contained in:
Adam Porter 2022-05-02 06:10:56 -05:00
parent be5d68cd2c
commit b00fb58673

View file

@ -3524,7 +3524,10 @@ show it in the buffer."
;; FIXME: When requiring Emacs 27+, remove this (I guess?). ;; FIXME: When requiring Emacs 27+, remove this (I guess?).
(setf (image-property image :type) 'imagemagick)) (setf (image-property image :type) 'imagemagick))
(setf (image-property image :max-width) max-width (setf (image-property image :max-width) max-width
(image-property image :max-height) max-height) (image-property image :max-height) max-height
(image-property image :relief) 2
(image-property image :margin) 5
(image-property image :pointer) 'hand)
(concat "\n" (concat "\n"
(propertize " " 'display image (propertize " " 'display image
'keymap ement-room-image-keymap))) 'keymap ement-room-image-keymap)))