Skip to content

Instantly share code, notes, and snippets.

View mrmt's full-sized avatar

MORIMOTO Jun mrmt

View GitHub Profile
@mrmt
mrmt / 101.reg
Created October 21, 2012 03:32
Registry to force Windows 7 to use US keyboard
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\i8042prt\Parameters]
"LayerDriver JPN"="kbd101.dll"
"OverrideKeyboardIdentifier"="PCAT_101KEY"
"OverrideKeyboardType"=dword:00000007
"OverrideKeyboardSubtype"=dword:00000000
@mrmt
mrmt / follow-back.pl
Created December 1, 2012 02:31
following back my twitter followers
#!/usr/bin/perl
# following back my twitter followers
# get consumer keys and access token from http://dev.twitter.com/apps/new
use utf8;
use strict;
use warnings;
use Net::Twitter;
use YAML::Tiny;
sub usage{
@mrmt
mrmt / calendarserver
Created December 31, 2012 10:56
/etc/default/calendarserver
# Defaults for calendarserver initscript (/etc/init.d/calendarserver)
# This is a POSIX shell fragment
# uncomment to start calendarserver on system startup
start_calendarserver=yes
# options to pass to calendarserver on startup
#DAEMON_OPTS=""
@mrmt
mrmt / accounts.xml
Last active December 10, 2015 10:08
/etc/caldavd/accounts.xml
<!--
Copyright (c) 2006-2007 Apple Inc. All rights reserved.
Licensed under the Apache License, Version 2.0 (the "License");
you may not use this file except in compliance with the License.
You may obtain a copy of the License at
http://www.apache.org/licenses/LICENSE-2.0
Unless required by applicable law or agreed to in writing, software
@mrmt
mrmt / atena-shokunin-xml.pl
Created January 4, 2013 06:22
宛名職人V17でContactXML 1.1, utf-8で出力
#!/usr/bin/perl
# 宛名職人V17でContactXML 1.1, utf-8で出力
use Data::Dumper;
{
package Data::Dumper;
sub qquote { return shift; }
}
$Data::Dumper::Useperl = 1;
@mrmt
mrmt / hatena2pinboard.pl
Last active December 11, 2015 07:08
はてなブックマークしたエントリがすでにpinboardに存在する場合、pinboard側の情報を上書きしない
#!/usr/bin/perl
# from http://d.hatena.ne.jp/amachang/20090603/1244025898
use utf8;
use strict;
use warnings;
use CGI;
use Net::Delicious;
use Config::Pit;
use constant {
#!/usr/bin/perl
sub replace{
my $url = shift;
$url =~ s|.*RD_PARM1=||;
$url =~ s|%25(..)|chr(hex($1))|ge;
$url =~ s|\?.*||;
return '\"' . $url . '?uo=4&at=10l4yZ' . '\"';
}
while(<>){
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html lang="en">
<head>
<!--
Designed by
_|_|_| _|_| _|_|_|_| _|_| _| _|_|
@mrmt
mrmt / gist:7674746
Last active December 29, 2015 13:08
Google日本語入力のローマ字変換ルールに、大文字ローマ字入力でカタカナを入力できるようにするための設定
- ー
~ 〜
. 。
, 、
z/ ・
z. …
z, ‥
zh ←
zj ↓
zk ↑
@mrmt
mrmt / trademark.iim
Created December 24, 2013 09:30
iMacrosで特許電子図書館 - 商標検索の商標文字列検索を ちょっとだけラクにする
VERSION BUILD=8601111 RECORDER=FX
TAB T=1
URL GOTO=about:newtab
URL GOTO=http://www.ipdl.inpit.go.jp/Syouhyou/syouhyou.htm
TAG POS=1 TYPE=A ATTR=TXT:商標出願・登録情報
PROMPT "Please enter name" !VAR1
TAG POS=1 TYPE=INPUT:TEXT FORM=NAME:FORM1 ATTR=NAME:key01 CONTENT={{!VAR1}}
TAG POS=1 TYPE=INPUT:BUTTON FORM=NAME:FORM1 ATTR=*
SET !TIMEOUT 10
TAG POS=1 TYPE=INPUT:BUTTON FORM=ACTION:/syutsugan/TM_LIST_A.cgi ATTR=*