diff options
-rw-r--r-- | TODOs.org | 8 | ||||
-rw-r--r-- | hnreader.el | 18 |
2 files changed, 25 insertions, 1 deletions
@@ -84,6 +84,14 @@ Assuming the current buffer is an org-mode buffer, the following code collects p #+end_example In an org buffer, (org-element-parse-buffer) returns the parse tree of the current buffer. And you can map over it with org-element-map. + +with the org buffer, run through it find the text prop of htmlize-link + +or hack shr insert link + +or a simple way chec in dom for a link and change it +downside is speed, no we need to iterate and look for a tag and then mutate it, the push it back to the dom. Since the dom is a list +you need to map the whole dom * DONE first run on comment buffer won't have right width also need to shadow shr-use-fonts to nil * DONE display OP post ins ask and OP infor diff --git a/hnreader.el b/hnreader.el index 08bc33a..d5190e8 100644 --- a/hnreader.el +++ b/hnreader.el @@ -286,9 +286,25 @@ third one is 80.") "Return user who wrote this COMMENT-DOM." (dom-text (dom-by-class comment-dom "^hnuser$"))) +(defun hnreader--it-to-it (it) + "Map node to node. +IT is an element in the DOM tree. Map to different IT when it is +a, img or pre. Othewise just copy" + (cond + ((and (listp it) + (listp (cdr it))) ;; check for list but not cons + (cond + ((and (equal (car it) 'a) + (not (dom-by-tag it 'img))) ;; bail out if img + ;; (dom-attr it 'href) + `(span nil ,(dom-attr it 'href))) + (t (mapcar #'hnreader--it-to-it it)))) + (t it))) + (defun hnreader--get-comment (comment-dom) "Get comment dom from COMMENT-DOM." - (dom-by-class comment-dom "^commtext")) + ;; (dom-by-class comment-dom "^commtext")) + (hnreader--it-to-it (dom-by-class comment-dom "^commtext"))) (defun hnreader-readpage-promise (url) "Promise HN URL." |