Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-24 05:47:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

Add new commands to allow changing the size of images

Browse source 
* lisp/image.el (image-increase-size, image-decrease-size):
New commands.
(image-change-size): New function.
This commit is contained in:
Lars Ingebrigtsen 2016-02-09 12:44:32 +11:00
parent 4a24af2d2b
commit c93cc660ac
1 changed files with 29 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
lisp/image.el
View file

@ -913,6 +913,35 @@ has no effect."
(imagemagick-register-types)
(defun image-increase-size (n)
"Increase the image size by a factor of N.
If N is 3, then the image size will be increased by 30%. The
default is 20%."
(interactive "P")
(image-change-size (if n
(1+ (/ n 10))
1.2)))
(defun image-decrease-size (n)
"Decrease the image size by a factor of N.
If N is 3, then the image size will be decreased by 30%. The
default is 20%."
(interactive "P")
(image-change-size (if n
(- 1 (/ n 10))
0.8)))
(defun image-change-size (factor)
(unless (fboundp 'imagemagick-types)
(error "Can't rescale images without ImageMagick support"))
(let ((image (get-text-property (point) 'display)))
(when (or (not (consp image))
(not (eq (car image) 'image)))
(error "No image under point"))
(plist-put (cdr image) :type 'imagemagick)
(plist-put (cdr image) :scale
(* (or (plist-get (cdr image) :scale) 1) factor))))
(provide 'image)
;;; image.el ends here