branch: master
commit a45a1081ce5478e2087dc90a4cc3e81eb235c8d9
Author: Alexey Veretennikov <alexey.veretenni...@gmail.com>
Commit: Alexey Veretennikov <alexey.veretenni...@gmail.com>
Logical operation on the file by pressing either RET or SPC - diff/ediff
when different view/open when same
---
ztree-diff.el | 31 +++++++++++++++++++++----------
1 files changed, 21 insertions(+), 10 deletions(-)
diff --git a/ztree-diff.el b/ztree-diff.el
index 981e9bd..b6f7131 100644
--- a/ztree-diff.el
+++ b/ztree-diff.el
@@ -158,17 +158,28 @@ including . and ..")
(ztree-diff-simple-diff node)))))
(defun ztree-diff-node-action (node hard)
+ "Perform action on node:
+1 if both left and right sides present:
+ 1.1 if they are differend
+ 1.1.1 if hard ediff
+ 1.1.2 simple diff otherwiste
+ 1.2 if they are the same - view left
+2 if left or right present - view left or rigth"
(let ((left (ztree-diff-node-left-path node))
- (right (ztree-diff-node-right-path node)))
- (when (and left right)
- (if (not (ztree-diff-node-different node))
- (message (concat "Files "
- (substring-no-properties
- (ztree-diff-node-short-name node))
- " on left and right side are identical"))
- (if hard
- (ediff left right)
- (ztree-diff-simple-diff node))))))
+ (right (ztree-diff-node-right-path node))
+ (open-f '(lambda (path) (if hard (find-file path)
+ (let ((split-width-threshold nil))
+ (view-file-other-window path))))))
+ (cond ((and left right)
+ (if (not (ztree-diff-node-different node))
+ (funcall open-f left)
+ (if hard
+ (ediff left right)
+ (ztree-diff-simple-diff node))))
+ (left (funcall open-f left))
+ (right (funcall open-f right))
+ (t nil))))
+
(defun ztree-diff-copy-file (node source-path destination-path copy-to-right)
