Skip to content

Instantly share code, notes, and snippets.

View mrmt's full-sized avatar

MORIMOTO Jun mrmt

View GitHub Profile
@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 / 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 / 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 / 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 / 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 / seen
Created October 12, 2012 09:21
rename mail file within Maildir to seen status
#!/usr/bin/perl
# rename mail file within Maildir to seen status
use strict;
use warnings;
my $file = shift;
die unless -r $file;
die unless -f $file;
@mrmt
mrmt / refollow.pl
Created September 5, 2012 04:52
re-follow twitter followers
#!/usr/bin/perl
# 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;
use Data::Dumper;
sub usage{
@mrmt
mrmt / gist:1520448
Created December 26, 2011 02:58
convert wiki notation from wiliki to souceforge.jp
;; -*-emacs-lisp-*-
;; converting wiki notation from wiliki to souceforge.jp
(defun sf ()
"converting wiki notation from wiliki to souceforge.jp"
(interactive)
(save-excursion
;; heading
(goto-char (point-min))
@mrmt
mrmt / gist:1480101
Created December 15, 2011 06:47
facebookから認証紐付けを外すとMixcloudからとどくフォローメール
From: Mixcloud <noreply@mixcloud.com>
Subject: How to reclaim your Mixcloud account.
To: XXXXXXXXXXXXXXXXXXXX
You're receiving this e-mail because you have de-authorized Mixcloud from
your Facebook account,
and we are sad to see you leave.
If you want to claim your Mixcloud account, please go to the following page
and choose a password,
@mrmt
mrmt / libkern.pl
Created November 21, 2011 15:59
libkern.pl from fml
#!/usr/bin/perl
#
# Copyright (C) 1993-2001 Ken'ichi Fukamachi
# All rights reserved.
# 1993-1996 fukachan@phys.titech.ac.jp
# 1996-2001 fukachan@sapporo.iij.ad.jp
#
# FML is free software; you can redistribute it and/or modify
# it under the terms of GNU General Public License.
# See the file COPYING for more details.