nav bar on listing pages

2 files changed, 19 insertions, 0 deletions

diff --git a/TODOs.org b/TODOs.org
index 570c90a..39605b6 100644
--- a/TODOs.org
+++ b/TODOs.org
@@ -112,3 +112,5 @@ use pop-to-buffer isn't what we want, pop-to-buffer-same-window looks the same
 as switch-to-buffer display-buffer returns windows most of the time, so use it
 instead with select-window
         (select-window (display-buffer buf '(display-buffer-use-some-window)))
+* DONE add header
+in list pages
diff --git a/hnreader.el b/hnreader.el
index 63c709f..17ba87d 100644
--- a/hnreader.el
+++ b/hnreader.el
@@ -34,6 +34,7 @@
 ;; hnreader-past: Load past page.
 ;; hnreader-ask: Load ask page.
 ;; hnreader-show: Load show page.
+;; hnreader-newest: Load new link page.
 ;; hnreader-more: Load more.
 ;; hnreader-back: Go back to previous page.
 
@@ -139,6 +140,15 @@ third one is 80.")
               "Loading...")))
   buf)
 
+(defun hnreader--print-header ()
+  "Print header links to current buffer."
+  (insert "[[elisp:(hnreader-news)][News]] | ")
+  (insert "[[elisp:(hnreader-newest)][New]] | ")
+  (insert "[[elisp:(hnreader-past)][Past]] | ")
+  (insert "[[elisp:(hnreader-ask)][Ask]] | ")
+  (insert "[[elisp:(hnreader-show)][Show]] | ")
+  (insert "[[elisp:(hnreader-jobs)][Jobs]]"))
+
 (defun hnreader--print-frontpage-item (thing subtext)
   "Print THING dom and SUBTEXT dom."
   (let ((id (dom-attr thing 'id))
@@ -212,6 +222,7 @@ third one is 80.")
       (read-only-mode -1)
       (erase-buffer)
       (insert "#+STARTUP: overview indent\n")
+      (hnreader--print-header)
       (insert (hnreader--get-route-top-info dom))
       (cl-mapcar #'hnreader--print-frontpage-item things subtexts)
       ;; (setq-local org-confirm-elisp-link-function nil)
@@ -351,6 +362,12 @@ Also upate `hnreader--history'."
   (hnreader-read-page "https://news.ycombinator.com/front"))
 
 ;;;###autoload
+(defun hnreader-newest()
+  "Read past page."
+  (interactive)
+  (hnreader-read-page "https://news.ycombinator.com/newest"))
+
+;;;###autoload
 (defun hnreader-ask ()
   "Read ask page."
   (interactive)