aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorÓscar Nájera <hi@oscarnajera.com>2020-09-28 22:40:11 +0200
committerÓscar Nájera <hi@oscarnajera.com>2020-10-02 09:29:52 +0200
commite0c3b8433b405430b1960ab6e41c478414aeb737 (patch)
tree11432defe721cbdeb0f25dff97638e19bfb1363c
parent8e48117d80046c490322266ed58bb28a3e0a8682 (diff)
downloaddotfiles-e0c3b8433b405430b1960ab6e41c478414aeb737.tar.gz
dotfiles-e0c3b8433b405430b1960ab6e41c478414aeb737.tar.bz2
dotfiles-e0c3b8433b405430b1960ab6e41c478414aeb737.zip
Code unification
-rwxr-xr-xinstall.scm14
1 files changed, 7 insertions, 7 deletions
diff --git a/install.scm b/install.scm
index 770dd81..0923488 100755
--- a/install.scm
+++ b/install.scm
@@ -57,19 +57,19 @@
(delete-file full-dest))
full-dest)
+(define (config-links title src target)
+ (symlink (expand-file src) (clean-file (expand-file target)))
+ (log-msg 'OK (string-append title " on " target)))
+
(define (git-config)
(log-msg 'INFO "Configuring git")
- (symlink (expand-file "git/global-gitconfig") (clean-file (expand-file "~/.gitconfig")))
- (log-msg 'OK " Symlink global config")
- (symlink (expand-file "git/tribe29") (clean-file (expand-file "~/git/.gitconfig")))
- (log-msg 'OK " Symlink Tribe29 config"))
+ (config-links " Symlink global config" "git/global-gitconfig" "~/.gitconfig")
+ (config-links " Symlink Tribe29 config" "git/tribe29" "~/git/.gitconfig"))
(define (main args)
(setup-logging)
(log-msg 'INFO "Symlink PIM")
-
- (symlink (expand-file "calendars.conf") (clean-file (expand-file "~/.calendars.conf")))
- (log-msg 'OK " Symlink agenda")
+ (config-links " Symlink agenda" "calendars.conf" "~/.calendars.conf")
(git-config)
(shutdown-logging))