From 54ed4cd29be20c5ccd76d851b04a4bc292779452 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Thu, 6 Jul 2023 00:33:55 +1000 Subject: fix hnreader --- emacs/.emacs.d/init/ycp-web.el | 3 ++- emacs/.emacs.d/lisp/my/my-hnreader.el | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) (limited to 'emacs') 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))) -- cgit v1.2.3