branch: externals/dicom
commit 7cdec3935565c675a2c4aa35c6449bb0f14940e0
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Move maps and mode
---
dicom.el | 50 +++++++++++++++++++++++++-------------------------
1 file changed, 25 insertions(+), 25 deletions(-)
diff --git a/dicom.el b/dicom.el
index 797cfb695e..f097d3ed3c 100644
--- a/dicom.el
+++ b/dicom.el
@@ -111,6 +111,31 @@ progress:${percent-pos}%'"
</svg>"))
"Large placeholder image.")
+(defvar-keymap dicom-image-map
+ :doc "Keymap used for images at point."
+ "RET" #'dicom-open-at-point
+ "<mouse-1>" #'dicom-open-at-point)
+
+(defvar-keymap dicom-mode-map
+ :doc "Keymap used by `dicom-mode'."
+ :parent special-mode-map
+ "p" #'dicom-play
+ "+" #'dicom-larger
+ "-" #'dicom-smaller
+ "TAB" #'outline-cycle
+ "<backtab>" #'outline-cycle-buffer)
+
+(easy-menu-define dicom-mode-menu dicom-mode-map
+ "Menu for `dicom-mode'."
+ '("DICOM IMAGE"
+ ["Larger" dicom-larger]
+ ["Smaller" dicom-smaller]
+ ["Play" dicom-play]))
+
+(define-derived-mode dicom-mode special-mode "DICOM"
+ "DICOM mode."
+ :interactive nil :abbrev-table nil :syntax-table nil)
+
(defun dicom--stop (proc)
"Gracefully stop PROC."
(when proc
@@ -242,27 +267,6 @@ progress:${percent-pos}%'"
(dicom-open file (and (not last-prefix-arg) "*dicom image*"))
(user-error "DICOM: No image at point")))
-(defvar-keymap dicom-mode-map
- :doc "Keymap used by `dicom-mode'."
- :parent special-mode-map
- "p" #'dicom-play
- "+" #'dicom-larger
- "-" #'dicom-smaller
- "TAB" #'outline-cycle
- "<backtab>" #'outline-cycle-buffer)
-
-(defvar-keymap dicom-image-map
- :doc "Keymap used for images at point."
- "RET" #'dicom-open-at-point
- "<mouse-1>" #'dicom-open-at-point)
-
-(easy-menu-define dicom-mode-menu dicom-mode-map
- "Menu for `dicom-mode'."
- '("DICOM IMAGE"
- ["Larger" dicom-larger]
- ["Smaller" dicom-smaller]
- ["Play" dicom-play]))
-
(defmacro dicom--image-buffer (&rest body)
"Run BODY inside image buffer if it exists."
`(with-current-buffer (if (dicom--dir-p)
@@ -287,10 +291,6 @@ progress:${percent-pos}%'"
(interactive "p" dicom-mode)
(dicom-larger (- n)))
-(define-derived-mode dicom-mode special-mode "DICOM"
- "DICOM mode."
- :interactive nil :abbrev-table nil :syntax-table nil)
-
(defun dicom-open (file &optional reuse)
"Open DICOM dir or image FILE.
REUSE can be a buffer name to reuse."
