Add zathura config, 'pdf' module

6 files changed, 235 insertions, 8 deletions

diff --git a/.config/guix/hati.scm b/.config/guix/hati.scm
index 4967bde..2c08f4e 100644
--- a/.config/guix/hati.scm
+++ b/.config/guix/hati.scm
@@ -17,7 +17,8 @@
   #:use-module (modules dwm)
   #:use-module (modules utils)
   #:use-module (modules xorg)
-  #:use-module (modules ymir))
+  #:use-module (modules ymir)
+  #:use-module (modules pdf))
 
 
 (define home
@@ -25,6 +26,7 @@
    (services
     `(,@bd-base-home-services
       ,@bd-desktop-home-services
+      ,@bd-pdf-services
       ,@bd-dwm-home-services
       ,(service home-syncthing-service-type)))))
 
@@ -50,7 +52,7 @@
      ,@bd-mpd-service
      ,(service guix-home-service-type
                `((,username ,home)))))
-
+  
   (mapped-devices (list (mapped-device
                          (source (uuid "1e9c3cd7-97c2-411a-975a-40222d185563"))
                          (target "hidden")
diff --git a/.config/guix/modules/base.scm b/.config/guix/modules/base.scm
index 3f9c3dc..79e08db 100644
--- a/.config/guix/modules/base.scm
+++ b/.config/guix/modules/base.scm
@@ -43,7 +43,7 @@
  mail ;; notmuch, offlineimap
  package-management ;; stow
  password-utils ;; pass-otp, password-store
- pdf ;; xpdf, zathura, zathura-pdf-mupdf
+ pdf ;; xpdf
  rsync ;; rsync
  texlive ;; texlive
  version-control ;; git
@@ -90,8 +90,6 @@
    icecat
    imagemagick
    mpv
-   zathura
-   zathura-pdf-mupdf
    ))
 
 (define bd-base-system-packages
diff --git a/.config/guix/modules/emacs.scm b/.config/guix/modules/emacs.scm
index 932530c..7ed090a 100644
--- a/.config/guix/modules/emacs.scm
+++ b/.config/guix/modules/emacs.scm
@@ -21,7 +21,7 @@
  mail lisp)
 
 
-(define (bd-home-emacs-package-list config)
+(define (bd-emacs-package-list config)
   (list
    ;; direct
    emacs-all-the-icons
@@ -65,5 +65,5 @@ emacs configuration.")
                 (extensions
                  (list (service-extension
                         home-profile-service-type
-                        bd-home-emacs-package-list)))
+                        bd-emacs-package-list)))
                 (default-value #f)))
diff --git a/.config/guix/modules/pdf.scm b/.config/guix/modules/pdf.scm
new file mode 100644
index 0000000..7b7d26f
--- /dev/null
+++ b/.config/guix/modules/pdf.scm
@@ -0,0 +1,224 @@
+(define-module (modules pdf)
+  #:use-module (gnu)
+  #:use-module (gnu home services)
+  #:use-module (guix gexp)
+  #:use-module (gnu services)
+  #:use-module (gnu services configuration)
+  #:use-module (gnu system)
+  #:use-module (gnu packages pdf) ;; zathura, zathura-pdf-mupdf
+  #:export (bd-pdf-services))
+
+(define (bd-pdf-package-list config)
+  (list
+   zathura
+   zathura-pdf-mupdf ;; epub!
+   ))
+
+(define bd-pdf-services
+  (list
+   (service (service-type (name 'zathura-config)
+			 (description "Installs pdf packages.")
+			 (extensions
+			  (list (service-extension
+				 home-profile-service-type
+				 bd-pdf-package-list)))
+			 (default-value #f)))
+   (simple-service 'zathurarc
+                   home-files-service-type
+                   `((".config/zathura/zathurarc"
+                      ,(plain-file "zathurarc" "
+# start in dark mode
+set recolor true
+# mouse select copies to clipboard
+set selection-clipboard clipboard
+set scroll-full-overlap 0.2
+# stops at page break
+set scroll-page-aware true
+set window-title-basename true
+# start at width fit
+set adjust-open width
+# short version of the file path
+set statusbar-home-tilde true
+# center screen vertical midpoint
+set vertical-center true
+# synctex support
+set synctex true
+set zoom-step 3
+
+# lots taken from
+# https://web.archive.org/web/20220815064614/https://gist.github.com/ne9z/8778d614b90b85dfe8f6b698ad758f36
+map [normal] <C-b> scroll left
+map [normal] <C-n> scroll down
+map [normal] <C-p> scroll up
+map [normal] <C-f> scroll right
+map [normal] <C-g> abort
+map [insert] <C-g> abort
+map [normal] <C-[> abort
+map [normal] <A-\\<> goto top
+map [normal] <A-\\>> goto bottom
+map [normal] a adjust_window best-fit
+map [normal] s adjust_window width
+map [normal] F display_link
+map [normal] <C-c> copy_link
+map [normal] f follow
+map [normal] m mark_add
+map [normal] \\' mark_evaluate
+map [normal] \\, navigate next
+map [normal] \\. navigate previous
+map [normal] <A-Right> navigate next
+map [normal] <A-Left> navigate previous
+map [normal] <PageDown> scroll full-down
+map [normal] <PageUp> scroll full-up
+map [normal] <C-P> print
+map [normal] c recolor
+map [normal] R reload
+map [normal] v rotate rotate_cw
+map [normal] V rotate rotate_ccw
+map [normal] <Left> scroll left
+map [normal] <Up> scroll up
+map [normal] <Down> scroll down
+map [normal] <Right> scroll right
+map [normal] <A-a> scroll half-left
+map [normal] <C-V> scroll half-down
+map [normal] <A-V> scroll half-up
+map [normal] <A-e> scroll half-right
+map [normal] <C-a> scroll full-left
+map [normal] <C-v> scroll full-down
+map [normal] <Return> scroll full-down
+map [normal] <A-v> scroll full-up
+map [normal] <C-e> scroll full-right
+map [normal] <Space> scroll full-down
+map [normal] <C-h> scroll full-up
+map [normal] <BackSpace> scroll full-up
+map [normal] <S-Space> scroll full-up
+map [normal] l jumplist backward
+map [normal] r jumplist forward
+map [normal] <A-r> bisect forward
+map [normal] <A-l> bisect backward
+# still need to use '/' to trigger search
+map [normal] <C-s> search forward
+map [normal] <C-r> search backward
+map [normal] p snap_to_page
+map [normal] <C-i> toggle_index
+map [normal] i toggle_index
+map [normal] <Tab> toggle_index
+map [normal] <A-s> toggle_statusbar
+map [normal] <A-i> focus_inputbar
+map [normal] d toggle_page_mode
+map [normal] q quit
+map [normal] + zoom in
+map [normal] - zoom out
+map [normal] = zoom in
+map [normal] <A-P> toggle_presentation
+map [normal] <A-F> toggle_fullscreen
+map [normal] j toggle_fullscreen
+map [fullscreen] j toggle_fullscreen
+map [fullscreen] q toggle_fullscreen
+map [fullscreen] <C-b> scroll left
+map [fullscreen] <C-n> scroll down
+map [fullscreen] <C-p> scroll up
+map [fullscreen] <C-f> scroll right
+map [fullscreen] <C-g> abort
+map [fullscreen] <C-[> abort
+map [fullscreen] <A-\\<> goto top
+map [fullscreen] <A-\\>> goto bottom
+map [fullscreen] a adjust_window best-fit
+map [fullscreen] s adjust_window width
+map [fullscreen] F display_link
+map [fullscreen] <C-c> copy_link
+map [fullscreen] f follow
+map [fullscreen] m mark_add
+map [fullscreen] \\' mark_evaluate
+map [fullscreen] \\, navigate next
+map [fullscreen] \\. navigate previous
+map [fullscreen] <A-Right> navigate next
+map [fullscreen] <A-Left> navigate previous
+map [fullscreen] <PageDown> scroll full-down
+map [fullscreen] <PageUp> scroll full-up
+map [fullscreen] <C-P> print
+map [fullscreen] c recolor
+map [fullscreen] R reload
+map [fullscreen] v rotate rotate_cw
+map [fullscreen] V rotate rotate_ccw
+map [fullscreen] <Left> scroll left
+map [fullscreen] <Up> scroll up
+map [fullscreen] <Down> scroll down
+map [fullscreen] <Right> scroll right
+map [fullscreen] <A-a> scroll half-left
+map [fullscreen] <C-V> scroll half-down
+map [fullscreen] <A-V> scroll half-up
+map [fullscreen] <A-e> scroll half-right
+map [fullscreen] <C-a> scroll full-left
+map [fullscreen] <C-v> scroll full-down
+map [fullscreen] <Return> scroll full-down
+map [fullscreen] <A-v> scroll full-up
+map [fullscreen] <C-e> scroll full-right
+map [fullscreen] <Space> scroll full-down
+map [fullscreen] <C-h> scroll full-up
+map [fullscreen] <BackSpace> scroll full-up
+map [fullscreen] <S-Space> scroll full-up
+map [fullscreen] l jumplist backward
+map [fullscreen] r jumplist forward
+map [fullscreen] <A-r> bisect forward
+map [fullscreen] <A-l> bisect backward
+map [fullscreen] <C-s> search forward
+map [fullscreen] <C-r> search backward
+map [fullscreen] p snap_to_page
+map [fullscreen] i toggle_index
+map [fullscreen] <C-i> toggle_index
+map [fullscreen] <Tab> toggle_index
+map [fullscreen] <A-s> toggle_statusbar
+map [fullscreen] <A-i> focus_inputbar
+map [fullscreen] d toggle_page_mode
+map [fullscreen] + zoom in
+map [fullscreen] - zoom out
+map [fullscreen] = zoom in
+# status bar will obscure last item in index mode
+map [index] <A-s> toggle_statusbar
+map [index] q toggle_index
+map [index] i toggle_index
+map [index] <C-p> navigate_index up
+map [index] <C-h> navigate_index up
+map [index] <BackSpace> navigate_index up
+map [index] <C-n> navigate_index down
+map [index] <A-v> navigate_index up
+map [index] <C-v> navigate_index down
+map [index] \\< navigate_index top
+map [index] \\> navigate_index bottom
+map [index] <A-\\<> navigate_index top
+map [index] <A-\\>> navigate_index bottom
+map [index] <C-b> navigate_index collapse
+map [index] <C-f> navigate_index expand
+map [index] <C-i> navigate_index expand-all
+map [index] <A-i> navigate_index collapse-all
+map [index] <Up> navigate_index up
+map [index] <Down> navigate_index down
+map [index] <Left> navigate_index collapse
+map [index] <Right> navigate_index expand
+map [index] <C-m> navigate_index select
+map [index] <Space> navigate_index select
+map [index] <Return> navigate_index select
+map [index] <C-j> navigate_index select
+map [index] <Esc> toggle_index
+map [index] <C-[> toggle_index
+map [index] <C-g> toggle_index
+map [index] <C-c> toggle_index
+map [presentation] i toggle_index
+map [presentation] r navigate next
+map [presentation] <Down> navigate next
+map [presentation] <Right> navigate next
+map [presentation] <PageDown> navigate next
+map [presentation] <Space> navigate next
+map [presentation] l navigate previous
+map [presentation] <Left> navigate previous
+map [presentation] <Up> navigate previous
+map [presentation] <PageUp> navigate previous
+map [presentation] <S-Space> navigate previous
+map [presentation] <BackSpace> navigate previous
+map [presentation] <F5> toggle_presentation
+map [presentation] q toggle_presentation
+map [presentation] <C-h> navigate previous
+map [presentation] <M-v> navigate previous
+map [presentation] <C-v> navigate next
+map [presentation] <A-\\<> goto top
+map [presentation] <A-\\>> goto bottom"))))))
diff --git a/.config/guix/modules/xorg.scm b/.config/guix/modules/xorg.scm
index 7cfa312..07c58aa 100644
--- a/.config/guix/modules/xorg.scm
+++ b/.config/guix/modules/xorg.scm
@@ -130,6 +130,7 @@ xss-lock -- slock &
 set-bg
 xset r rate 250 70
 xset s 600
+xrandr-defaults
 exec dwm"))
                      (".config/gtk-2.0/settings.ini"
                       ,(plain-file "settings.ini" "
diff --git a/.config/guix/vali.scm b/.config/guix/vali.scm
index a1ef44b..fc6f366 100644
--- a/.config/guix/vali.scm
+++ b/.config/guix/vali.scm
@@ -17,7 +17,8 @@
   #:use-module (modules dwm)
   #:use-module (modules utils)
   #:use-module (modules xorg)
-  #:use-module (modules ymir))
+  #:use-module (modules ymir)
+  #:use-module (modules pdf))
 
 
 (define home
@@ -25,6 +26,7 @@
    (services
     `(,@bd-base-home-services
       ,@bd-desktop-home-services
+      ,@bd-pdf-services
       ,@bd-dwm-home-services
       ,(service home-syncthing-service-type)))))