From fc80430217607a34ba7049adb2bf5ef7b2e62d14 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Sat, 29 Jul 2023 17:14:48 +0200 Subject: [PATCH] HOME expansion --- fetch_fio.sh | 3 +-- fetch_fio_fine.sh | 3 +-- src/configuration.scm | 7 +++++-- 3 files changed, 7 insertions(+), 6 deletions(-) diff --git a/fetch_fio.sh b/fetch_fio.sh index 0767c8d..fee3b67 100644 --- a/fetch_fio.sh +++ b/fetch_fio.sh @@ -32,8 +32,7 @@ exit 0 APIURI=https://www.fio.cz/ib_api/rest # Configuration defaults - none -# TODO: quick fix -CONFIG_FILE=/home/hackerbase/.hackerbaserc +CONFIG_FILE="$HOME/.hackerbaserc" CFG_BANK_DIR= CFG_APIKEYS_FILE= ARG_BANK_DIR= diff --git a/fetch_fio_fine.sh b/fetch_fio_fine.sh index d3b4ce5..95f94f4 100644 --- a/fetch_fio_fine.sh +++ b/fetch_fio_fine.sh @@ -29,8 +29,7 @@ APIURI=https://www.fio.cz/ib_api/rest # Configuration defaults - none -# TODO: quick fix -CONFIG_FILE=/home/hackerbase/.hackerbaserc +CONFIG_FILE="$HOME/.hackerbaserc" CFG_BANK_DIR= CFG_APIKEYS_FILE= ARG_BANK_DIR= diff --git a/src/configuration.scm b/src/configuration.scm index 48d5c12..a4dd70e 100644 --- a/src/configuration.scm +++ b/src/configuration.scm @@ -47,6 +47,8 @@ (chicken time posix) (chicken file) (chicken io) + (chicken process-context) + (chicken pathname) util-parser) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -55,8 +57,9 @@ ;; Where to load initial configuration from (define *etc-hackerbase* (make-parameter (list "/etc/hackerbase" - ;; TODO: $HOME expansion - "/home/hackerbase/.hackerbaserc"))) + (make-pathname + (get-environment-variable "HOME") + ".hackerbaserc")))) ;; Needed by multiple modules actually (define *members-directory* (make-parameter #f))