valvallow

#!/usr/local/bin/gosh

(use srfi-1)
(use text.csv)
(use file.util)
(use rfc.json)
(use util.list)
(use gauche.parseopt)

(define (usage)

valvallow

FILE='filepath' ; echo "(`date +%s` - `date -d \"\`stat --print=%y "$FILE" \`\" +%s`) / (60 * 60 * 24)" | bc

valvallow

#!/bin/sh


VALUE_ICON=`cygpath -d "$HOME/pict/terminal.png"`
VALUE_TITLE="terminal"
VALUE_MESSAGE="Ha!!"

while getopts hi:t:m: OPT
do
        case $OPT in

valvallow

#!/bin/sh

MEMO_PATH="$HOME"/.shellmemo
TAG_NAMES=""

usage () {
        echo 'Usage:memo [-dth] <memo>'
        echo '  -d : display memo records'
        echo '  -t : tag'
        echo '  -c : clear'

valvallow

#!/usr/local/bin/gosh

(use rfc.http)
(use srfi-1)

(define (main args)
  (let ((urls (remove (pa$ equal? "")
                      (string-split (port->string (current-input-port)) "\n"))))
    (for-each print
              (filter-map (^u (guard (ex (else (print u)))

valvallow

#!/usr/local/bin/gosh

(use rfc.json)
(use rfc.http)
(use util.list)

;; http://api.twitter.com/1/statuses/friends.json?cursor=-1&id=valvallow

(define (usage)
  (print "Usage: twitter-friends <twitter-id>")

valvallow

#!/usr/local/bin/gosh

(use graphics.gd)
(use gauche.parseopt)

(define (usage)
  (print "Usage: kakizome <message> <name> <font>")
  (exit 1))

valvallow

#!/bin/sh

# toothless

VALUE_START_NUMBER=0

while getopts hs: OPT
do
    case $OPT in
        "s" ) VALUE_START_NUMBER="$OPTARGS" ;;

valvallow

#!/bin/sh
# date2bin

this_usage () {
    echo 'Usage: date2bin [-ndf]'
    echo '   n : number of days count as integer'
    echo '   f : display flat line'
    echo '   d : start date as integer (ex. $ date +%Y%m%d)'
    echo '   h : display this usage'
    exit 0

valvallow

#!/bin/sh

# http://d.hatena.ne.jp/jeneshicc/20110215/1297778049

if [ -f $1 ] ; then
        case $1 in
                *.tar.bz2)   tar xvjf $1    ;;
                *.tar.gz)    tar xvzf $1    ;;
                *.tar.xz)    tar xvJf $1    ;;
                *.bz2)       bunzip2 $1     ;;