diff options
| -rwxr-xr-x | bin/backup.sh (renamed from .local/bin/backup.sh) | 4 | ||||
| -rwxr-xr-x | bin/tagmail.sh (renamed from .local/bin/tagmail.sh) | 4 | ||||
| -rwxr-xr-x | install.scm | 10 |
3 files changed, 14 insertions, 4 deletions
diff --git a/.local/bin/backup.sh b/bin/backup.sh index 52ca53a..74cc02c 100755 --- a/.local/bin/backup.sh +++ b/bin/backup.sh @@ -32,5 +32,5 @@ backup_local(){ } backup_local borgbackup ssh://backup/media/Backup/daily_backup/ ~/dev/ ~/.mail/ ~/Nextcloud/ ~/org/ /media/backup/personal/Pictures/ /media/backup/personal/Libros/ /media/backup/personal/dev/ /media/backup/Archives/ -backup_local Admin/sarah/borg/ingrid ssh://borgbackup@najera.pw/./repos/ingrid ~/dev/ ~/org/ ~/.mail/ ~/Nextcloud/ -backup_local Admin/sarah/borg/oscar ssh://borgbackup@najera.pw/./repos/oscar /media/backup/personal/Pictures/ /media/backup/personal/Libros/ /media/backup/personal/dev/ /media/backup/Archives/ +backup_local Admin/sarah/borg/ingrid ssh://borgbackup@173.212.211.30/./repos/ingrid ~/dev/ ~/org/ ~/.mail/ ~/Nextcloud/ +backup_local Admin/sarah/borg/oscar ssh://borgbackup@173.212.211.30/./repos/oscar /media/backup/personal/Pictures/ /media/backup/personal/Libros/ /media/backup/personal/dev/ /media/backup/Archives/ diff --git a/.local/bin/tagmail.sh b/bin/tagmail.sh index ea3616b..b08b005 100755 --- a/.local/bin/tagmail.sh +++ b/bin/tagmail.sh @@ -35,8 +35,8 @@ notmuch tag +linkedin +socialnews -new -- from:linkedin.com notmuch tag +promotions -- from:newsletter notmuch tag +toastmasters -- toastmaster NOT from:info@meetup.com -notmuch tag +sms -inbox -- folder:hi_pers/SMS -notmuch tag +calls -inbox -- folder:hi_pers/Calls +notmuch tag +sms -new -- folder:hi_pers/SMS +notmuch tag +calls -new -- folder:hi_pers/Calls # afew tagging afew --tag --new -v 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)) |