diff options
-rw-r--r-- | configure.ac | 1 | ||||
-rw-r--r-- | shroud/config.scm.in | 3 | ||||
-rw-r--r-- | shroud/ui.scm | 2 |
3 files changed, 5 insertions, 1 deletions
diff --git a/configure.ac b/configure.ac index 3ddbac9..399fa01 100644 --- a/configure.ac +++ b/configure.ac @@ -13,6 +13,7 @@ AC_CONFIG_FILES([shroud/config.scm]) GUILE_PROGS([2.0.11]) +AC_PATH_PROGS([GPG], [gpg gpg2]) AC_PATH_PROG([XCLIP], [xclip]) AC_OUTPUT diff --git a/shroud/config.scm.in b/shroud/config.scm.in index 00d6f39..815ed55 100644 --- a/shroud/config.scm.in +++ b/shroud/config.scm.in @@ -18,8 +18,11 @@ (define-module (shroud config) #:export (%shroud-version + %gpg %xclip)) (define %shroud-version "0.1") +(define %gpg "@GPG@") + (define %xclip "@XCLIP@") diff --git a/shroud/ui.scm b/shroud/ui.scm index 75106c9..ab78010 100644 --- a/shroud/ui.scm +++ b/shroud/ui.scm @@ -116,7 +116,7 @@ ARGS is the list of arguments received by the 'throw' handler." (define %default-config `((database-file . ,(string-append (getenv "HOME") "/.config/shroud/db.gpg")) - (gpg-binary . "gpg"))) + (gpg-binary . ,%gpg))) (define (load-config) "Load and evaluate user configuration file." |