dotfiles

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

commit c818ffa892348a2e57db70d64e26e7d297f151f2
parent 10620aa0ebc9038d2ff5755a8409def0af56a730
Author: rsiddharth <rsiddharth@ninthfloor.org>
Date:   Thu, 16 Jun 2016 16:31:29 +0000

.bin/ping-for-jarl: rewrote it in guile.

Diffstat:
.bin/ping-for-jarl | 44+++++++++++++++++++++++---------------------
1 file changed, 23 insertions(+), 21 deletions(-)

diff --git a/.bin/ping-for-jarl b/.bin/ping-for-jarl @@ -1,23 +1,25 @@ -#!/bin/sh -# -# Copyright (C) 2016 rsiddharth <s@ricketyspace.net> -# -# This program is free software: you can redistribute it and/or -# modify it under the terms of the GNU General Public License as -# published by the Free Software Foundation, either version 3 of the -# License, or (at your option) any later version. -# -# This program is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -# General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program. If not, see -# <http://www.gnu.org/licenses/>. +#!/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> -# if $JARL_BACKUP_PATH is not mounted, ping me. +;; mplayer +(define mplayer "mplayer") -if [ ! -d $JARL_BACKUP_PATH ]; then - mplayer ~/.guix-profile/share/sounds/alsa/Noise.wav -fi +;; path to noise. +(define noise (string-append (getenv "GUIX_PROFILE") + "/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_BACKUP_PATH"))) + (file-exists? jarl-path))) + +(define (main args) + (if (not (jarl-mounted?)) (ping-me)))