diff options
| author | David Thompson <dthompson2@worcester.edu> | 2015-08-17 21:51:16 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2015-08-17 21:51:16 -0400 |
| commit | e5735a08567e370b60cc1570f04f9a76019541f5 (patch) | |
| tree | 8c20b8cbe5c6871797b78567ae19ff841770fb5d /shroud/ui.scm | |
| parent | a9e4d706c2e8d550e5b24549e16303e9b2507483 (diff) | |
Move default database file to ~/.config/shroud/db.gpg.
* shroud/utils.scm (mkdir-p): New procedure.
* shroud/ui.scm (%default-config): Change default value of
'database-file'.
(shroud-main): Ensure database directory has been created before
saving.
Diffstat (limited to 'shroud/ui.scm')
| -rw-r--r-- | shroud/ui.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/shroud/ui.scm b/shroud/ui.scm index 2fb3708..3cceac3 100644 --- a/shroud/ui.scm +++ b/shroud/ui.scm @@ -115,7 +115,7 @@ ARGS is the list of arguments received by the 'throw' handler." (report-load-error file args)))) (define %default-config - `((database-file . ,(string-append (getenv "HOME") "/.shroud-db")) + `((database-file . ,(string-append (getenv "HOME") "/.config/shroud/db.gpg")) (gpg-binary . "gpg"))) (define (load-config) @@ -175,4 +175,5 @@ ARGS is the list of arguments received by the 'throw' handler." command))) (apply proc config db args)))) (unless (eq? db result) + (mkdir-p (dirname db-file)) (save-secrets result db-file user-id)))))))) |