From 9e932b683177ec65b0a602974528653bab1b574c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=C3=93scar=20N=C3=A1jera?= Date: Mon, 19 Oct 2020 22:13:40 +0200 Subject: symlink the scripts --- install.scm | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'install.scm') 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)) -- cgit v1.2.3