From 3a8f67785170e923fb91cd603cd8ba6ae8db9943 Mon Sep 17 00:00:00 2001 From: Peng Li Date: Sat, 9 Sep 2017 05:51:44 +0800 Subject: [PATCH] improve function --- emacs.d/my-mode-line.el | 54 ++++++++++++++++++++----------------------------- 1 file changed, 22 insertions(+), 32 deletions(-) diff --git a/emacs.d/my-mode-line.el b/emacs.d/my-mode-line.el index e13ad33..095b415 100644 --- a/emacs.d/my-mode-line.el +++ b/emacs.d/my-mode-line.el @@ -28,38 +28,28 @@ "According to the window layout, separate the windows as six types. Each type will have different mode line. This function return the defined window type." - (if - (and - (not (window-in-direction 'right nil t -1)) - (not (window-in-direction 'left nil t -1)) - (not (window-in-direction 'below nil t 1))) - 1 - (if - (and - (window-in-direction 'right nil t -1) - (not (window-in-direction 'left nil t -1)) - (not (window-in-direction 'below nil t 1))) - 2 - (if - (and - (not (window-in-direction 'right nil t -1)) - (window-in-direction 'left nil t -1) - (not (window-in-direction 'below nil t 1))) - 3 - (if - (and - (window-in-direction 'right nil t -1) - (not (window-in-direction 'left nil t -1)) - (window-in-direction 'below nil t 1)) - 5 - (if - (and - (not (window-in-direction 'right nil t -1)) - (window-in-direction 'left nil t -1) - (window-in-direction 'below nil t 1)) - 6 - 4)))))) - + (cond ((and (not (window-in-direction 'right nil t -1)) + (not (window-in-direction 'left nil t -1)) + (not (window-in-direction 'below nil t 1))) + 1) + ((and (window-in-direction 'right nil t -1) + (not (window-in-direction 'left nil t -1)) + (not (window-in-direction 'below nil t 1))) + 2) + ((and (not (window-in-direction 'right nil t -1)) + (window-in-direction 'left nil t -1) + (not (window-in-direction 'below nil t 1))) + 3) + ((and (window-in-direction 'right nil t -1) + (not (window-in-direction 'left nil t -1)) + (window-in-direction 'below nil t 1)) + 5) + ((and (not (window-in-direction 'right nil t -1)) + (window-in-direction 'left nil t -1) + (window-in-direction 'below nil t 1)) + 6) + (t + 4))) (defun sd/powerline-center-theme_revised-2 () -- 2.11.0