From f853f1021e71bcb1a9cb410fe5a99488b83d642f Mon Sep 17 00:00:00 2001 From: Jonathan Rockway Date: Wed, 29 Jun 2011 12:01:00 -0400 Subject: [PATCH] make the pick-smallest-window functions work --- eslide.el | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/eslide.el b/eslide.el index 4853895..1d6aac5 100644 --- a/eslide.el +++ b/eslide.el @@ -322,11 +322,18 @@ Argument END sdfasdf." (with-current-buffer (eslide-show) (text-scale-decrease 1))) +(defun eslide-minimize (list function) + "Return the element of LIST that FUNCTION makes smallest." + (caar (sort (mapcar (lambda (x) (cons x (funcall function x))) list) + (lambda (a b) (< (cdr a) (cdr b)))))) + (defun eslide-narrowest-window (buffer) - (car (get-buffer-window-list buffer nil t))) ;;; XXX not really + (eslide-minimize (get-buffer-window-list buffer nil t) + #'window-width)) (defun eslide-shortest-window (buffer) - (car (get-buffer-window-list buffer nil t))) ;;; XXX not really + (eslide-minimize (get-buffer-window-list buffer nil t) + #'window-body-height)) (defun eslide-text-scale (size) (text-scale-increase 0)