aboutsummaryrefslogtreecommitdiffstats
path: root/install.scm
diff options
context:
space:
mode:
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
commit9e932b683177ec65b0a602974528653bab1b574c (patch)
tree2479d50e709eb57618f4f51756d8bff55a062ee2 /install.scm
parent4704bb881d173f30767cbeea171b73db3b62b52d (diff)
downloaddotfiles-9e932b683177ec65b0a602974528653bab1b574c.tar.gz
dotfiles-9e932b683177ec65b0a602974528653bab1b574c.tar.bz2
dotfiles-9e932b683177ec65b0a602974528653bab1b574c.zip
symlink the scripts
Diffstat (limited to 'install.scm')
-rwxr-xr-xinstall.scm10
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))