mori-dev

// ==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;

mori-dev

#!/bin/sh
IFS='
'
OLD=000053130
NEW=000004514

for FNAME in `ls`
do
  RENAMEFNAME=`echo $FNAME | sed s/$OLD/$NEW/g`
  mv $FNAME $RENAMEFNAME

mori-dev

perl -0777 -ne '$o=$ARGV;$ARGV=~s/22/33/;rename($o,$ARGV);' *

mori-dev

// 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検索');

mori-dev

(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)))

mori-dev

javascript:void(window.open('http://jp.php.net/'+document.getSelection()))

mori-dev

javascript:(function(){document.location.href=decodeURI(window.location.href);})();

mori-dev

(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")

mori-dev

(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

mori-dev

javascript:location.href='http://web.archive.org/*/'+location.host