dotfiles

config files and scripts at HOME.
git clone git://git.ricketyspace.net/dotfiles.git
Log | Files | Refs

commit eab2c7467dadb2f6114f0bcb9d5a17bcedf316c5
parent cc10bafe3072a8c2ea3ea37301a8daccf746a7f3
Author: rsiddharth <s@ricketyspace.net>
Date:   Thu, 24 May 2018 22:24:52 +0000

.bin: Remove fdg (Moved to dip).

Diffstat:
.bin/fdg | 30------------------------------
1 file changed, 0 insertions(+), 30 deletions(-)

diff --git a/.bin/fdg b/.bin/fdg @@ -1,30 +0,0 @@ -#!/home/s/.guix-profile/bin/guile \ --e main -s -!# -;;;; coding: utf-8 -;;;; license: GPL-3.0-or-later -;;;; copyright 2016 rsiddharth <s@ricketyspace.net> - -(define (dest) - "destination to dump file(s) to." - (let ((d (getenv "FDUMP_DEST"))) - (if d d (begin (display "Error: FDUMP_DEST not set!\n") - (exit #f))))) - -;;; path to ssh private key. -(define (ident) - (getenv "FDUMP_ID")) - -;;; scp command. -(define scp "scp") - -(define (dump file) - "dump a file." - (let ((d (dest))) - (if (ident) - (system* scp "-i" (ident) file d) - (system* scp file d)))) - -;;; main function. -(define (main srcs) - (map dump (cdr srcs)))