diff options
| author | Óscar Nájera <hi@oscarnajera.com> | 2020-10-19 22:13:40 +0200 |
|---|---|---|
| committer | Óscar Nájera <hi@oscarnajera.com> | 2020-10-19 22:13:40 +0200 |
| commit | 9e932b683177ec65b0a602974528653bab1b574c (patch) | |
| tree | 2479d50e709eb57618f4f51756d8bff55a062ee2 /install.scm | |
| parent | 4704bb881d173f30767cbeea171b73db3b62b52d (diff) | |
| download | dotfiles-9e932b683177ec65b0a602974528653bab1b574c.tar.gz dotfiles-9e932b683177ec65b0a602974528653bab1b574c.tar.bz2 dotfiles-9e932b683177ec65b0a602974528653bab1b574c.zip | |
symlink the scripts
Diffstat (limited to 'install.scm')
| -rwxr-xr-x | install.scm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/install.scm b/install.scm index 5cdef9b..8e1d914 100755 --- a/install.scm +++ b/install.scm @@ -4,6 +4,7 @@ (use-modules (ice-9 popen) (logging logger) (logging port-log) + (ice-9 ftw) (oop goops) (term ansi-color)) @@ -66,6 +67,14 @@ (config-links " Symlink global config" "git/global-gitconfig" "~/.gitconfig") (config-links " Symlink Tribe29 config" "git/tribe29" "~/git/.gitconfig")) +(define (symlink-dir dir target-dir) + (let ((cur (getcwd))) + (chdir dir) + (map (lambda (cmd) + (config-links (string-append " Symlink " cmd) cmd (string-append target-dir cmd))) + (scandir "." (lambda (f) (eq? 'regular (stat:type (stat f)))))) + (chdir cur))) + (define (main args) (setup-logging) (log-msg 'INFO "Symlink PIM") @@ -74,5 +83,6 @@ (config-links " Symlink guile defaults" "dot-guile" "~/.guile") (config-links " Symlink rofi" "rofi" "~/.config/rofi") (config-links " Symlink zshrc" "dot-zshrc" "~/.zshrc") + (symlink-dir "bin" "~/.local/bin/") (shutdown-logging)) |