diff options
| -rw-r--r-- | config/rofi/config.rasi (renamed from rofi/config.rasi) | 0 | ||||
| -rw-r--r-- | dot-guile | 3 | ||||
| -rw-r--r-- | dot-inputrc (renamed from .inputrc) | 0 | ||||
| -rwxr-xr-x | install.scm | 25 | ||||
| -rw-r--r-- | mail/dot-mbsyncrc (renamed from .mbsyncrc) | 0 | ||||
| -rw-r--r-- | mail/dot-notmuch-config (renamed from .notmuch-config) | 0 |
6 files changed, 19 insertions, 9 deletions
diff --git a/rofi/config.rasi b/config/rofi/config.rasi index 6f5608e..6f5608e 100644 --- a/rofi/config.rasi +++ b/config/rofi/config.rasi diff --git a/dot-guile b/dot-guile new file mode 100644 index 0000000..766ac36 --- /dev/null +++ b/dot-guile @@ -0,0 +1,3 @@ +(use-modules (ice-9 readline)) +(activate-readline) +(add-to-load-path "/home/titan/dev/helpful_scripts/guile/") diff --git a/install.scm b/install.scm index 57afda3..5346740 100755 --- a/install.scm +++ b/install.scm @@ -1,15 +1,17 @@ #!/usr/bin/guile \ -e main -s !# -(use-modules (ice-9 popen) - (ice-9 ftw) - (ice-9 match) - (ice-9 and-let-star) - (logging logger) - (logging port-log) - (oop goops) - (term ansi-color)) +(use-modules + (ice-9 and-let-star) + (ice-9 ftw) + (ice-9 match) + (ice-9 popen) + (ice-9 regex) + (logging logger) + (logging port-log) + (oop goops) + (term ansi-color)) (define (ansi-color-log-formatter lvl time str) (let ((color (cond ((eq? lvl 'CRITICAL) 'RED) @@ -86,9 +88,12 @@ (list 0) path)) +(define (replace str pattern new) + (regexp-substitute/global #f pattern str 'pre new 'post)) + (define (config-links src target dry-run) (let ((src-path (expand-file src)) - (target-path (expand-file target))) + (target-path (replace (expand-file target) "dot-" "."))) (unless (and (symlink? target-path) (equal? (readlink target-path) src-path)) (clean-file target-path dry-run) (symlink src-path target-path) @@ -158,8 +163,10 @@ (git-config) (config-links "dot-guile" "~/.guile" #f) (config-links "dot-zshrc" "~/.zshrc" #f) + (config-links "dot-inputrc" "~/.inputrc" #f) (config-links "gnupu/gpg-agent.conf" "~/.gnupg/gpg-agent" #f) (symlink-tree "bin" "~/.local/bin") (symlink-tree "config" "~/.config") + (symlink-tree "mail" "~/") (shutdown-logging)) diff --git a/.mbsyncrc b/mail/dot-mbsyncrc index 3e3e7d6..3e3e7d6 100644 --- a/.mbsyncrc +++ b/mail/dot-mbsyncrc diff --git a/.notmuch-config b/mail/dot-notmuch-config index e74011c..e74011c 100644 --- a/.notmuch-config +++ b/mail/dot-notmuch-config |