Add `link.scm` script

2 files changed, 31 insertions, 0 deletions

diff --git a/link.scm b/link.scm
new file mode 100755
index 0000000..d64bb5e
--- /dev/null
+++ b/link.scm
@@ -0,0 +1,30 @@
+#!/usr/bin/env guile
+!#
+(use-modules (mkdir-p)
+	     (srfi srfi-19))
+
+(define dotfiles
+  '(.emacs
+    .xsession
+    .xsessionrc
+    .exwm
+    .gitconfig
+    .config/dunst/dunstrc))
+
+(define dotfiles-directory (string-append (getenv "HOME") "/" "dotfiles"))
+(define backup-suffix (date->string (current-date) ".~Y~m~d~H~M~S"))
+
+(define (symlink-dotfile dotfile)
+  (let ((oldpath (string-append dotfiles-directory "/" (symbol->string dotfile)))
+	(newpath (string-append (getenv "HOME") "/" (symbol->string dotfile))))
+    (cond
+     ((string-index-right newpath #\/)
+      => (lambda (i) (mkdir-p (substring newpath 0 i)))))
+    (call/cc (lambda (skip)
+	       (when (file-exists? newpath)
+		 (when (string=? oldpath (readlink newpath))
+		   (skip))
+		 (rename-file newpath (string-append newpath backup-suffix)))
+	       (symlink oldpath newpath)))))
+
+(for-each symlink-dotfile dotfiles)
diff --git a/manifest.scm b/manifest.scm
index 1017f6a..f516cb8 100644
--- a/manifest.scm
+++ b/manifest.scm
@@ -7,6 +7,7 @@
    "font-google-noto"
    "gnome-icon-theme"
    "guile"
+   "guile-mkdir-p"
    "emacs"
    "emacs-ido-completing-read+"
    "emacs-ddskk"