blob: 41b863b1a7e9d232b4cc70f387e503029465d452 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
#+STARTUP: align fold hidestars oddeven indent
#+SEQ_TODO: TODO(t) INPROGRESS(i) | DONE(d) CANCELED(c)
* why not using hn api
hn api will invole a lot of rest requests which would not be fast for emacs
also the data layout is already available at hn webiste, one curl call and
then parse them to org would be faster
* parse front page
now what
* parse comments
<table border="0" class='comment-tree'>
<tr class='athing comtr ' id='20724657'>
comment are same level in regard to html node
but child comments have different ident block width
top level comment
<td class='ind'><img src="s.gif" height="1" width="0"></td>
child
<td class='ind'><img src="s.gif" height="1" width="40"></td>
* TODO show number of child comments
https://emacs.stackexchange.com/questions/10245/counting-sub-headings-in-org-mode-using-elisp
or recursive on dom will be just fine
don't know about the performance impact
* TODO run eslip on org link
#+begin_example org-mode
[[elisp:(find-function 'describe-function)]]
#+end_example
[[elisp:(hnreader-comment 20724363)][read]
;; (setq-local org-confirm-elisp-link-function nil)
user org-add-link-type to avoid confirm message
(org-add-link-type
"grep" 'endless/follow-grep-link)
(defun endless/follow-grep-link (regexp)
"Run `rgrep' with REGEXP as argument."
(grep-compute-defaults)
(rgrep regexp "*" (expand-file-name "./")))
https://endlessparentheses.com/use-org-mode-links-for-absolutely-anything.html
use this one
(org-link-set-parameters TYPE &rest PARAMETERS)
Set link TYPE properties to PARAMETERS.
PARAMETERS should be :key val pairs.
how can i register this handler?
autoload?
just a private flag on running
* DONE comment page show main link and intro text
* TODO display page takes page number
* TODO reload page
* TODO frontpage has next page link
* DONE remove * in text
CLOSED: [2019-08-20 Tue 13:39]
find and replace raw htlm '>*' with '>-'
* add eww link
* TODO long links are cut off
(get-text-property (point) 'shr-url)
(get-text-property (point) 'htmlize-link)
(text-properties-at (point))
(font-lock-multiline t htmlize-link (:uri "elisp:(hnreader-comment 20751164)")
help-echo "LINK: elisp:(hnreader-comment 20751164)" keymap (keymap (follow-link
. mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse))
mouse-face highlight face org-link wrap-prefix #(" " 0 2 (face org-indent))
line-prefix #(" " 0 2 (face org-indent)) fontified t)
https://emacs.stackexchange.com/questions/16909/how-can-i-get-all-file-links-in-one-org-mode-file
Assuming the current buffer is an org-mode buffer, the following code collects paths of file links in the current buffer.
#+begin_example elisp
(org-element-map (org-element-parse-buffer) 'link
(lambda (link)
(when (string= (org-element-property :type link) "file")
(org-element-property :path link))))
#+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.
|
