;;; thanos-books.el --- -*- lexical-binding: t; -*- ;; Copyright (C) 2023 Thanos Apollo ;; Author: Thanos Apollo ;; Keywords: ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or ;; (at your option) any later version. ;; This program 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 General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see . ;;; Commentary: ;; ;;; Code: (require 'pdf-tools) (require 'nov) (pdf-tools-install) ;;Add pdf-isearch-minor-mode hook, otherwise isearch will be buggy ;;Darkmode hook, cause I don't want color or light in my life, I'm a vampire. (add-hook 'pdf-view-mode-hook 'pdf-isearch-minor-mode) (add-hook 'pdf-view-mode-hook 'pdf-view-midnight-minor-mode) (add-to-list 'auto-mode-alist '("\\.pdf\\'" . 'pdf-view-mode)) (add-to-list 'auto-mode-alist '("\\.epub\\'" . nov-mode)) (defun thanos/nov-font-setup () "Setup for nov." (let ((font-size (if is-hermes 99 120))) (face-remap-add-relative 'variable-pitch :family "Jetbrains Mono" :height font-size) (beacon-mode -1))) (add-hook 'nov-mode-hook 'thanos/nov-font-setup) (provide 'thanos-books) ;;; thanos-books.el ends here