From 093ffa5fbf7143f4668bb0a3dc9659a5cc836e12 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Sat, 17 Jun 2023 17:20:29 +1000 Subject: Moving things one level deeper To ease gnu stow usage. Now we can do stow -t ~ emacs --- .emacs.d/lisp/my/my-nov.el | 56 ---------------------------------------------- 1 file changed, 56 deletions(-) delete mode 100644 .emacs.d/lisp/my/my-nov.el (limited to '.emacs.d/lisp/my/my-nov.el') diff --git a/.emacs.d/lisp/my/my-nov.el b/.emacs.d/lisp/my/my-nov.el deleted file mode 100644 index 863d09a..0000000 --- a/.emacs.d/lisp/my/my-nov.el +++ /dev/null @@ -1,56 +0,0 @@ -;;; my-nov.el -- Extensions for nov.el -*- lexical-binding: t -*- - -;; Copyright (C) 2023 Free Software Foundation. - -;; Author: Yuchen Pei -;; Package-Requires: ((emacs "28.2")) - -;; This file is part of dotfiles. - -;; dotfiles is free software: you can redistribute it and/or modify it under -;; the terms of the GNU Affero General Public License as published by -;; the Free Software Foundation, either version 3 of the License, or -;; (at your option) any later version. - -;; dotfiles is distributed in the hope that it will be useful, but WITHOUT -;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -;; or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Affero General -;; Public License for more details. - -;; You should have received a copy of the GNU Affero General Public -;; License along with dotfiles. If not, see . - -;;; Commentary: - -;; Extensions for nov.el. - -;;; Code: - -(require 'nov) - -;; override nov-render-title -;; this is because header line does not work with follow mode -(defun my-nov-render-title (dom) - "Custom rendering function for DOM. -Sets `header-line-format' to a combination of the EPUB title and -chapter title." - (let ((title (cdr (assq 'title nov-metadata))) - (chapter-title (car (esxml-node-children dom)))) - (when (not chapter-title) - (setq chapter-title "No title")) - ;; this shouldn't happen for properly authored EPUBs - (when (not title) - (setq title "No title")) - (setq mode-line-buffer-identification - (concat title ": " chapter-title)) - )) - -(defun my-nov-scroll-up (arg) - "Scroll with `scroll-up' or visit next chapter if at bottom." - (interactive "P") - (if (>= (follow-window-end) (point-max)) - (nov-next-document) - (follow-scroll-up arg))) - -(provide 'my-nov) -;;; my-nov.el ends here -- cgit v1.2.3