Function: image-mode-menu

image-mode-menu is an interactive and byte-compiled function defined in image-mode.el.gz.

Signature

(image-mode-menu ARG1)

Documentation

Menu for Image mode.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/image-mode.el.gz
(easy-menu-define image-mode-menu image-mode-map
  "Menu for Image mode."
  '("Image"
    ["Show as Text" image-toggle-display :active t
     :help "Show image as text"]
    ["Show as Hex" image-toggle-hex-display :active t
     :help "Show image as hex"]
    "--"
    ["Fit Frame to Image" image-mode-fit-frame :active t
     :help "Resize frame to match image"]
    ["Fit Image to Window" image-transform-fit-to-window
     :help "Resize image to match the window height and width"]
    ["Fit Image to Window (Scale down only)" image-transform-fit-both
     :help "Scale image down to match the window height and width"]
    ["Zoom In" image-increase-size
     :help "Enlarge the image"]
    ["Zoom Out" image-decrease-size
     :help "Shrink the image"]
    ["Set Scale..." image-transform-set-scale
     :help "Resize image by specified scale factor"]
    ["Rotate Clockwise" image-rotate
     :help "Rotate the image"]
    ["Set Rotation..." image-transform-set-rotation
     :help "Set rotation angle of the image"]
    ["Set Smoothing..." image-transform-set-smoothing
     :help "Toggle smoothing"]
    ["Original Size" image-transform-reset-to-original
     :help "Reset image to actual size"]
    ["Reset to Default Size" image-transform-reset-to-initial
     :help "Reset all image transformations to initial size"]
    "--"
    ["Show Thumbnails"
     (lambda ()
       (interactive)
       (image-dired default-directory))
     :active default-directory
     :help "Show thumbnails for all images in this directory"]
    ["Previous Image" image-previous-file :active buffer-file-name
     :help "Move to previous image in this directory"]
    ["Next Image" image-next-file :active buffer-file-name
     :help "Move to next image in this directory"]
    ["Copy File Name" image-mode-copy-file-name-as-kill
     :active buffer-file-name
     :help "Copy the current file name to the kill ring"]
    "--"
    ["Animate Image" image-toggle-animation :style toggle
     :selected (let ((image (image-get-display-property)))
                 (and image (image-animate-timer image)))
     :active image-multi-frame
     :help "Toggle image animation"]
    ["Loop Animation"
     (lambda () (interactive)
       (setq image-animate-loop (not image-animate-loop))
       ;; FIXME this is a hacky way to make it affect a currently
       ;; animating image.
       (when (let ((image (image-get-display-property)))
               (and image (image-animate-timer image)))
         (image-toggle-animation)
         (image-toggle-animation)))
     :style toggle :selected image-animate-loop
     :active image-multi-frame
     :help "Animate images once, or forever?"]
    ["Reverse Animation" image-reverse-speed
     :style toggle :selected (let ((image (image-get-display-property)))
                               (and image (<
                                           (image-animate-get-speed image)
                                           0)))
     :active image-multi-frame
     :help "Reverse direction of this image's animation?"]
    ["Speed Up Animation" image-increase-speed
     :active image-multi-frame
     :help "Speed up this image's animation"]
    ["Slow Down Animation" image-decrease-speed
     :active image-multi-frame
     :help "Slow down this image's animation"]
    ["Reset Animation Speed" image-reset-speed
     :active image-multi-frame
     :help "Reset the speed of this image's animation"]
    ["Previous Frame" image-previous-frame :active image-multi-frame
     :help "Show the previous frame of this image"]
    ["Next Frame" image-next-frame :active image-multi-frame
     :help "Show the next frame of this image"]
    ["Goto Frame..." image-goto-frame :active image-multi-frame
     :help "Show a specific frame of this image"]))