From 487b21db0634c7e8d2f8192f2a0344b0cb1d1a46 Mon Sep 17 00:00:00 2001 From: Nick Drozd Date: Mon, 7 May 2018 18:42:25 -0500 Subject: [PATCH] Add option to fill window with stories If hackernews-items-per-page is nil, the number of stories is enough to fill the current window. --- hackernews.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/hackernews.el b/hackernews.el index 313590e..c777301 100644 --- a/hackernews.el +++ b/hackernews.el @@ -75,7 +75,8 @@ 'hackernews-items-per-page "0.4.0") (defcustom hackernews-items-per-page 20 - "Default number of stories to retrieve in one go." + "Default number of stories to retrieve in one go. +If nil, the stories will fill the window." :package-version '(hackernews . "0.4.0") :group 'hackernews :type 'integer) @@ -505,9 +506,10 @@ rendered at the end of the hackernews buffer." (hackernews--put :register (cons offset ids)) (hackernews--put :items (make-vector (max 0 (min (- (length ids) offset) - (if n - (prefix-numeric-value n) - hackernews-items-per-page))) + (cond + (n (prefix-numeric-value n)) + (hackernews-items-per-page) + (t (1- (window-text-height)))))) ())) (hackernews--retrieve-items)