diff options
| author | Yuchen Pei <id@ypei.org> | 2023-07-06 00:33:55 +1000 |
|---|---|---|
| committer | Yuchen Pei <id@ypei.org> | 2023-07-06 00:33:55 +1000 |
| commit | 54ed4cd29be20c5ccd76d851b04a4bc292779452 (patch) | |
| tree | b34e44e1fd073ea1321b43622fafbe8c222cfd21 | |
| parent | 801ef503d710f559011c11d3f70e4061e587a808 (diff) | |
fix hnreader
| -rw-r--r-- | emacs/.emacs.d/init/ycp-web.el | 3 | ||||
| -rw-r--r-- | emacs/.emacs.d/lisp/my/my-hnreader.el | 2 |
2 files changed, 3 insertions, 2 deletions
diff --git a/emacs/.emacs.d/init/ycp-web.el b/emacs/.emacs.d/init/ycp-web.el index 19c4095..b322aa0 100644 --- a/emacs/.emacs.d/init/ycp-web.el +++ b/emacs/.emacs.d/init/ycp-web.el @@ -66,7 +66,8 @@ (require 'my-hnreader) (my-override hnreader--print-frontpage) (my-override hnreader--print-frontpage-item) - (my-override hnreader--print-comments)) + (my-override hnreader--print-comments) + (my-override hnreader--get-title)) (my-package buildbot (:delay 30) diff --git a/emacs/.emacs.d/lisp/my/my-hnreader.el b/emacs/.emacs.d/lisp/my/my-hnreader.el index 325ab9d..761fad6 100644 --- a/emacs/.emacs.d/lisp/my/my-hnreader.el +++ b/emacs/.emacs.d/lisp/my/my-hnreader.el @@ -68,7 +68,7 @@ (goto-char (point-min)) (forward-line 2)))) -;; To override `'hnreader--get-title' +;; To override `hnreader--get-title' (defun my-hnreader--get-title (dom) "Get title and link from DOM comment page." (let ((a-link (dom-by-tag (dom-by-class dom "^titleline$") 'a))) |