[emacs] Read documents within emacs.

Emacs has built-in support for reading PDFs. However, pdf-tools is
better than the default PDF reader. This commit installs pdf-tools and
the necessary dependencies.

diff --git a/conf/home/emacs.scm b/conf/home/emacs.scm
index 6a7cc2bfcda669d0864238c04d7c7c58814904a7..719c72cfceb7c2e874f1a69ee4c3cefef3446a74 100644 (file)
--- a/conf/home/emacs.scm
+++ b/conf/home/emacs.scm
@@ -12,6 +12,7 @@
   #:use-module (gnu packages freedesktop)
   #:use-module (gnu packages gnupg)
   #:use-module (gnu packages password-utils)
+  #:use-module (gnu packages pdf)
   #:use-module (gnu packages rust-apps)
   #:use-module (gnu services)
   #:use-module (guix gexp)
@@ -67,6 +68,16 @@
             (list "mime/.config/mimeapps.list"
                   "emacs/.config/emacs/conf/conf-dired.el")))))
 
+(define emacs-document-service
+  (service home-program-service-type
+          (home-program-configuration
+           ;; libpng cairo autoconf automake gcc pkg-config
+           (packages
+            (list emacs-pdf-tools
+                  poppler))
+           (dotfiles
+            (list "emacs/.config/emacs/conf/conf-document.el")))))
+
 (define emacs-package-service
   (service home-program-service-type
           (home-program-configuration
@@ -107,6 +118,7 @@
         emacs-consult-service
        emacs-daemon-service
         emacs-dired-service
+        emacs-document-service
         emacs-package-service
         emacs-pass-service
         emacs-service))

diff --git a/emacs/.config/emacs/conf/conf-document.el b/emacs/.config/emacs/conf/conf-document.el
new file mode 100644 (file)
index 0000000..2ade839
--- /dev/null
+++ b/emacs/.config/emacs/conf/conf-document.el
@@ -0,0 +1,24 @@
+;; Copyright (c) 2022 Jakub Czajka <jakub@ekhem.eu.org>
+;; License: GPL-3.0 or later.
+;;
+;; conf-document.el - configration for working with different document formats.
+
+(require 'conf-package)
+
+(use-package pdf-tools
+  :when
+  (and
+   ;; Build dependencies.
+   (conf:executables-p (list "gcc" "autoconf" "automake" "pkg-config"))
+   ;; `libpoppler.so' is used to render PDFs.
+   (conf:libraries-p (list "libpoppler.so")))
+  :ensure t
+  :init
+  ;; JIT replacement for `pdf-tools-install'.
+  ;; `pdf-loader-install' is an autoload.
+  (pdf-loader-install)
+  :custom
+  ;; Show the whole page by default.
+  (pdf-view-display-size 'fit-page))
+
+(provide 'conf-document)