dotfiles

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

commit 975bec7a362e237e03dd789e212764fc6d1bd015
parent 387ae56d9273deb57faf1527d320e69ee8f6ca27
Author: rsiddharth <s@ricketyspace.net>
Date:   Sat, 24 Feb 2018 02:24:54 +0000

.bin: Remove ping-for-jarl.

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

diff --git a/.bin/ping-for-jarl b/.bin/ping-for-jarl @@ -1,24 +0,0 @@ -#!/home/s/.guix-profile/bin/guile \ --e main -s -!# -;;;; coding: utf-8 -;;;; license: gnu gpl version 3 or higher. -;;;; copyright 2016 rsiddharth <s@ricketyspace.net> - -;;; mplayer -(define mplayer "mplayer") - -;;; path to noise. -(define noise "/usr/share/sounds/alsa/Noise.wav") - -;;; produce some noise. -(define (ping-me) - (system* mplayer noise)) - -;;; return #t, iff jarl is mounted. -(define (jarl-mounted?) - (let ((jarl-path (getenv "JARL_PATH"))) - (file-exists? jarl-path))) - -(define (main args) - (if (not (jarl-mounted?)) (ping-me)))