20 lines
488 B
EmacsLisp
20 lines
488 B
EmacsLisp
;; -*- lexical-binding: t; -*-
|
|
|
|
(use-package nov
|
|
:mode (("\\.epub\\'" . nov-mode)))
|
|
|
|
(defvar ebook-library
|
|
(expand-file-name "~/Sync/Calibre Library")
|
|
"Ebook library directory")
|
|
|
|
(defun find-ebook (book)
|
|
"Finds an ebook from my library"
|
|
(interactive (list
|
|
(completing-read
|
|
"Book: "
|
|
(directory-files-recursively ebook-library
|
|
"\\.epub$"))))
|
|
(find-file book))
|
|
|
|
(provide 'init-epub)
|