From cdfe13e7ac022dd112e007c42a0e49636935eee9 Mon Sep 17 00:00:00 2001 From: Thanh Vuong Date: Sun, 25 Aug 2019 00:27:03 -0600 Subject: improve parse /past route --- hnreader.el | 17 +++++++++++++---- 1 file changed, 13 insertions(+), 4 deletions(-) (limited to 'hnreader.el') diff --git a/hnreader.el b/hnreader.el index a2fd302..65b6d49 100644 --- a/hnreader.el +++ b/hnreader.el @@ -90,10 +90,19 @@ third one is 80.") (defun hnreader--past-time-top-links (node-list) "Get date, month and year links from NODE-LIST." - (seq-reduce (lambda (acc it) - (concat acc (hnreader--get-time-top-link it) " ")) - node-list - "Go back to a ")) + (if (= 3 (length node-list)) + (concat (seq-reduce (lambda (acc it) + (concat acc (hnreader--get-time-top-link it) " ")) + node-list + "- Go back to a ")) + (concat (seq-reduce (lambda (acc it) + (concat acc (hnreader--get-time-top-link it) " ")) + (seq-take node-list 3) + "- Go back to a ") + (seq-reduce (lambda (acc it) + (concat acc (hnreader--get-time-top-link it) " ")) + (seq-drop node-list 3) + "- Go forward to a ")))) (defun hnreader--get-route-top-info (dom) "Get top info of route like title, date of hn routes such as front, past from DOM." -- cgit v1.2.3