#!/usr/bin/ruby -w
require 'date'

class WaDate < Date
  GENGOU= {
    1868 => {:full => '明治', :short => '明', :alpha => 'M'},
    1912 => {:full => '大正', :short => '大', :alpha => 'T'},
    1926 => {:full => '昭和', :short => '昭', :alpha => 'S'},
    1989 => {:full => '平成', :short => '平', :alpha => 'H'}
  }

  def initialize(ajd=0, of=0, sg=ITALY)
    super
    @current_gengou = nil
  end

  def current_gengou
    return @current_gengou if @current_gengou && @current_gengou[:year] == year
    gengou_start_year = GENGOU.keys.sort.reverse.find do |start_year|
      year > start_year
    end
    @current_gengou = {
      :year => year,
      :gengou_year => year - gengou_start_year + 1
    }.merge(GENGOU[gengou_start_year])
  end

  def wa_year(style = nil)
    style && gengou(style) + current_gengou[:gengou_year].to_s || current_gengou[:gengou_year]
  end

  def gengou(style)
    current_gengou[style] || raise
  end

end



date = WaDate.today # 2010-05-13
puts date.wa_year :full # '平成22'
puts date.gengou :alpha # 'H'
puts date.wa_year + 1 #=> 23

gP がWindowsやEmacsのヤンクに近い挙動かもしれません。

それぞれの画像をクリックするとsvgファイルがダウンロードできます(フォントはIPAゴシックを使用)。

ポイント

• Fillは4段階のグラデーション。上を明るくします。HSVで何となく調整します。
• 下部分の影は一番上に持ってきています。
• 文字列のコピーをとって黒くしblurをかけてからオリジナル文字列の左上に配置するとへこんでいるように見えます。

Mercurialについて

インストール

xrea/mercurialにある通り実行します。

ダウンロード後 make&&install

$ wget mercurial-XXX; cd mercurial-XXX
$ HOME=$HOME/local make install-home
-- test
$ export PYTHONPATH=$HOME/local/lib/python
$ export PATH=$PATH:$HOME/local/bin
$ hg debuginstall

.bashrcに以下の内容を書き込みます。

export PATH=$PATH:$HOME/local/bin
export PYTHONPATH=$HOME/local/lib/python

MySQLについて

バックアップ

圧縮ダンプします

mysqldump  <databas-name>  -u <user_name> -p | bzip -c >  path/to/file.bz2

xyzzyとはフリー/シェアで公開されているエディタの中でもトップクラスの高性能なエディタです。詳しくはXyzzy Wikiの中にあるintroを見てみましょう。

機能

xyzzyに以下の機能を追加して再ビルドするものです。

• Homeディレクトリの自動設定。以下の順に検索
  • $xyzzy/home
  • $DRIVE/xyzzyhome
  • $DRIVE/home
  • $xyzzy
• xyzzy.iniを$XYZZY/usrに保存(ユーザ名やOS名でフォルダ分けしない)
• ダンプファイルxyzzy.imageとしてシステムのTempフォルダへ保存/読込
• unlha32.dllなど各種アーカイバDLLがシステムフォルダや$XYZZY内に存在しない場合は$XYZZY/libも検索
• putenv関数の追加(詳しくは「パッチ更新の履歴」参照)

ダウンロード

xyzzy-0.2.235-2009092301.patch を適用した xyzzy.exe、xyzzyenv.exe、xyzzycli.exe です。ダウンロード解凍後、本体のものと置き換えてください。

• xyzzy-20090923.zip (xyzzy-0.2.235ベース 約741KB)

その他、個人的な設定など

以下はおまけですが私は.xyzzyの位置をusrディクレトリ直下に固定しています。USBメモリーなどから直接使用する際にHOMEディレクトリやXYZZYHOMEの設定と関係無く.xyzzyファイルを読み込むためです。なお、estartup.lcが存在する場合(というか普通は存在するはず)はestartup.lを編集後バイトコンパイルしなければいけません。

--- xyzzy/lisp/estartup.l   2003-06-29 01:07:14.000000000 +0900
+++ xyzzy-merged/lisp/estartup.l   2006-04-08 11:17:10.000000000 +0900
@@ -147,11 +147,12 @@
       (ignore-errors (load-history-file-compat)))
     (unless no-init-file
       (trap-errors
        (let ((*loading-user-initial-file* t))
          (load (namestring (if (file-system-supports-long-file-name-p "~/")
-                               "~/.xyzzy" "~/_xyzzy"))
+             (merge-pathnames "usr/.xyzzy" (si:system-root))
+             (merge-pathnames "usr/_xyzzy" (si:system-root))))
                :if-does-not-exist nil :verbose nil :print nil)))
       (unless *inhibit-history-load*
        (ignore-errors (load-history-file))))
     (ignore-errors (keep-compatibility))
     (ignore-errors (init-app-menus))

Special Thanks

• Xyzzy Wikiの佐野さん
• Xyzzy Wikiのみなさん
• そしてエディタxyzzyを提供してくださっている亀井さん

更新の履歴

2009/09/23

xyzzy-0.2.235-2009092301.patch.txt

