osamu2001

#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use Encode;
my $ens="";
my $jas="";
my $mode="en";

&print_tmx_header();

osamu2001

#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use Encode;

my $fcode = "";
my $mode  = "";
my $msgid = "";
my $msgstr = "";

osamu2001

#!/bin/sh
MO=$1
msgunfmt ${MO} -o tmp.po
./po2tmx.pl < tmp.po > `basename ${MO} .mo`.tmx
rm tmp.po

osamu2001

#!/usr/local/bin/perl
# ref:http://paranoids.sakura.ne.jp/kaworu/2007-12-31-2.php
use strict;
use warnings;

use ChangeLogReader;
my $stop_date = "0";
my $cl = ChangeLogReader->new(stop_date => $stop_date);
my $fname = "ChangeLog.home";

osamu2001

#!/usr/local/bin/perl
# ref:http://paranoids.sakura.ne.jp/kaworu/2007-12-31-2.php
use strict;
use warnings;

use ChangeLogReader;
my $stop_date = "0";
my $cl = ChangeLogReader->new(stop_date => $stop_date);
my $fname = "ChangeLog";

osamu2001

//Copyright bill.mill(tabcopy),ryuusei(Copy Title+URL to clipboard)
<script>
function copyToClipboard(str) {
  var obj=document.getElementById("hbnaclhngkhpmpgmfakaghgjbblokeeh");
  if( obj ){
    obj.value = str;
    obj.select();
    document.execCommand("copy", false, null);
  }
}

osamu2001

(defadvice doc-view-pdf/ps->png
(around path-trans-on-doc-view activate)
  (let* ((coding-system-for-write 'cp932)
	(pdf (ad-get-arg 0))
	(png (ad-get-arg 1)))
    (ad-set-arg 0 (w32-symlinks-Cyg-to-Win pdf))
    (ad-set-arg 1 (w32-symlinks-Cyg-to-Win png))
    (message "pdf:%s" (ad-get-arg 0))
    (message "png:%s" (ad-get-arg 1))
    ad-do-it))

osamu2001

;(setq org-archive-location "%s_archive::date-tree")
(defadvice org-archive-subtree
  (around org-archive-subtree-to-data-tree activate)
  "org-archive-subtree to date-tree"
  (if 
      (string= "date-tree" 
	       (org-extract-archive-heading 
		(org-get-local-archive-location)))
      (let* ((dct (decode-time (org-current-time)))
	     (y (nth 5 dct))

osamu2001

# orgcard2txt.pl - a script to generate orgcard.txt from orgcard.tex
# Copyright (C) 2010 Osamu OKANO
#
# Version: 0.1
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#

osamu2001

(defadvice vc-git-command
  (around vc-git-command-for-win activate)
  (let ((coding-system-for-write file-name-coding-system))
    ad-do-it
))
(defadvice vc-git--call
  (around vc-git--call-for-win activate)
  (let ((coding-system-for-write file-name-coding-system))
    ad-do-it
))