diff options
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)) |