今回のビルドでは、JNetHack に関するいろいろで公開されている’JNetHack menucolor hpmon patch’ を適用してみました。kimu@users.sourceforge.jp さんに感謝です。

ダウンロード

7-Zipを使用して自己解凍形式に圧縮しています。適当な場所でダブルクリックしてください。JNetHackというフォルダの中のJNetHack.exeを実行するとゲームが開始します。

• PortableJNetHack_3.4.3.010.r2.exe 約1.0MB

デフォルトの設定について

すぐに開始できるように名前とか種別とか設定しています。もし気に入らない場合はフォルダ内にあるdefault.nhをメモ帳などで編集するか、行頭に#をつけてコメントアウトしてください。

• hackaholic から オプション ページも参照してください

JNetHack(オリジナル)との比較

JNetHack menucolor hpmon patch

• JNetHack に関するいろいろで公開されている’JNetHack menucolor hpmon patch’ を適用してみました。 kimu@users.sourceforge.jp さん作成。

保存データを同じ名前にする措置

JNetHackというよりはNetHack部分です。src/files.c中の825行目周辺を以下のように変更しています。ログインユーザ名を保存データ名に含めていたのを「saved-game.dat」に固定しています。

これによって他のPCで使用しても同じ保存データを使用できるようになります。

/* Obtain the name of the logged on user and incorporate
 * it into the name.
Sprintf(fnamebuf, "%s-%s", get_username(0), plname);
(void)fname_encode("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz_-.",
            '%', fnamebuf, encodedfnamebuf, BUFSZ); */
Sprintf(SAVEF, "saved-game.dat", encodedfnamebuf);

コンパイル

1. Linux側で全ソースコードをダウンロードしてきてパッチあて、修正
2. Windows側でxyzzyの機能を使用し文字コード変換(EUC-JP→SHIFT_JIS)
3. Windows側でbcc32を用いてコンパイル

…と中途半端な方法をとっています。文字コードの変換でxyzzyを使用しているのは昔iconvとかnkfで変換してもうまくいかなかったからです。

移動とか展開

TODO関連

リンク

• ダウンロード及びインストールマニュアル
• デモ
• Ustream : オープンソースカンファレンス2010 Kansai@Kobe 徳島県と共同開発したRailsベースのCMS Joruri（ジョールリ）のご紹介
• 記事投稿操作マニュアル(PDF形式)
• OSC京都のセミナー 「JoruriによるWebサイト構築のデモ」資料
• 内容入力マニュアル(PDF形式)
• オープンソースCMS Joruri (joruri_org) on Twitter
• FAQサイト

よくある質問から

各種概念とか

• メニュー「コンセプト」について
• メニューの「コンテンツ」について
• 【ディレクトリ】について
• 【デザイン】メニューの「ピース」について
• 【ツール】メニューの「再構築」について
• 【ツール】メニューの「サイト」について

ライセンス的なもの

• 配布ソースに含まれるサンプルの「ジョールリ市」の構成データ（CSS、HTML、アイコン、写真等）は自由に利用してよいのでしょうか？

他、不具合等

• 音声ファイル作成が正常に動作しない原因の調査方法はありますか。

#!/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 … xyzzyインストールフォルダ $DRIVE … xyzzyのあるドライブ)
  • $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ページの改装等で使用できなくなる可能性があります。