From ab2c3b1b528e10733d553dec737763b89b22ea25 Mon Sep 17 00:00:00 2001 From: Masaya Tojo Date: Tue, 23 Feb 2021 21:46:27 +0900 Subject: Refactor expand tabs --- link.scm | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/link.scm b/link.scm index 4493043..0e4a1a7 100755 --- a/link.scm +++ b/link.scm @@ -1,7 +1,7 @@ #!/usr/bin/env guile !# (use-modules (mkdir-p) - (srfi srfi-19)) + (srfi srfi-19)) (define dotfiles '(.emacs @@ -15,15 +15,15 @@ (define (symlink-dotfile dotfile) (let ((oldpath (string-append dotfiles-directory "/" (symbol->string dotfile))) - (newpath (string-append (getenv "HOME") "/" (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))))) + (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) -- cgit v1.2.3