diff --git a/modules/radix/home/services/zathura.scm b/modules/radix/home/services/zathura.scm index c6c72f8..641ad9f 100644 --- a/modules/radix/home/services/zathura.scm +++ b/modules/radix/home/services/zathura.scm @@ -6,119 +6,17 @@ #:use-module (srfi srfi-1) #:use-module (guix gexp) #:export (face - face? - recolor-configuration - recolor-configuration? - gui-configuration - gui-configuration? - key-map - key-map? - home-zathura-configuration - home-zathura-configuration-n-completion-items - home-zathura-configuration-completion-face - home-zathura-configuration-completion-group-face - home-zathura-configuration-completion-highlight-face - home-zathura-configuration-default-face - home-zathura-configuration-exec-command - home-zathura-configuration-font - home-zathura-configuration-gui-configuration - home-zathura-configuration-inputbar-face - home-zathura-configuration-notification-face - home-zathura-configuration-notification-error-face - home-zathura-configuration-notification-warning-face - home-zathura-configuration-statusbar-face - home-zathura-configuration-statusbar-h-padding - home-zathura-configuration-statusbar-v-padding - home-zathura-configuration-window-icon - home-zathura-configuration-window-height - home-zathura-configuration-window-width - home-zathura-configuration-abort-clear-search - home-zathura-configuration-adjust-open - home-zathura-configuration-advance-pages-per-row - home-zathura-configuration-continuous-hist-save - home-zathura-configuration-database - home-zathura-configuration-dbus-service - home-zathura-configuration-dbus-raise-window - home-zathura-configuration-filemonitor - home-zathura-configuration-incremental-search - home-zathura-configuration-highlight-color - home-zathura-configuration-highlight-active-color - home-zathura-configuration-highlight-transparency - home-zathura-configuration-page-padding - home-zathura-configuration-page-cache-size - home-zathura-configuration-page-thumbnail-size - home-zathura-configuration-pages-per-row - home-zathura-configuration-first-page-column - home-zathura-configuration-recolor - home-zathura-configuration-render-loading - home-zathura-configuration-render-loading-face - home-zathura-configuration-scroll-hstep - home-zathura-configuration-scroll-step - home-zathura-configuration-scroll-full-overlap - home-zathura-configuration-scroll-wrap - home-zathura-configuration-show-directories - home-zathura-configuration-show-hidden - home-zathura-configuration-show-recent - home-zathura-configuration-scroll-page-aware - home-zathura-configuration-link-zoom - home-zathura-configuration-link-hadjust - home-zathura-configuration-search-hadjust - home-zathura-configuration-window-title-basename - home-zathura-configuration-window-title-home-tilde - home-zathura-configuration-window-title-page - home-zathura-configuration-statusbar-basename - home-zathura-configuration-statusbar-page-percent - home-zathura-configuration-statusbar-home-tilde - home-zathura-configuration-zoom-center - home-zathura-configuration-vertical-center - home-zathura-configuration-zoom-max - home-zathura-configuration-zoom-min - home-zathura-configuration-zoom-step - home-zathura-configuration-selection-clipboard - home-zathura-configuration-selection-notification - home-zathura-configuration-synctex - home-zathura-configuration-synctex-editor-command - home-zathura-configuration-index-face - home-zathura-configuration-index-active-face - home-zathura-configuration-sandbox - home-zathura-configuration-window-icon-document - home-zathura-configuration-page-right-to-left - home-zathura-configuration-key-maps - - home-zathura-service-type - home-zathura-extension)) + home-zathura-service-type)) (define (zathura-mode? value) (->bool (member value '(normal fullscreen presentation index)))) -(define (zathura-command? value) - (define (zathura-function? value) - (->bool (member (string->symbol value) - '(abort adjust-window change-mode display-link exec - focus-inputbar follow goto jumplist navigate - navigate-index print quit recolor reload rotate - scroll search set snap-to-page toggle-fullscreen - toggle-index toggle-inputbar toggle-page-mode - toggle-statusbar zoom mark-add mark-evaluate - feedkeys)))) - (define (zathura-function-argument? value) - (->bool (member (string->symbol value) - '(best-fit bottom backward collapse collapse-all - default down expand expand-all forward full-down - full-up half-down half-up in left next out - page-bottom page-top previous right rotate-ccw - rotate-cw select specific toggle top up width)))) - (->bool (or (not value) - (match (string-split value #\ ) - ((function) - (zathura-function? function)) - ((function argument) - (and (zathura-function? function) - (zathura-function-argument? argument))))))) +(define (string-or-false? x) + (or (string? x) (not x))) (define-configuration/no-serialization key-map (mode @@ -127,8 +25,8 @@ (binding string ; improve this with regex "The key combination that the key-map will use.") - (command zathura-command - "Function, and optionally an argument")) + (command string-or-false + "Function and, optionally, arguments separated by spaces.")) (define list-of-key-maps? (list-of key-map?))