diff options
| 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 |
| commit | e0c3b8433b405430b1960ab6e41c478414aeb737 (patch) | |
| tree | 11432defe721cbdeb0f25dff97638e19bfb1363c | |
| parent | 8e48117d80046c490322266ed58bb28a3e0a8682 (diff) | |
| download | dotfiles-e0c3b8433b405430b1960ab6e41c478414aeb737.tar.gz dotfiles-e0c3b8433b405430b1960ab6e41c478414aeb737.tar.bz2 dotfiles-e0c3b8433b405430b1960ab6e41c478414aeb737.zip | |
Code unification
| -rwxr-xr-x | install.scm | 14 |
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)) |