From 5a411a9c030678d371297b32691da1f6b02c30e0 Mon Sep 17 00:00:00 2001 From: rsiddharth Date: Sun, 10 Jul 2016 02:36:37 +0000 Subject: add configuration functions. * git-difme.scm (load-config, get-config-path, get-difme-repos): new functions. --- git-difme.scm | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) diff --git a/git-difme.scm b/git-difme.scm index 76c35e2..bc999da 100644 --- a/git-difme.scm +++ b/git-difme.scm @@ -30,6 +30,29 @@ (close-pipe port) out-lst)) +;;;; configuration +(define (load-config path) + "load configuration file from PATH. + +errors out if PATH does not exists." + (if (file-exists? path) + (load path) + (error "config not found at" path))) + +(define (get-config-path) + "return configuration file path as a string." + (string-append (getenv "HOME") "/.config/git-difme/config")) + +(define (get-difme-repos) + "return difme repos returned by `difme-repos` function. + +`difme-repos` is defined in the configuration file; this function +loads the configuration file and then evals the `difme-repos` +function." + (let ((path (get-config-path))) + (load-config path) + (eval '(difme-repos) (interaction-environment)))) + ;;;; main (define (main srcs) srcs) -- cgit v1.2.3