dotfiles

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

commit 7695f82844b36e179f6fbba6b1e021c1548c32d8
parent 4b44ed7dce42c30c65cb7bcaa5523adc7b889a9c
Author: rsiddharth <s@ricketyspace.net>
Date:   Sat, 25 Jun 2016 19:15:46 +0000

.bin/ping-for-jarl: modded comments.

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

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

Diffstat:
.bin/ping-for-jarl | 14+++++++-------
1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/.bin/ping-for-jarl b/.bin/ping-for-jarl @@ -1,22 +1,22 @@ #!/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> -;; mplayer +;;; mplayer (define mplayer "mplayer") -;; path to noise. +;;; path to noise. (define noise (string-append (getenv "GUIX_PROFILE") "/share/sounds/alsa/Noise.wav")) -;; produce some noise. +;;; produce some noise. (define (ping-me) (system* mplayer noise)) -;; return #t, iff jarl is mounted. +;;; return #t, iff jarl is mounted. (define (jarl-mounted?) (let ((jarl-path (getenv "JARL_BACKUP_PATH"))) (file-exists? jarl-path)))