Skip to content

Instantly share code, notes, and snippets.

// ==UserScript==
// @name heimin_change_image_size
// @namespace http://d.hatena/kitokitoki
// @include http://d.hatena.ne.jp/heimin/*
// ==/UserScript==
(function() {
GM_addStyle(<><![CDATA[
div.body div.section img {
max-width: 512px !important;
max-height: 341.5px !important;
#!/bin/sh
IFS='
'
OLD=000053130
NEW=000004514
for FNAME in `ls`
do
RENAMEFNAME=`echo $FNAME | sed s/$OLD/$NEW/g`
mv $FNAME $RENAMEFNAME
perl -0777 -ne '$o=$ARGV;$ARGV=~s/22/33/;rename($o,$ARGV);' *
// keysnail の being 検索の置換.
key.setViewKey('M-b', function (aEvent) {
prompt.read("ALC search:", function (query) {
if (window.loadURI) {
getBrowser().selectedTab = getBrowser().addTab("http://eow.alc.co.jp/" + encodeURIComponent(query));
}
});
}, 'ALC検索');
(let ((i 0))
(while (< i 14)
(insert (format "\n%014d_vr.ezweb.ne.jp" i))
(setq i (1+ i))))
あるいは
(loop for i from 0 to 10
do (insert (format "\n%014d_vr.ezweb.ne.jp" i)))
javascript:void(window.open('http://jp.php.net/'+document.getSelection()))
javascript:(function(){document.location.href=decodeURI(window.location.href);})();
(defun my-make-test-uid-data (st en path)
(with-temp-buffer
(loop for i from st to en
do (insert (format "%014d_vr.ezweb.ne.jp\n" i)))
(delete-backward-char 1)
(write-region (point-min) (point-max) path)))
(my-make-test-uid-data 2000000 2004999 "~/2000000_2004999.csv")
(defun my-make-insert-sql (st en path)
(with-temp-buffer
(loop for i from st to en
do (insert (format
"INSERT INTO hoge.member (uid,mmmid) VALUES (%d,%d);\n"
i i))
do (insert (format
"INSERT INTO hoge.vice (uid,fooid) VALUES (%d,1);\n"
i))
(loop for j from 1 to 22
javascript:location.href='http://web.archive.org/*/'+location.host