Akira TAGOH tagoh
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #! /usr/bin/env gosh | |
| (use srfi-1) | |
| (use srfi-13) | |
| (use file.util) | |
| (use sxml.ssax) | |
| (use sxml.sxpath) | |
| (use text.tree) | |
| (define (fc-getenv envvar default) |
tagoh
/ How to access goo.gl in Ruby
Created
October 20, 2010 07:44
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ruby -rrubygems -rnet/http -ruri -e 'require "json";print JSON.parse(Net::HTTP.post_form(URI.parse("http://goo.gl/api/shorten"),{:url=>ARGV[0]}).body)["short_url"]' http://www.google.com |
tagoh
/ Riece configuration to have same colors on xchat
Created
October 15, 2010 03:31
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (setq riece-ctlseq-colors '("#cecece" "black" "#0000cc" "#00cc00" "#dd0000" "#aa0000" "#bb00bb" "#ffaa00" | |
| "#eedd22" "#33de55" "#00cccc" "#33eeff" "#0000ff" "#ee22ee" "#777777" "#999999")) |
tagoh
/ Patch to keep the compatibility with xchat's coloring
Created
October 15, 2010 03:26
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| diff --git a/lisp/riece-ctlseq.el b/lisp/riece-ctlseq.el | |
| index b1bb87d..7cae37d 100644 | |
| --- a/lisp/riece-ctlseq.el | |
| +++ b/lisp/riece-ctlseq.el | |
| @@ -61,7 +61,7 @@ | |
| "Mark up control sequences in IRC buffers.") | |
| (defconst riece-ctlseq-regexp | |
| - "[\x2\xF\x16\x1F]\\|\x3\\([0-9]+\\)?\\(,[0-9]+\\)?") | |
| + "[\x2\xF\x16\x1F]\\|\x3\\([0-9]\\{1,2\\}\\)?\\(,[0-9]\\{1,2\\}\\)?") |
tagoh
/ patch to fix ^O sequence with riece-ctlseq.el add-on
Created
October 14, 2010 07:31
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| diff -pruN riece-7.0.0.orig/lisp/riece-ctlseq.el riece-7.0.0/lisp/riece-ctlseq.el | |
| --- riece-7.0.0.orig/lisp/riece-ctlseq.el 2010-05-29 08:58:38.000000000 +0900 | |
| +++ riece-7.0.0/lisp/riece-ctlseq.el 2010-10-14 16:21:47.000000000 +0900 | |
| @@ -136,7 +136,13 @@ | |
| (cond | |
| ((eq (aref tag 0) ?\x2) ;^B | |
| (plist-put attrs 'bold (not (plist-get attrs 'bold)))) | |
| - ((eq (aref tag 0) ?\xF)) ;^O | |
| + ((eq (aref tag 0) ?\xF) ;^O | |
| + (progn |
tagoh
/ Reproducible code to see if the file object is rolled back with restore
Created
August 18, 2010 14:15
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| $ echo "false setglobal (/etc/passwd)(r)file true setglobal save 1 index 256 string readline pop exch restore 1 index 256 string readline pop eq {(file object was rolled back\n)print}{(file object wasn't rolled back\n)print}ifelse gcheck =="|gs -dQUIET | |
| GS>file object wasn't rolled back | |
| false | |
| GS> |