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.
clarete · May 9, 2018 · 487b21d · 487b21d
1 parent 309c60c
commit 487b21d
Showing 1 changed file with 6 additions and 4 deletions.
diff --git 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)