dotfiles

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

commit 4b44ed7dce42c30c65cb7bcaa5523adc7b889a9c
parent 05abc8e40b2cea05d0e9b88b3f1271f336515a8b
Author: rsiddharth <s@ricketyspace.net>
Date:   Sat, 25 Jun 2016 19:13:23 +0000

.bin/fdg: modded comments.

vaguely follows "Riastradh's Lisp Style Rules"[1].

[1]: http://mumble.net/~campbell/scheme/style.txt

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

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