• xyzzycli.exeの接続不具合解消パッチ適用
  (XyzzyWiki内「Memo/ソースからビルドしてみる3」のコメント部分)

2008/09/21

xyzzy-0.2.235-2008092101.patch.txt

• putenv関数を追加

  
  ;; .xyzzyとかで(si:putenv VARIABLE) を使用してみる
  ;; $xyzzy/binを環境変数PATHに追加(有効なのはxyzzy.exeからのプロセスだけです)
  (in-package "editor")
  (setq *bin-path* (merge-pathnames "bin" (si:system-root)))
  (in-package "user")
  (setq *bin-path* (merge-pathnames "bin" (si:system-root)))
  (si:putenv  (concat "PATH=" (map-slash-to-backslash *bin-path*) ";" (si:getenv "PATH")));
  

2008/09/15

xyzzy-0.2.235-2008091502.patch.txt

• USBメモリーで使用できるようパッチを追加
  • Homeディレクトリの自動設定。以下の順に検索
    • $xyzzy/home
    • $DRIVE/xyzzyhome
    • $DRIVE/home
    • $xyzzy
  • xyzzy.iniを$XYZZY/usrに保存(ユーザ名やOS名でフォルダ分けしない)
  • ダンプファイルxyzzy.imageとしてシステムのTempフォルダへ保存/読込
  • unlha32.dllなど各種アーカイバDLLがシステムフォルダや$XYZZY内に存在しない場合は$XYZZY/libも検索

2008/09/15

xyzzy-0.2.235-2008091501.patch.txt

• VC9用のpatchを作成

前回のサービス毎の関数を一つにまとめています。

