aboutsummaryrefslogtreecommitdiff
path: root/hnreader.el
diff options
context:
space:
mode:
Diffstat (limited to 'hnreader.el')
-rw-r--r--hnreader.el7
1 files changed, 4 insertions, 3 deletions
diff --git a/hnreader.el b/hnreader.el
index 57e8047..293744b 100644
--- a/hnreader.el
+++ b/hnreader.el
@@ -63,7 +63,9 @@ third one is 80.")
;; link
(insert (dom-attr (dom-by-class thing "^storylink$") 'href) "\n" )
;; comment link
- (insert "https://news.ycombinator.com/item?id=" (dom-attr thing 'id)))
+ (insert (format "[[elisp:(hnreader-comment %s)][https://news.ycombinator.com/item?id=%s]]"
+ (dom-attr thing 'id)
+ (dom-attr thing 'id))))
(defun hnreader--print-frontpage (dom buf)
"Print raw DOM on BUF."
@@ -87,8 +89,7 @@ third one is 80.")
(insert (format "%s %s\n"
(hnreader--get-indent
(hnreader--get-img-tag-width comment))
- (hnreader--get-comment-owner comment)
- ))
+ (hnreader--get-comment-owner comment)))
(shr-insert-document (hnreader--get-comment comment))))))
(defun hnreader--get-img-tag-width (comment-dom)