emacs-framebuffer

commit dd8128fa30ea2099f000cd3b40a9cc0435f282ae
parent 6906f41ae3517e79e611a4f917d79c93c24886a3
Author: Tomas Hlavaty <tom@logand.com>
Date:   Wed,  2 Sep 2020 22:37:34 +0200

sort some lines

Diffstat:
M
emacs-framebuffer.el
 | 
12
++++++------

1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/emacs-framebuffer.el b/emacs-framebuffer.el
@@ -488,6 +488,9 @@
     (insert "\nheight: ")
     (insert (format "%s" (cdr framebuffer-image-mode-image-size)))
     (insert "\npress:\n")
+    (insert "- L: turn left (modifies the image)\n")
+    (insert "- R: turn right (modifies the image)\n")
+    (insert "- U: turn upside-down (modifies the image)\n")
     (insert "- b: beginning (first page)\n")
     (insert "- d: (re)draw\n")
     (insert "- e: end (last page)\n")
@@ -501,9 +504,6 @@
     (insert "- space: scroll down\n")
     (insert "- u: scroll up\n")
     (insert "- w: fit width\n")
-    (insert "- R: turn right (modifies the image)\n")
-    (insert "- L: turn left (modifies the image)\n")
-    (insert "- U: turn upside-down (modifies the image)\n")
     )
   (setq buffer-read-only t)
   (goto-char (point-min))
@@ -590,6 +590,9 @@
 (add-hook
  'framebuffer-image-mode-hook
  (lambda ()
+   (define-key framebuffer-image-mode-map "L" 'framebuffer-image-mode-turn-left)
+   (define-key framebuffer-image-mode-map "R" 'framebuffer-image-mode-turn-right)
+   (define-key framebuffer-image-mode-map "U" 'framebuffer-image-mode-turn-upside-down)
    (define-key framebuffer-image-mode-map "b" 'framebuffer-image-mode-first-page)
    (define-key framebuffer-image-mode-map "d" 'framebuffer-image-mode-draw-image)
    (define-key framebuffer-image-mode-map "e" 'framebuffer-image-mode-last-page)
@@ -603,9 +606,6 @@
    (define-key framebuffer-image-mode-map "spc" 'framebuffer-image-mode-scroll-down)
    (define-key framebuffer-image-mode-map "u" 'framebuffer-image-mode-scroll-up)
    (define-key framebuffer-image-mode-map "w" 'framebuffer-image-mode-fit-width)
-   (define-key framebuffer-image-mode-map "R" 'framebuffer-image-mode-turn-right)
-   (define-key framebuffer-image-mode-map "L" 'framebuffer-image-mode-turn-left)
-   (define-key framebuffer-image-mode-map "U" 'framebuffer-image-mode-turn-upside-down)
    ))
 
 (defun framebuffer-install ()