;; サービスを使用して短縮URLをkill-ringに入れる関数
;; 引数 url     ... URL
;; 引数 service ... 使用するサービス -> 'TinyURL or 'is.gd or 'bit.ly
(defun shorten-url-to-kill-ring (url &optional service)
  (let (service-uri
        key
        get-regexp
        method)
    ;; default service to shorten
    (unless service (setq service 'TinyURL))
    ;; switch parameter by each url-shorten service
    (cond ((eq service 'TinyURL)
           ;; via http://tinyurl.com/  use API
           (setq service-uri "http://tinyurl.com/api-create.php")
           (setq key "url")
           (setq method "POST")
           (setq get-regexp "\\(http://tinyurl.com/.+\\)"))
          ((eq service 'is.gd)
           ;; via http://is.gd/  use API
           (setq service-uri "http://is.gd/api.php")
           (setq key "longurl")
           (setq method "GET")
           (setq get-regexp "\\(http://is.gd/.+\\)"))
          ((eq service 'bit.ly)
           ;; via http://bit.ly/  NOT USE API, get from web page
           (setq service-uri "http://bit.ly")
           (setq method "POST")
           (setq key "url")
           (setq get-regexp "id *= *\"shortened-url\" +value *= *\"\\(http://bit.ly/.+\\)\" +/>")))
    ;; use url package ...
    (setq url-request-method method)
    (if (equal method "POST")
        (setq url-request-data (concat key "=" (url-hexify-string url)))
      (setq url-request-data nil)
      (setq service-uri (concat service-uri "?" key "=" (url-hexify-string url))))
    ;; Now, try to fetch short URL
    (url-retrieve service-uri
                  '(lambda (status cbargs)
                     (point-min)
                     (if (re-search-forward (car (cdr cbargs)) nil t)
                         (progn
                           (setq result-url (match-string-no-properties 1))
                           (kill-new result-url nil)
                           (message "Copy '%s' to ring, shorten %s" result-url (car cbargs))))
                     (kill-buffer (current-buffer)))
                  (list (list url get-regexp)))))




;; 上をw3m上から使用するための関数 (この例ではis.gdを使用する)
(defun my-w3m-shorten-url ()
  (interactive)
  (shorten-url-to-kill-ring
     (or (w3m-url-valid (w3m-anchor))
         (w3m-url-valid w3m-current-url))
     'is.gd))

キーバインドとかは必要だったら適当にしてください。

(eval-after-load "w3m"
  '(progn
     ;; w3m-mode-map key binds
     (define-key w3m-mode-map "\C-cs" 'my-w3m-shorten-url)))

この投稿については内容が更新されています。「emacs-w3m上で短縮URLを取得する – その2」の方を利用してください。

以下の関数を.emacsとかに書き込みます。

;; URLを短縮してkill-ringの中に入れる関数(TinyURLを使用バージョン ... API使用)
(defun shorten-url-tinyurl(url)
  (let ((shorten-uri "http://tinyurl.com/api-create.php")
        (url-request-method "POST")
        (url-request-extra-headers
             '(("Content-Type" . "application/x-www-form-urlencoded")))
        (url-request-data (concat "url=" (url-hexify-string url))))
    (url-retrieve shorten-uri
                  '(lambda (status cbargs)
                     (point-min)
                     (if (re-search-forward  "\\(http://tinyurl.com/.+\\)" nil t)
                         (progn
                           (setq result-url (match-string-no-properties 1))
                           (kill-new result-url nil)
                           (message "Copy '%s' to ring, shorten %s" result-url cbargs)))
                     (kill-buffer (current-buffer)))
                  (list url))))

;; URLを短縮してkill-ringの中に入れる関数(bit.lyを使用バージョン ... API不使用)
(defun shorten-url-bitly (url)
  (let ((shorten-uri "http://bit.ly")
        (shorten-uri-get-regexp "id *= *\"shortened-url\" +value *= *\"\\(http://bit.ly/.+\\)\" +/>")
        (url-request-method "POST")
        (url-request-extra-headers
             '(("Content-Type" . "application/x-www-form-urlencoded")))
        (url-request-data (concat "url=" (url-hexify-string url))))
    (url-retrieve shorten-uri
                  '(lambda (status cbargs)
                     (point-min)
                     (if (re-search-forward (car (cdr cbargs)) nil t)
                         (progn
                           (setq result-url (match-string-no-properties 1))
                           (kill-new result-url nil)
                           (message "Copy '%s' to ring, shorten %s" result-url (car cbargs))))
                     (kill-buffer (current-buffer)))
                  (list (list url shorten-uri-get-regexp)))))



;; 上をw3m上から使用するための関数
(defun my-w3m-shorten-url ()
  (interactive)
  (shorten-url-tinyurl ;; もしくは shorten-url-bitly
   (or (w3m-url-valid (w3m-anchor))
       (w3m-url-valid w3m-current-url))))

キーバインドとかは必要だったら適当にしてください。

(eval-after-load "w3m"
  '(progn
     ;; w3m-mode-map key binds
     (define-key w3m-mode-map "\C-cs" 'my-w3m-shorten-url)))

ちなみにTinyURLとbit.lyバージョンを用意しています。好きな方を選択してください。ただしbit.lyバージョンはAPIではなく通常のWebページから取得しているためWebページの改装等で使用できなくなる可能性があります。

バックアップとリストア(コマンドラインから)

sqlite3 test.sqlite3 .dump > dump.sql
sqlite3 test.sqlite3 < dump.sql

書式

レポジトリ

/home/hoge/repositry ... ローカルのファイル形式
host:/home/repositry ... scp形式

各コマンド

git init

レポジトリの作成

git init --bare ... ワークツリー無し
git init --shared ... ワークツリー無し
※ 共有ディレクトリを作成する場合はumaskを002(グループ以外にも書き込み許可)とか007(グループ以外には読み込みも付加)

git status

状態表示

git diff

差分をとる。gitの場合、状態はワークツリー、インデックス(キャッシュ)、レポジトリの3種類ある。それぞれのdiffは下のかんじ。

git add

ワークツリーの状態をindexへ記録

git add -u ... ワークツリーの状態を一括してindexへ
git add -p ... diffのハンク毎にaddする(対話式)
git add -A ... git add . && git add -u

git reset

状態を戻る(git revertとは異なりcommitを無かったことにする)

git reset HEAD^ ... HEADを一つ前のコミットまで戻る(インデックスも含め直近のコミットまでを取り消す)
git reset --soft HEAD^ ... 作業ツリーはそのままでレポジトリのポインタをHEADの一つ前まで戻る
git reset --hard HEAD  ... ワークツリーの状態を含めてHEADまで戻る(ワークツリー上の変更をインデックスも含め取消)
git reset --hard HEAD^ ... ワークツリーの状態を含めてHEADの一つ前まで戻る
git reset --hard master~4 ... ブランチmasterから4つ前までを取り消す

git commit

indexに記録された状態をレポジトリへ

git commit -a ... git add -u && git commit
git commit -v ... git diff --cached の内容も表示する
git commit --amend ... 直前コミットの取消 (git reset --soft HEAD^ && edit && git commit -c ORIG_HEAD)

git log

ログ

git log -p ... パッチ形式で取得
git log --pretty=short ... サマリー(最初の段落)のみ取得
git log --stat ... 変更されたファイル名なども含め表示

git brame

一行毎に表示

git revert

レポジトリ内の履歴を打ち消す(逆のパッチをあてるような感じ？)

git show

git logとの違いが把握できていない

git push

レポジトリに記録を反映させる

git push <repositry> <branch> ... <repositry>の<branch>に反映

git pull

レポジトリから反映させる

git push

レポジトリに記録を反映させる

git push <repositry> <branch> ... <repositry>の<branch>に反映

git stash

現在のコミットしてない変更状況を保存

git stash ... 現在の状況を保存
git stash pop ... 保存した状況を再読み込み

git branch

git branch ... branchのリストを表示/現在のブランチを確認
git branch <branch> ... <branch>とする(新規作成もそのままOK？)

git checkout

git checkout <branch> ... <branch>にスイッチ
git checkout -b <branch> ... git branch <branch> && git checkout <branch>

git merge

git merge <branch> ... 現在のブランチと<branch>をマージ (git pull . <branch>)

git rm

git rm --cached ... キャッシュの中からのみ取り除く(間違えてaddした場合など)

sqliteドライバ組込み済「ちいたん」(tar.gz形式 約8.14KB)