From 2d52d9beb8fe8a84835e72a2c402e71b561e73f3 Mon Sep 17 00:00:00 2001 From: Jonas Bernoulli Date: Sun, 11 Nov 2012 14:26:09 +0100 Subject: [PATCH] mu4e: add mu4e-headers-split-view-shrink --- mu4e/mu4e-headers.el | 23 ++++++++++++++++------- mu4e/mu4e-view.el | 8 +++----- 2 files changed, 19 insertions(+), 12 deletions(-) diff --git a/mu4e/mu4e-headers.el b/mu4e/mu4e-headers.el index 8bf51ea9..9528d24e 100644 --- a/mu4e/mu4e-headers.el +++ b/mu4e/mu4e-headers.el @@ -489,11 +489,9 @@ after the end of the search results." ;; change the number of headers (define-key map (kbd "C-+") 'mu4e-headers-split-view-resize) - (define-key map (kbd "C--") - (lambda () (interactive) (mu4e-headers-split-view-resize -1))) + (define-key map (kbd "C--") 'mu4e-headers-split-view-shrink) (define-key map (kbd "") 'mu4e-headers-split-view-resize) - (define-key map (kbd "") - (lambda () (interactive) (mu4e-headers-split-view-resize -1))) + (define-key map (kbd "") 'mu4e-headers-split-view-shrink) ;; switching to view mode (if it's visible) @@ -1256,9 +1254,11 @@ maildir)." (mu4e-headers-search (concat "\"maildir:" maildir "\"")))) (defun mu4e-headers-split-view-resize (n) - "In horizontal split-view, increase the number of lines shown by -N; in vertical split-view, increase the number of columns shown by -N. Otherwise, don't do anything." + "In split-view grow the headers window. +In horizontal split-view, increase the number of lines shown by N. +In vertical split-view, increase the number of columns shown by N. +If N is negative shrink the headers window. +When not in split-view do nothing." (interactive "P") (let ((n (or n 1)) (hwin (get-buffer-window mu4e~headers-buffer))) @@ -1273,6 +1273,15 @@ N. Otherwise, don't do anything." (window-resize hwin n t) (incf mu4e-headers-visible-columns n))))))) +(defun mu4e-headers-split-view-shrink (n) + "In split-view shrink the headers window. +In horizontal split-view, decrease the number of lines shown by N. +In vertical split-view, decrease the number of columns shown by N. +If N is negative grow the headers window. +When not in split-view do nothing." + (interactive "P") + (mu4e-headers-split-view-resize (- n))) + (defun mu4e-headers-action () "Ask user what to do with message-at-point, then do it. The actions are specified in `mu4e-headers-actions'." diff --git a/mu4e/mu4e-view.el b/mu4e/mu4e-view.el index 68d896ee..d0d70951 100644 --- a/mu4e/mu4e-view.el +++ b/mu4e/mu4e-view.el @@ -518,11 +518,9 @@ at POINT, or if nil, at (point)." ;; change the number of headers (define-key map (kbd "C-+") 'mu4e-headers-split-view-resize) - (define-key map (kbd "C--") - (lambda () (interactive) (mu4e-headers-split-view-resize -1))) - (define-key map (kbd "") 'mu4e-headers-split-view-resize) - (define-key map (kbd "") - (lambda () (interactive) (mu4e-headers-split-view-resize -1))) + (define-key map (kbd "C--") 'mu4e-headers-split-view-shrink) + (define-key map (kbd "") 'mu4e-headers-split-view-resize) + (define-key map (kbd "") 'mu4e-headers-split-view-shrink) ;; intra-message navigation (define-key map (kbd "SPC") 'mu4e-view-scroll-up-or-next)