blob: bc999da16dddb486d5ec27118cfde83af1a84b82 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
;; coding: utf-8
;; license: gnu gpl version 3 or higher.
;; copyright 2016 rsiddharth <s@ricketyspace.net>
(define-module (git-difme)
#:use-module (ice-9 popen)
#:use-module (ice-9 rdelim)
#:export (main))
;;;; utils
;;; following macro from (guix build utils) module.
;;; copyright 2012 Ludovic Courtès <ludo@gnu.org>
;;; commit b0e0d0e99f
(define-syntax-rule (with-directory-excursion dir body ...)
"run BODY with DIR as the process's current directory."
(let ((init (getcwd)))
(dynamic-wind
(lambda () (chdir dir))
(lambda () body ...)
(lambda () (chdir init)))))
(define (difme-exec cmd)
"execute CMD and return output as a list of strings."
(let* ((port (open-input-pipe cmd))
(out (read-string port))
(out-lst (map string-trim-both
(delete "" (string-split out #\newline)))))
(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)
|
