Skip to content

Instantly share code, notes, and snippets.

View handlename's full-sized avatar

NAGATA Hiroaki handlename

View GitHub Profile
@handlename
handlename / gist:1928772
Created February 28, 2012 02:31
search char sequentially
;; search char
;; http://dev.ariel-networks.com/wp/documents/aritcles/emacs/part16
;; List3
(defvar last-search-char nil)
(defvar last-search-direction 'forward)
(defun search-forward-with-char (char)
(interactive "cMove to Char: ")
(if (eq (char-after (point)) char) (forward-char))
(and (search-forward (char-to-string char) nil t)
@handlename
handlename / gist:1851372
Created February 17, 2012 06:45
Style file for Twitter
@namespace url(http://www.w3.org/1999/xhtml);
@-moz-document
url-prefix("https://twitter.com") {
div.dashboard {
display: none;
}
div.content-main {
width: 650px !important;
@handlename
handlename / linkedin_withdraw.pl
Created January 9, 2012 11:47
withdraw all requsts on LinkedIn.
#!/usr/bin/env perl
use strict;
use warnings;
use WWW::Mechanize;
my $email = shift;
my $password = shift;
var next = require("path/to/next");
function first(callbacks, params) {
asyncProcess(function(res) {
params.first = res;
next(callbacks, params);
});
}
function second(callbacks, params) {
module.exports = function(callbacks, args) {
if (0 < callbacks.length) {
callbacks.shift()(callbacks, args);
}
};
var http = require("http");
http.get({
host: "example.com",
port: 80,
path: "/"
}, function(res) {
var text = "";
res.setEncoding("utf8");
var array = [
1,
2,
[10, 11, 12],
[20, 21, [30, 31]],
3
];
console.log('before');
console.log(array);
@handlename
handlename / string-width-in-regien.el
Created April 15, 2011 07:35
display string width in current buffer to mini buffer.
(defun string-width-in-region (start end)
(interactive "r")
(princ (string-width (buffer-substring start end))))
@handlename
handlename / ktai-hankaku.el
Created February 5, 2011 21:39
replace katakana characters with hankaku katakana characters.
(defun ktai-hankaku-katakana-region (start end)
(interactive "r")
(while (string-match
"[0-9A-Za-zァ-ンー:;$]+\\|[!?][!?]+"
(buffer-substring start end))
(save-excursion
(japanese-hankaku-region
(+ start (match-beginning 0))
(+ start (match-end 0))
))))