branch: externals/dicom
commit eae935361fd131dbde210fe221c0fc9d86ce690c
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Cleanup
---
dicom.el | 26 +++++++++++++-------------
1 file changed, 13 insertions(+), 13 deletions(-)
diff --git a/dicom.el b/dicom.el
index e00e661875..f78eca12d3 100644
--- a/dicom.el
+++ b/dicom.el
@@ -406,18 +406,18 @@ progress:${percent-pos}%%' %s) & disown"
(defun dicom--insert-large ()
"Insert large image."
- (pcase-let ((`(,dst . ,tmp) (dicom--cache-name (concat "large"
dicom--file))))
- (insert (propertize "\n" 'face '(:height 8)))
- (dicom--button "Revert" #'revert-buffer)
- (dicom--button "Larger" #'dicom-larger)
- (dicom--button "Smaller" #'dicom-smaller)
- (dicom--button "Rotate" #'dicom-rotate)
- (when-let ((frames (alist-get 'NumberOfFrames dicom--data)))
- (dicom--button (format "Play (%s frames)" frames) #'dicom-play))
- (insert "\n" (propertize "\n" 'face '(:height 8)))
- (let ((pos (point)))
- (insert dicom--large-placeholder "\n")
- (if (file-exists-p dst)
+ (insert (propertize "\n" 'face '(:height 16)))
+ (dicom--button "Revert" #'revert-buffer)
+ (dicom--button "Larger" #'dicom-larger)
+ (dicom--button "Smaller" #'dicom-smaller)
+ (dicom--button "Rotate" #'dicom-rotate)
+ (when-let ((frames (alist-get 'NumberOfFrames dicom--data)))
+ (dicom--button (format "Play (%s frames)" frames) #'dicom-play))
+ (insert "\n" (propertize "\n" 'face '(:height 8)))
+ (pcase-let ((`(,dst . ,tmp) (dicom--cache-name (concat "large" dicom--file)))
+ (pos (point)))
+ (insert dicom--large-placeholder "\n")
+ (if (file-exists-p dst)
(dicom--put-image pos dst)
(dicom--enqueue
(lambda (success)
@@ -426,7 +426,7 @@ progress:${percent-pos}%%' %s) & disown"
(rename-file tmp dst)
(dicom--put-image pos dst))
(delete-file tmp)))
- "dcmj2pnm" "--write-png" dicom--file tmp)))))
+ "dcmj2pnm" "--write-png" dicom--file tmp))))
(defun dicom--setup-check ()
"Check requirements."
